diff options
| author | Manuel Traut <manut@mecka.net> | 2011-04-29 09:09:27 +0200 |
|---|---|---|
| committer | Manuel Traut <manut@mecka.net> | 2011-04-29 09:09:27 +0200 |
| commit | 5238ad5a0c4a9e1c8cd036f5de4055e39bd71297 (patch) | |
| tree | 4407c087b9fb5432b1dc11e70b52dacfa0b99feb | |
| parent | 60ead65c41afba7e6aa4bbcf507a1d52f7a8fe9f (diff) | |
added debootstrap stuff
Signed-off-by: Manuel Traut <manut@mecka.net>
1484 files changed, 80093 insertions, 0 deletions
diff --git a/beagle/deb.sh b/beagle/deb.sh new file mode 100755 index 0000000..61db1dc --- /dev/null +++ b/beagle/deb.sh @@ -0,0 +1,18 @@ +sudo rm -rf debian-rfs + +sudo /usr/sbin/debootstrap --verbose \ + --arch armel \ + --foreign \ + squeeze \ + debian-rfs \ + http://debian.tu-bs.de/debian + +cd debian-rfs +sudo rm -rf var/cache/* +sudo rm -rf debootstrap +sudo rm -rf usr/share/doc/* +sudo rm -rf usr/share/man/* +sudo rm -rf usr/share/locale/* +sudo rm -rf usr/share/zoneinfo/* +sudo rm -rf usr/lib/gconv/* +sudo rm -f var/lib/apt/lists/debootstrap.invalid_dists_squeeze_main_binary-armel_Packages diff --git a/beagle/debian-rfs/bin/bash b/beagle/debian-rfs/bin/bash Binary files differnew file mode 100755 index 0000000..ff11d78 --- /dev/null +++ b/beagle/debian-rfs/bin/bash diff --git a/beagle/debian-rfs/bin/cat b/beagle/debian-rfs/bin/cat Binary files differnew file mode 100755 index 0000000..66c2361 --- /dev/null +++ b/beagle/debian-rfs/bin/cat diff --git a/beagle/debian-rfs/bin/chgrp b/beagle/debian-rfs/bin/chgrp Binary files differnew file mode 100755 index 0000000..4dc4fcc --- /dev/null +++ b/beagle/debian-rfs/bin/chgrp diff --git a/beagle/debian-rfs/bin/chmod b/beagle/debian-rfs/bin/chmod Binary files differnew file mode 100755 index 0000000..baa72d4 --- /dev/null +++ b/beagle/debian-rfs/bin/chmod diff --git a/beagle/debian-rfs/bin/chown b/beagle/debian-rfs/bin/chown Binary files differnew file mode 100755 index 0000000..1fcd6ab --- /dev/null +++ b/beagle/debian-rfs/bin/chown diff --git a/beagle/debian-rfs/bin/cp b/beagle/debian-rfs/bin/cp Binary files differnew file mode 100755 index 0000000..0e5c98d --- /dev/null +++ b/beagle/debian-rfs/bin/cp diff --git a/beagle/debian-rfs/bin/dash b/beagle/debian-rfs/bin/dash Binary files differnew file mode 100755 index 0000000..9dc72bc --- /dev/null +++ b/beagle/debian-rfs/bin/dash diff --git a/beagle/debian-rfs/bin/date b/beagle/debian-rfs/bin/date Binary files differnew file mode 100755 index 0000000..1320f00 --- /dev/null +++ b/beagle/debian-rfs/bin/date diff --git a/beagle/debian-rfs/bin/dd b/beagle/debian-rfs/bin/dd Binary files differnew file mode 100755 index 0000000..90dc11d --- /dev/null +++ b/beagle/debian-rfs/bin/dd diff --git a/beagle/debian-rfs/bin/df b/beagle/debian-rfs/bin/df Binary files differnew file mode 100755 index 0000000..86ca256 --- /dev/null +++ b/beagle/debian-rfs/bin/df diff --git a/beagle/debian-rfs/bin/dir b/beagle/debian-rfs/bin/dir Binary files differnew file mode 100755 index 0000000..6dfb0da --- /dev/null +++ b/beagle/debian-rfs/bin/dir diff --git a/beagle/debian-rfs/bin/dmesg b/beagle/debian-rfs/bin/dmesg Binary files differnew file mode 100755 index 0000000..7d0200e --- /dev/null +++ b/beagle/debian-rfs/bin/dmesg diff --git a/beagle/debian-rfs/bin/dnsdomainname b/beagle/debian-rfs/bin/dnsdomainname Binary files differnew file mode 100755 index 0000000..1e4f9a3 --- /dev/null +++ b/beagle/debian-rfs/bin/dnsdomainname diff --git a/beagle/debian-rfs/bin/domainname b/beagle/debian-rfs/bin/domainname Binary files differnew file mode 100755 index 0000000..1e4f9a3 --- /dev/null +++ b/beagle/debian-rfs/bin/domainname diff --git a/beagle/debian-rfs/bin/echo b/beagle/debian-rfs/bin/echo Binary files differnew file mode 100755 index 0000000..27b70eb --- /dev/null +++ b/beagle/debian-rfs/bin/echo diff --git a/beagle/debian-rfs/bin/egrep b/beagle/debian-rfs/bin/egrep Binary files differnew file mode 100755 index 0000000..735306a --- /dev/null +++ b/beagle/debian-rfs/bin/egrep diff --git a/beagle/debian-rfs/bin/false b/beagle/debian-rfs/bin/false Binary files differnew file mode 100755 index 0000000..f389bac --- /dev/null +++ b/beagle/debian-rfs/bin/false diff --git a/beagle/debian-rfs/bin/fgrep b/beagle/debian-rfs/bin/fgrep Binary files differnew file mode 100755 index 0000000..c0f00f3 --- /dev/null +++ b/beagle/debian-rfs/bin/fgrep diff --git a/beagle/debian-rfs/bin/grep b/beagle/debian-rfs/bin/grep Binary files differnew file mode 100755 index 0000000..54bd9f6 --- /dev/null +++ b/beagle/debian-rfs/bin/grep diff --git a/beagle/debian-rfs/bin/gunzip b/beagle/debian-rfs/bin/gunzip new file mode 100755 index 0000000..072bead --- /dev/null +++ b/beagle/debian-rfs/bin/gunzip @@ -0,0 +1,3 @@ +#!/bin/bash +PATH=${GZIP_BINDIR-'/bin'}:$PATH +exec gzip -d "$@" diff --git a/beagle/debian-rfs/bin/gzexe b/beagle/debian-rfs/bin/gzexe new file mode 100755 index 0000000..b72741e --- /dev/null +++ b/beagle/debian-rfs/bin/gzexe @@ -0,0 +1,229 @@ +#!/bin/bash +# gzexe: compressor for Unix executables. +# Use this only for binaries that you do not use frequently. +# +# The compressed version is a shell script which decompresses itself after +# skipping $skip lines of shell commands. We try invoking the compressed +# executable with the original name (for programs looking at their name). +# We also try to retain the original file permissions on the compressed file. +# For safety reasons, gzexe will not create setuid or setgid shell scripts. + +# WARNING: the first line of this file must be either : or #!/bin/bash +# The : is required for some old versions of csh. +# On Ultrix, /bin/bash is too buggy, change the first line to: #!/bin/bash5 + + +# Copyright (C) 1998, 2002, 2004, 2006, 2007 Free Software Foundation +# Copyright (C) 1993 Jean-loup Gailly + +# 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. + +tab=' ' +nl=' +' +IFS=" $tab$nl" + +version='gzexe (gzip) 1.3.12 +Copyright (C) 2007 Free Software Foundation, Inc. +This is free software. You may redistribute copies of it under the terms of +the GNU General Public License <http://www.gnu.org/licenses/gpl.html>. +There is NO WARRANTY, to the extent permitted by law. + +Written by Jean-loup Gailly.' + +usage="Usage: $0 [OPTION] FILE... +Rename each FILE with a compressed version of itself, renaming FILE to FILE~. + + -d Decompress each FILE instead of compressing it. + --help display this help and exit + --version output version information and exit + +Report bugs to <bug-gzip@gnu.org>." + + +PATH="${GZIP_BINDIR-'/bin'}:$PATH" + +decomp=0 +res=0 +while :; do + case $1 in + -d) decomp=1; shift;; + --h*) exec echo "$usage";; + --v*) exec echo "$version";; + --) shift; break;; + *) break;; + esac +done + +if test $# -eq 0; then + echo >&2 "$0: missing operand +Try \`$0 --help' for more information." + exit 1 +fi + +tmp= +trap 'res=$? + test -n "$tmp" && rm -f "$tmp" + (exit $res); exit $res +' 0 1 2 3 5 10 13 15 + +mktemp_status= + +for i do + case $i in + -*) file=./$i;; + *) file=$i;; + esac + if test ! -f "$file" || test ! -r "$file"; then + res=$? + echo >&2 "$0: $i is not a readable regular file" + continue + fi + if test $decomp -eq 0; then + if sed -e 1d -e 2q "$file" | grep "^skip=[0-9][0-9]*$" >/dev/null; then + echo >&2 "$0: $i is already gzexe'd" + continue + fi + fi + if test -u "$file"; then + echo >&2 "$0: $i has setuid permission, unchanged" + continue + fi + if test -g "$file"; then + echo >&2 "$0: $i has setgid permission, unchanged" + continue + fi + case /$file in + */basename | */bash | */cat | */chmod | */cp | \ + */dirname | */echo | */expr | */gzip | \ + */ln | */mkdir | */mktemp | */mv | */rm | \ + */sed | */sh | */sleep | */test | */tail) + echo >&2 "$0: $i might depend on itself"; continue;; + esac + + dir=`dirname "$file"` || dir=$TMPDIR + test -d "$dir" && test -w "$dir" && test -x "$dir" || dir=/tmp + test -n "$tmp" && rm -f "$tmp" + if test -z "$mktemp_status"; then + type mktemp >/dev/null 2>&1 + mktemp_status=$? + fi + if test $mktemp_status -eq 0; then + tmp=`TMPDIR=$dir mktemp -t gzexeXXXXXX` + else + tmp=$dir/gzexe$$ + fi && { cp -p "$file" "$tmp" 2>/dev/null || cp "$file" "$tmp"; } || { + res=$? + echo >&2 "$0: cannot copy $file" + continue + } + if test -w "$tmp"; then + writable=1 + else + writable=0 + chmod u+w "$tmp" || { + res=$? + echo >&2 "$0: cannot chmod $tmp" + continue + } + fi + if test $decomp -eq 0; then + (cat <<'EOF' && +#!/bin/bash +skip=44 + +tab=' ' +nl=' +' +IFS=" $tab$nl" + +umask=`umask` +umask 77 + +gztmpdir= +trap 'res=$? + test -n "$gztmpdir" && rm -fr "$gztmpdir" + (exit $res); exit $res +' 0 1 2 3 5 10 13 15 + +if type mktemp >/dev/null 2>&1; then + gztmpdir=`mktemp -dt` +else + gztmpdir=/tmp/gztmp$$; mkdir $gztmpdir +fi || { (exit 127); exit 127; } + +gztmp=$gztmpdir/$0 +case $0 in +-* | */*' +') mkdir -p "$gztmp" && rm -r "$gztmp";; +*/*) gztmp=$gztmpdir/`basename "$0"`;; +esac || { (exit 127); exit 127; } + +case `echo X | tail -n +1 2>/dev/null` in +X) tail_n=-n;; +*) tail_n=;; +esac +if tail $tail_n +$skip <"$0" | gzip -cd > "$gztmp"; then + umask $umask + chmod 700 "$gztmp" + (sleep 5; rm -fr "$gztmpdir") 2>/dev/null & + "$gztmp" ${1+"$@"}; res=$? +else + echo >&2 "Cannot decompress $0" + (exit 127); res=127 +fi; exit $res +EOF + gzip -cv9 "$file") > "$tmp" || { + res=$? + echo >&2 "$0: compression not possible for $i, file unchanged." + continue + } + + else + # decompression + skip=44 + skip_line=`sed -e 1d -e 2q "$file"` + case $skip_line in + skip=[0-9] | skip=[0-9][0-9] | skip=[0-9][0-9][0-9]) + eval "$skip_line";; + esac + case `echo X | tail -n +1 2>/dev/null` in + X) tail_n=-n;; + *) tail_n=;; + esac + tail $tail_n +$skip "$file" | gzip -cd > "$tmp" || { + res=$? + echo >&2 "$0: $i probably not in gzexe format, file unchanged." + continue + } + fi + test $writable -eq 1 || chmod u-w "$tmp" || { + res=$? + echo >&2 "$0: $tmp: cannot chmod" + continue + } + ln -f "$file" "$file~" || { + res=$? + echo >&2 "$0: cannot backup $i as $i~" + continue + } + mv -f "$tmp" "$file" || { + res=$? + echo >&2 "$0: cannot rename $tmp to $i" + continue + } + tmp= +done +(exit $res); exit $res diff --git a/beagle/debian-rfs/bin/gzip b/beagle/debian-rfs/bin/gzip Binary files differnew file mode 100755 index 0000000..9038edc --- /dev/null +++ b/beagle/debian-rfs/bin/gzip diff --git a/beagle/debian-rfs/bin/hostname b/beagle/debian-rfs/bin/hostname Binary files differnew file mode 100755 index 0000000..1e4f9a3 --- /dev/null +++ b/beagle/debian-rfs/bin/hostname diff --git a/beagle/debian-rfs/bin/ln b/beagle/debian-rfs/bin/ln Binary files differnew file mode 100755 index 0000000..ef8c6c8 --- /dev/null +++ b/beagle/debian-rfs/bin/ln diff --git a/beagle/debian-rfs/bin/login b/beagle/debian-rfs/bin/login Binary files differnew file mode 100755 index 0000000..84b70cc --- /dev/null +++ b/beagle/debian-rfs/bin/login diff --git a/beagle/debian-rfs/bin/ls b/beagle/debian-rfs/bin/ls Binary files differnew file mode 100755 index 0000000..3de8693 --- /dev/null +++ b/beagle/debian-rfs/bin/ls diff --git a/beagle/debian-rfs/bin/mkdir b/beagle/debian-rfs/bin/mkdir Binary files differnew file mode 100755 index 0000000..ebbaaff --- /dev/null +++ b/beagle/debian-rfs/bin/mkdir diff --git a/beagle/debian-rfs/bin/mknod b/beagle/debian-rfs/bin/mknod Binary files differnew file mode 100755 index 0000000..bbc61f8 --- /dev/null +++ b/beagle/debian-rfs/bin/mknod diff --git a/beagle/debian-rfs/bin/mktemp b/beagle/debian-rfs/bin/mktemp Binary files differnew file mode 100755 index 0000000..f1c70b0 --- /dev/null +++ b/beagle/debian-rfs/bin/mktemp diff --git a/beagle/debian-rfs/bin/more b/beagle/debian-rfs/bin/more Binary files differnew file mode 100755 index 0000000..6596a63 --- /dev/null +++ b/beagle/debian-rfs/bin/more diff --git a/beagle/debian-rfs/bin/mount b/beagle/debian-rfs/bin/mount Binary files differnew file mode 100755 index 0000000..9238343 --- /dev/null +++ b/beagle/debian-rfs/bin/mount diff --git a/beagle/debian-rfs/bin/mountpoint b/beagle/debian-rfs/bin/mountpoint Binary files differnew file mode 100755 index 0000000..0b15539 --- /dev/null +++ b/beagle/debian-rfs/bin/mountpoint diff --git a/beagle/debian-rfs/bin/mv b/beagle/debian-rfs/bin/mv Binary files differnew file mode 100755 index 0000000..640f61f --- /dev/null +++ b/beagle/debian-rfs/bin/mv diff --git a/beagle/debian-rfs/bin/nisdomainname b/beagle/debian-rfs/bin/nisdomainname Binary files differnew file mode 100755 index 0000000..1e4f9a3 --- /dev/null +++ b/beagle/debian-rfs/bin/nisdomainname diff --git a/beagle/debian-rfs/bin/pidof b/beagle/debian-rfs/bin/pidof new file mode 120000 index 0000000..bca2a3a --- /dev/null +++ b/beagle/debian-rfs/bin/pidof @@ -0,0 +1 @@ +/sbin/killall5
\ No newline at end of file diff --git a/beagle/debian-rfs/bin/pwd b/beagle/debian-rfs/bin/pwd Binary files differnew file mode 100755 index 0000000..624ed0d --- /dev/null +++ b/beagle/debian-rfs/bin/pwd diff --git a/beagle/debian-rfs/bin/rbash b/beagle/debian-rfs/bin/rbash new file mode 120000 index 0000000..f4d7fa5 --- /dev/null +++ b/beagle/debian-rfs/bin/rbash @@ -0,0 +1 @@ +bash
\ No newline at end of file diff --git a/beagle/debian-rfs/bin/readlink b/beagle/debian-rfs/bin/readlink Binary files differnew file mode 100755 index 0000000..3e2c1ab --- /dev/null +++ b/beagle/debian-rfs/bin/readlink diff --git a/beagle/debian-rfs/bin/rm b/beagle/debian-rfs/bin/rm Binary files differnew file mode 100755 index 0000000..ee8021f --- /dev/null +++ b/beagle/debian-rfs/bin/rm diff --git a/beagle/debian-rfs/bin/rmdir b/beagle/debian-rfs/bin/rmdir Binary files differnew file mode 100755 index 0000000..6d8e2e2 --- /dev/null +++ b/beagle/debian-rfs/bin/rmdir diff --git a/beagle/debian-rfs/bin/run-parts b/beagle/debian-rfs/bin/run-parts Binary files differnew file mode 100755 index 0000000..e6d1c38 --- /dev/null +++ b/beagle/debian-rfs/bin/run-parts diff --git a/beagle/debian-rfs/bin/sed b/beagle/debian-rfs/bin/sed Binary files differnew file mode 100755 index 0000000..c1775d7 --- /dev/null +++ b/beagle/debian-rfs/bin/sed diff --git a/beagle/debian-rfs/bin/sh b/beagle/debian-rfs/bin/sh new file mode 120000 index 0000000..7e03e4f --- /dev/null +++ b/beagle/debian-rfs/bin/sh @@ -0,0 +1 @@ +dash
\ No newline at end of file diff --git a/beagle/debian-rfs/bin/sleep b/beagle/debian-rfs/bin/sleep Binary files differnew file mode 100755 index 0000000..48880ed --- /dev/null +++ b/beagle/debian-rfs/bin/sleep diff --git a/beagle/debian-rfs/bin/stty b/beagle/debian-rfs/bin/stty Binary files differnew file mode 100755 index 0000000..52e7e9e --- /dev/null +++ b/beagle/debian-rfs/bin/stty diff --git a/beagle/debian-rfs/bin/su b/beagle/debian-rfs/bin/su Binary files differnew file mode 100755 index 0000000..e19699b --- /dev/null +++ b/beagle/debian-rfs/bin/su diff --git a/beagle/debian-rfs/bin/sync b/beagle/debian-rfs/bin/sync Binary files differnew file mode 100755 index 0000000..7170210 --- /dev/null +++ b/beagle/debian-rfs/bin/sync diff --git a/beagle/debian-rfs/bin/tailf b/beagle/debian-rfs/bin/tailf Binary files differnew file mode 100755 index 0000000..bda4022 --- /dev/null +++ b/beagle/debian-rfs/bin/tailf diff --git a/beagle/debian-rfs/bin/tar b/beagle/debian-rfs/bin/tar Binary files differnew file mode 100755 index 0000000..dade48c --- /dev/null +++ b/beagle/debian-rfs/bin/tar diff --git a/beagle/debian-rfs/bin/tempfile b/beagle/debian-rfs/bin/tempfile Binary files differnew file mode 100755 index 0000000..fd4c7ee --- /dev/null +++ b/beagle/debian-rfs/bin/tempfile diff --git a/beagle/debian-rfs/bin/touch b/beagle/debian-rfs/bin/touch Binary files differnew file mode 100755 index 0000000..5115bcd --- /dev/null +++ b/beagle/debian-rfs/bin/touch diff --git a/beagle/debian-rfs/bin/true b/beagle/debian-rfs/bin/true Binary files differnew file mode 100755 index 0000000..a74dfe6 --- /dev/null +++ b/beagle/debian-rfs/bin/true diff --git a/beagle/debian-rfs/bin/umount b/beagle/debian-rfs/bin/umount Binary files differnew file mode 100755 index 0000000..91074eb --- /dev/null +++ b/beagle/debian-rfs/bin/umount diff --git a/beagle/debian-rfs/bin/uname b/beagle/debian-rfs/bin/uname Binary files differnew file mode 100755 index 0000000..34f3e70 --- /dev/null +++ b/beagle/debian-rfs/bin/uname diff --git a/beagle/debian-rfs/bin/uncompress b/beagle/debian-rfs/bin/uncompress new file mode 100755 index 0000000..072bead --- /dev/null +++ b/beagle/debian-rfs/bin/uncompress @@ -0,0 +1,3 @@ +#!/bin/bash +PATH=${GZIP_BINDIR-'/bin'}:$PATH +exec gzip -d "$@" diff --git a/beagle/debian-rfs/bin/vdir b/beagle/debian-rfs/bin/vdir Binary files differnew file mode 100755 index 0000000..bb9f3d5 --- /dev/null +++ b/beagle/debian-rfs/bin/vdir diff --git a/beagle/debian-rfs/bin/which b/beagle/debian-rfs/bin/which new file mode 100755 index 0000000..5b2329d --- /dev/null +++ b/beagle/debian-rfs/bin/which @@ -0,0 +1,63 @@ +#! /bin/sh +set -ef + +if test -n "$KSH_VERSION"; then + puts() { + print -r -- "$*" + } +else + puts() { + printf '%s\n' "$*" + } +fi + +ALLMATCHES=0 + +while getopts a whichopts +do + case "$whichopts" in + a) ALLMATCHES=1 ;; + ?) puts "Usage: $0 [-a] args"; exit 2 ;; + esac +done +shift $(($OPTIND - 1)) + +if [ "$#" -eq 0 ]; then + ALLRET=1 +else + ALLRET=0 +fi +case $PATH in + (*[!:]:) PATH="$PATH:" ;; +esac +for PROGRAM in "$@"; do + RET=1 + IFS_SAVE="$IFS" + IFS=: + case $PROGRAM in + */*) + if [ -f "$PROGRAM" ] && [ -x "$PROGRAM" ]; then + puts "$PROGRAM" + RET=0 + fi + ;; + *) + for ELEMENT in $PATH; do + if [ -z "$ELEMENT" ]; then + ELEMENT=. + fi + if [ -f "$ELEMENT/$PROGRAM" ] && [ -x "$ELEMENT/$PROGRAM" ]; then + puts "$ELEMENT/$PROGRAM" + RET=0 + [ "$ALLMATCHES" -eq 1 ] || break + fi + done + ;; + esac + IFS="$IFS_SAVE" + if [ "$RET" -ne 0 ]; then + ALLRET=1 + fi +done + +exit "$ALLRET" diff --git a/beagle/debian-rfs/bin/ypdomainname b/beagle/debian-rfs/bin/ypdomainname Binary files differnew file mode 100755 index 0000000..1e4f9a3 --- /dev/null +++ b/beagle/debian-rfs/bin/ypdomainname diff --git a/beagle/debian-rfs/bin/zcat b/beagle/debian-rfs/bin/zcat new file mode 100755 index 0000000..50ec10f --- /dev/null +++ b/beagle/debian-rfs/bin/zcat @@ -0,0 +1,3 @@ +#!/bin/bash +PATH=${GZIP_BINDIR-'/bin'}:$PATH +exec gzip -cd "$@" diff --git a/beagle/debian-rfs/bin/zcmp b/beagle/debian-rfs/bin/zcmp new file mode 100755 index 0000000..2059ccc --- /dev/null +++ b/beagle/debian-rfs/bin/zcmp @@ -0,0 +1,3 @@ +#!/bin/bash +PATH=${GZIP_BINDIR-'/bin'}:$PATH +exec zdiff --__cmp "$@" diff --git a/beagle/debian-rfs/bin/zdiff b/beagle/debian-rfs/bin/zdiff new file mode 100755 index 0000000..5e1ae01 --- /dev/null +++ b/beagle/debian-rfs/bin/zdiff @@ -0,0 +1,161 @@ +#!/bin/bash +# sh is buggy on RS/6000 AIX 3.2. Replace above line with #!/bin/ksh + +# Copyright (C) 1998, 2002, 2006, 2007 Free Software Foundation +# Copyright (C) 1993 Jean-loup Gailly + +# 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. + +PATH=${GZIP_BINDIR-'/bin'}:$PATH + +case $1 in + --__cmp) shift + prog=cmp; cmp='${CMP-cmp}' ;; + *) prog=diff; cmp='${DIFF-diff}';; +esac + +version="z$prog (gzip) 1.3.12 +Copyright (C) 2007 Free Software Foundation, Inc. +This is free software. You may redistribute copies of it under the terms of +the GNU General Public License <http://www.gnu.org/licenses/gpl.html>. +There is NO WARRANTY, to the extent permitted by law. + +Written by Jean-loup Gailly." + +usage="Usage: $0 [OPTION]... FILE1 [FILE2] +Compare FILE1 to FILE2, using their uncompressed contents if they are +compressed. If FILE2 is omitted, compare FILE1 to the uncompressed +contents of FILE1.gz. Do comparisons like '$prog' does. + +OPTIONs are the same as for '$prog'. + +Report bugs to <bug-gzip@gnu.org>." + +# sed script to escape all ' for the shell, and then (to handle trailing +# newlines correctly) turn trailing X on last line into '. +escape=' + s/'\''/'\''\\'\'''\''/g + $s/X$/'\''/ +' + +while :; do + case $1 in + --h*) printf '%s\n' "$usage" || exit 2; exit;; + --v*) echo "$version" || exit 2; exit;; + --) shift; break;; + -*\'*) cmp="$cmp '"`printf '%sX\n' "$1" | sed "$escape"`;; + -?*) cmp="$cmp '$1'";; + *) break;; + esac + shift +done +cmp="$cmp --" + +for file +do + test "X$file" = X- || <"$file" || exit 2 +done + +gzip_status=0 +exec 3>&1 + +if test $# -eq 1; then + case $1 in + *[-.]gz* | *[-.][zZ] | *.t[ga]z) + FILE=`expr "X$1" : 'X\(.*\)[-.][zZtga]*$'` + gzip_status=$( + exec 4>&1 + (gzip -cd -- "$1" 4>&-; echo $? >&4) 3>&- | eval "$cmp" - '"$FILE"' >&3 + );; + *) + echo >&2 "$0: $1: unknown compressed file extension" + exit 2;; + esac +elif test $# -eq 2; then + case "$1" in + *[-.]gz* | *[-.][zZ] | *.t[ga]z | -) + case "$2" in + *[-.]gz* | *[-.][zZ] | *.t[ga]z | -) + if test "$1$2" = --; then + gzip_status=$( + exec 4>&1 + (gzip -cdfq - 4>&-; echo $? >&4) 3>&- | + eval "$cmp" - - >&3 + ) + elif + # Reject Solaris 8's buggy /bin/bash 2.03. + echo X | + (echo X | eval "$cmp" /dev/fd/5 - >/dev/null 2>&1) \ + 5<&0 + then + gzip_status=$( + exec 4>&1 + (gzip -cdfq -- "$1" 4>&-; echo $? >&4) 3>&- | + ( (gzip -cdfq -- "$2" 4>&-; echo $? >&4) 3>&- 5<&- </dev/null | + eval "$cmp" /dev/fd/5 - >&3) 5<&0 + ) + case $gzip_status in + *[1-9]*) gzip_status=1;; + *) gzip_status=0;; + esac + else + F=`expr "/$2" : '.*/\(.*\)[-.][zZtga]*$'` || F=$prog + tmp= + trap ' + test -n "$tmp" && rm -f "$tmp" + (exit 2); exit 2 + ' HUP INT PIPE TERM 0 + if type mktemp >/dev/null 2>&1; then + tmp=`mktemp -t -- "$F.XXXXXX"` || exit 2 + else + set -C + tmp=${TMPDIR-/tmp}/$F.$$ + fi + gzip -cdfq -- "$2" > "$tmp" || exit 2 + gzip_status=$( + exec 4>&1 + (gzip -cdfq -- "$1" 4>&-; echo $? >&4) 3>&- | + eval "$cmp" - '"$tmp"' >&3 + ) + cmp_status=$? + rm -f "$tmp" || gzip_status=$? + trap - HUP INT PIPE TERM 0 + (exit $cmp_status) + fi;; + *) + gzip_status=$( + exec 4>&1 + (gzip -cdfq -- "$1" 4>&-; echo $? >&4) 3>&- | + eval "$cmp" - '"$2"' >&3 + );; + esac;; + *) case "$2" in + *[-.]gz* | *[-.][zZ] | *.t[ga]z | -) + gzip_status=$( + exec 4>&1 + (gzip -cdfq -- "$2" 4>&-; echo $? >&4) 3>&- | + eval "$cmp" '"$1"' - >&3 + );; + *) eval "$cmp" '"$1"' '"$2"';; + esac;; + esac +else + echo >&2 "$0: invalid number of operands; try \`$0 --help' for help" + exit 2 +fi + +cmp_status=$? +test "$gzip_status" -eq 0 || exit 2 +exit $cmp_status diff --git a/beagle/debian-rfs/bin/zegrep b/beagle/debian-rfs/bin/zegrep new file mode 100755 index 0000000..d6a8424 --- /dev/null +++ b/beagle/debian-rfs/bin/zegrep @@ -0,0 +1,3 @@ +#!/bin/bash +PATH=${GZIP_BINDIR-'/bin'}:$PATH +exec zgrep -E "$@" diff --git a/beagle/debian-rfs/bin/zfgrep b/beagle/debian-rfs/bin/zfgrep new file mode 100755 index 0000000..cfae653 --- /dev/null +++ b/beagle/debian-rfs/bin/zfgrep @@ -0,0 +1,3 @@ +#!/bin/bash +PATH=${GZIP_BINDIR-'/bin'}:$PATH +exec zgrep -F "$@" diff --git a/beagle/debian-rfs/bin/zforce b/beagle/debian-rfs/bin/zforce new file mode 100755 index 0000000..02733ef --- /dev/null +++ b/beagle/debian-rfs/bin/zforce @@ -0,0 +1,71 @@ +#!/bin/bash +# zforce: force a gz extension on all gzip files so that gzip will not +# compress them twice. +# +# This can be useful for files with names truncated after a file transfer. +# 12345678901234 is renamed to 12345678901.gz + + +# Copyright (C) 2002, 2007 Free Software Foundation +# Copyright (C) 1993 Jean-loup Gailly + +# 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. + +PATH="${GZIP_BINDIR-'/bin'}:$PATH"; export PATH + +version="zforce (gzip) 1.3.12 +Copyright (C) 2007 Free Software Foundation, Inc. +This is free software. You may redistribute copies of it under the terms of +the GNU General Public License <http://www.gnu.org/licenses/gpl.html>. +There is NO WARRANTY, to the extent permitted by law. + +Written by Jean-loup Gailly." + +usage="Usage: $0 [FILE]... +Force a .gz extension on all compressed FILEs so that gzip will +not compress them twice. + +Report bugs to <bug-gzip@gnu.org>." + +if test $# = 0; then + echo "$usage" + exit 1 +fi + +res=0 +for i do + case "$i" in + --h*) exec echo "$usage";; + --v*) exec echo "$version";; + *[-.]z | *[-.]gz | *.t[ag]z) continue;; + esac + + if test ! -f "$i" ; then + echo zforce: $i not a file + res=1 + continue + fi + + if gzip -lv < "$i" 2>/dev/null | grep '^defl' > /dev/null; then + + new="$i.gz" + if mv "$i" "$new"; then + echo $i -- replaced with $new + else + res=$? + fi + fi +done +exit $res diff --git a/beagle/debian-rfs/bin/zgrep b/beagle/debian-rfs/bin/zgrep new file mode 100755 index 0000000..0937ac3 --- /dev/null +++ b/beagle/debian-rfs/bin/zgrep @@ -0,0 +1,209 @@ +#!/bin/bash + +# zgrep -- a wrapper around a grep program that decompresses files as needed +# Adapted from a version sent by Charles Levert <charles@comm.polymtl.ca> + +# Copyright (C) 1998, 2001, 2002, 2006, 2007 Free Software Foundation +# Copyright (C) 1993 Jean-loup Gailly + +# 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. + +PATH=${GZIP_BINDIR-'/bin'}:$PATH +grep='${GREP-grep}' + +version='z$grep (gzip) 1.3.12 +Copyright (C) 2007 Free Software Foundation, Inc. +This is free software. You may redistribute copies of it under the terms of +the GNU General Public License <http://www.gnu.org/licenses/gpl.html>. +There is NO WARRANTY, to the extent permitted by law. + +Written by Jean-loup Gailly.' + +usage="Usage: $0 [OPTION]... [-e] PATTERN [FILE]... +Look for instances of PATTERN in the input FILEs, using their +uncompressed contents if they are compressed. + +OPTIONs are the same as for 'grep'. + +Report bugs to <bug-gzip@gnu.org>." + +# sed script to escape all ' for the shell, and then (to handle trailing +# newlines correctly) turn trailing X on last line into '. +escape=' + s/'\''/'\''\\'\'''\''/g + $s/X$/'\''/ +' +operands= +have_pat=0 +pat_on_stdin=0 +files_with_matches=0 +files_without_matches=0 +no_filename=0 +with_filename=0 + +while test $# -ne 0; do + option=$1 + shift + optarg= + + case $option in + (-[0123456789abcdhHiIKLlnoqrRsTuUvVwxyzZ]?*) + arg2=-\'$(expr "X${option}X" : 'X-.[0-9]*\(.*\)' | sed "$escape") + eval "set -- $arg2 "'${1+"$@"}' + option=$(expr "X$option" : 'X\(-.[0-9]*\)');; + (--binary-*=* | --[lm]a*=* | --reg*=*) + ;; + (-[ABCDefm] | --binary-* | --file | --[lm]a* | --reg*) + case ${1?"$option option requires an argument"} in + (*\'*) + optarg=" '"$(printf '%sX\n' "$1" | sed "$escape");; + (*) + optarg=" '$1'";; + esac + shift;; + (--) + break;; + (-?*) + ;; + (*) + case $option in + (*\'*) + operands="$operands '"$(printf '%sX\n' "$option" | sed "$escape");; + (*) + operands="$operands '$option'";; + esac + ${POSIXLY_CORRECT+break} + continue;; + esac + + case $option in + (-[drRzZ] | --di* | --exc* | --inc* | --rec* | --nu*) + printf >&2 '%s: %s: option not supported\n' "$0" "$option" + exit 2;; + (-[ef]* | --file | --file=* | --reg*) + # The pattern is coming from a file rather than the command-line. + # If the file is actually stdin then we need to do a little + # magic, (since we use stdin to pass the gzip output to grep). + # So find a free fd and change the argument to then use this + # file descriptor for the pattern. + case $optarg in + (" '-'" | " '/dev/stdin'" | " '/dev/fd/0'") + pat_on_stdin=1 + # Start search from 6 since the script already uses 3 and 5 + for fd in $(seq 6 254); do + if test ! -e /dev/fd/$fd; then + pat_fd=$fd + break; + fi + done + optarg=/dev/fd/$pat_fd; + esac + have_pat=1;; + (--h | --he | --hel | --help) + echo "$usage" || exit 2 + exit;; + (-H | --wi | --wit | --with | --with- | --with-f | --with-fi \ + | --with-fil | --with-file | --with-filen | --with-filena | --with-filenam \ + | --with-filename) + with_filename=1 + continue;; + (-l | --files-with-*) + files_with_matches=1;; + (-L | --files-witho*) + files_without_matches=1;; + (-h | --no-f*) + no_filename=1;; + (-V | --v | --ve | --ver | --vers | --versi | --versio | --version) + echo "$version" || exit 2 + exit;; + esac + + case $option in + (*\'?*) + option=\'$(expr "X${option}X" : 'X\(.*\)' | sed "$escape");; + (*) + option="'$option'";; + esac + + grep="$grep $option$optarg" +done + +eval "set -- $operands "'${1+"$@"}' + +if test $have_pat -eq 0; then + case ${1?"missing pattern; try \`$0 --help' for help"} in + (*\'*) + grep="$grep -- '"$(printf '%sX\n' "$1" | sed "$escape");; + (*) + grep="$grep -- '$1'";; + esac + shift +fi + +if test $# -eq 0; then + set -- - +fi + +exec 3>&1 +res=0 + +for i +do + # Fail if gzip or grep (or sed) fails. + gzip_status=$( + exec 5>&1 + if test $pat_on_stdin -eq 1; then + eval "exec $pat_fd<&0" + fi + (gzip -cdfq -- "$i" 5>&-; echo $? >&5) 3>&- | + if test $files_with_matches -eq 1; then + eval "$grep" >/dev/null && { printf '%s\n' "$i" || exit 2; } + elif test $files_without_matches -eq 1; then + eval "$grep" >/dev/null || { + r=$? + if test $r -eq 1; then + printf '%s\n' "$i" || r=2 + fi + exit $r + } + elif test $with_filename -eq 0 && + { test $# -eq 1 || test $no_filename -eq 1; }; then + eval "$grep" + else + case $i in + (*' +'* | *'&'* | *'\'* | *'|'*) + i=$(printf '%s\n' "$i" | + sed ' + $!N + $s/[&\|]/\\&/g + $s/\n/\\n/g + ');; + esac + sed_script="s|^|$i:|" + + # Fail if grep or sed fails. + r=$( + exec 4>&1 + (eval "$grep" 4>&-; echo $? >&4) 3>&- | sed "$sed_script" >&3 4>&- + ) || r=2 + exit $r + fi >&3 5>&- + ) + r=$? + test "$gzip_status" -eq 0 || test "$gzip_status" -eq 2 || r=2 + test $res -lt $r && res=$r +done +exit $res diff --git a/beagle/debian-rfs/bin/zless b/beagle/debian-rfs/bin/zless new file mode 100755 index 0000000..f335012 --- /dev/null +++ b/beagle/debian-rfs/bin/zless @@ -0,0 +1,53 @@ +#!/bin/bash + +# Copyright (C) 1998, 2002, 2006, 2007 Free Software Foundation + +# 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. + +PATH="${GZIP_BINDIR-'/bin'}:$PATH"; export PATH + +version="zless (gzip) 1.3.12 +Copyright (C) 2007 Free Software Foundation, Inc. +This is free software. You may redistribute copies of it under the terms of +the GNU General Public License <http://www.gnu.org/licenses/gpl.html>. +There is NO WARRANTY, to the extent permitted by law. + +Written by Paul Eggert." + +usage="Usage: $0 [OPTION]... [FILE]... +Like 'less', but operate on the uncompressed contents of any compressed FILEs. + +Options are the same as for 'less'. + +Report bugs to <bug-gzip@gnu.org>." + +case $1 in +--help) exec echo "$usage";; +--version) exec echo "$version";; +esac + +if test "${LESSMETACHARS+set}" != set; then + # Work around a bug in less 394 and earlier; + # it mishandles the metacharacters '$%=~'. + space=' ' + tab=' ' + newline=' +' + LESSMETACHARS="$space$tab$newline'"';*?"()<>[|&^`#\$%=~' + export LESSMETACHARS +fi + +LESSOPEN="|gzip -cdfq -- %s"; export LESSOPEN +exec less "$@" diff --git a/beagle/debian-rfs/bin/zmore b/beagle/debian-rfs/bin/zmore new file mode 100755 index 0000000..6acee94 --- /dev/null +++ b/beagle/debian-rfs/bin/zmore @@ -0,0 +1,88 @@ +#!/bin/bash + +# Copyright (C) 2001, 2002, 2007 Free Software Foundation +# Copyright (C) 1992, 1993 Jean-loup Gailly + +# 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. + +PATH="${GZIP_BINDIR-'/bin'}:$PATH"; export PATH + +version="zmore (gzip) 1.3.12 +Copyright (C) 2007 Free Software Foundation, Inc. +This is free software. You may redistribute copies of it under the terms of +the GNU General Public License <http://www.gnu.org/licenses/gpl.html>. +There is NO WARRANTY, to the extent permitted by law. + +Written by Jean-loup Gailly." + +usage="Usage: $0 [OPTION]... [FILE]... +Like 'more', but operate on the uncompressed contents of any compressed FILEs. + +Report bugs to <bug-gzip@gnu.org>." + +if test "`echo -n a`" = "-n a"; then + # looks like a SysV system: + n1=''; n2='\c' +else + n1='-n'; n2='' +fi +oldtty=`stty -g 2>/dev/null` +if stty -cbreak 2>/dev/null; then + cb='cbreak'; ncb='-cbreak' +else + # 'stty min 1' resets eof to ^a on both SunOS and SysV! + cb='min 1 -icanon'; ncb='icanon eof ^d' +fi +if test $? -eq 0 && test -n "$oldtty"; then + trap 'stty $oldtty 2>/dev/null; exit' 0 2 3 5 10 13 15 +else + trap 'stty $ncb echo 2>/dev/null; exit' 0 2 3 5 10 13 15 +fi + +if test $# = 0; then + if test -t 0; then + echo "$usage" + else + gzip -cdfq | eval more + fi +else + FIRST=1 + for FILE + do + case $FILE in + --h*) exec echo "$usage";; + --v*) exec echo "$version";; + esac + + < "$FILE" || continue + if test $FIRST -eq 0; then + echo $n1 "--More--(Next file: $FILE)$n2" + stty $cb -echo 2>/dev/null + ANS=`dd bs=1 count=1 2>/dev/null` + stty $ncb echo 2>/dev/null + echo " " + case "$ANS" in + [eq]) exit;; + esac + fi + if test "$ANS" != 's'; then + echo "------> $FILE <------" + gzip -cdfq -- "$FILE" | more + fi + if test -t 1; then + FIRST=0 + fi + done +fi diff --git a/beagle/debian-rfs/bin/znew b/beagle/debian-rfs/bin/znew new file mode 100755 index 0000000..b46ab17 --- /dev/null +++ b/beagle/debian-rfs/bin/znew @@ -0,0 +1,183 @@ +#!/bin/bash + +# Copyright (C) 1998, 2002, 2004, 2007 Free Software Foundation +# Copyright (C) 1993 Jean-loup Gailly + +# 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. + +PATH="${GZIP_BINDIR-'/bin'}:$PATH"; export PATH + +version="znew (gzip) 1.3.12 +Copyright (C) 2007 Free Software Foundation, Inc. +This is free software. You may redistribute copies of it under the terms of +the GNU General Public License <http://www.gnu.org/licenses/gpl.html>. +There is NO WARRANTY, to the extent permitted by law. + +Written by Jean-loup Gailly." + +usage="Usage: $0 [OPTION]... [FILE]... +Recompress files from .Z (compress) format to .gz (gzip) format. + +Options: + + -f Force recompression even if a .gz file already exists. + -t Test the new files before deleting originals. + -v Verbose; display name and statistics for each file compressed. + -9 Use the slowest compression method (optimal compression). + -P Use pipes for the conversion to reduce disk space usage. + -K Keep a .Z file when it is smaller than the .gz file. + --help display this help and exit + --version output version information and exit + +Report bugs to <bug-gzip@gnu.org>." + +check=0 +pipe=0 +opt= +files= +keep=0 +res=0 +old=0 +new=0 +block=1024 +# block is the disk block size (best guess, need not be exact) + +warn="(does not preserve modes and timestamp)" +tmp=${TMPDIR-/tmp}/zfoo.$$ +set -C +echo hi > $tmp || exit +if test -z "`(${CPMOD-cpmod} $tmp $tmp) 2>&1`"; then + cpmod=${CPMOD-cpmod} + warn="" +fi + +if test -z "$cpmod" && ${TOUCH-touch} -r $tmp $tmp 2>/dev/null; then + cpmod="${TOUCH-touch}" + cpmodarg="-r" + warn="(does not preserve file modes)" +fi + +# check if GZIP env. variable uses -S or --suffix +gzip -q $tmp +ext=`echo $tmp* | sed "s|$tmp||"` +rm -f $tmp* +if test -z "$ext"; then + echo znew: error determining gzip extension + exit 1 +fi +if test "$ext" = ".Z"; then + echo znew: cannot use .Z as gzip extension. + exit 1 +fi + +for arg +do + case "$arg" in + --help) exec echo "$usage";; + --version) exec echo "$version";; + -*) opt="$opt $arg"; shift;; + *) break;; + esac +done + +if test $# -eq 0; then + echo "$usage" + exit 1 +fi + +opt=`echo "$opt" | sed -e 's/ //g' -e 's/-//g'` +case "$opt" in + *t*) check=1; opt=`echo "$opt" | sed 's/t//g'` +esac +case "$opt" in + *K*) keep=1; opt=`echo "$opt" | sed 's/K//g'` +esac +case "$opt" in + *P*) pipe=1; opt=`echo "$opt" | sed 's/P//g'` +esac +if test -n "$opt"; then + opt="-$opt" +fi + +for i do + n=`echo $i | sed 's/.Z$//'` + if test ! -f "$n.Z" ; then + echo $n.Z not found + res=1; continue + fi + test $keep -eq 1 && old=`wc -c < "$n.Z"` + if test $pipe -eq 1; then + if gzip -d < "$n.Z" | gzip $opt > "$n$ext"; then + # Copy file attributes from old file to new one, if possible. + test -n "$cpmod" && $cpmod $cpmodarg "$n.Z" "$n$ext" 2> /dev/null + else + echo error while recompressing $n.Z + res=1; continue + fi + else + if test $check -eq 1; then + if cp -p "$n.Z" "$n.$$" 2> /dev/null || cp "$n.Z" "$n.$$"; then + : + else + echo cannot backup "$n.Z" + res=1; continue + fi + fi + if gzip -d "$n.Z"; then + : + else + test $check -eq 1 && mv "$n.$$" "$n.Z" + echo error while uncompressing $n.Z + res=1; continue + fi + if gzip $opt "$n"; then + : + else + if test $check -eq 1; then + mv "$n.$$" "$n.Z" && rm -f "$n" + echo error while recompressing $n + else + # compress $n (might be dangerous if disk full) + echo error while recompressing $n, left uncompressed + fi + res=1; continue + fi + fi + test $keep -eq 1 && new=`wc -c < "$n$ext"` + if test $keep -eq 1 && test `expr \( $old + $block - 1 \) / $block` -lt \ + `expr \( $new + $block - 1 \) / $block`; then + if test $pipe -eq 1; then + rm -f "$n$ext" + elif test $check -eq 1; then + mv "$n.$$" "$n.Z" && rm -f "$n$ext" + else + gzip -d "$n$ext" && compress "$n" && rm -f "$n$ext" + fi + echo "$n.Z smaller than $n$ext -- unchanged" + + elif test $check -eq 1; then + if gzip -t "$n$ext" ; then + rm -f "$n.$$" "$n.Z" + else + test $pipe -eq 0 && mv "$n.$$" "$n.Z" + rm -f "$n$ext" + echo error while testing $n$ext, $n.Z unchanged + res=1; continue + fi + elif test $pipe -eq 1; then + rm -f "$n.Z" + fi +done +exit $res diff --git a/beagle/debian-rfs/dev/core b/beagle/debian-rfs/dev/core new file mode 120000 index 0000000..1168e94 --- /dev/null +++ b/beagle/debian-rfs/dev/core @@ -0,0 +1 @@ +/proc/kcore
\ No newline at end of file diff --git a/beagle/debian-rfs/dev/fd b/beagle/debian-rfs/dev/fd new file mode 120000 index 0000000..e15a8af --- /dev/null +++ b/beagle/debian-rfs/dev/fd @@ -0,0 +1 @@ +/proc/self/fd
\ No newline at end of file diff --git a/beagle/debian-rfs/dev/ram b/beagle/debian-rfs/dev/ram new file mode 120000 index 0000000..5f76aa2 --- /dev/null +++ b/beagle/debian-rfs/dev/ram @@ -0,0 +1 @@ +ram1
\ No newline at end of file diff --git a/beagle/debian-rfs/dev/stderr b/beagle/debian-rfs/dev/stderr new file mode 120000 index 0000000..4662c9c --- /dev/null +++ b/beagle/debian-rfs/dev/stderr @@ -0,0 +1 @@ +fd/2
\ No newline at end of file diff --git a/beagle/debian-rfs/dev/stdin b/beagle/debian-rfs/dev/stdin new file mode 120000 index 0000000..b5e1e9e --- /dev/null +++ b/beagle/debian-rfs/dev/stdin @@ -0,0 +1 @@ +fd/0
\ No newline at end of file diff --git a/beagle/debian-rfs/dev/stdout b/beagle/debian-rfs/dev/stdout new file mode 120000 index 0000000..c7f243f --- /dev/null +++ b/beagle/debian-rfs/dev/stdout @@ -0,0 +1 @@ +fd/1
\ No newline at end of file diff --git a/beagle/debian-rfs/etc/alternatives/README b/beagle/debian-rfs/etc/alternatives/README new file mode 100644 index 0000000..54ef740 --- /dev/null +++ b/beagle/debian-rfs/etc/alternatives/README @@ -0,0 +1,2 @@ +Please read the update-alternatives(8) man page for information on this +directory and its contents. diff --git a/beagle/debian-rfs/etc/apt/apt.conf.d/70debconf b/beagle/debian-rfs/etc/apt/apt.conf.d/70debconf new file mode 100644 index 0000000..0c8b4ca --- /dev/null +++ b/beagle/debian-rfs/etc/apt/apt.conf.d/70debconf @@ -0,0 +1,3 @@ +// Pre-configure all packages with debconf before they are installed. +// If you don't like it, comment it out. +DPkg::Pre-Install-Pkgs {"/usr/sbin/dpkg-preconfigure --apt || true";}; diff --git a/beagle/debian-rfs/etc/apt/sources.list b/beagle/debian-rfs/etc/apt/sources.list new file mode 100644 index 0000000..08bb6b1 --- /dev/null +++ b/beagle/debian-rfs/etc/apt/sources.list @@ -0,0 +1 @@ +deb http://debootstrap.invalid/ squeeze main diff --git a/beagle/debian-rfs/etc/bash.bashrc b/beagle/debian-rfs/etc/bash.bashrc new file mode 100644 index 0000000..9ba3cac --- /dev/null +++ b/beagle/debian-rfs/etc/bash.bashrc @@ -0,0 +1,50 @@ +# System-wide .bashrc file for interactive bash(1) shells. + +# To enable the settings / commands in this file for login shells as well, +# this file has to be sourced in /etc/profile. + +# If not running interactively, don't do anything +[ -z "$PS1" ] && return + +# check the window size after each command and, if necessary, +# update the values of LINES and COLUMNS. +shopt -s checkwinsize + +# set variable identifying the chroot you work in (used in the prompt below) +if [ -z "$debian_chroot" ] && [ -r /etc/debian_chroot ]; then + debian_chroot=$(cat /etc/debian_chroot) +fi + +# set a fancy prompt (non-color, overwrite the one in /etc/profile) +PS1='${debian_chroot:+($debian_chroot)}\u@\h:\w\$ ' + +# Commented out, don't overwrite xterm -T "title" -n "icontitle" by default. +# If this is an xterm set the title to user@host:dir +#case "$TERM" in +#xterm*|rxvt*) +# PROMPT_COMMAND='echo -ne "\033]0;${USER}@${HOSTNAME}: ${PWD}\007"' +# ;; +#*) +# ;; +#esac + +# enable bash completion in interactive shells +#if [ -f /etc/bash_completion ] && ! shopt -oq posix; then +# . /etc/bash_completion +#fi + +# if the command-not-found package is installed, use it +if [ -x /usr/lib/command-not-found -o -x /usr/share/command-not-found ]; then + function command_not_found_handle { + # check because c-n-f could've been removed in the meantime + if [ -x /usr/lib/command-not-found ]; then + /usr/bin/python /usr/lib/command-not-found -- $1 + return $? + elif [ -x /usr/share/command-not-found ]; then + /usr/bin/python /usr/share/command-not-found -- $1 + return $? + else + return 127 + fi + } +fi diff --git a/beagle/debian-rfs/etc/bash_completion.d/debconf b/beagle/debian-rfs/etc/bash_completion.d/debconf new file mode 100644 index 0000000..1880689 --- /dev/null +++ b/beagle/debian-rfs/etc/bash_completion.d/debconf @@ -0,0 +1,12 @@ +have debconf-show && +_debconf_show() +{ + local cur + + COMPREPLY=() + cur=${COMP_WORDS[COMP_CWORD]} + COMPREPLY=($( compgen -W '--listowners --listdbs --db=' -- $cur ) \ + $( apt-cache pkgnames -- $cur ) ) +} +complete -F _debconf_show debconf-show + diff --git a/beagle/debian-rfs/etc/bash_completion.d/insserv b/beagle/debian-rfs/etc/bash_completion.d/insserv new file mode 100644 index 0000000..68c0ef3 --- /dev/null +++ b/beagle/debian-rfs/etc/bash_completion.d/insserv @@ -0,0 +1,36 @@ +# insserv(8) completion +# +# Copyright (c) 2009 Kel Modderman <kel@otaku42.de> +# + +have insserv && +_insserv() +{ + local cur prev sysvdir services options + + cur=`_get_cword` + prev=${COMP_WORDS[COMP_CWORD-1]} + + [ -d /etc/rc.d/init.d ] && sysvdir=/etc/rc.d/init.d \ + || sysvdir=/etc/init.d + + services=( $(echo $sysvdir/!(README*|*.dpkg*|*.rpm@(orig|new|save))) ) + services=( ${services[@]#$sysvdir/} ) + options=( -c --config -d -f -n -o --override -p --path -r -v ) + + case "$prev" in + -c|--config) + _filedir + ;; + -o|--override|-p|--path) + _filedir -d + ;; + *) + COMPREPLY=( $( compgen -W '${options[@]} ${services[@]}' -- \ + $cur ) ) + ;; + esac + + return 0 +} && +complete -F _insserv insserv diff --git a/beagle/debian-rfs/etc/bindresvport.blacklist b/beagle/debian-rfs/etc/bindresvport.blacklist new file mode 100644 index 0000000..c3ef62c --- /dev/null +++ b/beagle/debian-rfs/etc/bindresvport.blacklist @@ -0,0 +1,13 @@ +# +# This file contains a list of port numbers between 600 and 1024, +# which should not be used by bindresvport. bindresvport is mostly +# called by RPC services. This mostly solves the problem, that a +# RPC service uses a well known port of another service. +# +631 # cups +636 # ldaps +774 # rpasswd +873 # rsync +921 # lwresd +993 # imaps +995 # pops diff --git a/beagle/debian-rfs/etc/cron.daily/dpkg b/beagle/debian-rfs/etc/cron.daily/dpkg new file mode 100755 index 0000000..99f4f6b --- /dev/null +++ b/beagle/debian-rfs/etc/cron.daily/dpkg @@ -0,0 +1,10 @@ +#!/bin/sh + +# Backup the 7 last versions of dpkg's status file +if cd /var/backups ; then + if ! cmp -s dpkg.status.0 /var/lib/dpkg/status ; then + cp -p /var/lib/dpkg/status dpkg.status + savelog -c 7 dpkg.status >/dev/null + fi +fi + diff --git a/beagle/debian-rfs/etc/cron.daily/passwd b/beagle/debian-rfs/etc/cron.daily/passwd new file mode 100755 index 0000000..4778bf0 --- /dev/null +++ b/beagle/debian-rfs/etc/cron.daily/passwd @@ -0,0 +1,9 @@ +#!/bin/sh + +cd /var/backups || exit 0 + +for FILE in passwd group shadow gshadow; do + test -f /etc/$FILE || continue + cmp -s $FILE.bak /etc/$FILE && continue + cp -p /etc/$FILE $FILE.bak && chmod 600 $FILE.bak +done diff --git a/beagle/debian-rfs/etc/debconf.conf b/beagle/debian-rfs/etc/debconf.conf new file mode 100644 index 0000000..549c1d5 --- /dev/null +++ b/beagle/debian-rfs/etc/debconf.conf @@ -0,0 +1,83 @@ +# This is the main config file for debconf. It tells debconf where to +# store data. The format of this file is a set of stanzas. Each stanza +# except the first sets up a database for debconf to use. For details, see +# debconf.conf(5) (in the debconf-doc package). +# +# So first things first. This first stanza gives the names of two databases. + +# Debconf will use this database to store the data you enter into it, +# and some other dynamic data. +Config: configdb +# Debconf will use this database to store static template data. +Templates: templatedb + +# World-readable, and accepts everything but passwords. +Name: config +Driver: File +Mode: 644 +Reject-Type: password +Filename: /var/cache/debconf/config.dat + +# Not world readable (the default), and accepts only passwords. +Name: passwords +Driver: File +Mode: 600 +Backup: false +Required: false +Accept-Type: password +Filename: /var/cache/debconf/passwords.dat + +# Set up the configdb database. By default, it consists of a stack of two +# databases, one to hold passwords and one for everything else. +Name: configdb +Driver: Stack +Stack: config, passwords + +# Set up the templatedb database, which is a single flat text file +# by default. +Name: templatedb +Driver: File +Mode: 644 +Filename: /var/cache/debconf/templates.dat + +# Well that was pretty straightforward, and it will be enough for most +# people's needs, but debconf's database drivers can be used to do much +# more interesting things. For example, suppose you want to use config +# data from another host, which is mounted over nfs or perhaps the database +# is accessed via LDAP. You don't want to write to the remote debconf database, +# just read from it, so you still need a local database for local changes. +# +# A remote NFS mounted database, read-only. It is optional; if debconf +# fails to use it it will not abort. +#Name: remotedb +#Driver: DirTree +#Directory: /mnt/otherhost/var/cache/debconf/config +#Readonly: true +#Required: false +# +# A remote LDAP database. It is also read-only. The password is really +# only necessary if the database is not accessible anonymously. +# Option KeyByKey instructs the backend to retrieve keys from the LDAP +# server individually (when they are requested), instead of loading all +# keys at startup. The default is 0, and should only be enabled if you +# want to track accesses to individual keys on the LDAP server side. +#Name: remotedb +#Driver: LDAP +#Server: remotehost +#BaseDN: cn=debconf,dc=domain,dc=com +#BindDN: uid=admin,dc=domain,dc=com +#BindPasswd: secret +#KeyByKey: 0 +# +# A stack consisting of two databases. Values will be read from +# the first database in the stack to contain a value. In this example, +# writes always go to the first database. +#Name: fulldb +#Driver: Stack +#Stack: configdb, remotedb +# +# In this example, we'd use Config: fulldb at the top of the file +# to make it use the combination of the databases. +# +# Even more complex and interesting setups are possible, see the +# debconf.conf(5) page for details. diff --git a/beagle/debian-rfs/etc/debian_version b/beagle/debian-rfs/etc/debian_version new file mode 100644 index 0000000..5fe6072 --- /dev/null +++ b/beagle/debian-rfs/etc/debian_version @@ -0,0 +1 @@ +6.0.1 diff --git a/beagle/debian-rfs/etc/default/bootlogd b/beagle/debian-rfs/etc/default/bootlogd new file mode 100644 index 0000000..210f852 --- /dev/null +++ b/beagle/debian-rfs/etc/default/bootlogd @@ -0,0 +1,2 @@ +# Run bootlogd at startup ? +BOOTLOGD_ENABLE=No diff --git a/beagle/debian-rfs/etc/default/devpts b/beagle/debian-rfs/etc/default/devpts new file mode 100644 index 0000000..e10e371 --- /dev/null +++ b/beagle/debian-rfs/etc/default/devpts @@ -0,0 +1,5 @@ +# GID of the `tty' group +TTYGRP=5 + +# Set to 600 to have `mesg n' be the default +TTYMODE=620 diff --git a/beagle/debian-rfs/etc/default/halt b/beagle/debian-rfs/etc/default/halt new file mode 100644 index 0000000..21bc119 --- /dev/null +++ b/beagle/debian-rfs/etc/default/halt @@ -0,0 +1,2 @@ +# Default behaviour of shutdown -h / halt. Set to "halt" or "poweroff". +HALT=poweroff diff --git a/beagle/debian-rfs/etc/default/tmpfs b/beagle/debian-rfs/etc/default/tmpfs new file mode 100644 index 0000000..10820ae --- /dev/null +++ b/beagle/debian-rfs/etc/default/tmpfs @@ -0,0 +1,6 @@ +# SHM_SIZE sets the maximum size (in bytes) that the /dev/shm tmpfs can use. +# If this is not set then the size defaults to the value of TMPFS_SIZE +# if that is set; otherwise to the kernel's default. +# +# The size will be rounded down to a multiple of the page size, 4096 bytes. +SHM_SIZE= diff --git a/beagle/debian-rfs/etc/default/useradd b/beagle/debian-rfs/etc/default/useradd new file mode 100644 index 0000000..a834fef --- /dev/null +++ b/beagle/debian-rfs/etc/default/useradd @@ -0,0 +1,37 @@ +# Default values for useradd(8) +# +# The SHELL variable specifies the default login shell on your +# system. +# Similar to DHSELL in adduser. However, we use "sh" here because +# useradd is a low level utility and should be as general +# as possible +SHELL=/bin/sh +# +# The default group for users +# 100=users on Debian systems +# Same as USERS_GID in adduser +# This argument is used when the -n flag is specified. +# The default behavior (when -n and -g are not specified) is to create a +# primary user group with the same name as the user being added to the +# system. +# GROUP=100 +# +# The default home directory. Same as DHOME for adduser +# HOME=/home +# +# The number of days after a password expires until the account +# is permanently disabled +# INACTIVE=-1 +# +# The default expire date +# EXPIRE= +# +# The SKEL variable specifies the directory containing "skeletal" user +# files; in other words, files such as a sample .profile that will be +# copied to the new user's home directory when it is created. +# SKEL=/etc/skel +# +# Defines whether the mail spool should be created while +# creating the account +# CREATE_MAIL_SPOOL=yes + diff --git a/beagle/debian-rfs/etc/dpkg/dpkg.cfg b/beagle/debian-rfs/etc/dpkg/dpkg.cfg new file mode 100644 index 0000000..ba898ee --- /dev/null +++ b/beagle/debian-rfs/etc/dpkg/dpkg.cfg @@ -0,0 +1,13 @@ +# dpkg configuration file +# +# This file can contain default options for dpkg. All command-line +# options are allowed. Values can be specified by putting them after +# the option, separated by whitespace and/or an `=' sign. +# + +# Do not enable debsig-verify by default; since the distribution is not using +# embedded signatures, debsig-verify would reject all packages. +no-debsig + +# Log status changes and actions to a file. +log /var/log/dpkg.log diff --git a/beagle/debian-rfs/etc/dpkg/origins/debian b/beagle/debian-rfs/etc/dpkg/origins/debian new file mode 100644 index 0000000..91f6ed1 --- /dev/null +++ b/beagle/debian-rfs/etc/dpkg/origins/debian @@ -0,0 +1,3 @@ +Vendor: Debian +Vendor-URL: http://www.debian.org/ +Bugs: debbugs://bugs.debian.org diff --git a/beagle/debian-rfs/etc/fstab b/beagle/debian-rfs/etc/fstab new file mode 100644 index 0000000..6691d9b --- /dev/null +++ b/beagle/debian-rfs/etc/fstab @@ -0,0 +1 @@ +# UNCONFIGURED FSTAB FOR BASE SYSTEM diff --git a/beagle/debian-rfs/etc/gai.conf b/beagle/debian-rfs/etc/gai.conf new file mode 100644 index 0000000..4e154bc --- /dev/null +++ b/beagle/debian-rfs/etc/gai.conf @@ -0,0 +1,74 @@ +# Configuration for getaddrinfo(3). +# +# So far only configuration for the destination address sorting is needed. +# RFC 3484 governs the sorting. But the RFC also says that system +# administrators should be able to overwrite the defaults. This can be +# achieved here. +# +# All lines have an initial identifier specifying the option followed by +# up to two values. Information specified in this file replaces the +# default information. Complete absence of data of one kind causes the +# appropriate default information to be used. The supported commands include: +# +# reload <yes|no> +# If set to yes, each getaddrinfo(3) call will check whether this file +# changed and if necessary reload. This option should not really be +# used. There are possible runtime problems. The default is no. +# +# label <mask> <value> +# Add another rule to the RFC 3484 label table. See section 2.1 in +# RFC 3484. The default is: +# +#label ::1/128 0 +#label ::/0 1 +#label 2002::/16 2 +#label ::/96 3 +#label ::ffff:0:0/96 4 +#label fec0::/10 5 +#label fc00::/7 6 +#label 2001:0::/32 7 +# +# This default differs from the tables given in RFC 3484 by handling +# (now obsolete) site-local IPv6 addresses and Unique Local Addresses. +# The reason for this difference is that these addresses are never +# NATed while IPv4 site-local addresses most probably are. Given +# the precedence of IPv6 over IPv4 (see below) on machines having only +# site-local IPv4 and IPv6 addresses a lookup for a global address would +# see the IPv6 be preferred. The result is a long delay because the +# site-local IPv6 addresses cannot be used while the IPv4 address is +# (at least for the foreseeable future) NATed. We also treat Teredo +# tunnels special. +# +# precedence <mask> <value> +# Add another rule to the RFC 3484 precedence table. See section 2.1 +# and 10.3 in RFC 3484. The default is: +# +#precedence ::1/128 50 +#precedence ::/0 40 +#precedence 2002::/16 30 +#precedence ::/96 20 +#precedence ::ffff:0:0/96 10 +# +# For sites which prefer IPv4 connections change the last line to +# +#precedence ::ffff:0:0/96 100 + +# +# scopev4 <mask> <value> +# Add another rule to the RFC 3484 scope table for IPv4 addresses. +# By default the scope IDs described in section 3.2 in RFC 3484 are +# used. Changing these defaults should hardly ever be necessary. +# The defaults are equivalent to: +# +#scopev4 ::ffff:169.254.0.0/112 2 +#scopev4 ::ffff:127.0.0.0/104 2 +#scopev4 ::ffff:0.0.0.0/96 14 +# +# For sites which use site-local IPv4 addresses behind NAT there is +# the problem that even if IPv4 addresses are preferred they do not +# have the same scope and are therefore not sorted first. To change +# this use only these rules: +# +#scopev4 ::ffff:169.254.0.0/112 2 +#scopev4 ::ffff:127.0.0.0/104 2 +#scopev4 ::ffff:0.0.0.0/96 14 diff --git a/beagle/debian-rfs/etc/host.conf b/beagle/debian-rfs/etc/host.conf new file mode 100644 index 0000000..d1a59f7 --- /dev/null +++ b/beagle/debian-rfs/etc/host.conf @@ -0,0 +1 @@ +multi on diff --git a/beagle/debian-rfs/etc/hostname b/beagle/debian-rfs/etc/hostname new file mode 100644 index 0000000..c9133b5 --- /dev/null +++ b/beagle/debian-rfs/etc/hostname @@ -0,0 +1 @@ +deepthought diff --git a/beagle/debian-rfs/etc/init.d/README b/beagle/debian-rfs/etc/init.d/README new file mode 100644 index 0000000..8477036 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/README @@ -0,0 +1,60 @@ + Configuration of System V init under Debian GNU/Linux + +Most Unix versions have a file here that describes how the scripts +in this directory work, and how the links in the /etc/rc?.d/ directories +influence system startup/shutdown. + +For Debian, this information is contained in the policy manual, chapter +"System run levels and init.d scripts". The Debian Policy Manual is +available at: + + http://www.debian.org/doc/debian-policy/#contents + +The Debian Policy Manual is also available in the Debian package +"debian-policy". When this package is installed, the policy manual can be +found in directory /usr/share/doc/debian-policy. If you have a browser +installed you can probably read it at + + file://localhost/usr/share/doc/debian-policy/ + +Some more detailed information can also be found in the files in the +/usr/share/doc/sysv-rc directory. + +Debian Policy dictates that /etc/init.d/*.sh scripts must work properly +when sourced. The following additional rules apply: + +* /etc/init.d/*.sh scripts must not rely for their correct functioning + on their being sourced rather than executed. That is, they must work + properly when executed too. They must include "#!/bin/sh" at the top. + This is useful when running scripts in parallel. + +* /etc/init.d/*.sh scripts must conform to the rules for sh scripts as + spelled out in the Debian policy section entitled "Scripts" (§10.4). + +Use the update-rc.d command to create symbolic links in the /etc/rc?.d +as appropriate. See that man page for more details. + +All init.d scripts are expected to have a LSB style header documenting +dependencies and default runlevel settings. The header look like this +(not all fields are required): + +### BEGIN INIT INFO +# Provides: skeleton +# Required-Start: $remote_fs $syslog +# Required-Stop: $remote_fs $syslog +# Should-Start: $portmap +# Should-Stop: $portmap +# X-Start-Before: nis +# X-Stop-After: nis +# Default-Start: 2 3 4 5 +# Default-Stop: 0 1 6 +# X-Interactive: true +# Short-Description: Example initscript +# Description: This file should be used to construct scripts to be +# placed in /etc/init.d. +### END INIT INFO + +More information on the format is available from insserv(8). This +information is used to dynamicaly assign sequence numbers to the +boot scripts and to run the scripts in parallel during the boot. +See also /usr/share/doc/insserv/README.Debian. diff --git a/beagle/debian-rfs/etc/init.d/bootlogd b/beagle/debian-rfs/etc/init.d/bootlogd new file mode 100755 index 0000000..b688796 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/bootlogd @@ -0,0 +1,96 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: bootlogd +# Required-Start: mountdevsubfs +# X-Start-Before: hostname keymap keyboard-setup procps pcmcia hwclock hwclockfirst hdparm hibernate-cleanup lvm2 +# Required-Stop: +# Default-Start: S +# Default-Stop: +# Short-Description: Start or stop bootlogd. +# Description: Starts or stops the bootlogd log program +# which logs boot messages. +### END INIT INFO + +PATH=/sbin:/bin # No remote fs at start +DAEMON=/sbin/bootlogd +[ -x "$DAEMON" ] || exit 0 +NAME=bootlogd +DESC="boot logger" +BOOTLOGD_OPTS="-r -c" +[ -r /etc/default/bootlogd ] && . /etc/default/bootlogd +. /lib/init/vars.sh + +. /lib/lsb/init-functions + +# Because bootlogd is broken on some systems, we take the special measure +# of requiring it to be enabled by setting an environment variable. +case "$BOOTLOGD_ENABLE" in + [Nn]*) + exit 0 + ;; +esac + +# Previously this script was symlinked as "stop-bootlogd" which, when run +# with the "start" argument, should stop bootlogd. Now stop-bootlogd is +# a distinct script, but for backward compatibility this script continues +# to implement the old behavior. +SCRIPTNAME=${0##*/} +SCRIPTNAME=${SCRIPTNAME#[SK]??} +ACTION="$1" +case "$0" in + *stop-bootlog*) + [ "$ACTION" = start ] && ACTION=stop + ;; +esac + +case "$ACTION" in + start) + # PATH is set above + [ "$VERBOSE" != no ] && log_daemon_msg "Starting $DESC" "$NAME" + if [ -d /proc/1/. ] + then + umask 027 + start-stop-daemon --start --quiet --exec $DAEMON -- \ + $BOOTLOGD_OPTS + ES=$? + else + $DAEMON $BOOTLOGD_OPTS + ES=$? + fi + [ "$VERBOSE" != no ] && log_end_msg $ES + ;; + stop) + PATH=/bin:/sbin:/usr/bin:/usr/sbin + [ "$VERBOSE" != no ] && log_daemon_msg "Stopping $DESC" "$NAME" + start-stop-daemon --oknodo --stop --quiet --exec $DAEMON + ES=$? + sleep 1 + [ "$VERBOSE" != no ] && log_end_msg $ES + if [ -f /var/log/boot ] && [ -f /var/log/boot~ ] + then + [ "$VERBOSE" = no ] || log_action_begin_msg "Moving boot log file" + # bootlogd writes to boot, making backup at boot~ + cd /var/log && { + chgrp adm boot || : + savelog -q -p -c 5 boot \ + && mv boot.0 boot \ + && mv boot~ boot.0 + } + ES=$? + [ "$VERBOSE" = no ] || log_action_end_msg $ES + fi + ;; + restart|force-reload) + /etc/init.d/bootlogd stop + /etc/init.d/bootlogd start + ;; + status) + status_of_proc "$DAEMON" "$NAME" && exit 0 || exit $? + ;; + *) + echo "Usage: $SCRIPTNAME {start|stop|restart|force-reload|status}" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/bootlogs b/beagle/debian-rfs/etc/init.d/bootlogs new file mode 100755 index 0000000..769e644 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/bootlogs @@ -0,0 +1,76 @@ +#!/bin/sh +### BEGIN INIT INFO +# Provides: bootlogs +# Required-Start: hostname $local_fs +# Required-Stop: +# Should-Start: $x-display-manager gdm kdm xdm ldm sdm wdm nodm +# Default-Start: 1 2 3 4 5 +# Default-Stop: +# Short-Description: Log file handling to be done during bootup. +# Description: Various things that don't need to be done particularly +# early in the boot, just before getty is run. +### END INIT INFO + +PATH=/sbin:/usr/sbin:/bin:/usr/bin +[ "$DELAYLOGIN" ] || DELAYLOGIN=yes +. /lib/init/vars.sh + +do_start () { + # Update motd + uname -snrvm > /var/run/motd + [ -f /etc/motd.tail ] && cat /etc/motd.tail >> /var/run/motd + + # Save kernel messages in /var/log/dmesg + if which dmesg >/dev/null 2>&1 + then + [ -f /var/log/dmesg ] && savelog -q -p -c 5 /var/log/dmesg + dmesg -s 524288 > /var/log/dmesg + chgrp adm /var/log/dmesg || : + elif [ -c /dev/klog ] + then + [ -f /var/log/dmesg ] && savelog -q -p -c 5 /var/log/dmesg + dd if=/dev/klog of=/var/log/dmesg & + sleep 1 + kill $! + [ -f /var/log/dmesg ] && { chgrp adm /var/log/dmesg || : ; } + fi + + # + # Save udev log in /var/log/udev + # + if [ -e /dev/.udev.log ] + then + mv -f /dev/.udev.log /var/log/udev + fi +} + +do_status () { + if [ -f /var/run/motd ] && [ ! -f /dev/.udev.log ] ; then + return 0 + else + return 4 + fi +} + +case "$1" in + start|"") + do_start + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + # No-op + ;; + status) + do_status + exit $? + ;; + *) + echo "Usage: bootlogs [start|stop|status]" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/bootmisc.sh b/beagle/debian-rfs/etc/init.d/bootmisc.sh new file mode 100755 index 0000000..334a14e --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/bootmisc.sh @@ -0,0 +1,65 @@ +#!/bin/sh +### BEGIN INIT INFO +# Provides: bootmisc +# Required-Start: $remote_fs +# Required-Stop: +# Should-Start: udev +# Default-Start: S +# Default-Stop: +# Short-Description: Miscellaneous things to be done during bootup. +# Description: Some cleanup. Note, it need to run after mountnfs-bootclean.sh. +### END INIT INFO + +PATH=/sbin:/usr/sbin:/bin:/usr/bin +[ "$DELAYLOGIN" ] || DELAYLOGIN=yes +. /lib/init/vars.sh + +do_start () { + # + # If login delaying is enabled then create the flag file + # which prevents logins before startup is complete + # + case "$DELAYLOGIN" in + Y*|y*) + echo "System bootup in progress - please wait" > /var/lib/initscripts/nologin + ;; + esac + + # Create /var/run/utmp so we can login. + : > /var/run/utmp + if grep -q ^utmp: /etc/group + then + chmod 664 /var/run/utmp + chgrp utmp /var/run/utmp + fi + + # Set pseudo-terminal access permissions. + if [ ! -e /dev/.udev ] && [ -c /dev/ttyp0 ] + then + chmod -f 666 /dev/tty[p-za-e][0-9a-f] + chown -f root:tty /dev/tty[p-za-e][0-9a-f] + fi + + # Remove bootclean's flag files. + # Don't run bootclean again after this! + rm -f /tmp/.clean /var/run/.clean /var/lock/.clean +} + +case "$1" in + start|"") + do_start + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + # No-op + ;; + *) + echo "Usage: bootmisc.sh [start|stop]" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/checkfs.sh b/beagle/debian-rfs/etc/init.d/checkfs.sh new file mode 100755 index 0000000..a290672 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/checkfs.sh @@ -0,0 +1,159 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: checkfs +# Required-Start: checkroot +# Required-Stop: +# Should-Start: mtab +# Default-Start: S +# Default-Stop: +# X-Interactive: true +# Short-Description: Check all filesystems. +### END INIT INFO + +# Include /usr/bin in path to find on_ac_power if /usr/ is on the root +# partition. +PATH=/sbin:/bin:/usr/bin +FSCK_LOGFILE=/var/log/fsck/checkfs +[ "$FSCKFIX" ] || FSCKFIX=no +. /lib/init/vars.sh + +. /lib/lsb/init-functions +. /lib/init/splash-functions-base +. /lib/init/usplash-fsck-functions.sh +. /lib/init/swap-functions.sh + +do_start () { + # See if we're on AC Power. If not, we're not gonna run our + # check. If on_ac_power (in /usr/) is unavailable, behave as + # before and check all file systems needing it. + +# Disabled AC power check until fsck can be told to only check the +# file system if it is corrupt when running on battery. (bug #526398) +# if which on_ac_power >/dev/null 2>&1 +# then +# on_ac_power >/dev/null 2>&1 +# if [ $? -eq 1 ] +# then +# [ "$VERBOSE" = no ] || log_success_msg "Running on battery power, so skipping file system check." +# BAT=yes +# fi +# fi + BAT="" + fscheck="yes" + + if [ -f /fastboot ] || grep -s -w -i "fastboot" /proc/cmdline + then + [ "$fscheck" = yes ] && log_warning_msg "Fast boot enabled, so skipping file system check." + fscheck=no + fi + + # + # Check the rest of the file systems. + # + if [ "$fscheck" = yes ] && [ ! "$BAT" ] && [ "$FSCKTYPES" != "none" ] + then + + # Execute swapon command again, in case there are lvm + # or md swap partitions. fsck can suck RAM. + swaponagain 'lvm and md' + + if [ -f /forcefsck ] || grep -s -w -i "forcefsck" /proc/cmdline + then + force="-f" + else + force="" + fi + if [ "$FSCKFIX" = yes ] + then + fix="-y" + else + fix="-a" + fi + spinner="-C" + case "$TERM" in + dumb|network|unknown|"") + spinner="" + ;; + esac + [ "$(uname -m)" = s390 ] && spinner="" # This should go away + FSCKTYPES_OPT="" + [ "$FSCKTYPES" ] && FSCKTYPES_OPT="-t $FSCKTYPES" + handle_failed_fsck() { + log_failure_msg "File system check failed. +A log is being saved in ${FSCK_LOGFILE} if that location is writable. +Please repair the file system manually." + log_warning_msg "A maintenance shell will now be started. +CONTROL-D will terminate this shell and resume system boot." + # Start a single user shell on the console + if ! sulogin $CONSOLE + then + log_failure_msg "Attempt to start maintenance shell failed. +Continuing with system boot in 5 seconds." + sleep 5 + fi + } + if [ "$VERBOSE" = no ] + then + log_action_begin_msg "Checking file systems" + if usplash_running; then + PROGRESS_FILE=`mktemp` || exit 1 + set -m + logsave -s $FSCK_LOGFILE fsck -C3 -R -A $fix $force $FSCKTYPES_OPT >/dev/console 2>&1 3>$PROGRESS_FILE & + set +m + usplash_progress "$PROGRESS_FILE" + rm -f $PROGRESS_FILE + else + splash_start_indefinite + logsave -s $FSCK_LOGFILE fsck $spinner -R -A $fix $force $FSCKTYPES_OPT + FSCKCODE=$? + splash_stop_indefinite + fi + + if [ "$FSCKCODE" -gt 1 ] + then + log_action_end_msg 1 "code $FSCKCODE" + handle_failed_fsck + else + log_action_end_msg 0 + fi + else + if [ "$FSCKTYPES" ] + then + log_action_msg "Will now check all file systems of types $FSCKTYPES" + else + log_action_msg "Will now check all file systems" + fi + splash_start_indefinite + logsave -s $FSCK_LOGFILE fsck $spinner -V -R -A $fix $force $FSCKTYPES_OPT + FSCKCODE=$? + splash_stop_indefinite + if [ "$FSCKCODE" -gt 1 ] + then + handle_failed_fsck + else + log_success_msg "Done checking file systems. +A log is being saved in ${FSCK_LOGFILE} if that location is writable." + fi + fi + fi + rm -f /fastboot /forcefsck 2>/dev/null +} + +case "$1" in + start|"") + do_start + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + # No-op + ;; + *) + echo "Usage: checkfs.sh [start|stop]" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/checkroot.sh b/beagle/debian-rfs/etc/init.d/checkroot.sh new file mode 100755 index 0000000..df84d22 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/checkroot.sh @@ -0,0 +1,436 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: checkroot +# Required-Start: mountdevsubfs hostname +# Required-Stop: +# Should-Start: keymap hwclockfirst hdparm bootlogd +# Should-stop: +# Default-Start: S +# Default-Stop: +# X-Interactive: true +# Short-Description: Check to root file system. +### END INIT INFO + +# Include /usr/bin in path to find on_ac_power if /usr/ is on the root +# partition. +PATH=/sbin:/bin:/usr/bin +FSCK_LOGFILE=/var/log/fsck/checkroot +[ "$FSCKFIX" ] || FSCKFIX=no +[ "$SULOGIN" ] || SULOGIN=no +. /lib/init/vars.sh + +. /lib/lsb/init-functions +. /lib/init/mount-functions.sh +. /lib/init/splash-functions-base +. /lib/init/usplash-fsck-functions.sh + +do_start () { + # + # Set SULOGIN in /etc/default/rcS to yes if you want a sulogin to + # be spawned from this script *before anything else* with a timeout, + # like sysv does. + # + [ "$SULOGIN" = yes ] && sulogin -t 30 $CONSOLE + + KERNEL="$(uname -s)" + MACHINE="$(uname -m)" + + # + # Read /etc/fstab, looking for: + # 1) The root filesystem, resolving LABEL=*|UUID=* entries to the + # device node, + # 2) Swap that is on a md device or a file that may be on a md + # device, + # + + exec 9<&0 </etc/fstab + + fstabroot=/dev/root + rootdev=none + roottype=none + rootopts=defaults + rootmode=rw + rootcheck=no + swap_on_lv=no + swap_on_file=no + + while read DEV MTPT FSTYPE OPTS DUMP PASS JUNK + do + case "$DEV" in + ""|\#*) + continue; + ;; + /dev/mapper/*) + [ "$FSTYPE" = "swap" ] && swap_on_lv=yes + ;; + /dev/*) + ;; + LABEL=*|UUID=*) + if [ "$MTPT" = "/" ] && [ -x /sbin/findfs ] + then + DEV="$(findfs "$DEV")" + fi + ;; + /*) + [ "$FSTYPE" = "swap" ] && swap_on_file=yes + ;; + *) + ;; + esac + [ "$MTPT" != "/" ] && continue + rootdev="$DEV" + fstabroot="$DEV" + rootopts="$OPTS" + roottype="$FSTYPE" + ( [ "$PASS" != 0 ] && [ "$PASS" != "" ] ) && rootcheck=yes + ( [ "$FSTYPE" = "nfs" ] || [ "$FSTYPE" = "nfs4" ] ) && rootcheck=no + case "$OPTS" in + ro|ro,*|*,ro|*,ro,*) + rootmode=ro + ;; + esac + done + + exec 0<&9 9<&- + + # + # Activate the swap device(s) in /etc/fstab. This needs to be done + # before fsck, since fsck can be quite memory-hungry. + # + ENABLE_SWAP=no + case "$KERNEL" in + Linux) + if [ "$NOSWAP" = yes ] + then + [ "$VERBOSE" = no ] || log_warning_msg "Not activating swap as requested via bootoption noswap." + ENABLE_SWAP=no + else + if [ "$swap_on_lv" = yes ] + then + [ "$VERBOSE" = no ] || log_warning_msg "Not activating swap on logical volume." + elif [ "$swap_on_file" = yes ] + then + [ "$VERBOSE" = no ] || log_warning_msg "Not activating swap on swapfile." + else + ENABLE_SWAP=yes + fi + fi + ;; + *) + ENABLE_SWAP=yes + ;; + esac + if [ "$ENABLE_SWAP" = yes ] + then + if [ "$VERBOSE" = no ] + then + log_action_begin_msg "Activating swap" + swapon -a -e >/dev/null 2>&1 + log_action_end_msg $? + else + log_daemon_msg "Activating swap" + swapon -a -v + log_end_msg $? + fi + fi + + # + # Does the root device in /etc/fstab match with the actual device ? + # If not we try to use the /dev/root alias device, and if that + # fails we create a temporary node in /lib/init/rw. + # + if [ "$rootcheck" = yes ] + then + ddev="$(mountpoint -qx $rootdev)" + rdev="$(mountpoint -d /)" + if [ "$ddev" != "$rdev" ] && [ "$ddev" != "4:0" ] + then + if [ "$(mountpoint -qx /dev/root)" = "4:0" ] + then + rootdev=/dev/root + else + if \ + rm -f /lib/init/rw/rootdev \ + && mknod -m 600 /lib/init/rw/rootdev b ${rdev%:*} ${rdev#*:} \ + && [ -e /lib/init/rw/rootdev ] + then + rootdev=/lib/init/rw/rootdev + else + rootfatal=yes + fi + fi + fi + fi + + # + # Bother, said Pooh. + # + if [ "$rootfatal" = yes ] + then + log_failure_msg "The device node $rootdev for the root filesystem is missing or incorrect +or there is no entry for the root filesystem listed in /etc/fstab. +The system is also unable to create a temporary node in /lib/init/rw. +This means you have to fix the problem manually." + log_warning_msg "A maintenance shell will now be started. +CONTROL-D will terminate this shell and restart the system." + # Start a single user shell on the console + if ! sulogin $CONSOLE + then + log_failure_msg "Attempt to start maintenance shell failed. +Will restart in 5 seconds." + sleep 5 + fi + [ "$VERBOSE" = no ] || log_action_msg "Will now restart" + reboot -f + fi + + # See if we're on AC Power. If not, we're not gonna run our + # check. If on_ac_power (in /usr/) is unavailable, behave as + # before and check all file systems needing it. +# Disabled AC power check until fsck can be told to only check the +# file system if it is corrupt when running on battery. (bug #526398) +# if which on_ac_power >/dev/null 2>&1 && [ "$rootcheck" = yes ] +# then +# on_ac_power >/dev/null 2>&1 +# if [ "$?" -eq 1 ] +# then +# log_warning_msg "On battery power, so skipping file system check." +# rootcheck=no +# fi +# fi + + # + # See if we want to check the root file system. + # + FSCKCODE=0 + if [ -f /fastboot ] || grep -s -w -i "fastboot" /proc/cmdline + then + [ "$rootcheck" = yes ] && log_warning_msg "Fast boot enabled, so skipping root file system check." + rootcheck=no + fi + + if [ "$rootcheck" = yes ] + then + # + # Ensure that root is quiescent and read-only before fsck'ing. + # + # mount -n -o remount,ro / would be the correct syntax but + # mount can get confused when there is a "bind" mount defined + # in fstab that bind-mounts "/" somewhere else. + # + # So we use mount -n -o remount,ro $rootdev / but that can + # fail on older kernels on sparc64/alpha architectures due + # to a bug in sys_mount(). + # + # As a compromise we try both. + # + if \ + ! mount -n -o remount,ro $rootdev / \ + && ! mount -n -o remount,ro -t dummytype $rootdev / 2>/dev/null \ + && ! mount -n -o remount,ro / 2>/dev/null + then + log_failure_msg "Cannot check root file system because it is not mounted read-only." + rootcheck=no + fi + fi + + # + # The actual checking is done here. + # + if [ "$rootcheck" = yes ] + then + if [ -f /forcefsck ] || grep -s -w -i "forcefsck" /proc/cmdline + then + force="-f" + else + force="" + fi + + if [ "$FSCKFIX" = yes ] + then + fix="-y" + else + fix="-a" + fi + + spinner="-C" + case "$TERM" in + dumb|network|unknown|"") + spinner="" ;; + esac + # This Linux/s390 special case should go away. + if [ "${KERNEL}:${MACHINE}" = Linux:s390 ] + then + spinner="" + fi + + if [ "$VERBOSE" = no ] + then + log_action_begin_msg "Checking root file system" + if [ "$roottype" = "ext2" -o "$roottype" = "ext3" -o "$roottype" = "ext4" ] && usplash_running; then + PROGRESS_FILE=`mktemp -p /lib/init/rw` || PROGRESS_FILE=/lib/init/rw/checkroot_fsck + set -m + logsave -s $FSCK_LOGFILE fsck -C3 $force $fix -t $roottype $rootdev >/dev/console 2>&1 3>$PROGRESS_FILE & + set +m + usplash_progress "$PROGRESS_FILE" + rm -f $PROGRESS_FILE + else + splash_start_indefinite + logsave -s $FSCK_LOGFILE fsck $spinner $force $fix -t $roottype $rootdev + FSCKCODE=$? + splash_stop_indefinite + fi + if [ "$FSCKCODE" = 0 ] + then + log_action_end_msg 0 + else + log_action_end_msg 1 "code $FSCKCODE" + fi + else + splash_start_indefinite + log_daemon_msg "Will now check root file system" + logsave -s $FSCK_LOGFILE fsck $spinner $force $fix -V -t $roottype $rootdev + FSCKCODE=$? + log_end_msg $FSCKCODE + splash_stop_indefinite + fi + fi + + # + # If there was a failure, drop into single-user mode. + # + # NOTE: "failure" is defined as exiting with a return code of + # 4 or larger. A return code of 1 indicates that file system + # errors were corrected but that the boot may proceed. A return + # code of 2 or 3 indicates that the system should immediately reboot. + # + if [ "$FSCKCODE" -gt 3 ] + then + # Surprise! Re-directing from a HERE document (as in "cat << EOF") + # does not work because the root is currently read-only. + log_failure_msg "An automatic file system check (fsck) of the root filesystem failed. +A manual fsck must be performed, then the system restarted. +The fsck should be performed in maintenance mode with the +root filesystem mounted in read-only mode." + log_warning_msg "The root filesystem is currently mounted in read-only mode. +A maintenance shell will now be started. +After performing system maintenance, press CONTROL-D +to terminate the maintenance shell and restart the system." + # Start a single user shell on the console + if ! sulogin $CONSOLE + then + log_failure_msg "Attempt to start maintenance shell failed. +Will restart in 5 seconds." + sleep 5 + fi + [ "$VERBOSE" = no ] || log_action_msg "Will now restart" + reboot -f + elif [ "$FSCKCODE" -gt 1 ] + then + log_failure_msg "The file system check corrected errors on the root partition +but requested that the system be restarted." + log_warning_msg "The system will be restarted in 5 seconds." + sleep 5 + [ "$VERBOSE" = no ] || log_action_msg "Will now restart" + reboot -f + fi + + # + # Remount root to final mode (rw or ro). + # + # See the comments above at the previous "mount -o remount" + # for an explanation why we try this twice. + # + if ! mount -n -o remount,$rootopts,$rootmode $fstabroot / 2>/dev/null + then + mount -n -o remount,$rootopts,$rootmode / + fi + + # + # We only create/modify /etc/mtab if the location where it is + # stored is writable. If /etc/mtab is a symlink into /proc/ + # then it is not writable. + # + INIT_MTAB_FILE=no + MTAB_PATH="$(readlink -f /etc/mtab || :)" + case "$MTAB_PATH" in + /proc/*) + ;; + /*) + if touch "$MTAB_PATH" >/dev/null 2>&1 + then + :> "$MTAB_PATH" + rm -f ${MTAB_PATH}~ + INIT_MTAB_FILE=yes + fi + ;; + "") + [ -L /etc/mtab ] && MTAB_PATH="$(readlink /etc/mtab)" + if [ "$MTAB_PATH" ] + then + log_failure_msg "Cannot initialize ${MTAB_PATH}." + else + log_failure_msg "Cannot initialize /etc/mtab." + fi + ;; + *) + log_failure_msg "Illegal mtab location '${MTAB_PATH}'." + ;; + esac + + if [ "$INIT_MTAB_FILE" = yes ] + then + [ "$roottype" != none ] && + mount -f -o $rootopts -t $roottype $fstabroot / + fi + + # + # Remove /lib/init/rw/rootdev if we created it. + # + rm -f /lib/init/rw/rootdev +} + +do_status () { + # If / is read-write or swap is enabled, this script have done + # its job. + rootrw=false + swapon=false + if [ -f /etc/mtab ] ; then + if grep " / " /etc/mtab |grep -q rw ; then + rootrw=true + fi + fi + if [ -f /proc/swaps ] ; then + if [ "$(cat /proc/swaps |grep -v ^Filename)" ] ; then + swapon=true + fi + fi + if [ true = "$rootrw" ] || [ true = "$swapon" ] ; then + return 0 + else + return 4 + fi +} + +case "$1" in + start|"") + do_start + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + # No-op + ;; + status) + do_status + exit $? + ;; + *) + echo "Usage: checkroot.sh [start|stop]" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/halt b/beagle/debian-rfs/etc/init.d/halt new file mode 100755 index 0000000..3b359fe --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/halt @@ -0,0 +1,83 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: halt +# Required-Start: +# Required-Stop: +# Default-Start: +# Default-Stop: 0 +# Short-Description: Execute the halt command. +# Description: +### END INIT INFO + +NETDOWN=yes + +PATH=/sbin:/usr/sbin:/bin:/usr/bin +[ -f /etc/default/halt ] && . /etc/default/halt + +. /lib/lsb/init-functions + +do_stop () { + if [ "$INIT_HALT" = "" ] + then + case "$HALT" in + [Pp]*) + INIT_HALT=POWEROFF + ;; + [Hh]*) + INIT_HALT=HALT + ;; + *) + INIT_HALT=POWEROFF + ;; + esac + fi + + # See if we need to cut the power. + if [ "$INIT_HALT" = "POWEROFF" ] && [ -x /etc/init.d/ups-monitor ] + then + /etc/init.d/ups-monitor poweroff + fi + + # Don't shut down drives if we're using RAID. + hddown="-h" + if grep -qs '^md.*active' /proc/mdstat + then + hddown="" + fi + + # If INIT_HALT=HALT don't poweroff. + poweroff="-p" + if [ "$INIT_HALT" = "HALT" ] + then + poweroff="" + fi + + # Make it possible to not shut down network interfaces, + # needed to use wake-on-lan + netdown="-i" + if [ "$NETDOWN" = "no" ]; then + netdown="" + fi + + log_action_msg "Will now halt" + halt -d -f $netdown $poweroff $hddown +} + +case "$1" in + start) + # No-op + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + do_stop + ;; + *) + echo "Usage: $0 start|stop" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/hostname.sh b/beagle/debian-rfs/etc/init.d/hostname.sh new file mode 100755 index 0000000..61eb5ea --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/hostname.sh @@ -0,0 +1,68 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: hostname +# Required-Start: +# Required-Stop: +# Should-Start: glibc +# Default-Start: S +# Default-Stop: +# Short-Description: Set hostname based on /etc/hostname +# Description: Read the machines hostname from /etc/hostname, and +# update the kernel value with this value. If +# /etc/hostname is empty, the current kernel value +# for hostname is used. If the kernel value is +# empty, the value 'localhost' is used. +### END INIT INFO + +PATH=/sbin:/bin + +. /lib/init/vars.sh +. /lib/lsb/init-functions + +do_start () { + [ -f /etc/hostname ] && HOSTNAME="$(cat /etc/hostname)" + + # Keep current name if /etc/hostname is missing. + [ -z "$HOSTNAME" ] && HOSTNAME="$(hostname)" + + # And set it to 'localhost' if no setting was found + [ -z "$HOSTNAME" ] && HOSTNAME=localhost + + [ "$VERBOSE" != no ] && log_action_begin_msg "Setting hostname to '$HOSTNAME'" + hostname "$HOSTNAME" + ES=$? + [ "$VERBOSE" != no ] && log_action_end_msg $ES + exit $ES +} + +do_status () { + HOSTNAME=$(hostname) + if [ "$HOSTNAME" ] ; then + return 0 + else + return 4 + fi +} + +case "$1" in + start|"") + do_start + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + # No-op + ;; + status) + do_status + exit $? + ;; + *) + echo "Usage: hostname.sh [start|stop]" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/hwclock.sh b/beagle/debian-rfs/etc/init.d/hwclock.sh new file mode 100755 index 0000000..d500287 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/hwclock.sh @@ -0,0 +1,171 @@ +#!/bin/sh +# hwclock.sh Set and adjust the CMOS clock, according to the UTC +# setting in /etc/default/rcS (see also rcS(5)). +# +# Version: @(#)hwclock.sh 2.00 14-Dec-1998 miquels@cistron.nl +# +# Patches: +# 2000-01-30 Henrique M. Holschuh <hmh@rcm.org.br> +# - Minor cosmetic changes in an attempt to help new +# users notice something IS changing their clocks +# during startup/shutdown. +# - Added comments to alert users of hwclock issues +# and discourage tampering without proper doc reading. + +# WARNING: Please read /usr/share/doc/util-linux/README.Debian.hwclock +# before changing this file. You risk serious clock +# misbehaviour otherwise. + +### BEGIN INIT INFO +# Provides: hwclock +# Required-Start: checkroot +# Required-Stop: $local_fs +# Default-Start: S +# Default-Stop: 0 6 +### END INIT INFO + +FIRST=no # debian/rules sets this to 'yes' when creating hwclockfirst.sh + +# Set this to any options you might need to give to hwclock, such +# as machine hardware clock type for Alphas. +HWCLOCKPARS= + +# Set this to the hardware clock device you want to use, it should +# probably match the CONFIG_RTC_HCTOSYS_DEVICE kernel config option. +HCTOSYS_DEVICE=rtc0 + +hwclocksh() +{ + [ ! -x /sbin/hwclock ] && return 0 + [ ! -r /etc/default/rcS ] || . /etc/default/rcS + + . /lib/lsb/init-functions + verbose_log_action_msg() { [ "$VERBOSE" = no ] || log_action_msg "$@"; } + + [ "$GMT" = "-u" ] && UTC="yes" + case "$UTC" in + no|"") GMT="--localtime" + UTC="" + if [ "X$FIRST" = "Xyes" ] && [ ! -r /etc/localtime ]; then + if [ -z "$TZ" ]; then + log_action_msg "System clock was not updated at this time" + return 1 + fi + fi + ;; + yes) GMT="--utc" + UTC="--utc" + ;; + *) log_action_msg "Unknown UTC setting: \"$UTC\""; return 1 ;; + esac + + case "$BADYEAR" in + no|"") BADYEAR="" ;; + yes) BADYEAR="--badyear" ;; + *) log_action_msg "unknown BADYEAR setting: \"$BADYEAR\""; return 1 ;; + esac + + case "$1" in + start) + if [ -d /dev/.udev ]; then + return 0 + fi + + if [ -w /etc ] && [ ! -f /etc/adjtime ] && [ ! -e /etc/adjtime ]; then + echo "0.0 0 0.0" > /etc/adjtime + fi + + if [ ! -w /etc/adjtime ]; then + NOADJ="--noadjfile" + else + NOADJ="" + fi + + if [ "$FIRST" != yes ]; then + # Uncomment the hwclock --adjust line below if you want + # hwclock to try to correct systematic drift errors in the + # Hardware Clock. + # + # WARNING: If you uncomment this option, you must either make + # sure *nothing* changes the Hardware Clock other than + # hwclock --systohc, or you must delete /etc/adjtime + # every time someone else modifies the Hardware Clock. + # + # Common "vilains" are: ntp, MS Windows, the BIOS Setup + # program. + # + # WARNING: You must remember to invalidate (delete) + # /etc/adjtime if you ever need to set the system clock + # to a very different value and hwclock --adjust is being + # used. + # + # Please read /usr/share/doc/util-linux/README.Debian.hwclock + # before enabling hwclock --adjust. + + #/sbin/hwclock --rtc=/dev/$HCTOSYS_DEVICE --adjust $GMT $BADYEAR + : + fi + + if [ "$HWCLOCKACCESS" != no ]; then + log_action_msg "Setting the system clock" + + # Copies Hardware Clock time to System Clock using the correct + # timezone for hardware clocks in local time, and sets kernel + # timezone. DO NOT REMOVE. + if /sbin/hwclock --rtc=/dev/$HCTOSYS_DEVICE --hctosys $GMT $HWCLOCKPARS $BADYEAR $NOADJ; then + # Announce the local time. + verbose_log_action_msg "System Clock set to: `date $UTC`" + else + log_warning_msg "Unable to set System Clock to: `date $UTC`" + fi + else + verbose_log_action_msg "Not setting System Clock" + fi + ;; + stop|restart|reload|force-reload) + # + # Updates the Hardware Clock with the System Clock time. + # This will *override* any changes made to the Hardware Clock. + # + # WARNING: If you disable this, any changes to the system + # clock will not be carried across reboots. + # + if [ ! -w /etc/adjtime ]; then + NOADJ="--noadjfile" + else + NOADJ="" + fi + + if [ "$HWCLOCKACCESS" != no ]; then + log_action_msg "Saving the system clock" + if [ "$GMT" = "-u" ]; then + GMT="--utc" + fi + if /sbin/hwclock --rtc=/dev/$HCTOSYS_DEVICE --systohc $GMT $HWCLOCKPARS $BADYEAR $NOADJ; then + verbose_log_action_msg "Hardware Clock updated to `date`" + fi + else + verbose_log_action_msg "Not saving System Clock" + fi + ;; + show) + if [ ! -w /etc/adjtime ]; then + NOADJ="--noadjfile" + else + NOADJ="" + fi + + if [ "$HWCLOCKACCESS" != no ]; then + /sbin/hwclock --rtc=/dev/$HCTOSYS_DEVICE --show $GMT $HWCLOCKPARS $BADYEAR $NOADJ + fi + ;; + *) + log_success_msg "Usage: hwclock.sh {start|stop|reload|force-reload|show}" + log_success_msg " start sets kernel (system) clock from hardware (RTC) clock" + log_success_msg " stop and reload set hardware (RTC) clock from kernel (system) clock" + return 1 + ;; + esac +} + +hwclocksh "$@" diff --git a/beagle/debian-rfs/etc/init.d/hwclockfirst.sh b/beagle/debian-rfs/etc/init.d/hwclockfirst.sh new file mode 100755 index 0000000..75a330a --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/hwclockfirst.sh @@ -0,0 +1,172 @@ +#!/bin/sh +# hwclock.sh Set and adjust the CMOS clock, according to the UTC +# setting in /etc/default/rcS (see also rcS(5)). +# +# Version: @(#)hwclock.sh 2.00 14-Dec-1998 miquels@cistron.nl +# +# Patches: +# 2000-01-30 Henrique M. Holschuh <hmh@rcm.org.br> +# - Minor cosmetic changes in an attempt to help new +# users notice something IS changing their clocks +# during startup/shutdown. +# - Added comments to alert users of hwclock issues +# and discourage tampering without proper doc reading. + +# WARNING: Please read /usr/share/doc/util-linux/README.Debian.hwclock +# before changing this file. You risk serious clock +# misbehaviour otherwise. + +### BEGIN INIT INFO +# Provides: hwclockfirst +# Required-Start: mountdevsubfs +# Required-Stop: +# Default-Start: S +# X-Start-Before: checkroot +# Default-Stop: +### END INIT INFO + +FIRST=yes # debian/rules sets this to 'yes' when creating hwclockfirst.sh + +# Set this to any options you might need to give to hwclock, such +# as machine hardware clock type for Alphas. +HWCLOCKPARS= + +# Set this to the hardware clock device you want to use, it should +# probably match the CONFIG_RTC_HCTOSYS_DEVICE kernel config option. +HCTOSYS_DEVICE=rtc0 + +hwclocksh() +{ + [ ! -x /sbin/hwclock ] && return 0 + [ ! -r /etc/default/rcS ] || . /etc/default/rcS + + . /lib/lsb/init-functions + verbose_log_action_msg() { [ "$VERBOSE" = no ] || log_action_msg "$@"; } + + [ "$GMT" = "-u" ] && UTC="yes" + case "$UTC" in + no|"") GMT="--localtime" + UTC="" + if [ "X$FIRST" = "Xyes" ] && [ ! -r /etc/localtime ]; then + if [ -z "$TZ" ]; then + log_action_msg "System clock was not updated at this time" + return 1 + fi + fi + ;; + yes) GMT="--utc" + UTC="--utc" + ;; + *) log_action_msg "Unknown UTC setting: \"$UTC\""; return 1 ;; + esac + + case "$BADYEAR" in + no|"") BADYEAR="" ;; + yes) BADYEAR="--badyear" ;; + *) log_action_msg "unknown BADYEAR setting: \"$BADYEAR\""; return 1 ;; + esac + + case "$1" in + start) + if [ -d /dev/.udev ]; then + return 0 + fi + + if [ -w /etc ] && [ ! -f /etc/adjtime ] && [ ! -e /etc/adjtime ]; then + echo "0.0 0 0.0" > /etc/adjtime + fi + + if [ ! -w /etc/adjtime ]; then + NOADJ="--noadjfile" + else + NOADJ="" + fi + + if [ "$FIRST" != yes ]; then + # Uncomment the hwclock --adjust line below if you want + # hwclock to try to correct systematic drift errors in the + # Hardware Clock. + # + # WARNING: If you uncomment this option, you must either make + # sure *nothing* changes the Hardware Clock other than + # hwclock --systohc, or you must delete /etc/adjtime + # every time someone else modifies the Hardware Clock. + # + # Common "vilains" are: ntp, MS Windows, the BIOS Setup + # program. + # + # WARNING: You must remember to invalidate (delete) + # /etc/adjtime if you ever need to set the system clock + # to a very different value and hwclock --adjust is being + # used. + # + # Please read /usr/share/doc/util-linux/README.Debian.hwclock + # before enabling hwclock --adjust. + + #/sbin/hwclock --rtc=/dev/$HCTOSYS_DEVICE --adjust $GMT $BADYEAR + : + fi + + if [ "$HWCLOCKACCESS" != no ]; then + log_action_msg "Setting the system clock" + + # Copies Hardware Clock time to System Clock using the correct + # timezone for hardware clocks in local time, and sets kernel + # timezone. DO NOT REMOVE. + if /sbin/hwclock --rtc=/dev/$HCTOSYS_DEVICE --hctosys $GMT $HWCLOCKPARS $BADYEAR $NOADJ; then + # Announce the local time. + verbose_log_action_msg "System Clock set to: `date $UTC`" + else + log_warning_msg "Unable to set System Clock to: `date $UTC`" + fi + else + verbose_log_action_msg "Not setting System Clock" + fi + ;; + stop|restart|reload|force-reload) + # + # Updates the Hardware Clock with the System Clock time. + # This will *override* any changes made to the Hardware Clock. + # + # WARNING: If you disable this, any changes to the system + # clock will not be carried across reboots. + # + if [ ! -w /etc/adjtime ]; then + NOADJ="--noadjfile" + else + NOADJ="" + fi + + if [ "$HWCLOCKACCESS" != no ]; then + log_action_msg "Saving the system clock" + if [ "$GMT" = "-u" ]; then + GMT="--utc" + fi + if /sbin/hwclock --rtc=/dev/$HCTOSYS_DEVICE --systohc $GMT $HWCLOCKPARS $BADYEAR $NOADJ; then + verbose_log_action_msg "Hardware Clock updated to `date`" + fi + else + verbose_log_action_msg "Not saving System Clock" + fi + ;; + show) + if [ ! -w /etc/adjtime ]; then + NOADJ="--noadjfile" + else + NOADJ="" + fi + + if [ "$HWCLOCKACCESS" != no ]; then + /sbin/hwclock --rtc=/dev/$HCTOSYS_DEVICE --show $GMT $HWCLOCKPARS $BADYEAR $NOADJ + fi + ;; + *) + log_success_msg "Usage: hwclock.sh {start|stop|reload|force-reload|show}" + log_success_msg " start sets kernel (system) clock from hardware (RTC) clock" + log_success_msg " stop and reload set hardware (RTC) clock from kernel (system) clock" + return 1 + ;; + esac +} + +hwclocksh "$@" diff --git a/beagle/debian-rfs/etc/init.d/killprocs b/beagle/debian-rfs/etc/init.d/killprocs new file mode 100755 index 0000000..6cb5b91 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/killprocs @@ -0,0 +1,62 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: killprocs +# Required-Start: $local_fs +# Required-Stop: +# Default-Start: 1 +# Default-Stop: +# Short-Description: executed by init(8) upon entering runlevel 1 (single). +### END INIT INFO + +PATH=/sbin:/usr/sbin:/bin:/usr/bin + +. /lib/lsb/init-functions + +do_start () { + # Kill all processes. + log_action_begin_msg "Asking all remaining processes to terminate" + killall5 -15 # SIGTERM + log_action_end_msg 0 + alldead="" + for seq in 1 2 3 4 5 6 7 8 9 10; do + # use SIGCONT/signal 18 to check if there are + # processes left. No need to check the exit code + # value, because either killall5 work and it make + # sense to wait for processes to die, or it fail and + # there is nothing to wait for. + + if killall5 -18 ; then + : + else + alldead=1 + break + fi + + sleep 1 + done + if [ -z "$alldead" ] ; then + log_action_begin_msg "Killing all remaining processes" + killall5 -9 # SIGKILL + log_action_end_msg 1 + else + log_action_begin_msg "All processes ended within $seq seconds." + log_action_end_msg 0 + fi +} + +case "$1" in + start) + do_start + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + # No-op + ;; + *) + echo "Usage: $0 start|stop" >&2 + exit 3 + ;; +esac diff --git a/beagle/debian-rfs/etc/init.d/mountall-bootclean.sh b/beagle/debian-rfs/etc/init.d/mountall-bootclean.sh new file mode 100755 index 0000000..38c0191 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/mountall-bootclean.sh @@ -0,0 +1,31 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: mountall-bootclean +# Required-Start: mountall +# Required-Stop: +# Default-Start: S +# Default-Stop: +# Short-Description: bootclean after mountall. +# Description: Clean temporary filesystems after +# all local filesystems have been mounted. +### END INIT INFO + +case "$1" in + start|"") + # Clean /tmp, /var/lock, /var/run + . /lib/init/bootclean.sh + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + # No-op + ;; + *) + echo "Usage: mountall-bootclean.sh [start|stop]" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/mountall.sh b/beagle/debian-rfs/etc/init.d/mountall.sh new file mode 100755 index 0000000..405839c --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/mountall.sh @@ -0,0 +1,88 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: mountall +# Required-Start: checkfs +# Required-Stop: +# Default-Start: S +# Default-Stop: +# Short-Description: Mount all filesystems. +# Description: +### END INIT INFO + +PATH=/sbin:/bin +. /lib/init/vars.sh + +. /lib/lsb/init-functions +. /lib/init/mount-functions.sh +. /lib/init/swap-functions.sh + +# for ntfs-3g to get correct file name encoding +if [ -r /etc/default/locale ]; then + . /etc/default/locale + export LANG +fi + +do_start() { + # + # Mount local file systems in /etc/fstab. + # + mount_all_local() { + mount -a -t nonfs,nfs4,smbfs,cifs,ncp,ncpfs,coda,ocfs2,gfs,gfs2 \ + -O no_netdev + } + pre_mountall + if [ "$VERBOSE" = no ] + then + log_action_begin_msg "Mounting local filesystems" + mount_all_local + log_action_end_msg $? + else + log_daemon_msg "Will now mount local filesystems" + mount_all_local + log_end_msg $? + fi + post_mountall + + case "$(uname -s)" in + *FreeBSD) + INITCTL=/etc/.initctl + ;; + *) + INITCTL=/dev/initctl + ;; + esac + + # + # We might have mounted something over /dev, see if + # /dev/initctl is there. Look for /usr/share/sysvinit/update-rc.d + # to verify that sysvinit (and not upstart) is installed). + # + if [ ! -p $INITCTL ] && [ -f /usr/share/sysvinit/update-rc.d ]; then + rm -f $INITCTL + mknod -m 600 $INITCTL p + kill -USR1 1 + fi + + # Execute swapon command again, in case we want to swap to + # a file on a now mounted filesystem. + swaponagain 'swapfile' +} + +case "$1" in + start|"") + do_start + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + # No-op + ;; + *) + echo "Usage: mountall.sh [start|stop]" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/mountdevsubfs.sh b/beagle/debian-rfs/etc/init.d/mountdevsubfs.sh new file mode 100755 index 0000000..1b61621 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/mountdevsubfs.sh @@ -0,0 +1,76 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: mountdevsubfs +# Required-Start: mountkernfs +# Required-Stop: +# Should-Start: udev +# Default-Start: S +# Default-Stop: +# Short-Description: Mount special file systems under /dev. +# Description: Mount the virtual filesystems the kernel provides +# that ordinarily live under the /dev filesystem. +### END INIT INFO +# +# This script gets called multiple times during boot +# + +PATH=/sbin:/bin +TTYGRP=5 +TTYMODE=620 +[ -f /etc/default/devpts ] && . /etc/default/devpts + +TMPFS_SIZE= +[ -f /etc/default/tmpfs ] && . /etc/default/tmpfs + +KERNEL="$(uname -s)" + +. /lib/lsb/init-functions +. /lib/init/mount-functions.sh + +do_start () { + # + # Mount a tmpfs on /dev/shm + # + if [ ! -d /dev/shm ] + then + mkdir --mode=755 /dev/shm + [ -x /sbin/restorecon ] && /sbin/restorecon /dev/shm + fi + SHM_OPT= + [ "${SHM_SIZE:=$TMPFS_SIZE}" ] && SHM_OPT=",size=$SHM_SIZE" + domount tmpfs shmfs /dev/shm tmpfs -onosuid,nodev$SHM_OPT + + # + # Mount /dev/pts + # + if [ "$KERNEL" = Linux ] + then + if [ ! -d /dev/pts ] + then + mkdir --mode=755 /dev/pts + [ -x /sbin/restorecon ] && /sbin/restorecon /dev/pts + fi + domount devpts "" /dev/pts devpts -onoexec,nosuid,gid=$TTYGRP,mode=$TTYMODE + fi +} + +case "$1" in + "") + echo "Warning: mountdevsubfs should be called with the 'start' argument." >&2 + do_start + ;; + start) + do_start + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + # No-op + ;; + *) + echo "Usage: mountdevsubfs [start|stop]" >&2 + exit 3 + ;; +esac diff --git a/beagle/debian-rfs/etc/init.d/mountkernfs.sh b/beagle/debian-rfs/etc/init.d/mountkernfs.sh new file mode 100755 index 0000000..f3222b8 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/mountkernfs.sh @@ -0,0 +1,83 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: mountkernfs +# Required-Start: +# Required-Stop: +# Should-Start: glibc +# Default-Start: S +# Default-Stop: +# Short-Description: Mount kernel virtual file systems. +# Description: Mount initial set of virtual filesystems the kernel +# provides and that are required by everything. +### END INIT INFO + +PATH=/sbin:/bin +. /lib/init/vars.sh + +. /lib/lsb/init-functions +. /lib/init/mount-functions.sh + +[ -f /etc/default/tmpfs ] && . /etc/default/tmpfs + +do_start () { + # + # Get some writable area available before the root is checked + # and remounted. + # + RW_OPT= + [ "${RW_SIZE:=$TMPFS_SIZE}" ] && RW_OPT=",size=$RW_SIZE" + domount tmpfs "" /lib/init/rw tmpfs -omode=0755,nosuid$RW_OPT + touch /lib/init/rw/.ramfs + + # Make pidfile omit directory for sendsigs + mkdir /lib/init/rw/sendsigs.omit.d/ + + # + # Mount proc filesystem on /proc + # + domount proc "" /proc proc -onodev,noexec,nosuid + + # + # Mount sysfs on /sys + # + # Only mount sysfs if it is supported (kernel >= 2.6) + if grep -E -qs "sysfs\$" /proc/filesystems + then + domount sysfs "" /sys sysfs -onodev,noexec,nosuid + fi + + # Mount /var/run and /var/lock as tmpfs if enabled + if [ yes = "$RAMRUN" ] ; then + RUN_OPT= + [ "${RUN_SIZE:=$TMPFS_SIZE}" ] && RUN_OPT=",size=$RUN_SIZE" + domount tmpfs "" /var/run varrun -omode=0755,nosuid$RUN_OPT + touch /var/run/.ramfs + fi + if [ yes = "$RAMLOCK" ] ; then + LOCK_OPT= + [ "${LOCK_SIZE:=$TMPFS_SIZE}" ] && LOCK_OPT=",size=$LOCK_SIZE" + domount tmpfs "" /var/lock varlock -omode=1777,nodev,noexec,nosuid$LOCK_OPT + touch /var/lock/.ramfs + fi +} + +case "$1" in + "") + echo "Warning: mountkernfs should be called with the 'start' argument." >&2 + do_start + ;; + start) + do_start + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + # No-op + ;; + *) + echo "Usage: mountkernfs [start|stop]" >&2 + exit 3 + ;; +esac diff --git a/beagle/debian-rfs/etc/init.d/mountnfs-bootclean.sh b/beagle/debian-rfs/etc/init.d/mountnfs-bootclean.sh new file mode 100755 index 0000000..bd1a574 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/mountnfs-bootclean.sh @@ -0,0 +1,31 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: mountnfs-bootclean +# Required-Start: $local_fs mountnfs +# Required-Stop: +# Default-Start: S +# Default-Stop: +# Short-Description: bootclean after mountnfs. +# Description: Clean temporary filesystems after +# network filesystems have been mounted. +### END INIT INFO + +case "$1" in + start|"") + # Clean /tmp, /var/lock, /var/run + . /lib/init/bootclean.sh + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + # No-op + ;; + *) + echo "Usage: mountnfs-bootclean.sh [start|stop]" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/mountnfs.sh b/beagle/debian-rfs/etc/init.d/mountnfs.sh new file mode 100755 index 0000000..8d07bb7 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/mountnfs.sh @@ -0,0 +1,108 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: mountnfs +# Required-Start: $local_fs +# Required-Stop: +# Should-Start: $network $portmap nfs-common udev-mtab +# Default-Start: S +# Default-Stop: +# Short-Description: Wait for network file systems to be mounted +# Description: Network file systems are mounted by +# /etc/network/if-up.d/mountnfs in the background +# when interfaces are brought up; this script waits +# for them to be mounted before carrying on. +### END INIT INFO + +. /lib/init/vars.sh +. /lib/lsb/init-functions + +do_wait_async_mount() { + [ -f /etc/fstab ] || return + # + # Read through fstab line by line. If it is NFS, set the flag + # for mounting NFS file systems. If any NFS partition is found + # then wait around for it. + # + + exec 9<&0 </etc/fstab + + waitnfs= + while read DEV MTPT FSTYPE OPTS REST + do + case "$DEV" in + ""|\#*) + continue + ;; + esac + case "$OPTS" in + noauto|*,noauto|noauto,*|*,noauto,*) + continue + ;; + esac + case "$FSTYPE" in + nfs|nfs4|smbfs|cifs|coda|ncp|ncpfs|ocfs2|gfs) + ;; + *) + continue + ;; + esac + case "$MTPT" in + /usr/local|/usr/local/*) + ;; + /usr|/usr/*) + waitnfs="$waitnfs $MTPT" + ;; + /var|/var/*) + waitnfs="$waitnfs $MTPT" + ;; + esac + done + + exec 0<&9 9<&- + + # Wait for each path, the timeout is for all of them as that's + # really the maximum time we have to wait anyway + TIMEOUT=900 + for mountpt in $waitnfs; do + log_action_begin_msg "Waiting for $mountpt" + + while ! mountpoint -q $mountpt; do + sleep 0.1 + + TIMEOUT=$(( $TIMEOUT - 1 )) + if [ $TIMEOUT -le 0 ]; then + log_action_end_msg 1 + break + fi + done + + if [ $TIMEOUT -gt 0 ]; then + log_action_end_msg 0 + fi + done +} + +case "$1" in + start) + # Using 'no !=' instead of 'yes =' to make sure async nfs + # mounting is the default even without a value in + # /etc/default/rcS + if [ no != "$ASYNCMOUNTNFS" ] ; then + do_wait_async_mount + else + FROMINITD=yes /etc/network/if-up.d/mountnfs + fi + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + ;; + *) + echo "Usage: $0 start|stop" >&2 + exit 3 + ;; +esac + +: exit 0 diff --git a/beagle/debian-rfs/etc/init.d/mountoverflowtmp b/beagle/debian-rfs/etc/init.d/mountoverflowtmp new file mode 100755 index 0000000..1b547d1 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/mountoverflowtmp @@ -0,0 +1,55 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: mountoverflowtmp +# Required-Start: mountall-bootclean +# Required-Stop: umountfs +# Default-Start: S +# Default-Stop: +# Short-Description: mount emergency /tmp. +# Description: Mount a tmpfs on /tmp if there would +# otherwise be too little space to log in. +### END INIT INFO + +. /lib/init/vars.sh +. /lib/lsb/init-functions + +set -e + +defs=/etc/default/mountoverflowtmp +test ! -f "$defs" || . "$defs" + +: ${MINTMPKB:=1024} +if test "$MINTMPKB" = "0"; then exit 0; fi + +case "$1" in + start) + [ "$VERBOSE" != no ] && log_action_begin_msg "Checking minimum space in /tmp" + df="`LC_ALL=C df -kP /tmp | grep -v Filesystem`" + set -- $df + avail="$4" + [ "$VERBOSE" != no ] && log_action_end_msg 0 + if test $avail -lt "$MINTMPKB"; then + log_action_begin_msg "Mounting emergency tmpfs on /tmp" + mount -t tmpfs -o size=1048576,mode=1777 overflow /tmp + log_action_end_msg 0 + fi + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + if LC_ALL=C mount | \ + grep '^overflow on /tmp type tmpfs' >/dev/null; then + log_action_begin_msg "Unmounting any overflow tmpfs from /tmp" + umount overflow + log_action_end_msg 0 + fi + ;; + *) + echo "Usage: mountoverflowtmp [start|stop]" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/mtab.sh b/beagle/debian-rfs/etc/init.d/mtab.sh new file mode 100755 index 0000000..d81c928 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/mtab.sh @@ -0,0 +1,180 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: mtab +# Required-Start: checkroot +# Required-Stop: +# Default-Start: S +# Default-Stop: +# Short-Description: Update mtab file. +# Description: Update the mount program's mtab file after +# all local filesystems have been mounted. +### END INIT INFO + +# +# The main purpose of this script is to update the mtab file to reflect +# the fact that virtual filesystems were mounted early on, before mtab +# was writable. +# + +PATH=/sbin:/bin +. /lib/init/vars.sh + +TTYGRP=5 +TTYMODE=620 +[ -f /etc/default/devpts ] && . /etc/default/devpts + +TMPFS_SIZE= +[ -f /etc/default/tmpfs ] && . /etc/default/tmpfs + +KERNEL="$(uname -s)" + +. /lib/lsb/init-functions +. /lib/init/mount-functions.sh + +# $1 - fstype +# $2 - mount point +# $3 - mount name/device +# $4 - mount options +domtab () +{ + # Directory present? + if [ ! -d $2 ] + then + return + fi + + # Not mounted? + if ! mountpoint -q $2 < /dev/null + then + return + fi + + if [ -n "$3" ] + then + NAME="$3" + else + NAME="$1" + fi + + # Already recorded? + if ! grep -E -sq "^([^ ]+) +$2 +" /etc/mtab < /dev/null + then + mount -f -t $1 $OPTS $4 $NAME $2 < /dev/null + fi +} + +do_start () { + DO_MTAB="" + MTAB_PATH="$(readlink -f /etc/mtab || :)" + case "$MTAB_PATH" in + /proc/*) + # Assume that /proc/ is not writable + ;; + /*) + # Only update mtab if it is known to be writable + # Note that the touch program is in /usr/bin + #if ! touch "$MTAB_PATH" >/dev/null 2>&1 + #then + # return + #fi + ;; + "") + [ -L /etc/mtab ] && MTAB_PATH="$(readlink /etc/mtab)" + if [ "$MTAB_PATH" ] + then + log_failure_msg "Cannot initialize ${MTAB_PATH}." + else + log_failure_msg "Cannot initialize /etc/mtab." + fi + ;; + *) + log_failure_msg "Illegal mtab location '${MTAB_PATH}'." + ;; + esac + + # + # Initialize mtab file if necessary + # + if [ ! -f /etc/mtab ] + then + :> /etc/mtab + chmod 644 /etc/mtab + fi + if selinux_enabled && [ -x /sbin/restorecon ] && [ -r /etc/mtab ] + then + restorecon /etc/mtab + fi + + # S02mountkernfs.sh + RW_OPT= + [ "${RW_SIZE:=$TMPFS_SIZE}" ] && RW_OPT=",size=$RW_SIZE" + domtab tmpfs /lib/init/rw tmpfs -omode=0755,nosuid$RW_OPT + + domtab proc /proc "proc" -onodev,noexec,nosuid + if grep -E -qs "sysfs\$" /proc/filesystems + then + domtab sysfs /sys sysfs -onodev,noexec,nosuid + fi + if [ yes = "$RAMRUN" ] ; then + RUN_OPT= + [ "${RUN_SIZE:=$TMPFS_SIZE}" ] && RUN_OPT=",size=$RUN_SIZE" + domtab tmpfs /var/run "varrun" -omode=0755,nosuid$RUN_OPT + fi + if [ yes = "$RAMLOCK" ] ; then + LOCK_OPT= + [ "${LOCK_SIZE:=$TMPFS_SIZE}" ] && LOCK_OPT=",size=$LOCK_SIZE" + domtab tmpfs /var/lock "varlock" -omode=1777,nodev,noexec,nosuid$LOCK_OPT + fi + if [ -d /proc/bus/usb ] + then + domtab usbfs /proc/bus/usb "procbususb" + fi + + # S03udev + domtab tmpfs /dev "udev" -omode=0755 + + # S04mountdevsubfs + SHM_OPT= + [ "${SHM_SIZE:=$TMPFS_SIZE}" ] && SHM_OPT=",size=$SHM_SIZE" + domtab tmpfs /dev/shm tmpfs -onosuid,nodev$SHM_OPT + domtab devpts /dev/pts "devpts" -onoexec,nosuid,gid=$TTYGRP,mode=$TTYMODE + + # Add everything else in /proc/mounts into /etc/mtab, with + # special exceptions. + exec 9<&0 0</proc/mounts + while read FDEV FDIR FTYPE FOPTS REST + do + case "$FDIR" in + /lib/modules/*/volatile) + FDEV="lrm" + ;; + /dev/.static/dev) + # Not really useful to show in 'df', + # and it isn't accessible for non-root + # users. + continue + ;; + esac + domtab "$FTYPE" "$FDIR" "$FDEV" "-o$FOPTS" + done + exec 0<&9 9<&- +} + +case "$1" in + start|"") + do_start + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + # No-op + ;; + *) + echo "Usage: mountall-mtab.sh [start|stop]" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/rc b/beagle/debian-rfs/etc/init.d/rc new file mode 100755 index 0000000..fdb8ac7 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/rc @@ -0,0 +1,338 @@ +#! /bin/sh +# +# rc +# +# Starts/stops services on runlevel changes. +# +# Optimization: A start script is not run when the service was already +# configured to run in the previous runlevel. A stop script is not run +# when the the service was already configured not to run in the previous +# runlevel. +# +# Authors: +# Miquel van Smoorenburg <miquels@cistron.nl> +# Bruce Perens <Bruce@Pixar.com> + +PATH=/sbin:/usr/sbin:/bin:/usr/bin +export PATH + +# Un-comment the following for interactive debugging. Do not un-comment +# this for debugging a real boot process as no scripts will be executed. +# debug=echo + +# Specify method used to enable concurrent init.d scripts. +# Valid options are 'none' and 'makefile'. Obsolete options +# used earlier are 'shell' and 'startpar'. The obsolete options +# are aliases for 'makefile' since 2010-05-14. The default since +# the same date is 'makefile', as the init.d scripts in Debian now +# include dependency information and are ordered using this +# information. See insserv for information on dependency based +# boot sequencing. +CONCURRENCY=makefile + +# Make sure the name survive changing the argument list +scriptname="$0" + +umask 022 + +on_exit() { + echo "error: '$scriptname' exited outside the expected code flow." +} +trap on_exit EXIT # Enable emergency handler + +# Ignore CTRL-C only in this shell, so we can interrupt subprocesses. +trap ":" INT QUIT TSTP + +# Set onlcr to avoid staircase effect. +stty onlcr 0>&1 + +# Functions for splash progress bars +if [ -e /lib/init/splash-functions-base ] ; then + . /lib/init/splash-functions-base +else + # Quiet down script if old initscripts version without /lib/init/splash-functions-base is used. + splash_progress() { return 1; } + splash_stop() { return 1; } +fi + +# Now find out what the current and what the previous runlevel are. + +runlevel=$RUNLEVEL +# Get first argument. Set new runlevel to this argument. +[ "$1" != "" ] && runlevel=$1 +if [ "$runlevel" = "" ] +then + echo "Usage: $scriptname <runlevel>" >&2 + exit 1 +fi +previous=$PREVLEVEL +[ "$previous" = "" ] && previous=N + +export runlevel previous + +if [ -f /etc/default/rcS ] ; then + . /etc/default/rcS +fi +export VERBOSE + +if [ -f /lib/lsb/init-functions ] ; then + . /lib/lsb/init-functions +else + log_action_msg() { echo $@; } + log_failure_msg() { echo $@; } + log_warning_msg() { echo $@; } +fi + +# +# Stub to do progress bar ticks (for splash programs) on startup +# +startup_progress() { + # Avoid divide by zero if anyone moved xdm/kdm/gdm first in a runlevel. + if [ 0 -eq "$num_steps" ] ; then return; fi + + step=$(($step + $step_change)) + progress=$(($step * $progress_size / $num_steps + $first_step)) + $debug splash_progress "$progress" || true +} + +# +# Check if we are able to use make like booting. It require the +# insserv package to be enabled. Boot concurrency also requires +# startpar to be installed. +# +if [ "none" != "$CONCURRENCY" ] ; then + test -s /etc/init.d/.depend.boot || CONCURRENCY="none" + test -s /etc/init.d/.depend.start || CONCURRENCY="none" + test -s /etc/init.d/.depend.stop || CONCURRENCY="none" + if test -e /etc/init.d/.legacy-bootordering ; then + CONCURRENCY="none" + fi + startpar -v > /dev/null 2>&1 || CONCURRENCY="none" +fi + +# +# Start script or program. +# +case "$CONCURRENCY" in + makefile|startpar|shell) # startpar and shell are obsolete + CONCURRENCY=makefile + log_action_msg "Using makefile-style concurrent boot in runlevel $runlevel" + # The splash API is not handled with this CONCURRENCY mode. + # It need to be implented in startpar. Until that is done + # stop the splash screen before starting services, to avoid + # usplash and X to confuse each other during boot. + startup() { + if [ start = "$1" ] || [ boot = "$1" ] + then + $debug splash_stop || true + fi + eval "$(startpar -p 4 -t 20 -T 3 -M $1 -P $previous -R $runlevel)" + + if [ -n "$failed_service" ] + then + log_failure_msg "startpar: service(s) returned failure: $failed_service" + fi + + if [ -n "$skipped_service" ] + then + log_warning_msg "startpar: service(s) skipped: $skipped_service" + fi + + unset failed_service skipped_service + } + ;; + none|*) + startup() { + action=$1 + shift + scripts="$@" + for script in $scripts ; do + $debug "$script" $action + startup_progress + done + } + ;; +esac + +# Check if the splash screen should be stopped before the given +# script. +is_splash_stop_scripts() { + scriptname=$1 + case "$scriptname" in + # killprocs is used in runlevel 1 + gdm|xdm|kdm|ltsp-client|ltsp-client-core|reboot|halt|killprocs) + return 0 + ;; + esac + return 1 +} + +# Is there an rc directory for this new runlevel? +if [ -d /etc/rc$runlevel.d ] +then + # Find out where in the progress bar the initramfs got to. + PROGRESS_STATE=0 + if [ -f /dev/.initramfs/progress_state ]; then + . /dev/.initramfs/progress_state + fi + + # Split the remaining portion of the progress bar into thirds + progress_size=$(((100 - $PROGRESS_STATE) / 3)) + + case "$runlevel" in + 0|6) + ACTION=stop + # Count down from 0 to -100 and use the entire bar + first_step=0 + progress_size=100 + step_change=-1 + ;; + S) + ACTION=start + # Begin where the initramfs left off and use 2/3 + # of the remaining space + first_step=$PROGRESS_STATE + progress_size=$(($progress_size * 2)) + step_change=1 + ;; + *) + ACTION=start + # Begin where rcS left off and use the final 1/3 of + # the space (by leaving progress_size unchanged) + first_step=$(($progress_size * 2 + $PROGRESS_STATE)) + step_change=1 + ;; + esac + + # Count the number of scripts we need to run + # (for progress bars) + num_steps=0 + for s in /etc/rc$runlevel.d/[SK]*; do + if is_splash_stop_scripts "${s##/etc/rc$runlevel.d/S??}" ; then + break + fi + num_steps=$(($num_steps + 1)) + done + step=0 + + # First, run the KILL scripts. + if [ makefile = "$CONCURRENCY" ] + then + if [ "$ACTION" = "start" ] && [ "$previous" != N ] + then + startup stop + fi + elif [ "$previous" != N ] + then + # Run all scripts with the same level in parallel + CURLEVEL="" + for s in /etc/rc$runlevel.d/K* + do + # Extract order value from symlink + level=${s#/etc/rc$runlevel.d/K} + level=${level%%[a-zA-Z]*} + if [ "$level" = "$CURLEVEL" ] + then + continue + fi + CURLEVEL=$level + SCRIPTS="" + for i in /etc/rc$runlevel.d/K$level* + do + # Check if the script is there. + [ ! -f $i ] && continue + + # + # Find stop script in previous runlevel but + # no start script there. + # + suffix=${i#/etc/rc$runlevel.d/K[0-9][0-9]} + previous_stop=/etc/rc$previous.d/K[0-9][0-9]$suffix + previous_start=/etc/rc$previous.d/S[0-9][0-9]$suffix + # + # If there is a stop script in the previous level + # and _no_ start script there, we don't + # have to re-stop the service. + # + [ -f $previous_stop ] && [ ! -f $previous_start ] && continue + + # Stop the service. + SCRIPTS="$SCRIPTS $i" + if is_splash_stop_scripts "$suffix" ; then + $debug splash_stop || true + fi + done + startup stop $SCRIPTS + done + fi + + if [ makefile = "$CONCURRENCY" ] + then + if [ S = "$runlevel" ] + then + startup boot + else + startup $ACTION + fi + else + # Now run the START scripts for this runlevel. + # Run all scripts with the same level in parallel + CURLEVEL="" + for s in /etc/rc$runlevel.d/S* + do + # Extract order value from symlink + level=${s#/etc/rc$runlevel.d/S} + level=${level%%[a-zA-Z]*} + if [ "$level" = "$CURLEVEL" ] + then + continue + fi + CURLEVEL=$level + SCRIPTS="" + for i in /etc/rc$runlevel.d/S$level* + do + [ ! -f $i ] && continue + + suffix=${i#/etc/rc$runlevel.d/S[0-9][0-9]} + if [ "$previous" != N ] + then + # + # Find start script in previous runlevel and + # stop script in this runlevel. + # + stop=/etc/rc$runlevel.d/K[0-9][0-9]$suffix + previous_start=/etc/rc$previous.d/S[0-9][0-9]$suffix + # + # If there is a start script in the previous level + # and _no_ stop script in this level, we don't + # have to re-start the service. + # + if [ start = "$ACTION" ] ; then + [ -f $previous_start ] && [ ! -f $stop ] && continue + else + # Workaround for the special + # handling of runlevels 0 and 6. + previous_stop=/etc/rc$previous.d/K[0-9][0-9]$suffix + # + # If there is a stop script in the previous level + # and _no_ start script there, we don't + # have to re-stop the service. + # + [ -f $previous_stop ] && [ ! -f $previous_start ] && continue + fi + + fi + SCRIPTS="$SCRIPTS $i" + if is_splash_stop_scripts "$suffix" ; then + $debug splash_stop || true + fi + done + startup $ACTION $SCRIPTS + done + fi +fi + +trap - EXIT # Disable emergency handler + +exit 0 + diff --git a/beagle/debian-rfs/etc/init.d/rc.local b/beagle/debian-rfs/etc/init.d/rc.local new file mode 100755 index 0000000..5033c7e --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/rc.local @@ -0,0 +1,41 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: rc.local +# Required-Start: $remote_fs $syslog $all +# Required-Stop: +# Default-Start: 2 3 4 5 +# Default-Stop: +# Short-Description: Run /etc/rc.local if it exist +### END INIT INFO + + +PATH=/sbin:/usr/sbin:/bin:/usr/bin + +. /lib/init/vars.sh +. /lib/lsb/init-functions + +do_start() { + if [ -x /etc/rc.local ]; then + [ "$VERBOSE" != no ] && log_begin_msg "Running local boot scripts (/etc/rc.local)" + /etc/rc.local + ES=$? + [ "$VERBOSE" != no ] && log_end_msg $ES + return $ES + fi +} + +case "$1" in + start) + do_start + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + ;; + *) + echo "Usage: $0 start|stop" >&2 + exit 3 + ;; +esac diff --git a/beagle/debian-rfs/etc/init.d/rcS b/beagle/debian-rfs/etc/init.d/rcS new file mode 100755 index 0000000..546b724 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/rcS @@ -0,0 +1,8 @@ +#! /bin/sh +# +# rcS +# +# Call all S??* scripts in /etc/rcS.d/ in numerical/alphabetical order +# + +exec /etc/init.d/rc S diff --git a/beagle/debian-rfs/etc/init.d/reboot b/beagle/debian-rfs/etc/init.d/reboot new file mode 100755 index 0000000..af59a80 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/reboot @@ -0,0 +1,38 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: reboot +# Required-Start: +# Required-Stop: +# Default-Start: +# Default-Stop: 6 +# Short-Description: Execute the reboot command. +# Description: +### END INIT INFO + +PATH=/sbin:/usr/sbin:/bin:/usr/bin + +. /lib/lsb/init-functions + +do_stop () { + # Message should end with a newline since kFreeBSD may + # print more stuff (see #323749) + log_action_msg "Will now restart" + reboot -d -f -i +} + +case "$1" in + start) + # No-op + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + do_stop + ;; + *) + echo "Usage: $0 start|stop" >&2 + exit 3 + ;; +esac diff --git a/beagle/debian-rfs/etc/init.d/rmnologin b/beagle/debian-rfs/etc/init.d/rmnologin new file mode 100755 index 0000000..62cb6fa --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/rmnologin @@ -0,0 +1,59 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: rmnologin +# Required-Start: $remote_fs $all +# Required-Stop: +# Default-Start: 2 3 4 5 +# Default-Stop: +# Short-Description: Remove /etc/nologin at boot +# Description: This script removes the /etc/nologin file as the +# last step in the boot process, if DELAYLOGIN=yes. +# If DELAYLOGIN=no, /etc/nologin was not created by +# bootmisc earlier in the boot process. +### END INIT INFO + +PATH=/sbin:/bin +[ "$DELAYLOGIN" ] || DELAYLOGIN=yes +. /lib/init/vars.sh + +do_start () { + # + # If login delaying is enabled then remove the flag file + # + case "$DELAYLOGIN" in + Y*|y*) + rm -f /var/lib/initscripts/nologin + ;; + esac +} + +do_status () { + if [ ! -f /var/lib/initscripts/nologin ] ; then + return 0 + else + return 4 + fi +} + +case "$1" in + start) + do_start + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + # No-op + ;; + status) + do_status + exit $? + ;; + *) + echo "Usage: $0 start|stop" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/sendsigs b/beagle/debian-rfs/etc/init.d/sendsigs new file mode 100755 index 0000000..f5c33c5 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/sendsigs @@ -0,0 +1,126 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: sendsigs +# Required-Start: +# Required-Stop: umountnfs +# Default-Start: +# Default-Stop: 0 6 +# Short-Description: Kill all remaining processes. +# Description: +### END INIT INFO + +PATH=/sbin:/usr/sbin:/bin:/usr/bin + +. /lib/lsb/init-functions + +# Make it possible to see who the misbehaving processes are +report_unkillable() { + if [ -x /usr/bin/pstree ] ; then + echo "Currently running processes (pstree):" + pstree + elif [ -x /bin/ps ] ; then + echo "Currently running processes (ps):" + ps -ef + fi +} + +do_stop () { + OMITPIDS= + + # The /var/run/sendsigs.omit file is used to be compatible + # with Ubuntu. + for omitfile in /var/run/sendsigs.omit /lib/init/rw/sendsigs.omit; do + if [ -e $omitfile ]; then + for pid in $(cat $omitfile); do + OMITPIDS="${OMITPIDS:+$OMITPIDS }-o $pid" + done + fi + done + + # Load sendsigs.omit.d/packagename files too, to make it + # possible for scripts that need to modify the list of pids at + # run time without race conditions. + if [ -d /lib/init/rw/sendsigs.omit.d/ ]; then + for pidfile in /lib/init/rw/sendsigs.omit.d/*; do + [ -f "$pidfile" ] || continue + for pid in $(cat $pidfile); do + OMITPIDS="${OMITPIDS:+$OMITPIDS }-o $pid" + done + done + fi + + # Upstart jobs have their own "stop on" clauses that sends + # SIGTERM/SIGKILL just like this, so if they're still running, + # they're supposed to be + if [ -x /sbin/initctl ]; then + for pid in $(initctl list | sed -n -e "/process [0-9]/s/.*process //p"); do + OMITPIDS="${OMITPIDS:+$OMITPIDS }-o $pid" + done + fi + + # Flush the kernel I/O buffer before we start to kill + # processes, to make sure the IO of already stopped services to + # not slow down the remaining processes to a point where they + # are accidentily killed with SIGKILL because they did not + # manage to shut down in time. + sync + + # Kill all processes. + log_action_begin_msg "Asking all remaining processes to terminate" + killall5 -15 $OMITPIDS # SIGTERM + log_action_end_msg 0 + alldead="" + for seq in 1 2 3 4 5 6 7 8 9 10; do + # use SIGCONT/signal 18 to check if there are + # processes left. No need to check the exit code + # value, because either killall5 work and it make + # sense to wait for processes to die, or it fail and + # there is nothing to wait for. + + # did an upstart job start since we last polled initctl? check + # again on each loop and add any new jobs (e.g., plymouth) to + # the list. If we did miss one starting up, this beats waiting + # 10 seconds before shutting down. + if [ -x /sbin/initctl ]; then + for pid in $(initctl list | sed -n -e "/process [0-9]/s/.*process //p"); do + OMITPIDS="${OMITPIDS:+$OMITPIDS }-o $pid" + done + fi + if killall5 -18 $OMITPIDS ; then + : + else + alldead=1 + break + fi + + sleep 1 + done + if [ -z "$alldead" ] ; then + report_unkillable + log_action_begin_msg "Killing all remaining processes" + killall5 -9 $OMITPIDS # SIGKILL + log_action_end_msg 1 + else + log_action_begin_msg "All processes ended within $seq seconds." + log_action_end_msg 0 + fi +} + +case "$1" in + start) + # No-op + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + do_stop + ;; + *) + echo "Usage: $0 start|stop" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/single b/beagle/debian-rfs/etc/init.d/single new file mode 100755 index 0000000..3379102 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/single @@ -0,0 +1,35 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: single +# Required-Start: $local_fs $all killprocs +# Required-Stop: +# Default-Start: 1 +# Default-Stop: +# Short-Description: executed by init(8) upon entering runlevel 1 (single). +### END INIT INFO + +PATH=/sbin:/bin + +. /lib/lsb/init-functions + +do_start () { + log_action_msg "Will now switch to single-user mode" + exec init -t1 S +} + +case "$1" in + start) + do_start + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + # No-op + ;; + *) + echo "Usage: $0 start|stop" >&2 + exit 3 + ;; +esac diff --git a/beagle/debian-rfs/etc/init.d/skeleton b/beagle/debian-rfs/etc/init.d/skeleton new file mode 100644 index 0000000..dac9480 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/skeleton @@ -0,0 +1,159 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: skeleton +# Required-Start: $remote_fs $syslog +# Required-Stop: $remote_fs $syslog +# Default-Start: 2 3 4 5 +# Default-Stop: 0 1 6 +# Short-Description: Example initscript +# Description: This file should be used to construct scripts to be +# placed in /etc/init.d. +### END INIT INFO + +# Author: Foo Bar <foobar@baz.org> +# +# Please remove the "Author" lines above and replace them +# with your own name if you copy and modify this script. + +# Do NOT "set -e" + +# PATH should only include /usr/* if it runs after the mountnfs.sh script +PATH=/sbin:/usr/sbin:/bin:/usr/bin +DESC="Description of the service" +NAME=daemonexecutablename +DAEMON=/usr/sbin/$NAME +DAEMON_ARGS="--options args" +PIDFILE=/var/run/$NAME.pid +SCRIPTNAME=/etc/init.d/$NAME + +# Exit if the package is not installed +[ -x "$DAEMON" ] || exit 0 + +# Read configuration variable file if it is present +[ -r /etc/default/$NAME ] && . /etc/default/$NAME + +# Load the VERBOSE setting and other rcS variables +. /lib/init/vars.sh + +# Define LSB log_* functions. +# Depend on lsb-base (>= 3.2-14) to ensure that this file is present +# and status_of_proc is working. +. /lib/lsb/init-functions + +# +# Function that starts the daemon/service +# +do_start() +{ + # Return + # 0 if daemon has been started + # 1 if daemon was already running + # 2 if daemon could not be started + start-stop-daemon --start --quiet --pidfile $PIDFILE --exec $DAEMON --test > /dev/null \ + || return 1 + start-stop-daemon --start --quiet --pidfile $PIDFILE --exec $DAEMON -- \ + $DAEMON_ARGS \ + || return 2 + # Add code here, if necessary, that waits for the process to be ready + # to handle requests from services started subsequently which depend + # on this one. As a last resort, sleep for some time. +} + +# +# Function that stops the daemon/service +# +do_stop() +{ + # Return + # 0 if daemon has been stopped + # 1 if daemon was already stopped + # 2 if daemon could not be stopped + # other if a failure occurred + start-stop-daemon --stop --quiet --retry=TERM/30/KILL/5 --pidfile $PIDFILE --name $NAME + RETVAL="$?" + [ "$RETVAL" = 2 ] && return 2 + # Wait for children to finish too if this is a daemon that forks + # and if the daemon is only ever run from this initscript. + # If the above conditions are not satisfied then add some other code + # that waits for the process to drop all resources that could be + # needed by services started subsequently. A last resort is to + # sleep for some time. + start-stop-daemon --stop --quiet --oknodo --retry=0/30/KILL/5 --exec $DAEMON + [ "$?" = 2 ] && return 2 + # Many daemons don't delete their pidfiles when they exit. + rm -f $PIDFILE + return "$RETVAL" +} + +# +# Function that sends a SIGHUP to the daemon/service +# +do_reload() { + # + # If the daemon can reload its configuration without + # restarting (for example, when it is sent a SIGHUP), + # then implement that here. + # + start-stop-daemon --stop --signal 1 --quiet --pidfile $PIDFILE --name $NAME + return 0 +} + +case "$1" in + start) + [ "$VERBOSE" != no ] && log_daemon_msg "Starting $DESC" "$NAME" + do_start + case "$?" in + 0|1) [ "$VERBOSE" != no ] && log_end_msg 0 ;; + 2) [ "$VERBOSE" != no ] && log_end_msg 1 ;; + esac + ;; + stop) + [ "$VERBOSE" != no ] && log_daemon_msg "Stopping $DESC" "$NAME" + do_stop + case "$?" in + 0|1) [ "$VERBOSE" != no ] && log_end_msg 0 ;; + 2) [ "$VERBOSE" != no ] && log_end_msg 1 ;; + esac + ;; + status) + status_of_proc "$DAEMON" "$NAME" && exit 0 || exit $? + ;; + #reload|force-reload) + # + # If do_reload() is not implemented then leave this commented out + # and leave 'force-reload' as an alias for 'restart'. + # + #log_daemon_msg "Reloading $DESC" "$NAME" + #do_reload + #log_end_msg $? + #;; + restart|force-reload) + # + # If the "reload" option is implemented then remove the + # 'force-reload' alias + # + log_daemon_msg "Restarting $DESC" "$NAME" + do_stop + case "$?" in + 0|1) + do_start + case "$?" in + 0) log_end_msg 0 ;; + 1) log_end_msg 1 ;; # Old process is still running + *) log_end_msg 1 ;; # Failed to start + esac + ;; + *) + # Failed to stop + log_end_msg 1 + ;; + esac + ;; + *) + #echo "Usage: $SCRIPTNAME {start|stop|restart|reload|force-reload}" >&2 + echo "Usage: $SCRIPTNAME {start|stop|status|restart|force-reload}" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/stop-bootlogd b/beagle/debian-rfs/etc/init.d/stop-bootlogd new file mode 100755 index 0000000..1797b7d --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/stop-bootlogd @@ -0,0 +1,33 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: stop-bootlogd +# Required-Start: $local_fs $all +# Required-Stop: +# Default-Start: 2 3 4 5 +# Default-Stop: +# Short-Description: Stop bootlogd +# Description: See the init.d/bootlogd script +### END INIT INFO + +NAME=stop-bootlogd +DAEMON=/sbin/bootlogd + +[ -x "$DAEMON" ] || exit 0 + +case "$1" in + start) + /etc/init.d/bootlogd stop + ;; + stop|restart|force-reload) + # No-op + ;; + status) + exec /etc/init.d/bootlogd status + ;; + *) + echo "Usage: $NAME {start|stop|restart|force-reload}" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/stop-bootlogd-single b/beagle/debian-rfs/etc/init.d/stop-bootlogd-single new file mode 100755 index 0000000..2e76f16 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/stop-bootlogd-single @@ -0,0 +1,51 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: stop-bootlogd-single +# Required-Start: $local_fs $all +# Required-Stop: +# Default-Start: S +# Default-Stop: +# Short-Description: Stop bootlogd in single user mode +# Description: See the init.d/bootlogd script +### END INIT INFO +# +# This has to run in the boot sequence (rcS.d), and not in the "single +# user" sequence (rc1.d), because rc1.d/ is not used when booting into +# single user. "grep :[S1]: /etc/inittab" show that single user is just +# a call to /sbin/sulogin, while runlevel 1 is a call to +# "/etc/init.d/rc 1" which in the end switches to runlevel S to run +# /sbin/sulogin. + +PATH=/sbin:/usr/sbin:/bin:/usr/bin +NAME=stop-bootlogd-single +DAEMON=/sbin/bootlogd + +[ -x "$DAEMON" ] || exit 0 + +case "$1" in + start) + single=false + for word in $(cat /proc/cmdline); do + case "$word" in + S|single|1) + single=true + ;; + esac + done + if [ true = "$single" ] ; then + /etc/init.d/bootlogd stop + fi + ;; + stop|restart|force-reload) + # No-op + ;; + status) + exec /etc/init.d/bootlogd status + ;; + *) + echo "Usage: $NAME {start|stop|restart|force-reload}" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/umountfs b/beagle/debian-rfs/etc/init.d/umountfs new file mode 100755 index 0000000..7df5e3f --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/umountfs @@ -0,0 +1,144 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: umountfs +# Required-Start: +# Required-Stop: umountroot +# Default-Start: +# Default-Stop: 0 6 +# Short-Description: Turn off swap and unmount all local file systems. +# Description: +### END INIT INFO + +PATH=/sbin:/usr/sbin:/bin:/usr/bin +. /lib/init/vars.sh + +. /lib/lsb/init-functions + +umask 022 + +do_stop () { + exec 9<&0 </proc/mounts + + PROTECTED_MOUNTS="$(sed -n '0,/^\/[^ ]* \/ /p' /proc/mounts)" + WEAK_MTPTS="" # be gentle, don't use force + REG_MTPTS="" + TMPFS_MTPTS="" + while read -r DEV MTPT FSTYPE REST + do + echo "$PROTECTED_MOUNTS" | grep -qs "^$DEV $MTPT " && continue + case "$MTPT" in + /|/proc|/dev|/.dev|/dev/pts|/dev/shm|/dev/.static/dev|/proc/*|/sys|/sys/*|/lib/init/rw) + continue + ;; + /var/run) + if [ yes = "$RAMRUN" ] ; then + continue + fi + ;; + /var/lock) + if [ yes = "$RAMLOCK" ] ; then + continue + fi + ;; + esac + case "$FSTYPE" in + proc|procfs|linprocfs|sysfs|usbfs|usbdevfs|devpts) + continue + ;; + tmpfs) + TMPFS_MTPTS="$MTPT $TMPFS_MTPTS" + ;; + *) + if echo "$PROTECTED_MOUNTS" | grep -qs "^$DEV "; then + WEAK_MTPTS="$MTPT $WEAK_MTPTS" + else + REG_MTPTS="$MTPT $REG_MTPTS" + fi + ;; + esac + done + + exec 0<&9 9<&- + + # + # Make sure tmpfs file systems are umounted before turning off + # swap, to avoid running out of memory if the tmpfs filesystems + # use a lot of space. + # + if [ "$TMPFS_MTPTS" ] + then + if [ "$VERBOSE" = no ] + then + log_action_begin_msg "Unmounting temporary filesystems" + fstab-decode umount $TMPFS_MTPTS + log_action_end_msg $? + else + log_daemon_msg "Will now unmount temporary filesystems" + fstab-decode umount -v $TMPFS_MTPTS + log_end_msg $? + fi + fi + + # + # Deactivate swap + # + if [ "$VERBOSE" = no ] + then + log_action_begin_msg "Deactivating swap" + swapoff -a >/dev/null + log_action_end_msg $? + else + log_daemon_msg "Will now deactivate swap" + swapoff -a -v + log_end_msg $? + fi + + # + # Unmount local filesystems + # + if [ "$WEAK_MTPTS" ]; then + # Do not use -f umount option for WEAK_MTPTS + if [ "$VERBOSE" = no ] + then + log_action_begin_msg "Unmounting weak filesystems" + fstab-decode umount -r -d $WEAK_MTPTS + log_action_end_msg $? + else + log_daemon_msg "Will now unmount weak filesystems" + fstab-decode umount -v -r -d $WEAK_MTPTS + log_end_msg $? + fi + fi + if [ "$REG_MTPTS" ] + then + if [ "$VERBOSE" = no ] + then + log_action_begin_msg "Unmounting local filesystems" + fstab-decode umount -f -r -d $REG_MTPTS + log_action_end_msg $? + else + log_daemon_msg "Will now unmount local filesystems" + fstab-decode umount -f -v -r -d $REG_MTPTS + log_end_msg $? + fi + fi +} + +case "$1" in + start) + # No-op + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + do_stop + ;; + *) + echo "Usage: $0 start|stop" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/umountnfs.sh b/beagle/debian-rfs/etc/init.d/umountnfs.sh new file mode 100755 index 0000000..55fa96f --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/umountnfs.sh @@ -0,0 +1,108 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: umountnfs +# Required-Start: +# Required-Stop: umountfs +# Should-Stop: $network $portmap nfs-common +# Default-Start: +# Default-Stop: 0 6 +# Short-Description: Unmount all network filesystems except the root fs. +# Description: Also unmounts all virtual filesystems (proc, +# devpts, usbfs, sysfs) that are not mounted at the +# top level. +### END INIT INFO + +PATH=/sbin:/usr/sbin:/bin:/usr/bin +KERNEL="$(uname -s)" +RELEASE="$(uname -r)" +. /lib/init/vars.sh + +. /lib/lsb/init-functions + +case "${KERNEL}:${RELEASE}" in + Linux:[01].*|Linux:2.[01].*) + FLAGS="" + ;; + Linux:2.[23].*|Linux:2.4.?|Linux:2.4.?-*|Linux:2.4.10|Linux:2.4.10-*) + FLAGS="-f" + ;; + *) + FLAGS="-f -l" + ;; +esac + +do_stop () { + # Write a reboot record to /var/log/wtmp before unmounting + halt -w + + # Remove bootclean flag files (precaution against symlink attacks) + rm -f /tmp/.clean /var/lock/.clean /var/run/.clean + + # + # Make list of points to unmount in reverse order of their creation + # + + exec 9<&0 </etc/mtab + + DIRS="" + while read -r DEV MTPT FSTYPE OPTS REST + do + case "$MTPT" in + /|/proc|/dev|/dev/pts|/dev/shm|/proc/*|/sys|/lib/init/rw) + continue + ;; + /var/run) + if [ yes = "$RAMRUN" ] ; then + continue + fi + ;; + /var/lock) + if [ yes = "$RAMLOCK" ] ; then + continue + fi + ;; + esac + case "$FSTYPE" in + nfs|nfs4|smbfs|ncp|ncpfs|cifs|coda|ocfs2|gfs) + DIRS="$MTPT $DIRS" + ;; + proc|procfs|linprocfs|devpts|usbfs|usbdevfs|sysfs) + DIRS="$MTPT $DIRS" + ;; + esac + case "$OPTS" in + _netdev|*,_netdev|_netdev,*|*,_netdev,*) + DIRS="$MTPT $DIRS" + ;; + esac + done + + exec 0<&9 9<&- + + if [ "$DIRS" ] + then + [ "$VERBOSE" = no ] || log_action_begin_msg "Unmounting remote and non-toplevel virtual filesystems" + fstab-decode umount $FLAGS $DIRS + ES=$? + [ "$VERBOSE" = no ] || log_action_end_msg $ES + fi +} + +case "$1" in + start) + # No-op + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop|"") + do_stop + ;; + *) + echo "Usage: umountnfs.sh [start|stop]" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/umountroot b/beagle/debian-rfs/etc/init.d/umountroot new file mode 100755 index 0000000..51c4eb8 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/umountroot @@ -0,0 +1,57 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: umountroot +# Required-Start: +# Required-Stop: +# Should-Stop: halt reboot kexec +# Default-Start: +# Default-Stop: 0 6 +# Short-Description: Mount the root filesystem read-only. +### END INIT INFO + +PATH=/sbin:/bin +. /lib/init/vars.sh + +. /lib/lsb/init-functions + +do_stop () { + [ "$VERBOSE" = no ] || log_action_begin_msg "Mounting root filesystem read-only" + # These directories must exist on the root filesystem as they are + # targets for system mountpoints. We've just unmounted all other + # filesystems, so either they are mounted now (in which case the + # mount point exists) or we can make the mountpoint. + for dir in /proc /sys /var/run /var/lock; do + mkdir -p $dir || true + done + + MOUNT_FORCE_OPT= + [ "$(uname -s)" = "GNU/kFreeBSD" ] && MOUNT_FORCE_OPT=-f + # This: + # mount -n -o remount,ro / + # will act on a bind mount of / if there is one. + # See #339023 and the comment in checkroot.sh + mount $MOUNT_FORCE_OPT -n -o remount,ro -t dummytype dummydev / 2>/dev/null \ + || mount $MOUNT_FORCE_OPT -n -o remount,ro dummydev / 2>/dev/null \ + || mount $MOUNT_FORCE_OPT -n -o remount,ro / + ES=$? + [ "$VERBOSE" = no ] || log_action_end_msg $ES +} + +case "$1" in + start) + # No-op + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + stop) + do_stop + ;; + *) + echo "Usage: $0 start|stop" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/init.d/urandom b/beagle/debian-rfs/etc/init.d/urandom new file mode 100755 index 0000000..bb28a07 --- /dev/null +++ b/beagle/debian-rfs/etc/init.d/urandom @@ -0,0 +1,79 @@ +#! /bin/sh +### BEGIN INIT INFO +# Provides: urandom +# Required-Start: $local_fs +# Required-Stop: $local_fs +# Default-Start: S +# Default-Stop: 0 6 +# Short-Description: Save and restore random seed between restarts. +# Description: This script saves the random seed between restarts. +# It is called from the boot, halt and reboot scripts. +### END INIT INFO + +[ -c /dev/urandom ] || exit 0 + +PATH=/sbin:/bin +SAVEDFILE=/var/lib/urandom/random-seed +POOLSIZE=512 +[ -f /proc/sys/kernel/random/poolsize ] && POOLSIZE="$(cat /proc/sys/kernel/random/poolsize)" +. /lib/init/vars.sh + +. /lib/lsb/init-functions + +do_status () { + if [ -f $SAVEDFILE ] ; then + return 0 + else + return 4 + fi +} + +case "$1" in + start|"") + [ "$VERBOSE" = no ] || log_action_begin_msg "Initializing random number generator" + # Load and then save $POOLSIZE bytes, + # which is the size of the entropy pool + if [ -f "$SAVEDFILE" ] + then + # Handle locally increased pool size + set -- $(LC_ALL=C ls -l "$SAVEDFILE") + SAVEDSIZE="$5" + if [ "$SAVEDSIZE" -gt "$POOLSIZE" ] + then + [ -w /proc/sys/kernel/random/poolsize ] && echo $POOLSIZE > /proc/sys/kernel/random/poolsize + POOLSIZE=$SAVEDSIZE + fi + cat "$SAVEDFILE" >/dev/urandom + fi + rm -f $SAVEDFILE + # Hm, why is the saved pool re-created at boot? [pere 2009-09-03] + umask 077 + dd if=/dev/urandom of=$SAVEDFILE bs=$POOLSIZE count=1 >/dev/null 2>&1 + ES=$? + umask 022 + [ "$VERBOSE" = no ] || log_action_end_msg $ES + ;; + stop) + # Carry a random seed from shut-down to start-up; + # see documentation in linux/drivers/char/random.c + [ "$VERBOSE" = no ] || log_action_begin_msg "Saving random seed" + umask 077 + dd if=/dev/urandom of=$SAVEDFILE bs=$POOLSIZE count=1 >/dev/null 2>&1 + ES=$? + [ "$VERBOSE" = no ] || log_action_end_msg $ES + ;; + status) + do_status + exit $? + ;; + restart|reload|force-reload) + echo "Error: argument '$1' not supported" >&2 + exit 3 + ;; + *) + echo "Usage: urandom start|stop" >&2 + exit 3 + ;; +esac + +: diff --git a/beagle/debian-rfs/etc/insserv.conf b/beagle/debian-rfs/etc/insserv.conf new file mode 100644 index 0000000..e8d1a7b --- /dev/null +++ b/beagle/debian-rfs/etc/insserv.conf @@ -0,0 +1,41 @@ +# +# All local filesystems are mounted (done during boot phase) +# +$local_fs +mountall +mountoverflowtmp +umountfs + +# +# Low level networking (ethernet card) +# +$network +networking +ifupdown + +# +# Named is operational +# +$named +named +dnsmasq +lwresd +bind9 $network + +# +# All remote filesystems are mounted (note in some cases /usr may +# be remote. Most applications that care will probably require +# both $local_fs and $remote_fs) +# +$remote_fs $local_fs +mountnfs +mountnfs-bootclean +umountnfs +sendsigs + +# +# System logger is operational +# +$syslog +rsyslog +sysklogd +syslog-ng +dsyslog +inetutils-syslogd + +# +# SunRPC portmapper available +# +$portmap portmap + +# +# The system time has been set correctly +# +$time +hwclock + +# +# Services which need to be interactive +# +<interactive> glibc udev console-screen keymap keyboard-setup console-setup cryptdisks cryptdisks-early checkfs-loop diff --git a/beagle/debian-rfs/etc/issue b/beagle/debian-rfs/etc/issue new file mode 100644 index 0000000..9d52ed2 --- /dev/null +++ b/beagle/debian-rfs/etc/issue @@ -0,0 +1,2 @@ +Debian GNU/Linux 6.0 \n \l + diff --git a/beagle/debian-rfs/etc/issue.net b/beagle/debian-rfs/etc/issue.net new file mode 100644 index 0000000..6a11f39 --- /dev/null +++ b/beagle/debian-rfs/etc/issue.net @@ -0,0 +1 @@ +Debian GNU/Linux 6.0 diff --git a/beagle/debian-rfs/etc/ld.so.conf.d/arm-linux-gnueabi.conf b/beagle/debian-rfs/etc/ld.so.conf.d/arm-linux-gnueabi.conf new file mode 100644 index 0000000..205f029 --- /dev/null +++ b/beagle/debian-rfs/etc/ld.so.conf.d/arm-linux-gnueabi.conf @@ -0,0 +1,3 @@ +# Multiarch support +/lib/arm-linux-gnueabi +/usr/lib/arm-linux-gnueabi diff --git a/beagle/debian-rfs/etc/ld.so.conf.d/libc.conf b/beagle/debian-rfs/etc/ld.so.conf.d/libc.conf new file mode 100644 index 0000000..463b8bb --- /dev/null +++ b/beagle/debian-rfs/etc/ld.so.conf.d/libc.conf @@ -0,0 +1,2 @@ +# libc default configuration +/usr/local/lib diff --git a/beagle/debian-rfs/etc/login.defs b/beagle/debian-rfs/etc/login.defs new file mode 100644 index 0000000..7b70c90 --- /dev/null +++ b/beagle/debian-rfs/etc/login.defs @@ -0,0 +1,335 @@ +# +# /etc/login.defs - Configuration control definitions for the login package. +# +# Three items must be defined: MAIL_DIR, ENV_SUPATH, and ENV_PATH. +# If unspecified, some arbitrary (and possibly incorrect) value will +# be assumed. All other items are optional - if not specified then +# the described action or option will be inhibited. +# +# Comment lines (lines beginning with "#") and blank lines are ignored. +# +# Modified for Linux. --marekm + +# REQUIRED for useradd/userdel/usermod +# Directory where mailboxes reside, _or_ name of file, relative to the +# home directory. If you _do_ define MAIL_DIR and MAIL_FILE, +# MAIL_DIR takes precedence. +# +# Essentially: +# - MAIL_DIR defines the location of users mail spool files +# (for mbox use) by appending the username to MAIL_DIR as defined +# below. +# - MAIL_FILE defines the location of the users mail spool files as the +# fully-qualified filename obtained by prepending the user home +# directory before $MAIL_FILE +# +# NOTE: This is no more used for setting up users MAIL environment variable +# which is, starting from shadow 4.0.12-1 in Debian, entirely the +# job of the pam_mail PAM modules +# See default PAM configuration files provided for +# login, su, etc. +# +# This is a temporary situation: setting these variables will soon +# move to /etc/default/useradd and the variables will then be +# no more supported +MAIL_DIR /var/mail +#MAIL_FILE .mail + +# +# Enable logging and display of /var/log/faillog login failure info. +# This option conflicts with the pam_tally PAM module. +# +FAILLOG_ENAB yes + +# +# Enable display of unknown usernames when login failures are recorded. +# +# WARNING: Unknown usernames may become world readable. +# See #290803 and #298773 for details about how this could become a security +# concern +LOG_UNKFAIL_ENAB no + +# +# Enable logging of successful logins +# +LOG_OK_LOGINS no + +# +# Enable "syslog" logging of su activity - in addition to sulog file logging. +# SYSLOG_SG_ENAB does the same for newgrp and sg. +# +SYSLOG_SU_ENAB yes +SYSLOG_SG_ENAB yes + +# +# If defined, all su activity is logged to this file. +# +#SULOG_FILE /var/log/sulog + +# +# If defined, file which maps tty line to TERM environment parameter. +# Each line of the file is in a format something like "vt100 tty01". +# +#TTYTYPE_FILE /etc/ttytype + +# +# If defined, login failures will be logged here in a utmp format +# last, when invoked as lastb, will read /var/log/btmp, so... +# +FTMP_FILE /var/log/btmp + +# +# If defined, the command name to display when running "su -". For +# example, if this is defined as "su" then a "ps" will display the +# command is "-su". If not defined, then "ps" would display the +# name of the shell actually being run, e.g. something like "-sh". +# +SU_NAME su + +# +# If defined, file which inhibits all the usual chatter during the login +# sequence. If a full pathname, then hushed mode will be enabled if the +# user's name or shell are found in the file. If not a full pathname, then +# hushed mode will be enabled if the file exists in the user's home directory. +# +HUSHLOGIN_FILE .hushlogin +#HUSHLOGIN_FILE /etc/hushlogins + +# +# *REQUIRED* The default PATH settings, for superuser and normal users. +# +# (they are minimal, add the rest in the shell startup files) +ENV_SUPATH PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin +ENV_PATH PATH=/usr/local/bin:/usr/bin:/bin:/usr/local/games:/usr/games + +# +# Terminal permissions +# +# TTYGROUP Login tty will be assigned this group ownership. +# TTYPERM Login tty will be set to this permission. +# +# If you have a "write" program which is "setgid" to a special group +# which owns the terminals, define TTYGROUP to the group number and +# TTYPERM to 0620. Otherwise leave TTYGROUP commented out and assign +# TTYPERM to either 622 or 600. +# +# In Debian /usr/bin/bsd-write or similar programs are setgid tty +# However, the default and recommended value for TTYPERM is still 0600 +# to not allow anyone to write to anyone else console or terminal + +# Users can still allow other people to write them by issuing +# the "mesg y" command. + +TTYGROUP tty +TTYPERM 0600 + +# +# Login configuration initializations: +# +# ERASECHAR Terminal ERASE character ('\010' = backspace). +# KILLCHAR Terminal KILL character ('\025' = CTRL/U). +# UMASK Default "umask" value. +# +# The ERASECHAR and KILLCHAR are used only on System V machines. +# +# UMASK is the default umask value for pam_umask and is used by +# useradd and newusers to set the mode of the new home directories. +# 022 is the "historical" value in Debian for UMASK +# 027, or even 077, could be considered better for privacy +# There is no One True Answer here : each sysadmin must make up his/her +# mind. +# +# Prefix these values with "0" to get octal, "0x" to get hexadecimal. +# +ERASECHAR 0177 +KILLCHAR 025 +UMASK 022 + +# +# Password aging controls: +# +# PASS_MAX_DAYS Maximum number of days a password may be used. +# PASS_MIN_DAYS Minimum number of days allowed between password changes. +# PASS_WARN_AGE Number of days warning given before a password expires. +# +PASS_MAX_DAYS 99999 +PASS_MIN_DAYS 0 +PASS_WARN_AGE 7 + +# +# Min/max values for automatic uid selection in useradd +# +UID_MIN 1000 +UID_MAX 60000 +# System accounts +#SYS_UID_MIN 100 +#SYS_UID_MAX 999 + +# +# Min/max values for automatic gid selection in groupadd +# +GID_MIN 1000 +GID_MAX 60000 +# System accounts +#SYS_GID_MIN 100 +#SYS_GID_MAX 999 + +# +# Max number of login retries if password is bad. This will most likely be +# overriden by PAM, since the default pam_unix module has it's own built +# in of 3 retries. However, this is a safe fallback in case you are using +# an authentication module that does not enforce PAM_MAXTRIES. +# +LOGIN_RETRIES 5 + +# +# Max time in seconds for login +# +LOGIN_TIMEOUT 60 + +# +# Which fields may be changed by regular users using chfn - use +# any combination of letters "frwh" (full name, room number, work +# phone, home phone). If not defined, no changes are allowed. +# For backward compatibility, "yes" = "rwh" and "no" = "frwh". +# +CHFN_RESTRICT rwh + +# +# Should login be allowed if we can't cd to the home directory? +# Default in no. +# +DEFAULT_HOME yes + +# +# If defined, this command is run when removing a user. +# It should remove any at/cron/print jobs etc. owned by +# the user to be removed (passed as the first argument). +# +#USERDEL_CMD /usr/sbin/userdel_local + +# +# If set to yes, userdel will remove the user´s group if it contains no +# more members, and useradd will create by default a group with the name +# of the user. +# +# Other former uses of this variable such as setting the umask when +# user==primary group are not used in PAM environments, such as Debian +# +USERGROUPS_ENAB yes + +# +# Instead of the real user shell, the program specified by this parameter +# will be launched, although its visible name (argv[0]) will be the shell's. +# The program may do whatever it wants (logging, additional authentification, +# banner, ...) before running the actual shell. +# +# FAKE_SHELL /bin/fakeshell + +# +# If defined, either full pathname of a file containing device names or +# a ":" delimited list of device names. Root logins will be allowed only +# upon these devices. +# +# This variable is used by login and su. +# +#CONSOLE /etc/consoles +#CONSOLE console:tty01:tty02:tty03:tty04 + +# +# List of groups to add to the user's supplementary group set +# when logging in on the console (as determined by the CONSOLE +# setting). Default is none. +# +# Use with caution - it is possible for users to gain permanent +# access to these groups, even when not logged in on the console. +# How to do it is left as an exercise for the reader... +# +# This variable is used by login and su. +# +#CONSOLE_GROUPS floppy:audio:cdrom + +# +# If set to "yes", new passwords will be encrypted using the MD5-based +# algorithm compatible with the one used by recent releases of FreeBSD. +# It supports passwords of unlimited length and longer salt strings. +# Set to "no" if you need to copy encrypted passwords to other systems +# which don't understand the new algorithm. Default is "no". +# +# This variable is deprecated. You should use ENCRYPT_METHOD. +# +#MD5_CRYPT_ENAB no + +# +# If set to MD5 , MD5-based algorithm will be used for encrypting password +# If set to SHA256, SHA256-based algorithm will be used for encrypting password +# If set to SHA512, SHA512-based algorithm will be used for encrypting password +# If set to DES, DES-based algorithm will be used for encrypting password (default) +# Overrides the MD5_CRYPT_ENAB option +# +# Note: It is recommended to use a value consistent with +# the PAM modules configuration. +# +#ENCRYPT_METHOD DES + +# +# Only used if ENCRYPT_METHOD is set to SHA256 or SHA512. +# +# Define the number of SHA rounds. +# With a lot of rounds, it is more difficult to brute forcing the password. +# But note also that it more CPU resources will be needed to authenticate +# users. +# +# If not specified, the libc will choose the default number of rounds (5000). +# The values must be inside the 1000-999999999 range. +# If only one of the MIN or MAX values is set, then this value will be used. +# If MIN > MAX, the highest value will be used. +# +# SHA_CRYPT_MIN_ROUNDS 5000 +# SHA_CRYPT_MAX_ROUNDS 5000 + +################# OBSOLETED BY PAM ############## +# # +# These options are now handled by PAM. Please # +# edit the appropriate file in /etc/pam.d/ to # +# enable the equivelants of them. +# +############### + +#MOTD_FILE +#DIALUPS_CHECK_ENAB +#LASTLOG_ENAB +#MAIL_CHECK_ENAB +#OBSCURE_CHECKS_ENAB +#PORTTIME_CHECKS_ENAB +#SU_WHEEL_ONLY +#CRACKLIB_DICTPATH +#PASS_CHANGE_TRIES +#PASS_ALWAYS_WARN +#ENVIRON_FILE +#NOLOGINS_FILE +#ISSUE_FILE +#PASS_MIN_LEN +#PASS_MAX_LEN +#ULIMIT +#ENV_HZ +#CHFN_AUTH +#CHSH_AUTH +#FAIL_DELAY + +################# OBSOLETED ####################### +# # +# These options are no more handled by shadow. # +# # +# Shadow utilities will display a warning if they # +# still appear. # +# # +################################################### + +# CLOSE_SESSIONS +# LOGIN_STRING +# NO_PASSWORD_CONSOLE +# QMAIL_DIR + + + diff --git a/beagle/debian-rfs/etc/logrotate.d/dpkg b/beagle/debian-rfs/etc/logrotate.d/dpkg new file mode 100644 index 0000000..b071698 --- /dev/null +++ b/beagle/debian-rfs/etc/logrotate.d/dpkg @@ -0,0 +1,18 @@ +/var/log/dpkg.log { + monthly + rotate 12 + compress + delaycompress + missingok + notifempty + create 644 root root +} +/var/log/alternatives.log { + monthly + rotate 12 + compress + delaycompress + missingok + notifempty + create 644 root root +} diff --git a/beagle/debian-rfs/etc/mke2fs.conf b/beagle/debian-rfs/etc/mke2fs.conf new file mode 100644 index 0000000..52fe58e --- /dev/null +++ b/beagle/debian-rfs/etc/mke2fs.conf @@ -0,0 +1,44 @@ +[defaults] + base_features = sparse_super,filetype,resize_inode,dir_index,ext_attr + blocksize = 4096 + inode_size = 256 + inode_ratio = 16384 + +[fs_types] + ext3 = { + features = has_journal + } + ext4 = { + features = has_journal,extent,huge_file,flex_bg,uninit_bg,dir_nlink,extra_isize + inode_size = 256 + } + ext4dev = { + features = has_journal,extent,huge_file,flex_bg,uninit_bg,dir_nlink,extra_isize + inode_size = 256 + options = test_fs=1 + } + small = { + blocksize = 1024 + inode_size = 128 + inode_ratio = 4096 + } + floppy = { + blocksize = 1024 + inode_size = 128 + inode_ratio = 8192 + } + news = { + inode_ratio = 4096 + } + largefile = { + inode_ratio = 1048576 + blocksize = -1 + } + largefile4 = { + inode_ratio = 4194304 + blocksize = -1 + } + hurd = { + blocksize = 4096 + inode_size = 128 + } diff --git a/beagle/debian-rfs/etc/network/if-up.d/mountnfs b/beagle/debian-rfs/etc/network/if-up.d/mountnfs new file mode 100755 index 0000000..3564cfd --- /dev/null +++ b/beagle/debian-rfs/etc/network/if-up.d/mountnfs @@ -0,0 +1,173 @@ +#! /bin/sh +# Description: Now that TCP/IP is configured, mount the NFS file +# systems in /etc/fstab if needed. If possible, +# start the portmapper before mounting (this is needed for +# Linux 2.1.x and up). +# +# Also mounts SMB filesystems now, so the name of +# this script is getting increasingly inaccurate. + +PATH=/sbin:/bin +. /lib/init/vars.sh + +. /lib/lsb/init-functions +. /lib/init/mount-functions.sh + +set_env() { + [ -f /etc/fstab ] || return + # + # Read through fstab line by line. If it is NFS, set the flag + # for mounting NFS file systems. If any NFS partition is found and it + # not mounted with the nolock option, we start the portmapper. + # + # If any sec={krb5,krb5i,krb5p} option is given, or any of the file + # systems are nfs4, we'll need to start rpc.gssd and/or rpc.idmapd too; + # we'll leave that to nfs-common. + # + + exec 9<&0 </etc/fstab + + start_nfs=no + NETFS="" + NETDEV="" + while read DEV MTPT FSTYPE OPTS REST + do + case "$DEV" in + ""|\#*) + continue + ;; + esac + case "$OPTS" in + noauto|*,noauto|noauto,*|*,noauto,*) + continue + ;; + _netdev|*,_netdev|_netdev,*|*,_netdev,*) + NETDEV=yes + ;; + esac + case "$FSTYPE" in + nfs) + # NFS filsystems normally require statd and portmap. However, + # if nolock is set, portmap and statd are not required for this + # file system. + case "$OPTS" in + nolock|*,nolock|nolock,*|*,nolock,*) + # no action + ;; + *) + start_nfs=yes + ;; + esac + + # However, Kerberos requires gssd, so start nfs-common anyway. + case "$OPTS" in + sec=krb5|*,sec=krb5|sec=krb5,*|*,sec=krb5,*|sec=krb5i|*,sec=krb5i|sec=krb5i,*|*,sec=krb5i,*|sec=krb5p|*,sec=krb5p|sec=krb5p,*|*,sec=krb5p,*) + + start_nfs=yes + ;; + esac + ;; + nfs4) + # NFSv4 requires idmapd, so start nfs-common no matter what the options are. + start_nfs=yes + ;; + smbfs|cifs|coda|ncp|ncpfs|ocfs2|gfs) + ;; + *) + FSTYPE= + ;; + esac + if [ "$FSTYPE" ] + then + case "$NETFS" in + $FSTYPE|*,$FSTYPE|$FSTYPE,*|*,$FSTYPE,*) + ;; + *) + NETFS="$NETFS${NETFS:+,}$FSTYPE" + ;; + esac + fi + done + + exec 0<&9 9<&- +} + +do_start() { + # + # Initialize nfs-common (which starts rpc.statd, rpc.gssd + # and/or rpc.idmapd, and loads the right kernel modules if + # applicable) if we use Kerberos and/or NFSv4 mounts. + # + if [ "$start_nfs" = yes ] && [ -x /etc/init.d/portmap ] && [ -x /etc/init.d/nfs-common ] + then + /etc/init.d/portmap start + /etc/init.d/nfs-common start + fi + + pre_mountall + if [ "$NETFS" ] + then + mount -a -t$NETFS + fi + if [ "$NETDEV" ]; then + mount -a -O _netdev + fi + post_mountall +} + +exit_unless_last_interface() { + grep "^[:space:]*auto" /etc/network/interfaces | \ + sed -e 's/[ \t]*auto[ \t]*//;s/[ \t]*$//;s/[ \t]/\n/g' | \ + while read i; do + if [ `grep -c $i /etc/network/run/ifstate` -eq "0" ]; then + msg="if-up.d/mountnfs[$IFACE]: waiting for interface $i before doing NFS mounts" + log_warning_msg "$msg" + # Can not pass this as a variable because of the while subshell + mkdir /var/run/network/mountnfs_earlyexit 2> /dev/null + fi + done + if [ -d /var/run/network/mountnfs_earlyexit ]; then + rmdir /var/run/network/mountnfs_earlyexit 2>/dev/null + exit 0 + fi +} + +# Using 'no !=' instead of 'yes =' to make sure async nfs mounting is +# the default even without a value in /etc/default/rcS +set_env +# Exit imediately and do not claim to wait for the last interface if +# no network file systems are listed in /etc/fstab. +if [ "$start_nfs" = "no" ] && [ ! "$NETFS" ] && [ ! "$NETDEV" ]; then + exit 0 +fi + +if [ no != "$ASYNCMOUNTNFS" ]; then + # Not for loopback! + [ "$IFACE" != "lo" ] || exit 0 + + # Lock around this otherwise insanity may occur + mkdir /var/run/network 2>/dev/null || true + + # Wait until all auto interfaces are up before attemting to mount + # network file systems. + exit_unless_last_interface + + if mkdir /var/run/network/mountnfs 2>/dev/null ; then + : + else + msg="if-up.d/mountnfs[$IFACE]: lock /var/run/network/mountnfs exist, not mounting" + log_failure_msg "$msg" + # Log if /usr/ is mounted + [ -x /usr/bin/logger ] && /usr/bin/logger -t "if-up.d/mountnfs[$IFACE]" "$msg" + exit 0 + fi + + on_exit() { + # Clean up lock when script exits, even if it is interrupted + rmdir /var/run/network/mountnfs 2>/dev/null || exit 0 + } + trap on_exit EXIT # Enable emergency handler + do_start +elif [ yes = "$FROMINITD" ] ; then + do_start +fi diff --git a/beagle/debian-rfs/etc/pam.conf b/beagle/debian-rfs/etc/pam.conf new file mode 100644 index 0000000..3eeb72d --- /dev/null +++ b/beagle/debian-rfs/etc/pam.conf @@ -0,0 +1,15 @@ +# ---------------------------------------------------------------------------# +# /etc/pam.conf # +# ---------------------------------------------------------------------------# +# +# NOTE +# ---- +# +# NOTE: Most program use a file under the /etc/pam.d/ directory to setup their +# PAM service modules. This file is used only if that directory does not exist. +# ---------------------------------------------------------------------------# + +# Format: +# serv. module ctrl module [path] ...[args..] # +# name type flag # + diff --git a/beagle/debian-rfs/etc/pam.d/chfn b/beagle/debian-rfs/etc/pam.d/chfn new file mode 100644 index 0000000..10fcf07 --- /dev/null +++ b/beagle/debian-rfs/etc/pam.d/chfn @@ -0,0 +1,16 @@ +# +# The PAM configuration file for the Shadow `chfn' service +# + +# This allows root to change user infomation without being +# prompted for a password +auth sufficient pam_rootok.so + +# The standard Unix authentication modules, used with +# NIS (man nsswitch) as well as normal /etc/passwd and +# /etc/shadow entries. +@include common-auth +@include common-account +@include common-session + + diff --git a/beagle/debian-rfs/etc/pam.d/chpasswd b/beagle/debian-rfs/etc/pam.d/chpasswd new file mode 100644 index 0000000..da2adcc --- /dev/null +++ b/beagle/debian-rfs/etc/pam.d/chpasswd @@ -0,0 +1,5 @@ +# The PAM configuration file for the Shadow 'chpasswd' service +# + +@include common-password + diff --git a/beagle/debian-rfs/etc/pam.d/chsh b/beagle/debian-rfs/etc/pam.d/chsh new file mode 100644 index 0000000..7eb604d --- /dev/null +++ b/beagle/debian-rfs/etc/pam.d/chsh @@ -0,0 +1,20 @@ +# +# The PAM configuration file for the Shadow `chsh' service +# + +# This will not allow a user to change their shell unless +# their current one is listed in /etc/shells. This keeps +# accounts with special shells from changing them. +auth required pam_shells.so + +# This allows root to change user shell without being +# prompted for a password +auth sufficient pam_rootok.so + +# The standard Unix authentication modules, used with +# NIS (man nsswitch) as well as normal /etc/passwd and +# /etc/shadow entries. +@include common-auth +@include common-account +@include common-session + diff --git a/beagle/debian-rfs/etc/pam.d/login b/beagle/debian-rfs/etc/pam.d/login new file mode 100644 index 0000000..6ac4fd7 --- /dev/null +++ b/beagle/debian-rfs/etc/pam.d/login @@ -0,0 +1,107 @@ +# +# The PAM configuration file for the Shadow `login' service +# + +# Enforce a minimal delay in case of failure (in microseconds). +# (Replaces the `FAIL_DELAY' setting from login.defs) +# Note that other modules may require another minimal delay. (for example, +# to disable any delay, you should add the nodelay option to pam_unix) +auth optional pam_faildelay.so delay=3000000 + +# Outputs an issue file prior to each login prompt (Replaces the +# ISSUE_FILE option from login.defs). Uncomment for use +# auth required pam_issue.so issue=/etc/issue + +# Disallows root logins except on tty's listed in /etc/securetty +# (Replaces the `CONSOLE' setting from login.defs) +# +# With the default control of this module: +# [success=ok new_authtok_reqd=ok ignore=ignore user_unknown=bad default=die] +# root will not be prompted for a pasword on insecure lines. +# if an invalid username is entered, a password is prompted (but login +# will eventually be rejected) +# +# You can change it to a "requisite" module if you think root may mis-type +# her login and should not be prompted for a password in that case. But +# this will leave the system as vulnerable to user enumeration attacks. +# +# You can change it to a "required" module if you think it permits to +# guess valid user names of your system (invalid user names are considered +# as possibly being root on insecure lines), but root passwords may be +# communicated over insecure lines. +auth [success=ok new_authtok_reqd=ok ignore=ignore user_unknown=bad default=die] pam_securetty.so + +# Disallows other than root logins when /etc/nologin exists +# (Replaces the `NOLOGINS_FILE' option from login.defs) +auth requisite pam_nologin.so + +# SELinux needs to be the first session rule. This ensures that any +# lingering context has been cleared. Without out this it is possible +# that a module could execute code in the wrong domain. +# When the module is present, "required" would be sufficient (When SELinux +# is disabled, this returns success.) +session [success=ok ignore=ignore module_unknown=ignore default=bad] pam_selinux.so close + +# This module parses environment configuration file(s) +# and also allows you to use an extended config +# file /etc/security/pam_env.conf. +# +# parsing /etc/environment needs "readenv=1" +session required pam_env.so readenv=1 +# locale variables are also kept into /etc/default/locale in etch +# reading this file *in addition to /etc/environment* does not hurt +session required pam_env.so readenv=1 envfile=/etc/default/locale + +# Standard Un*x authentication. +@include common-auth + +# This allows certain extra groups to be granted to a user +# based on things like time of day, tty, service, and user. +# Please edit /etc/security/group.conf to fit your needs +# (Replaces the `CONSOLE_GROUPS' option in login.defs) +auth optional pam_group.so + +# Uncomment and edit /etc/security/time.conf if you need to set +# time restrainst on logins. +# (Replaces the `PORTTIME_CHECKS_ENAB' option from login.defs +# as well as /etc/porttime) +# account requisite pam_time.so + +# Uncomment and edit /etc/security/access.conf if you need to +# set access limits. +# (Replaces /etc/login.access file) +# account required pam_access.so + +# Sets up user limits according to /etc/security/limits.conf +# (Replaces the use of /etc/limits in old login) +session required pam_limits.so + +# Prints the last login info upon succesful login +# (Replaces the `LASTLOG_ENAB' option from login.defs) +session optional pam_lastlog.so + +# Prints the motd upon succesful login +# (Replaces the `MOTD_FILE' option in login.defs) +session optional pam_motd.so + +# Prints the status of the user's mailbox upon succesful login +# (Replaces the `MAIL_CHECK_ENAB' option from login.defs). +# +# This also defines the MAIL environment variable +# However, userdel also needs MAIL_DIR and MAIL_FILE variables +# in /etc/login.defs to make sure that removing a user +# also removes the user's mail spool file. +# See comments in /etc/login.defs +session optional pam_mail.so standard + +# Standard Un*x account and session +@include common-account +@include common-session +@include common-password + +# SELinux needs to intervene at login time to ensure that the process +# starts in the proper default security context. Only sessions which are +# intended to run in the user's context should be run after this. +session [success=ok ignore=ignore module_unknown=ignore default=bad] pam_selinux.so open +# When the module is present, "required" would be sufficient (When SELinux +# is disabled, this returns success.) diff --git a/beagle/debian-rfs/etc/pam.d/newusers b/beagle/debian-rfs/etc/pam.d/newusers new file mode 100644 index 0000000..552ca90 --- /dev/null +++ b/beagle/debian-rfs/etc/pam.d/newusers @@ -0,0 +1,5 @@ +# The PAM configuration file for the Shadow 'newusers' service +# + +@include common-password + diff --git a/beagle/debian-rfs/etc/pam.d/other b/beagle/debian-rfs/etc/pam.d/other new file mode 100644 index 0000000..59d776c --- /dev/null +++ b/beagle/debian-rfs/etc/pam.d/other @@ -0,0 +1,16 @@ +# +# /etc/pam.d/other - specify the PAM fallback behaviour +# +# Note that this file is used for any unspecified service; for example +#if /etc/pam.d/cron specifies no session modules but cron calls +#pam_open_session, the session module out of /etc/pam.d/other is +#used. If you really want nothing to happen then use pam_permit.so or +#pam_deny.so as appropriate. + +# We fall back to the system default in /etc/pam.d/common-* +# + +@include common-auth +@include common-account +@include common-password +@include common-session diff --git a/beagle/debian-rfs/etc/pam.d/passwd b/beagle/debian-rfs/etc/pam.d/passwd new file mode 100644 index 0000000..5872e7b --- /dev/null +++ b/beagle/debian-rfs/etc/pam.d/passwd @@ -0,0 +1,6 @@ +# +# The PAM configuration file for the Shadow `passwd' service +# + +@include common-password + diff --git a/beagle/debian-rfs/etc/pam.d/su b/beagle/debian-rfs/etc/pam.d/su new file mode 100644 index 0000000..c1a84ae --- /dev/null +++ b/beagle/debian-rfs/etc/pam.d/su @@ -0,0 +1,62 @@ +# +# The PAM configuration file for the Shadow `su' service +# + +# This allows root to su without passwords (normal operation) +auth sufficient pam_rootok.so + +# Uncomment this to force users to be a member of group root +# before they can use `su'. You can also add "group=foo" +# to the end of this line if you want to use a group other +# than the default "root" (but this may have side effect of +# denying "root" user, unless she's a member of "foo" or explicitly +# permitted earlier by e.g. "sufficient pam_rootok.so"). +# (Replaces the `SU_WHEEL_ONLY' option from login.defs) +# auth required pam_wheel.so + +# Uncomment this if you want wheel members to be able to +# su without a password. +# auth sufficient pam_wheel.so trust + +# Uncomment this if you want members of a specific group to not +# be allowed to use su at all. +# auth required pam_wheel.so deny group=nosu + +# Uncomment and edit /etc/security/time.conf if you need to set +# time restrainst on su usage. +# (Replaces the `PORTTIME_CHECKS_ENAB' option from login.defs +# as well as /etc/porttime) +# account requisite pam_time.so + +# This module parses environment configuration file(s) +# and also allows you to use an extended config +# file /etc/security/pam_env.conf. +# +# parsing /etc/environment needs "readenv=1" +session required pam_env.so readenv=1 +# locale variables are also kept into /etc/default/locale in etch +# reading this file *in addition to /etc/environment* does not hurt +session required pam_env.so readenv=1 envfile=/etc/default/locale + +# Defines the MAIL environment variable +# However, userdel also needs MAIL_DIR and MAIL_FILE variables +# in /etc/login.defs to make sure that removing a user +# also removes the user's mail spool file. +# See comments in /etc/login.defs +# +# "nopen" stands to avoid reporting new mail when su'ing to another user +session optional pam_mail.so nopen + +# Sets up user limits, please uncomment and read /etc/security/limits.conf +# to enable this functionality. +# (Replaces the use of /etc/limits in old login) +# session required pam_limits.so + +# The standard Unix authentication modules, used with +# NIS (man nsswitch) as well as normal /etc/passwd and +# /etc/shadow entries. +@include common-auth +@include common-account +@include common-session + + diff --git a/beagle/debian-rfs/etc/rc0.d/README b/beagle/debian-rfs/etc/rc0.d/README new file mode 100644 index 0000000..df13c03 --- /dev/null +++ b/beagle/debian-rfs/etc/rc0.d/README @@ -0,0 +1,11 @@ +The scripts in this directory are executed once when entering +runlevel 0. + +The scripts are all symbolic links whose targets are located in +/etc/init.d/ . + +Generally it is not necessary to alter the scripts in this directory. +Their purpose is to stop all services and to make the system ready +for shutdown. + +For more information see /etc/init.d/README. diff --git a/beagle/debian-rfs/etc/rc1.d/README b/beagle/debian-rfs/etc/rc1.d/README new file mode 100644 index 0000000..6be6c94 --- /dev/null +++ b/beagle/debian-rfs/etc/rc1.d/README @@ -0,0 +1,11 @@ +The scripts in this directory are executed each time the system enters +this runlevel. + +The scripts are all symbolic links whose targets are located in +/etc/init.d/ . + +Generally it is not necessary to alter the scripts in this directory. +Their purpose is to stop all services and thus to put the system in +single-user mode. + +For more information see /etc/init.d/README. diff --git a/beagle/debian-rfs/etc/rc2.d/README b/beagle/debian-rfs/etc/rc2.d/README new file mode 100644 index 0000000..6e0733f --- /dev/null +++ b/beagle/debian-rfs/etc/rc2.d/README @@ -0,0 +1,15 @@ +The scripts in this directory are executed each time the system enters +this runlevel. + +The scripts are all symbolic links whose targets are located in +/etc/init.d/ . + +To disable a service in this runlevel, rename its script in this +directory so that the new name begins with a 'K' and a two-digit +number, and run 'update-rc.d script defaults' to reorder the scripts +according to dependencies. A warning about the current runlevels +being enabled not matching the LSB header in the init.d script will be +printed. To re-enable the service, rename the script back to its +original name beginning with 'S' and run update-rc.d again. + +For a more information see /etc/init.d/README. diff --git a/beagle/debian-rfs/etc/rc3.d/README b/beagle/debian-rfs/etc/rc3.d/README new file mode 100644 index 0000000..6e0733f --- /dev/null +++ b/beagle/debian-rfs/etc/rc3.d/README @@ -0,0 +1,15 @@ +The scripts in this directory are executed each time the system enters +this runlevel. + +The scripts are all symbolic links whose targets are located in +/etc/init.d/ . + +To disable a service in this runlevel, rename its script in this +directory so that the new name begins with a 'K' and a two-digit +number, and run 'update-rc.d script defaults' to reorder the scripts +according to dependencies. A warning about the current runlevels +being enabled not matching the LSB header in the init.d script will be +printed. To re-enable the service, rename the script back to its +original name beginning with 'S' and run update-rc.d again. + +For a more information see /etc/init.d/README. diff --git a/beagle/debian-rfs/etc/rc4.d/README b/beagle/debian-rfs/etc/rc4.d/README new file mode 100644 index 0000000..6e0733f --- /dev/null +++ b/beagle/debian-rfs/etc/rc4.d/README @@ -0,0 +1,15 @@ +The scripts in this directory are executed each time the system enters +this runlevel. + +The scripts are all symbolic links whose targets are located in +/etc/init.d/ . + +To disable a service in this runlevel, rename its script in this +directory so that the new name begins with a 'K' and a two-digit +number, and run 'update-rc.d script defaults' to reorder the scripts +according to dependencies. A warning about the current runlevels +being enabled not matching the LSB header in the init.d script will be +printed. To re-enable the service, rename the script back to its +original name beginning with 'S' and run update-rc.d again. + +For a more information see /etc/init.d/README. diff --git a/beagle/debian-rfs/etc/rc5.d/README b/beagle/debian-rfs/etc/rc5.d/README new file mode 100644 index 0000000..6e0733f --- /dev/null +++ b/beagle/debian-rfs/etc/rc5.d/README @@ -0,0 +1,15 @@ +The scripts in this directory are executed each time the system enters +this runlevel. + +The scripts are all symbolic links whose targets are located in +/etc/init.d/ . + +To disable a service in this runlevel, rename its script in this +directory so that the new name begins with a 'K' and a two-digit +number, and run 'update-rc.d script defaults' to reorder the scripts +according to dependencies. A warning about the current runlevels +being enabled not matching the LSB header in the init.d script will be +printed. To re-enable the service, rename the script back to its +original name beginning with 'S' and run update-rc.d again. + +For a more information see /etc/init.d/README. diff --git a/beagle/debian-rfs/etc/rc6.d/README b/beagle/debian-rfs/etc/rc6.d/README new file mode 100644 index 0000000..baf54c9 --- /dev/null +++ b/beagle/debian-rfs/etc/rc6.d/README @@ -0,0 +1,11 @@ +The scripts in this directory are executed once when entering +runlevel 6. + +The scripts are all symbolic links whose targets are located in +/etc/init.d/ . + +Generally it is not necessary to alter the scripts in this directory. +Their purpose is to stop all services and to make the system ready +for reboot. + +For more information see /etc/init.d/README. diff --git a/beagle/debian-rfs/etc/rcS.d/README b/beagle/debian-rfs/etc/rcS.d/README new file mode 100644 index 0000000..fcf7c92 --- /dev/null +++ b/beagle/debian-rfs/etc/rcS.d/README @@ -0,0 +1,12 @@ +The scripts in this directory whose names begin with an 'S' are +executed once when booting the system, even when booting directly into +single user mode. + +The scripts are all symbolic links whose targets are located in +/etc/init.d/ . + +To disable a script in this directory, rename it so that it begins +with a 'K' and run 'update-rc.d script defaults' to update the order +using the script dependencies. + +For more information see /etc/init.d/README. diff --git a/beagle/debian-rfs/etc/resolv.conf b/beagle/debian-rfs/etc/resolv.conf new file mode 100644 index 0000000..07ee6e3 --- /dev/null +++ b/beagle/debian-rfs/etc/resolv.conf @@ -0,0 +1,3 @@ +domain traut +search traut +nameserver 10.0.3.10 diff --git a/beagle/debian-rfs/etc/rmt b/beagle/debian-rfs/etc/rmt new file mode 100755 index 0000000..4fadd09 --- /dev/null +++ b/beagle/debian-rfs/etc/rmt @@ -0,0 +1,8 @@ +#!/bin/sh +# +# This is not a mistake. This shell script (/etc/rmt) has been provided +# for compatibility with other Unix-like systems, some of which have +# utilities that expect to find (and execute) rmt in the /etc directory +# on remote systems. +# +exec /usr/sbin/rmt diff --git a/beagle/debian-rfs/etc/securetty b/beagle/debian-rfs/etc/securetty new file mode 100644 index 0000000..3d6971c --- /dev/null +++ b/beagle/debian-rfs/etc/securetty @@ -0,0 +1,383 @@ +# /etc/securetty: list of terminals on which root is allowed to login. +# See securetty(5) and login(1). + +console + +# Local X displays (allows empty passwords with pam_unix's nullok_secure) +:0 +:0.0 +:0.1 +:1 +:1.0 +:1.1 +:2 +:2.0 +:2.1 +:3 +:3.0 +:3.1 +#... + + +# ========================================================== +# +# TTYs sorted by major number according to Documentation/devices.txt +# +# ========================================================== + +# Virtual consoles +tty1 +tty2 +tty3 +tty4 +tty5 +tty6 +tty7 +tty8 +tty9 +tty10 +tty11 +tty12 +tty13 +tty14 +tty15 +tty16 +tty17 +tty18 +tty19 +tty20 +tty21 +tty22 +tty23 +tty24 +tty25 +tty26 +tty27 +tty28 +tty29 +tty30 +tty31 +tty32 +tty33 +tty34 +tty35 +tty36 +tty37 +tty38 +tty39 +tty40 +tty41 +tty42 +tty43 +tty44 +tty45 +tty46 +tty47 +tty48 +tty49 +tty50 +tty51 +tty52 +tty53 +tty54 +tty55 +tty56 +tty57 +tty58 +tty59 +tty60 +tty61 +tty62 +tty63 + +# UART serial ports +ttyS0 +ttyS1 +ttyS2 +ttyS3 +ttyS4 +ttyS5 +#...ttyS191 + +# Serial Mux devices (Linux/PA-RISC only) +ttyB0 +ttyB1 +#... + +# Chase serial card +ttyH0 +ttyH1 +#... + +# Cyclades serial cards +ttyC0 +ttyC1 +#...ttyC31 + +# Digiboard serial cards +ttyD0 +ttyD1 +#... + +# Stallion serial cards +ttyE0 +ttyE1 +#...ttyE255 + +# Specialix serial cards +ttyX0 +ttyX1 +#... + +# Comtrol Rocketport serial cards +ttyR0 +ttyR1 +#... + +# SDL RISCom serial cards +ttyL0 +ttyL1 +#... + +# Hayes ESP serial card +ttyP0 +ttyP1 +#... + +# Computone IntelliPort II serial card +ttyF0 +ttyF1 +#...ttyF255 + +# Specialix IO8+ serial card +ttyW0 +ttyW1 +#... + +# Comtrol VS-1000 serial controller +ttyV0 +ttyV1 +#... + +# ISI serial card +ttyM0 +ttyM1 +#... + +# Technology Concepts serial card +ttyT0 +ttyT1 +#... + +# Specialix RIO serial card +ttySR0 +ttySR1 +#...ttySR511 + +# Chase Research AT/PCI-Fast serial card +ttyCH0 +ttyCH1 +#...ttyCH63 + +# Moxa Intellio serial card +ttyMX0 +ttyMX1 +#...ttyMX127 + +# SmartIO serial card +ttySI0 +ttySI1 +#... + +# USB dongles +ttyUSB0 +ttyUSB1 +ttyUSB2 +#... + +# LinkUp Systems L72xx UARTs +ttyLU0 +ttyLU1 +ttyLU2 +ttyLU3 + +# StrongARM builtin serial ports +ttySA0 +ttySA1 +ttySA2 + +# SCI serial port (SuperH) ports and SC26xx serial ports +ttySC0 +ttySC1 +ttySC2 +ttySC3 + +# ARM "AMBA" serial ports +ttyAM0 +ttyAM1 +ttyAM2 +ttyAM3 +ttyAM4 +ttyAM5 +ttyAM6 +ttyAM7 +ttyAM8 +ttyAM9 +ttyAM10 +ttyAM11 +ttyAM12 +ttyAM13 +ttyAM14 +ttyAM15 + +# DataBooster serial ports +ttyDB0 +ttyDB1 +ttyDB2 +ttyDB3 +ttyDB4 +ttyDB5 +ttyDB6 +ttyDB7 + +# SGI Altix console ports +ttySG0 + +# Motorola i.MX ports +ttySMX0 +ttySMX1 +ttySMX2 + +# Marvell MPSC ports +ttyMM0 +ttyMM1 + +# PPC CPM (SCC or SMC) ports +ttyCPM0 +ttyCPM1 +ttyCPM2 +ttyCPM3 +ttyCPM4 +ttyCPM5 + +# Altix serial cards +ttyIOC0 +ttyIOC1 +#...ttyIOC31 + +# NEC VR4100 series SIU +ttyVR0 + +# NEC VR4100 series SSIU +ttyVR1 + +# Altix ioc4 serial cards +ttyIOC84 +ttyIOC85 +#...ttyIOC115 + +# Altix ioc3 serial cards +ttySIOC0 +ttySIOC1 +#...ttySIOC31 + +# PPC PSC ports +ttyPSC0 +ttyPSC1 +ttyPSC2 +ttyPSC3 +ttyPSC4 +ttyPSC5 + +# ATMEL serial ports +ttyAT0 +ttyAT1 +#...ttyAT15 + +# Hilscher netX serial port +ttyNX0 +ttyNX1 +#...ttyNX15 + +# Xilinx uartlite - port +ttyUL0 +ttyUL1 +ttyUL2 +ttyUL3 + +# Xen virtual console - port 0 +xvc0 + +# pmac_zilog - port +ttyPZ0 +ttyPZ1 +ttyPZ2 +ttyPZ3 + +# TX39/49 serial port +ttyTX0 +ttyTX1 +ttyTX2 +ttyTX3 +ttyTX4 +ttyTX5 +ttyTX6 +ttyTX7 + +# SC26xx serial ports (see SCI serial ports (SuperH)) + +# MAX3100 serial ports +ttyMAX0 +ttyMAX1 +ttyMAX2 +ttyMAX3 + +# OMAP serial ports +ttyO0 +ttyO1 +ttyO2 +ttyO3 + +# User space serial ports +ttyU0 +ttyU1 + +# A2232 serial card +ttyY0 +ttyY1 + +# IBM 3270 terminal Unix tty access +3270/tty1 +3270/tty2 +#... + +# IBM iSeries/pSeries virtual console +hvc0 +hvc1 +#... + +# Equinox SST multi-port serial boards +ttyEQ0 +ttyEQ1 +#...ttyEQ1027 + +# ========================================================== +# +# Not in Documentation/Devicess.txt +# +# ========================================================== + +# Embedded Freescale i.MX ports +ttymxc0 +ttymxc1 +ttymxc2 +ttymxc3 +ttymxc4 +ttymxc5 + +# Embedded ARM AMBA PL011 ports (e.g. emulated by QEMU) +ttyama0 +ttyama1 +ttyama2 +ttyama3 + diff --git a/beagle/debian-rfs/etc/security/access.conf b/beagle/debian-rfs/etc/security/access.conf new file mode 100644 index 0000000..74c5fbe --- /dev/null +++ b/beagle/debian-rfs/etc/security/access.conf @@ -0,0 +1,122 @@ +# Login access control table. +# +# Comment line must start with "#", no space at front. +# Order of lines is important. +# +# When someone logs in, the table is scanned for the first entry that +# matches the (user, host) combination, or, in case of non-networked +# logins, the first entry that matches the (user, tty) combination. The +# permissions field of that table entry determines whether the login will +# be accepted or refused. +# +# Format of the login access control table is three fields separated by a +# ":" character: +# +# [Note, if you supply a 'fieldsep=|' argument to the pam_access.so +# module, you can change the field separation character to be +# '|'. This is useful for configurations where you are trying to use +# pam_access with X applications that provide PAM_TTY values that are +# the display variable like "host:0".] +# +# permission : users : origins +# +# The first field should be a "+" (access granted) or "-" (access denied) +# character. +# +# The second field should be a list of one or more login names, group +# names, or ALL (always matches). A pattern of the form user@host is +# matched when the login name matches the "user" part, and when the +# "host" part matches the local machine name. +# +# The third field should be a list of one or more tty names (for +# non-networked logins), host names, domain names (begin with "."), host +# addresses, internet network numbers (end with "."), ALL (always +# matches), NONE (matches no tty on non-networked logins) or +# LOCAL (matches any string that does not contain a "." character). +# +# You can use @netgroupname in host or user patterns; this even works +# for @usergroup@@hostgroup patterns. +# +# The EXCEPT operator makes it possible to write very compact rules. +# +# The group file is searched only when a name does not match that of the +# logged-in user. Both the user's primary group is matched, as well as +# groups in which users are explicitly listed. +# To avoid problems with accounts, which have the same name as a group, +# you can use brackets around group names '(group)' to differentiate. +# In this case, you should also set the "nodefgroup" option. +# +# TTY NAMES: Must be in the form returned by ttyname(3) less the initial +# "/dev" (e.g. tty1 or vc/1) +# +############################################################################## +# +# Disallow non-root logins on tty1 +# +#-:ALL EXCEPT root:tty1 +# +# Disallow console logins to all but a few accounts. +# +#-:ALL EXCEPT wheel shutdown sync:LOCAL +# +# Same, but make sure that really the group wheel and not the user +# wheel is used (use nodefgroup argument, too): +# +#-:ALL EXCEPT (wheel) shutdown sync:LOCAL +# +# Disallow non-local logins to privileged accounts (group wheel). +# +#-:wheel:ALL EXCEPT LOCAL .win.tue.nl +# +# Some accounts are not allowed to login from anywhere: +# +#-:wsbscaro wsbsecr wsbspac wsbsym wscosor wstaiwde:ALL +# +# All other accounts are allowed to login from anywhere. +# +############################################################################## +# All lines from here up to the end are building a more complex example. +############################################################################## +# +# User "root" should be allowed to get access via cron .. tty5 tty6. +#+ : root : cron crond :0 tty1 tty2 tty3 tty4 tty5 tty6 +# +# User "root" should be allowed to get access from hosts with ip addresses. +#+ : root : 192.168.200.1 192.168.200.4 192.168.200.9 +#+ : root : 127.0.0.1 +# +# User "root" should get access from network 192.168.201. +# This term will be evaluated by string matching. +# comment: It might be better to use network/netmask instead. +# The same is 192.168.201.0/24 or 192.168.201.0/255.255.255.0 +#+ : root : 192.168.201. +# +# User "root" should be able to have access from domain. +# Uses string matching also. +#+ : root : .foo.bar.org +# +# User "root" should be denied to get access from all other sources. +#- : root : ALL +# +# User "foo" and members of netgroup "nis_group" should be +# allowed to get access from all sources. +# This will only work if netgroup service is available. +#+ : @nis_group foo : ALL +# +# User "john" should get access from ipv4 net/mask +#+ : john : 127.0.0.0/24 +# +# User "john" should get access from ipv4 as ipv6 net/mask +#+ : john : ::ffff:127.0.0.0/127 +# +# User "john" should get access from ipv6 host address +#+ : john : 2001:4ca0:0:101::1 +# +# User "john" should get access from ipv6 host address (same as above) +#+ : john : 2001:4ca0:0:101:0:0:0:1 +# +# User "john" should get access from ipv6 net/mask +#+ : john : 2001:4ca0:0:101::/64 +# +# All other users should be denied to get access from all sources. +#- : ALL : ALL diff --git a/beagle/debian-rfs/etc/security/group.conf b/beagle/debian-rfs/etc/security/group.conf new file mode 100644 index 0000000..b766bec --- /dev/null +++ b/beagle/debian-rfs/etc/security/group.conf @@ -0,0 +1,99 @@ +# +# This is the configuration file for the pam_group module. +# + +# +# *** Please note that giving group membership on a session basis is +# *** NOT inherently secure. If a user can create an executable that +# *** is setgid a group that they are infrequently given membership +# *** of, they can basically obtain group membership any time they +# *** like. Example: games are allowed between the hours of 6pm and 6am +# *** user joe logs in at 7pm writes a small C-program toplay.c that +# *** invokes their favorite shell, compiles it and does +# *** "chgrp play toplay; chmod g+s toplay". They are basically able +# *** to play games any time... You have been warned. AGM +# + +# +# The syntax of the lines is as follows: +# +# services;ttys;users;times;groups +# +# white space is ignored and lines maybe extended with '\\n' (escaped +# newlines). From reading these comments, it is clear that +# text following a '#' is ignored to the end of the line. +# +# the combination of individual users/terminals etc is a logic list +# namely individual tokens that are optionally prefixed with '!' (logical +# not) and separated with '&' (logical and) and '|' (logical or). +# +# services +# is a logic list of PAM service names that the rule applies to. +# +# ttys +# is a logic list of terminal names that this rule applies to. +# +# users +# is a logic list of users or a netgroup of users to whom this +# rule applies. +# +# NB. For these items the simple wildcard '*' may be used only once. +# With netgroups no wildcards or logic operators are allowed. +# +# times +# It is used to indicate "when" these groups are to be given to the +# user. The format here is a logic list of day/time-range +# entries the days are specified by a sequence of two character +# entries, MoTuSa for example is Monday Tuesday and Saturday. Note +# that repeated days are unset MoMo = no day, and MoWk = all weekdays +# bar Monday. The two character combinations accepted are +# +# Mo Tu We Th Fr Sa Su Wk Wd Al +# +# the last two being week-end days and all 7 days of the week +# respectively. As a final example, AlFr means all days except Friday. +# +# Each day/time-range can be prefixed with a '!' to indicate "anything +# but" +# +# The time-range part is two 24-hour times HHMM separated by a hyphen +# indicating the start and finish time (if the finish time is smaller +# than the start time it is deemed to apply on the following day). +# +# groups +# The (comma or space separated) list of groups that the user +# inherits membership of. These groups are added if the previous +# fields are satisfied by the user's request +# +# For a rule to be active, ALL of service+ttys+users must be satisfied +# by the applying process. +# + +# +# Note, to get this to work as it is currently typed you need +# +# 1. to run an application as root +# 2. add the following groups to the /etc/group file: +# floppy, play, sound +# + +# +# Here is a simple example: running 'xsh' on tty* (any ttyXXX device), +# the user 'us' is given access to the floppy (through membership of +# the floppy group) +# + +#xsh;tty*&!ttyp*;us;Al0000-2400;floppy + +# +# another example: running 'xsh' on tty* (any ttyXXX device), +# the user 'sword' is given access to games (through membership of +# the sound and play group) after work hours. +# + +#xsh; tty* ;sword;!Wk0900-1800;sound, play +#xsh; tty* ;*;Al0900-1800;floppy + +# +# End of group.conf file +# diff --git a/beagle/debian-rfs/etc/security/limits.conf b/beagle/debian-rfs/etc/security/limits.conf new file mode 100644 index 0000000..698e139 --- /dev/null +++ b/beagle/debian-rfs/etc/security/limits.conf @@ -0,0 +1,56 @@ +# /etc/security/limits.conf +# +#Each line describes a limit for a user in the form: +# +#<domain> <type> <item> <value> +# +#Where: +#<domain> can be: +# - an user name +# - a group name, with @group syntax +# - the wildcard *, for default entry +# - the wildcard %, can be also used with %group syntax, +# for maxlogin limit +# - NOTE: group and wildcard limits are not applied to root. +# To apply a limit to the root user, <domain> must be +# the literal username root. +# +#<type> can have the two values: +# - "soft" for enforcing the soft limits +# - "hard" for enforcing hard limits +# +#<item> can be one of the following: +# - core - limits the core file size (KB) +# - data - max data size (KB) +# - fsize - maximum filesize (KB) +# - memlock - max locked-in-memory address space (KB) +# - nofile - max number of open files +# - rss - max resident set size (KB) +# - stack - max stack size (KB) +# - cpu - max CPU time (MIN) +# - nproc - max number of processes +# - as - address space limit (KB) +# - maxlogins - max number of logins for this user +# - maxsyslogins - max number of logins on the system +# - priority - the priority to run user process with +# - locks - max number of file locks the user can hold +# - sigpending - max number of pending signals +# - msgqueue - max memory used by POSIX message queues (bytes) +# - nice - max nice priority allowed to raise to values: [-20, 19] +# - rtprio - max realtime priority +# - chroot - change root to directory (Debian-specific) +# +#<domain> <type> <item> <value> +# + +#* soft core 0 +#root hard core 100000 +#* hard rss 10000 +#@student hard nproc 20 +#@faculty soft nproc 20 +#@faculty hard nproc 50 +#ftp hard nproc 0 +#ftp - chroot /ftp +#@student - maxlogins 4 + +# End of file diff --git a/beagle/debian-rfs/etc/security/namespace.conf b/beagle/debian-rfs/etc/security/namespace.conf new file mode 100644 index 0000000..f973225 --- /dev/null +++ b/beagle/debian-rfs/etc/security/namespace.conf @@ -0,0 +1,28 @@ +# /etc/security/namespace.conf +# +# See /usr/share/doc/pam-*/txts/README.pam_namespace for more information. +# +# Uncommenting the following three lines will polyinstantiate +# /tmp, /var/tmp and user's home directories. /tmp and /var/tmp will +# be polyinstantiated based on the MLS level part of the security context as well as user +# name, Polyinstantion will not be performed for user root and adm for directories +# /tmp and /var/tmp, whereas home directories will be polyinstantiated for all users. +# The user name and context is appended to the instance prefix. +# +# Note that instance directories do not have to reside inside the +# polyinstantiated directory. In the examples below, instances of /tmp +# will be created in /tmp-inst directory, where as instances of /var/tmp +# and users home directories will reside within the directories that +# are being polyinstantiated. +# +# Instance parent directories must exist for the polyinstantiation +# mechanism to work. By default, they should be created with the mode +# of 000. pam_namespace module will enforce this mode unless it +# is explicitly called with an argument to ignore the mode of the +# instance parent. System administrators should use this argument with +# caution, as it will reduce security and isolation achieved by +# polyinstantiation. +# +#/tmp /tmp-inst/ level root,adm +#/var/tmp /var/tmp/tmp-inst/ level root,adm +#$HOME $HOME/$USER.inst/ level diff --git a/beagle/debian-rfs/etc/security/namespace.init b/beagle/debian-rfs/etc/security/namespace.init new file mode 100755 index 0000000..9898bf3 --- /dev/null +++ b/beagle/debian-rfs/etc/security/namespace.init @@ -0,0 +1,25 @@ +#!/bin/sh -p +# It receives polydir path as $1, the instance path as $2, +# a flag whether the instance dir was newly created (0 - no, 1 - yes) in $3, +# and user name in $4. +# +# The following section will copy the contents of /etc/skel if this is a +# newly created home directory. +if [ "$3" = 1 ]; then + # This line will fix the labeling on all newly created directories + [ -x /sbin/restorecon ] && /sbin/restorecon "$1" + user="$4" + passwd=$(getent passwd "$user") + homedir=$(echo "$passwd" | cut -f6 -d":") + if [ "$1" = "$homedir" ]; then + gid=$(echo "$passwd" | cut -f4 -d":") + cp -rT /etc/skel "$homedir" + chown -R "$user":"$gid" "$homedir" + mask=$(awk '/^UMASK/{gsub("#.*$", "", $2); print $2; exit}' /etc/login.defs) + mode=$(printf "%o" $((0777 & ~$mask))) + chmod ${mode:-700} "$homedir" + [ -x /sbin/restorecon ] && /sbin/restorecon -R "$homedir" + fi +fi + +exit 0 diff --git a/beagle/debian-rfs/etc/security/pam_env.conf b/beagle/debian-rfs/etc/security/pam_env.conf new file mode 100644 index 0000000..d0ba35c --- /dev/null +++ b/beagle/debian-rfs/etc/security/pam_env.conf @@ -0,0 +1,73 @@ +# +# This is the configuration file for pam_env, a PAM module to load in +# a configurable list of environment variables for a +# +# The original idea for this came from Andrew G. Morgan ... +#<quote> +# Mmm. Perhaps you might like to write a pam_env module that reads a +# default environment from a file? I can see that as REALLY +# useful... Note it would be an "auth" module that returns PAM_IGNORE +# for the auth part and sets the environment returning PAM_SUCCESS in +# the setcred function... +#</quote> +# +# What I wanted was the REMOTEHOST variable set, purely for selfish +# reasons, and AGM didn't want it added to the SimpleApps login +# program (which is where I added the patch). So, my first concern is +# that variable, from there there are numerous others that might/would +# be useful to be set: NNTPSERVER, LESS, PATH, PAGER, MANPAGER ..... +# +# Of course, these are a different kind of variable than REMOTEHOST in +# that they are things that are likely to be configured by +# administrators rather than set by logging in, how to treat them both +# in the same config file? +# +# Here is my idea: +# +# Each line starts with the variable name, there are then two possible +# options for each variable DEFAULT and OVERRIDE. +# DEFAULT allows and administrator to set the value of the +# variable to some default value, if none is supplied then the empty +# string is assumed. The OVERRIDE option tells pam_env that it should +# enter in its value (overriding the default value) if there is one +# to use. OVERRIDE is not used, "" is assumed and no override will be +# done. +# +# VARIABLE [DEFAULT=[value]] [OVERRIDE=[value]] +# +# (Possibly non-existent) environment variables may be used in values +# using the ${string} syntax and (possibly non-existent) PAM_ITEMs may +# be used in values using the @{string} syntax. Both the $ and @ +# characters can be backslash escaped to be used as literal values +# values can be delimited with "", escaped " not supported. +# Note that many environment variables that you would like to use +# may not be set by the time the module is called. +# For example, HOME is used below several times, but +# many PAM applications don't make it available by the time you need it. +# +# +# First, some special variables +# +# Set the REMOTEHOST variable for any hosts that are remote, default +# to "localhost" rather than not being set at all +#REMOTEHOST DEFAULT=localhost OVERRIDE=@{PAM_RHOST} +# +# Set the DISPLAY variable if it seems reasonable +#DISPLAY DEFAULT=${REMOTEHOST}:0.0 OVERRIDE=${DISPLAY} +# +# +# Now some simple variables +# +#PAGER DEFAULT=less +#MANPAGER DEFAULT=less +#LESS DEFAULT="M q e h15 z23 b80" +#NNTPSERVER DEFAULT=localhost +#PATH DEFAULT=${HOME}/bin:/usr/local/bin:/bin\ +#:/usr/bin:/usr/local/bin/X11:/usr/bin/X11 +# +# silly examples of escaped variables, just to show how they work. +# +#DOLLAR DEFAULT=\$ +#DOLLARDOLLAR DEFAULT= OVERRIDE=\$${DOLLAR} +#DOLLARPLUS DEFAULT=\${REMOTEHOST}${REMOTEHOST} +#ATSIGN DEFAULT="" OVERRIDE=\@ diff --git a/beagle/debian-rfs/etc/security/sepermit.conf b/beagle/debian-rfs/etc/security/sepermit.conf new file mode 100644 index 0000000..951f3df --- /dev/null +++ b/beagle/debian-rfs/etc/security/sepermit.conf @@ -0,0 +1,11 @@ +# /etc/security/sepermit.conf +# +# Each line contains either: +# - an user name +# - a group name, with @group syntax +# - a SELinux user name, with %seuser syntax +# Each line can contain optional arguments separated by : +# The possible arguments are: +# - exclusive - only single login session will +# be allowed for the user and the user's processes +# will be killed on logout diff --git a/beagle/debian-rfs/etc/security/time.conf b/beagle/debian-rfs/etc/security/time.conf new file mode 100644 index 0000000..c7b7989 --- /dev/null +++ b/beagle/debian-rfs/etc/security/time.conf @@ -0,0 +1,65 @@ +# this is an example configuration file for the pam_time module. Its syntax +# was initially based heavily on that of the shadow package (shadow-960129). +# +# the syntax of the lines is as follows: +# +# services;ttys;users;times +# +# white space is ignored and lines maybe extended with '\\n' (escaped +# newlines). As should be clear from reading these comments, +# text following a '#' is ignored to the end of the line. +# +# the combination of individual users/terminals etc is a logic list +# namely individual tokens that are optionally prefixed with '!' (logical +# not) and separated with '&' (logical and) and '|' (logical or). +# +# services +# is a logic list of PAM service names that the rule applies to. +# +# ttys +# is a logic list of terminal names that this rule applies to. +# +# users +# is a logic list of users or a netgroup of users to whom this +# rule applies. +# +# NB. For these items the simple wildcard '*' may be used only once. +# +# times +# the format here is a logic list of day/time-range +# entries the days are specified by a sequence of two character +# entries, MoTuSa for example is Monday Tuesday and Saturday. Note +# that repeated days are unset MoMo = no day, and MoWk = all weekdays +# bar Monday. The two character combinations accepted are +# +# Mo Tu We Th Fr Sa Su Wk Wd Al +# +# the last two being week-end days and all 7 days of the week +# respectively. As a final example, AlFr means all days except Friday. +# +# each day/time-range can be prefixed with a '!' to indicate "anything +# but" +# +# The time-range part is two 24-hour times HHMM separated by a hyphen +# indicating the start and finish time (if the finish time is smaller +# than the start time it is deemed to apply on the following day). +# +# for a rule to be active, ALL of service+ttys+users must be satisfied +# by the applying process. +# + +# +# Here is a simple example: running blank on tty* (any ttyXXX device), +# the users 'you' and 'me' are denied service all of the time +# + +#blank;tty* & !ttyp*;you|me;!Al0000-2400 + +# Another silly example, user 'root' is denied xsh access +# from pseudo terminals at the weekend and on mondays. + +#xsh;ttyp*;root;!WdMo0000-2400 + +# +# End of example file. +# diff --git a/beagle/debian-rfs/etc/skel/.bash_logout b/beagle/debian-rfs/etc/skel/.bash_logout new file mode 100644 index 0000000..de4f5f7 --- /dev/null +++ b/beagle/debian-rfs/etc/skel/.bash_logout @@ -0,0 +1,7 @@ +# ~/.bash_logout: executed by bash(1) when login shell exits. + +# when leaving the console clear the screen to increase privacy + +if [ "$SHLVL" = 1 ]; then + [ -x /usr/bin/clear_console ] && /usr/bin/clear_console -q +fi diff --git a/beagle/debian-rfs/etc/skel/.bashrc b/beagle/debian-rfs/etc/skel/.bashrc new file mode 100644 index 0000000..e96b37f --- /dev/null +++ b/beagle/debian-rfs/etc/skel/.bashrc @@ -0,0 +1,99 @@ +# ~/.bashrc: executed by bash(1) for non-login shells. +# see /usr/share/doc/bash/examples/startup-files (in the package bash-doc) +# for examples + +# If not running interactively, don't do anything +[ -z "$PS1" ] && return + +# don't put duplicate lines in the history. See bash(1) for more options +# don't overwrite GNU Midnight Commander's setting of `ignorespace'. +HISTCONTROL=$HISTCONTROL${HISTCONTROL+:}ignoredups +# ... or force ignoredups and ignorespace +HISTCONTROL=ignoreboth + +# append to the history file, don't overwrite it +shopt -s histappend + +# for setting history length see HISTSIZE and HISTFILESIZE in bash(1) + +# check the window size after each command and, if necessary, +# update the values of LINES and COLUMNS. +shopt -s checkwinsize + +# make less more friendly for non-text input files, see lesspipe(1) +#[ -x /usr/bin/lesspipe ] && eval "$(SHELL=/bin/sh lesspipe)" + +# set variable identifying the chroot you work in (used in the prompt below) +if [ -z "$debian_chroot" ] && [ -r /etc/debian_chroot ]; then + debian_chroot=$(cat /etc/debian_chroot) +fi + +# set a fancy prompt (non-color, unless we know we "want" color) +case "$TERM" in + xterm-color) color_prompt=yes;; +esac + +# uncomment for a colored prompt, if the terminal has the capability; turned +# off by default to not distract the user: the focus in a terminal window +# should be on the output of commands, not on the prompt +#force_color_prompt=yes + +if [ -n "$force_color_prompt" ]; then + if [ -x /usr/bin/tput ] && tput setaf 1 >&/dev/null; then + # We have color support; assume it's compliant with Ecma-48 + # (ISO/IEC-6429). (Lack of such support is extremely rare, and such + # a case would tend to support setf rather than setaf.) + color_prompt=yes + else + color_prompt= + fi +fi + +if [ "$color_prompt" = yes ]; then + PS1='${debian_chroot:+($debian_chroot)}\[\033[01;32m\]\u@\h\[\033[00m\]:\[\033[01;34m\]\w\[\033[00m\]\$ ' +else + PS1='${debian_chroot:+($debian_chroot)}\u@\h:\w\$ ' +fi +unset color_prompt force_color_prompt + +# If this is an xterm set the title to user@host:dir +case "$TERM" in +xterm*|rxvt*) + PS1="\[\e]0;${debian_chroot:+($debian_chroot)}\u@\h: \w\a\]$PS1" + ;; +*) + ;; +esac + +# enable color support of ls and also add handy aliases +if [ -x /usr/bin/dircolors ]; then + test -r ~/.dircolors && eval "$(dircolors -b ~/.dircolors)" || eval "$(dircolors -b)" + alias ls='ls --color=auto' + #alias dir='dir --color=auto' + #alias vdir='vdir --color=auto' + + #alias grep='grep --color=auto' + #alias fgrep='fgrep --color=auto' + #alias egrep='egrep --color=auto' +fi + +# some more ls aliases +#alias ll='ls -l' +#alias la='ls -A' +#alias l='ls -CF' + +# Alias definitions. +# You may want to put all your additions into a separate file like +# ~/.bash_aliases, instead of adding them here directly. +# See /usr/share/doc/bash-doc/examples in the bash-doc package. + +if [ -f ~/.bash_aliases ]; then + . ~/.bash_aliases +fi + +# enable programmable completion features (you don't need to enable +# this, if it's already enabled in /etc/bash.bashrc and /etc/profile +# sources /etc/bash.bashrc). +if [ -f /etc/bash_completion ] && ! shopt -oq posix; then + . /etc/bash_completion +fi diff --git a/beagle/debian-rfs/etc/skel/.profile b/beagle/debian-rfs/etc/skel/.profile new file mode 100644 index 0000000..c9db459 --- /dev/null +++ b/beagle/debian-rfs/etc/skel/.profile @@ -0,0 +1,22 @@ +# ~/.profile: executed by the command interpreter for login shells. +# This file is not read by bash(1), if ~/.bash_profile or ~/.bash_login +# exists. +# see /usr/share/doc/bash/examples/startup-files for examples. +# the files are located in the bash-doc package. + +# the default umask is set in /etc/profile; for setting the umask +# for ssh logins, install and configure the libpam-umask package. +#umask 022 + +# if running bash +if [ -n "$BASH_VERSION" ]; then + # include .bashrc if it exists + if [ -f "$HOME/.bashrc" ]; then + . "$HOME/.bashrc" + fi +fi + +# set PATH so it includes user's private bin if it exists +if [ -d "$HOME/bin" ] ; then + PATH="$HOME/bin:$PATH" +fi diff --git a/beagle/debian-rfs/etc/terminfo/README b/beagle/debian-rfs/etc/terminfo/README new file mode 100644 index 0000000..2b3e139 --- /dev/null +++ b/beagle/debian-rfs/etc/terminfo/README @@ -0,0 +1,2 @@ +This directory is for system-local terminfo descriptions. By default, ncurses +will search this directory first, then /lib/terminfo, then /usr/share/terminfo. diff --git a/beagle/debian-rfs/lib/init/bootclean.sh b/beagle/debian-rfs/lib/init/bootclean.sh new file mode 100644 index 0000000..02e6cef --- /dev/null +++ b/beagle/debian-rfs/lib/init/bootclean.sh @@ -0,0 +1,190 @@ +#!/bin/sh +# +# bootclean +# +# Clean /tmp. Clean /var/run and /var/lock if not mounted as tmpfs +# +# DO NOT RUN AFTER S:55bootmisc.sh and do not run this script directly +# in runlevel S. Instead write an initscript to call it. +# + +. /lib/init/vars.sh + +. /lib/lsb/init-functions + +# Should be called outside verbose message block +mkflagfile() +{ + # Prevent symlink attack (See #264234.) + [ -L "$1" ] && log_warning_msg "bootclean: Deleting symbolic link '$1'." + rm -f "$1" || { log_failure_msg "bootclean: Failure deleting '$1'." ; return 1 ; } + # No user processes should be running, so no one should be able to introduce + # a symlink here. As an extra precaution, set noclobber. + set -o noclobber + :> "$1" || { log_failure_msg "bootclean: Failure creating '$1'." ; return 1 ; } + return 0 +} + +clean_tmp() { + cd /tmp || { log_failure_msg "bootclean: Could not cd to /tmp." ; return 1 ; } + + # + # Only clean out /tmp if it is world-writable. This ensures + # it really is a/the temp directory we're cleaning. + # + [ "$(find . -maxdepth 0 -perm -002)" = "." ] || return 0 + + if [ ! "$TMPTIME" ] + then + log_warning_msg "Using default TMPTIME 0." + TMPTIME=0 + fi + + [ "$VERBOSE" = no ] || log_action_begin_msg "Cleaning /tmp" + + # + # Remove regardless of TMPTIME setting + # + rm -f .X*-lock + + # + # Don't clean remaining files if TMPTIME is negative or 'infinite' + # + case "$TMPTIME" in + -*|infinite|infinity) + [ "$VERBOSE" = no ] || log_action_end_msg 0 "skipped" + return 0 + ;; + esac + + # + # Wipe /tmp, excluding system files, but including lost+found + # + # If TMPTIME is set to 0, we do not use any ctime expression + # at all, so we can also delete files with timestamps + # in the future! + # + if [ "$TMPTIME" = 0 ] + then + TEXPR="" + DEXPR="" + else + TEXPR="-mtime +$TMPTIME -ctime +$TMPTIME -atime +$TMPTIME" + DEXPR="-mtime +$TMPTIME -ctime +$TMPTIME" + fi + + EXCEPT='! -name . + ! ( -path ./lost+found -uid 0 ) + ! ( -path ./quota.user -uid 0 ) + ! ( -path ./aquota.user -uid 0 ) + ! ( -path ./quota.group -uid 0 ) + ! ( -path ./aquota.group -uid 0 ) + ! ( -path ./.journal -uid 0 ) + ! ( -path ./.clean -uid 0 ) + ! ( -path './...security*' -uid 0 )' + + mkflagfile /tmp/.clean || return 1 + + report_err() + { + if [ "$VERBOSE" = no ] + then + log_failure_msg "bootclean: Failure cleaning /tmp." + else + log_action_end_msg 1 "bootclean: Failure cleaning /tmp" + fi + } + + # + # First remove all old files... + # + find . -depth -xdev $TEXPR $EXCEPT ! -type d -delete \ + || { report_err ; return 1 ; } + + # + # ...and then all empty directories + # + find . -depth -xdev $DEXPR $EXCEPT -type d -empty -delete \ + || { report_err ; return 1 ; } + + [ "$VERBOSE" = no ] || log_action_end_msg 0 + return 0 +} + +clean_lock() { + if [ yes = "$RAMLOCK" ] ; then + return 0 + fi + + cd /var/lock || { log_failure_msg "bootclean: Could not cd to /var/lock." ; return 1 ; } + + [ "$VERBOSE" = no ] || log_action_begin_msg "Cleaning /var/lock" + report_err() + { + if [ "$VERBOSE" = no ] + then + log_failure_msg "bootclean: Failure cleaning /var/lock." + else + log_action_end_msg 1 "bootclean: Failure cleaning /var/lock" + fi + } + find . ! -type d -delete \ + || { report_err ; return 1 ; } + [ "$VERBOSE" = no ] || log_action_end_msg 0 + mkflagfile /var/lock/.clean || return 1 + return 0 +} + +clean_run() { + if [ yes = "$RAMRUN" ] ; then + return 0 + fi + + cd /var/run || { log_action_end_msg 1 "bootclean: Could not cd to /var/run." ; return 1 ; } + + [ "$VERBOSE" = no ] || log_action_begin_msg "Cleaning /var/run" + report_err() + { + if [ "$VERBOSE" = no ] + then + log_failure_msg "bootclean: Failure cleaning /var/run." + else + log_action_end_msg 1 "bootclean: Failure cleaning /var/run" + fi + } + find . ! -xtype d ! -name utmp ! -name innd.pid -delete \ + || { report_err ; return 1 ; } + [ "$VERBOSE" = no ] || log_action_end_msg 0 + mkflagfile /var/run/.clean || return 1 + return 0 +} + +which find >/dev/null 2>&1 || exit 1 +log_begin_msg "Cleaning up temporary files..." + +# If there are flag files that have not been created by root +# then remove them +for D in /tmp /var/run /var/lock +do + if [ -f $D/.clean ] + then + which stat >/dev/null 2>&1 && cleanuid="$(stat -c %u $D/.clean)" + # Poor's man stat %u, since stat (and /usr) might not be + # available in some bootup stages + [ "$cleanuid" ] || cleanuid="$(find $D/.clean -printf %U)" + [ "$cleanuid" ] || { log_failure_msg "bootclean: Could not stat '$D/.clean'." ; exit 1 ; } + if [ "$cleanuid" -ne 0 ] + then + rm -f $D/.clean || { log_failure_msg "bootclean: Could not delete '$D/.clean'." ; exit 1 ; } + fi + fi +done + +[ -f /tmp/.clean ] && [ -f /var/run/.clean ] && [ -f /var/lock/.clean ] && { log_end_msg 0 ; exit 0 ; } + +ES=0 +[ -d /tmp ] && ! [ -f /tmp/.clean ] && { clean_tmp || ES=1 ; } +[ -d /var/run ] && ! [ -f /var/run/.clean ] && { clean_run || ES=1 ; } +[ -d /var/lock ] && ! [ -f /var/lock/.clean ] && { clean_lock || ES=1 ; } +log_end_msg $ES +exit $ES diff --git a/beagle/debian-rfs/lib/init/mount-functions.sh b/beagle/debian-rfs/lib/init/mount-functions.sh new file mode 100644 index 0000000..007d127 --- /dev/null +++ b/beagle/debian-rfs/lib/init/mount-functions.sh @@ -0,0 +1,165 @@ +# +# Functions used by several mount* scripts in initscripts package +# +# Sourcer must source /lib/lsb/init-functions.sh + +# $1: directory +is_empty_dir() { + for FILE in $1/* $1/.* + do + case "$FILE" in + "$1/.*") return 0 ;; + "$1/*"|"$1/."|"$1/..") continue ;; + *) return 1 ;; + esac + done + return 0 +} + + +selinux_enabled () { + which selinuxenabled >/dev/null 2>&1 && selinuxenabled +} + + +# Called before mtab is writable to mount kernel and device file systems. +# $1: file system type +# $2: alternative file system type (or empty string if none) +# $3: mount point +# $4: mount device name +# $5... : extra mount program options +domount () { + MTPT="$3" + KERNEL="$(uname -s)" + # Figure out filesystem type + FSTYPE= + if [ "$1" = proc ] + then + case "$KERNEL" in + Linux|GNU) FSTYPE=proc ;; + *FreeBSD) FSTYPE=linprocfs ;; + *) FSTYPE=procfs ;; + esac + elif [ "$1" = tmpfs ] + then # always accept tmpfs, to mount /lib/init/rw before /proc + FSTYPE=$1 + elif grep -E -qs "$1\$" /proc/filesystems + then + FSTYPE=$1 + elif grep -E -qs "$2\$" /proc/filesystems + then + FSTYPE=$2 + fi + + if [ ! "$FSTYPE" ] + then + if [ "$2" ] + then + log_warning_msg "Filesystem types '$1' and '$2' are not supported. Skipping mount." + else + log_warning_msg "Filesystem type '$1' is not supported. Skipping mount." + fi + return + fi + + # We give file system type as device name if not specified as + # an argument + if [ "$4" ] ; then + DEVNAME=$4 + else + DEVNAME=$FSTYPE + fi + + # Get the options from /etc/fstab. + OPTS= + if [ -f /etc/fstab ] + then + exec 9<&0 </etc/fstab + + while read TAB_DEV TAB_MTPT TAB_FSTYPE TAB_OPTS TAB_REST + do + case "$TAB_DEV" in (""|\#*) continue ;; esac + [ "$MTPT" = "$TAB_MTPT" ] || continue + [ "$FSTYPE" = "$TAB_FSTYPE" ] || continue + case "$TAB_OPTS" in + noauto|*,noauto|noauto,*|*,noauto,*) + exec 0<&9 9<&- + return + ;; + ?*) + OPTS="-o$TAB_OPTS" + ;; + esac + break + done + + exec 0<&9 9<&- + fi + + if [ ! -d "$MTPT" ] + then + log_warning_msg "Mount point '$MTPT' does not exist. Skipping mount." + return + fi + + if mountpoint -q "$MTPT" + then + return # Already mounted + fi + + if [ "$VERBOSE" != "no" ]; then + is_empty_dir "$MTPT" >/dev/null 2>&1 || log_warning_msg "Files under mount point '$MTPT' will be hidden." + fi + mount -n -t $FSTYPE $5 $OPTS $DEVNAME $MTPT + if [ "$FSTYPE" = "tmpfs" -a -x /sbin/restorecon ]; then + /sbin/restorecon $MTPT + fi +} + +# +# Preserve /var/run and /var/lock mountpoints +# +pre_mountall () +{ + # We may end up mounting something over top of /var, either directly + # or because /var is a symlink to something that's mounted. So keep + # copies of the /var/run and /var/lock mounts elsewhere on the root + # filesystem so they can be moved back. + if [ yes = "$RAMRUN" ] ; then + mkdir /lib/init/rw/var.run + mount -n --bind /var/run /lib/init/rw/var.run + fi + if [ yes = "$RAMLOCK" ] ; then + mkdir /lib/init/rw/var.lock + mount -n --bind /var/lock /lib/init/rw/var.lock + fi +} + +# +# Restore /var/run and /var/lock mountpoints if something was mounted +# as /var/. Avoid mounting them back over themselves if nothing was +# mounted as /var/ by checking if /var/run/ and /var/lock/ are still +# mount points. Enabling RAMRUN and RAMLOCK while listing /var/run or +# /var/lock in /etc/fstab is not supported. +# +post_mountall () +{ + if [ yes = "$RAMRUN" ] ; then + [ -d /var/run ] || mkdir /var/run + if mountpoint -q /var/run ; then + umount /lib/init/rw/var.run + else + mount -n --move /lib/init/rw/var.run /var/run + fi + rmdir /lib/init/rw/var.run + fi + if [ yes = "$RAMLOCK" ] ; then + [ -d /var/lock ] || mkdir /var/lock + if mountpoint -q /var/lock ; then + umount /lib/init/rw/var.lock + else + mount -n --move /lib/init/rw/var.lock /var/lock + fi + rmdir /lib/init/rw/var.lock + fi +} diff --git a/beagle/debian-rfs/lib/init/splash-functions-base b/beagle/debian-rfs/lib/init/splash-functions-base new file mode 100644 index 0000000..8319dab --- /dev/null +++ b/beagle/debian-rfs/lib/init/splash-functions-base @@ -0,0 +1,93 @@ +# This script contains hooks to allow init scripts to control +# a splash program during boot and shutdown. +# +# To override these, provide a /lib/init/splash-functions scripts +# with new functions (it is sourced at the end of this file) +# +# Note that scripts have a number of constraints: +# 1) Should avoid using any binaries not found in the initramfs so that +# the same hooks can be used there. +# 2) This also means that bashisms can't be used. +# 3) Scripts must work when running under "set -e". +# 4) "local" should be used to avoid overwriting global variables. + + +# Detects whether a splash is running +splash_running() { return 1; } + +# Tells the splash to quit +splash_stop() { return 0; } + +# Tells the splash to start if not already running +splash_start() { return 1; } + +# Tells the splash the current boot/shutdown progress +# $1 contains the progress as a percentage value between -100 and 100 +# Positive values indicate boot progress +# Negative values indicate shutdown progress +splash_progress() +{ + local progress tmp + progress="$1" + + splash_running || return 0 + + # Sanity check step 1 - must match ^-[0-9]*$ + tmp="$progress" + + # Strip trailing numbers + while [ "${tmp%[0-9]}" != "$tmp" ]; do + tmp="${tmp%[0-9]}" + done + + # Now "-" or no characters should remain + if [ -n "$tmp" ] && [ "$tmp" != "-" ]; then + return 1 + fi + + # Sanity check step 2 - check for values >= -100 and <= 100 + if [ "$progress" != "${progress#-}" ]; then + # Negative value + if [ "$progress" -lt -100 ]; then + return 1 + fi + else + # Positive value + if [ "$progress" -gt 100 ]; then + return 1 + fi + fi + + # Sanity checks passed + custom_splash_progress "$progress" || return 1 + return 0 +} + +# Customizations should replace this function instead of splash_progress above +custom_splash_progress() { return 0; } + + +# Tells the splash that a task which may take an unknown amount of +# time has started (such as a fsck). This is useful to make sure the +# splash doesn't time out and to give visual feedback to the user. +splash_start_indefinite() { return 0; } + +# Tells the splash that an indefinite task is done +splash_stop_indefinite() { return 0; } + +# Gets user input from a splash +# $1 contains the text for the user prompt +# $2 describes the type of input: +# regular = regular input, e.g. a user name +# password = input which should not be echoed to screen, e.g. a password +# enter = A "press enter to continue" type of prompt +# +# Returns 1 if no user input is possible +# Should be called with an alternative non-splash input fallback: +# INPUT="$(splash_user_input "Enter password:" password)" || \ +# INPUT="$(manual_method)" +splash_user_input() { return 1; } + +# Allow these functions to be overridden with custom scripts. This is +# the official API hook. +if [ -e /lib/init/splash-functions ] ; then . /lib/init/splash-functions ; fi diff --git a/beagle/debian-rfs/lib/init/swap-functions.sh b/beagle/debian-rfs/lib/init/swap-functions.sh new file mode 100644 index 0000000..48a2326 --- /dev/null +++ b/beagle/debian-rfs/lib/init/swap-functions.sh @@ -0,0 +1,28 @@ +# +# Functions that assist in turning on swap. +# + +# $1 is a string used to log the type of swap expected to be activated +swaponagain() { + # + # Execute swapon command again to pick up any swap partitions + # that have shown up since the last swapon. + # + # Ignore 255 status due to swap already being enabled + # + if [ "$NOSWAP" = yes ] + then + [ "$VERBOSE" = no ] || log_warning_msg "Not activating swap as requested via bootoption noswap." + else + if [ "$VERBOSE" = no ] + then + log_action_begin_msg "Activating $1 swap" + swapon -a -e 2>/dev/null || : # Stifle "Device or resource busy" + log_action_end_msg 0 + else + log_daemon_msg "Will now activate $1 swap" + swapon -a -e -v + log_action_end_msg $? + fi + fi +} diff --git a/beagle/debian-rfs/lib/init/usplash-fsck-functions.sh b/beagle/debian-rfs/lib/init/usplash-fsck-functions.sh new file mode 100644 index 0000000..7235e20 --- /dev/null +++ b/beagle/debian-rfs/lib/init/usplash-fsck-functions.sh @@ -0,0 +1,178 @@ +# +# Functions for reporting fsck progress in usplash +# +# (C) 2008 Canonical Ltd. +# Author: Martin Pitt <martin.pitt@ubuntu.com> +# + +# convert a "pass cur max" progress triple from fsck to a progress percentage +# based on calc_percent() from e2fsck +fsck_progress_to_percent() { + if [ $1 = 1 ]; then + PERCENT=$(($2 * 70 / $3)) + elif [ $1 = 2 ]; then + PERCENT=$(($2 * 20 / $3 + 70)) + elif [ $1 = 3 ]; then + PERCENT=$(($2 * 2 / $3 + 90)) + elif [ $1 = 4 ]; then + PERCENT=$(($2 * 3 / $3 + 92)) + elif [ $1 = 5 ]; then + PERCENT=$(($2 * 5 / $3 + 95)) + else + PERCENT=100 + fi +} + +# read current fsck status ($PASS, $CUR, $MAX) from file descriptor 4 +# this assumes that fsck was started in the background ($!) +get_fsck_status() +{ + local a b c S + + unset a + # only consider the last line + while true; do + PASS=$a + CUR=$b + MAX=$c + read a b c rest <&4 + if [ -n "$PASS" ] && [ -z "$a" ]; then + break; + fi + + # if we did not read anything, check if the process is still + # actually running, or just waiting to be reaped + if [ -z "$PASS" ] && [ -z "$a" ]; then + S=`ps -o state --no-headers -p $!` || break + [ "$S" != "Z" ] || break + # do not spin while waiting for fsck to start up + sleep 0.1 + fi + done +} + +# Set $NAME to a human readable description of which partitions are currently +# being checked. Set $CLEAN if this is only a routine check on clean +# partitions which can be skipped. +get_checked_names () +{ + local DEVS DUMP LABEL + + FSCKPROCS=$(ps --no-headers -C 'fsck.ext2 fsck.ext3 fsck.ext4 fsck.ext4dev' -o pid,args | grep /dev) + DEVS=$(echo "$FSCKPROCS" | sed 's_^.*\(/dev/[^[:space:]]*\).*$_\1_') + FSCKPIDS=$(echo "$FSCKPROCS" | sed 's_^[[:space:]]*\([[:digit:]]\+\).*$_\1_') + + if [ -z "$DEVS" ]; then + unset NAME + return 0 + fi + + CLEAN=1 + unset NAME + for DEV in $DEVS; do + DUMP=$(dumpe2fs -h $DEV) + if ! echo "$DUMP" | grep -q 'state:[[:space:]]*clean$'; then + unset CLEAN + fi + + LABEL=$(blkid $DEV | sed -rn '/LABEL="([^"]+)"/ { s/^.*LABEL="//; s/".*$//; p }') + [ -z "$NAME" ] || NAME="$NAME, " + if [ -n "$LABEL" ]; then + NAME="$NAME$LABEL ($DEV)" + else + NAME="$NAME$DEV" + fi + done +} + +# Return true if usplash is active +usplash_running() { + if pidof usplash ; then + return 0 + else + return 1 + fi +} + +# Read fsck progress from file $1 and display progress in usplash. +usplash_progress() { + exec 4<$1 + unset CANCEL + ESCAPE=`/bin/echo -ne "\x1B"` + FIRST=1 + PREVPERCENT=0 + + while true; do + sleep 0.5 + get_fsck_status + [ -n "$PASS" ] || break + + fsck_progress_to_percent "$PASS" "$CUR" "$MAX" + + # check if fsck advanced to the next drive + if [ "$PREVPERCENT" -gt "$PERCENT" ]; then + if [ -n "$CANCEL" ]; then + usplash_write "STATUS skip " + else + usplash_write "STATUS " + fi + FIRST=1 + fi + PREVPERCENT=$PERCENT + + # lazy initialization of output and progress report on the first + # progress line that we receive; this avoids starting the output + # for clean or non-ext[234] partitions + if [ -n "$FIRST" ]; then + usplash_write "TIMEOUT 0" + + # show which device is being checked + get_checked_names + [ -n "$NAME" ] || break + + usplash_write "VERBOSE on" + if [ "$CLEAN" ]; then + usplash_write "TEXT Routine check of drives: $NAME..." + usplash_write "TEXT Press ESC to skip" + else + usplash_write "TEXT Unclean shutdown, checking drives:" + usplash_write "TEXT $NAME..." + fi + + unset FIRST + fi + + usplash_write "STATUS $PERCENT% (stage $PASS/5, $CUR/$MAX) " + echo "Checking drive $NAME: $PERCENT% (stage $PASS/5, $CUR/$MAX)" >/dev/console + + # ESC interrupts check for clean drives + if [ -n "$CLEAN" ]; then + if FAIL_NO_USPLASH=1 usplash_write "INPUTCHAR"; then + read ch < /dev/.initramfs/usplash_outfifo + if [ "$ch" = "$ESCAPE" ]; then + kill $FSCKPIDS + CANCEL=1 + continue # there might be more drives, so do not break + fi + fi + fi + done + + if [ -n "$CANCEL" ]; then + usplash_write "STATUS skip " + else + usplash_write "STATUS " + fi + usplash_write "VERBOSE default" + usplash_write "TEXT Drive checks finished." + usplash_write "TIMEOUT 15" + wait %1 # to collect fsck's exit code + EXITCODE=$? + [ -n "$CANCEL" ] && FSCKCODE=0 || FSCKCODE=$EXITCODE + if [ "$FSCKCODE" -gt 1 ]; then + # non-correctable failure which requires sulogin: quit usplash and + # restore stdin/out/err + usplash_write "QUIT" + exec </dev/console >/dev/console 2>/dev/console + fi +} diff --git a/beagle/debian-rfs/lib/init/vars.sh b/beagle/debian-rfs/lib/init/vars.sh new file mode 100644 index 0000000..1b4769b --- /dev/null +++ b/beagle/debian-rfs/lib/init/vars.sh @@ -0,0 +1,39 @@ +# +# Set rcS vars +# + +# Source conffile +if [ -f /etc/default/rcS ]; then + . /etc/default/rcS +fi + +# Parse kernel command line +if [ -r /proc/cmdline ]; then + for ARG in $(cat /proc/cmdline); do + case $ARG in + + # check for bootoption 'noswap' and do not activate swap + # partitions/files when it is set. + noswap) + NOSWAP=yes + break + ;; + + # Accept the same 'quiet' option as the kernel, but only + # during boot and shutdown. Only use this rule when the + # variables set by init.d/rc is present. + quiet) + if [ "$RUNLEVEL" ] && [ "$PREVLEVEL" ] ; then + VERBOSE="no" + fi + break + ;; + esac + done +fi + +# But allow both rcS and the kernel options 'quiet' to be overrided +# when INIT_VERBOSE=yes is used as well. +if [ "$INIT_VERBOSE" ] ; then + VERBOSE="$INIT_VERBOSE" +fi diff --git a/beagle/debian-rfs/lib/ld-2.11.2.so b/beagle/debian-rfs/lib/ld-2.11.2.so Binary files differnew file mode 100755 index 0000000..9cb4009 --- /dev/null +++ b/beagle/debian-rfs/lib/ld-2.11.2.so diff --git a/beagle/debian-rfs/lib/ld-linux.so.3 b/beagle/debian-rfs/lib/ld-linux.so.3 new file mode 120000 index 0000000..e165495 --- /dev/null +++ b/beagle/debian-rfs/lib/ld-linux.so.3 @@ -0,0 +1 @@ +ld-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libBrokenLocale-2.11.2.so b/beagle/debian-rfs/lib/libBrokenLocale-2.11.2.so Binary files differnew file mode 100644 index 0000000..47b09bf --- /dev/null +++ b/beagle/debian-rfs/lib/libBrokenLocale-2.11.2.so diff --git a/beagle/debian-rfs/lib/libBrokenLocale.so.1 b/beagle/debian-rfs/lib/libBrokenLocale.so.1 new file mode 120000 index 0000000..3625f19 --- /dev/null +++ b/beagle/debian-rfs/lib/libBrokenLocale.so.1 @@ -0,0 +1 @@ +libBrokenLocale-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libSegFault.so b/beagle/debian-rfs/lib/libSegFault.so Binary files differnew file mode 100644 index 0000000..6a6eb31 --- /dev/null +++ b/beagle/debian-rfs/lib/libSegFault.so diff --git a/beagle/debian-rfs/lib/libacl.so.1 b/beagle/debian-rfs/lib/libacl.so.1 new file mode 120000 index 0000000..09bf057 --- /dev/null +++ b/beagle/debian-rfs/lib/libacl.so.1 @@ -0,0 +1 @@ +libacl.so.1.1.0
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libacl.so.1.1.0 b/beagle/debian-rfs/lib/libacl.so.1.1.0 Binary files differnew file mode 100644 index 0000000..2d829c0 --- /dev/null +++ b/beagle/debian-rfs/lib/libacl.so.1.1.0 diff --git a/beagle/debian-rfs/lib/libanl-2.11.2.so b/beagle/debian-rfs/lib/libanl-2.11.2.so Binary files differnew file mode 100644 index 0000000..76ebc70 --- /dev/null +++ b/beagle/debian-rfs/lib/libanl-2.11.2.so diff --git a/beagle/debian-rfs/lib/libanl.so.1 b/beagle/debian-rfs/lib/libanl.so.1 new file mode 120000 index 0000000..b4ba076 --- /dev/null +++ b/beagle/debian-rfs/lib/libanl.so.1 @@ -0,0 +1 @@ +libanl-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libattr.so.1 b/beagle/debian-rfs/lib/libattr.so.1 new file mode 120000 index 0000000..3bf0788 --- /dev/null +++ b/beagle/debian-rfs/lib/libattr.so.1 @@ -0,0 +1 @@ +libattr.so.1.1.0
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libattr.so.1.1.0 b/beagle/debian-rfs/lib/libattr.so.1.1.0 Binary files differnew file mode 100644 index 0000000..3d7238c --- /dev/null +++ b/beagle/debian-rfs/lib/libattr.so.1.1.0 diff --git a/beagle/debian-rfs/lib/libblkid.so.1 b/beagle/debian-rfs/lib/libblkid.so.1 new file mode 120000 index 0000000..e4f69c7 --- /dev/null +++ b/beagle/debian-rfs/lib/libblkid.so.1 @@ -0,0 +1 @@ +libblkid.so.1.1.0
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libblkid.so.1.1.0 b/beagle/debian-rfs/lib/libblkid.so.1.1.0 Binary files differnew file mode 100644 index 0000000..c89d95f --- /dev/null +++ b/beagle/debian-rfs/lib/libblkid.so.1.1.0 diff --git a/beagle/debian-rfs/lib/libbz2.so.1 b/beagle/debian-rfs/lib/libbz2.so.1 new file mode 120000 index 0000000..e743541 --- /dev/null +++ b/beagle/debian-rfs/lib/libbz2.so.1 @@ -0,0 +1 @@ +libbz2.so.1.0.4
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libbz2.so.1.0 b/beagle/debian-rfs/lib/libbz2.so.1.0 new file mode 120000 index 0000000..e743541 --- /dev/null +++ b/beagle/debian-rfs/lib/libbz2.so.1.0 @@ -0,0 +1 @@ +libbz2.so.1.0.4
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libbz2.so.1.0.4 b/beagle/debian-rfs/lib/libbz2.so.1.0.4 Binary files differnew file mode 100644 index 0000000..9f86dd3 --- /dev/null +++ b/beagle/debian-rfs/lib/libbz2.so.1.0.4 diff --git a/beagle/debian-rfs/lib/libc-2.11.2.so b/beagle/debian-rfs/lib/libc-2.11.2.so Binary files differnew file mode 100755 index 0000000..ab4dad3 --- /dev/null +++ b/beagle/debian-rfs/lib/libc-2.11.2.so diff --git a/beagle/debian-rfs/lib/libc.so.6 b/beagle/debian-rfs/lib/libc.so.6 new file mode 120000 index 0000000..9aef9e9 --- /dev/null +++ b/beagle/debian-rfs/lib/libc.so.6 @@ -0,0 +1 @@ +libc-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libcidn-2.11.2.so b/beagle/debian-rfs/lib/libcidn-2.11.2.so Binary files differnew file mode 100644 index 0000000..2386326 --- /dev/null +++ b/beagle/debian-rfs/lib/libcidn-2.11.2.so diff --git a/beagle/debian-rfs/lib/libcidn.so.1 b/beagle/debian-rfs/lib/libcidn.so.1 new file mode 120000 index 0000000..b4959ee --- /dev/null +++ b/beagle/debian-rfs/lib/libcidn.so.1 @@ -0,0 +1 @@ +libcidn-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libcom_err.so.2 b/beagle/debian-rfs/lib/libcom_err.so.2 new file mode 120000 index 0000000..e989efb --- /dev/null +++ b/beagle/debian-rfs/lib/libcom_err.so.2 @@ -0,0 +1 @@ +libcom_err.so.2.1
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libcom_err.so.2.1 b/beagle/debian-rfs/lib/libcom_err.so.2.1 Binary files differnew file mode 100644 index 0000000..b60157e --- /dev/null +++ b/beagle/debian-rfs/lib/libcom_err.so.2.1 diff --git a/beagle/debian-rfs/lib/libcrypt-2.11.2.so b/beagle/debian-rfs/lib/libcrypt-2.11.2.so Binary files differnew file mode 100644 index 0000000..fca4e7c --- /dev/null +++ b/beagle/debian-rfs/lib/libcrypt-2.11.2.so diff --git a/beagle/debian-rfs/lib/libcrypt.so.1 b/beagle/debian-rfs/lib/libcrypt.so.1 new file mode 120000 index 0000000..3fe42b3 --- /dev/null +++ b/beagle/debian-rfs/lib/libcrypt.so.1 @@ -0,0 +1 @@ +libcrypt-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libdl-2.11.2.so b/beagle/debian-rfs/lib/libdl-2.11.2.so Binary files differnew file mode 100644 index 0000000..63339b2 --- /dev/null +++ b/beagle/debian-rfs/lib/libdl-2.11.2.so diff --git a/beagle/debian-rfs/lib/libdl.so.2 b/beagle/debian-rfs/lib/libdl.so.2 new file mode 120000 index 0000000..30b67f7 --- /dev/null +++ b/beagle/debian-rfs/lib/libdl.so.2 @@ -0,0 +1 @@ +libdl-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libe2p.so.2 b/beagle/debian-rfs/lib/libe2p.so.2 new file mode 120000 index 0000000..177bc5c --- /dev/null +++ b/beagle/debian-rfs/lib/libe2p.so.2 @@ -0,0 +1 @@ +libe2p.so.2.3
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libe2p.so.2.3 b/beagle/debian-rfs/lib/libe2p.so.2.3 Binary files differnew file mode 100644 index 0000000..70beb4d --- /dev/null +++ b/beagle/debian-rfs/lib/libe2p.so.2.3 diff --git a/beagle/debian-rfs/lib/libext2fs.so.2 b/beagle/debian-rfs/lib/libext2fs.so.2 new file mode 120000 index 0000000..60d5fb9 --- /dev/null +++ b/beagle/debian-rfs/lib/libext2fs.so.2 @@ -0,0 +1 @@ +libext2fs.so.2.4
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libext2fs.so.2.4 b/beagle/debian-rfs/lib/libext2fs.so.2.4 Binary files differnew file mode 100644 index 0000000..5991885 --- /dev/null +++ b/beagle/debian-rfs/lib/libext2fs.so.2.4 diff --git a/beagle/debian-rfs/lib/libgcc_s.so.1 b/beagle/debian-rfs/lib/libgcc_s.so.1 Binary files differnew file mode 100644 index 0000000..32b6825 --- /dev/null +++ b/beagle/debian-rfs/lib/libgcc_s.so.1 diff --git a/beagle/debian-rfs/lib/libm-2.11.2.so b/beagle/debian-rfs/lib/libm-2.11.2.so Binary files differnew file mode 100644 index 0000000..cce0caa --- /dev/null +++ b/beagle/debian-rfs/lib/libm-2.11.2.so diff --git a/beagle/debian-rfs/lib/libm.so.6 b/beagle/debian-rfs/lib/libm.so.6 new file mode 120000 index 0000000..c1c0ce0 --- /dev/null +++ b/beagle/debian-rfs/lib/libm.so.6 @@ -0,0 +1 @@ +libm-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libmemusage.so b/beagle/debian-rfs/lib/libmemusage.so Binary files differnew file mode 100644 index 0000000..6134b00 --- /dev/null +++ b/beagle/debian-rfs/lib/libmemusage.so diff --git a/beagle/debian-rfs/lib/libncurses.so.5 b/beagle/debian-rfs/lib/libncurses.so.5 new file mode 120000 index 0000000..89ed099 --- /dev/null +++ b/beagle/debian-rfs/lib/libncurses.so.5 @@ -0,0 +1 @@ +libncurses.so.5.7
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libncurses.so.5.7 b/beagle/debian-rfs/lib/libncurses.so.5.7 Binary files differnew file mode 100644 index 0000000..bef110c --- /dev/null +++ b/beagle/debian-rfs/lib/libncurses.so.5.7 diff --git a/beagle/debian-rfs/lib/libnsl-2.11.2.so b/beagle/debian-rfs/lib/libnsl-2.11.2.so Binary files differnew file mode 100644 index 0000000..d8189c9 --- /dev/null +++ b/beagle/debian-rfs/lib/libnsl-2.11.2.so diff --git a/beagle/debian-rfs/lib/libnsl.so.1 b/beagle/debian-rfs/lib/libnsl.so.1 new file mode 120000 index 0000000..56f2a34 --- /dev/null +++ b/beagle/debian-rfs/lib/libnsl.so.1 @@ -0,0 +1 @@ +libnsl-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libnss_compat-2.11.2.so b/beagle/debian-rfs/lib/libnss_compat-2.11.2.so Binary files differnew file mode 100644 index 0000000..18ba671 --- /dev/null +++ b/beagle/debian-rfs/lib/libnss_compat-2.11.2.so diff --git a/beagle/debian-rfs/lib/libnss_compat.so.2 b/beagle/debian-rfs/lib/libnss_compat.so.2 new file mode 120000 index 0000000..1378d78 --- /dev/null +++ b/beagle/debian-rfs/lib/libnss_compat.so.2 @@ -0,0 +1 @@ +libnss_compat-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libnss_dns-2.11.2.so b/beagle/debian-rfs/lib/libnss_dns-2.11.2.so Binary files differnew file mode 100644 index 0000000..35898f4 --- /dev/null +++ b/beagle/debian-rfs/lib/libnss_dns-2.11.2.so diff --git a/beagle/debian-rfs/lib/libnss_dns.so.2 b/beagle/debian-rfs/lib/libnss_dns.so.2 new file mode 120000 index 0000000..870d4ad --- /dev/null +++ b/beagle/debian-rfs/lib/libnss_dns.so.2 @@ -0,0 +1 @@ +libnss_dns-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libnss_files-2.11.2.so b/beagle/debian-rfs/lib/libnss_files-2.11.2.so Binary files differnew file mode 100644 index 0000000..bb5b63f --- /dev/null +++ b/beagle/debian-rfs/lib/libnss_files-2.11.2.so diff --git a/beagle/debian-rfs/lib/libnss_files.so.2 b/beagle/debian-rfs/lib/libnss_files.so.2 new file mode 120000 index 0000000..88feeed --- /dev/null +++ b/beagle/debian-rfs/lib/libnss_files.so.2 @@ -0,0 +1 @@ +libnss_files-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libnss_hesiod-2.11.2.so b/beagle/debian-rfs/lib/libnss_hesiod-2.11.2.so Binary files differnew file mode 100644 index 0000000..ede2702 --- /dev/null +++ b/beagle/debian-rfs/lib/libnss_hesiod-2.11.2.so diff --git a/beagle/debian-rfs/lib/libnss_hesiod.so.2 b/beagle/debian-rfs/lib/libnss_hesiod.so.2 new file mode 120000 index 0000000..831743f --- /dev/null +++ b/beagle/debian-rfs/lib/libnss_hesiod.so.2 @@ -0,0 +1 @@ +libnss_hesiod-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libnss_nis-2.11.2.so b/beagle/debian-rfs/lib/libnss_nis-2.11.2.so Binary files differnew file mode 100644 index 0000000..70b6c1d --- /dev/null +++ b/beagle/debian-rfs/lib/libnss_nis-2.11.2.so diff --git a/beagle/debian-rfs/lib/libnss_nis.so.2 b/beagle/debian-rfs/lib/libnss_nis.so.2 new file mode 120000 index 0000000..4b2a02a --- /dev/null +++ b/beagle/debian-rfs/lib/libnss_nis.so.2 @@ -0,0 +1 @@ +libnss_nis-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libnss_nisplus-2.11.2.so b/beagle/debian-rfs/lib/libnss_nisplus-2.11.2.so Binary files differnew file mode 100644 index 0000000..fa9e4cd --- /dev/null +++ b/beagle/debian-rfs/lib/libnss_nisplus-2.11.2.so diff --git a/beagle/debian-rfs/lib/libnss_nisplus.so.2 b/beagle/debian-rfs/lib/libnss_nisplus.so.2 new file mode 120000 index 0000000..48aeb6d --- /dev/null +++ b/beagle/debian-rfs/lib/libnss_nisplus.so.2 @@ -0,0 +1 @@ +libnss_nisplus-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libpam.so.0 b/beagle/debian-rfs/lib/libpam.so.0 new file mode 120000 index 0000000..b8b4a0c --- /dev/null +++ b/beagle/debian-rfs/lib/libpam.so.0 @@ -0,0 +1 @@ +libpam.so.0.82.2
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libpam.so.0.82.2 b/beagle/debian-rfs/lib/libpam.so.0.82.2 Binary files differnew file mode 100644 index 0000000..40f3194 --- /dev/null +++ b/beagle/debian-rfs/lib/libpam.so.0.82.2 diff --git a/beagle/debian-rfs/lib/libpam_misc.so.0 b/beagle/debian-rfs/lib/libpam_misc.so.0 new file mode 120000 index 0000000..c5922dc --- /dev/null +++ b/beagle/debian-rfs/lib/libpam_misc.so.0 @@ -0,0 +1 @@ +libpam_misc.so.0.82.0
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libpam_misc.so.0.82.0 b/beagle/debian-rfs/lib/libpam_misc.so.0.82.0 Binary files differnew file mode 100644 index 0000000..0bc8de1 --- /dev/null +++ b/beagle/debian-rfs/lib/libpam_misc.so.0.82.0 diff --git a/beagle/debian-rfs/lib/libpamc.so.0 b/beagle/debian-rfs/lib/libpamc.so.0 new file mode 120000 index 0000000..ca497ea --- /dev/null +++ b/beagle/debian-rfs/lib/libpamc.so.0 @@ -0,0 +1 @@ +libpamc.so.0.82.1
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libpamc.so.0.82.1 b/beagle/debian-rfs/lib/libpamc.so.0.82.1 Binary files differnew file mode 100644 index 0000000..2f93a83 --- /dev/null +++ b/beagle/debian-rfs/lib/libpamc.so.0.82.1 diff --git a/beagle/debian-rfs/lib/libpcprofile.so b/beagle/debian-rfs/lib/libpcprofile.so Binary files differnew file mode 100644 index 0000000..2c889ad --- /dev/null +++ b/beagle/debian-rfs/lib/libpcprofile.so diff --git a/beagle/debian-rfs/lib/libpthread-2.11.2.so b/beagle/debian-rfs/lib/libpthread-2.11.2.so Binary files differnew file mode 100755 index 0000000..eaf1beb --- /dev/null +++ b/beagle/debian-rfs/lib/libpthread-2.11.2.so diff --git a/beagle/debian-rfs/lib/libpthread.so.0 b/beagle/debian-rfs/lib/libpthread.so.0 new file mode 120000 index 0000000..d3f105a --- /dev/null +++ b/beagle/debian-rfs/lib/libpthread.so.0 @@ -0,0 +1 @@ +libpthread-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libresolv-2.11.2.so b/beagle/debian-rfs/lib/libresolv-2.11.2.so Binary files differnew file mode 100644 index 0000000..0ba58e0 --- /dev/null +++ b/beagle/debian-rfs/lib/libresolv-2.11.2.so diff --git a/beagle/debian-rfs/lib/libresolv.so.2 b/beagle/debian-rfs/lib/libresolv.so.2 new file mode 120000 index 0000000..0e93257 --- /dev/null +++ b/beagle/debian-rfs/lib/libresolv.so.2 @@ -0,0 +1 @@ +libresolv-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/librt-2.11.2.so b/beagle/debian-rfs/lib/librt-2.11.2.so Binary files differnew file mode 100644 index 0000000..c06872b --- /dev/null +++ b/beagle/debian-rfs/lib/librt-2.11.2.so diff --git a/beagle/debian-rfs/lib/librt.so.1 b/beagle/debian-rfs/lib/librt.so.1 new file mode 120000 index 0000000..c1b1aab --- /dev/null +++ b/beagle/debian-rfs/lib/librt.so.1 @@ -0,0 +1 @@ +librt-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libselinux.so.1 b/beagle/debian-rfs/lib/libselinux.so.1 Binary files differnew file mode 100644 index 0000000..43be98d --- /dev/null +++ b/beagle/debian-rfs/lib/libselinux.so.1 diff --git a/beagle/debian-rfs/lib/libsepol.so.1 b/beagle/debian-rfs/lib/libsepol.so.1 Binary files differnew file mode 100644 index 0000000..c942851 --- /dev/null +++ b/beagle/debian-rfs/lib/libsepol.so.1 diff --git a/beagle/debian-rfs/lib/libslang.so.2 b/beagle/debian-rfs/lib/libslang.so.2 new file mode 120000 index 0000000..53c4845 --- /dev/null +++ b/beagle/debian-rfs/lib/libslang.so.2 @@ -0,0 +1 @@ +libslang.so.2.2.2
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libslang.so.2.2.2 b/beagle/debian-rfs/lib/libslang.so.2.2.2 Binary files differnew file mode 100644 index 0000000..709cea7 --- /dev/null +++ b/beagle/debian-rfs/lib/libslang.so.2.2.2 diff --git a/beagle/debian-rfs/lib/libss.so.2 b/beagle/debian-rfs/lib/libss.so.2 new file mode 120000 index 0000000..9839f3a --- /dev/null +++ b/beagle/debian-rfs/lib/libss.so.2 @@ -0,0 +1 @@ +libss.so.2.0
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libss.so.2.0 b/beagle/debian-rfs/lib/libss.so.2.0 Binary files differnew file mode 100644 index 0000000..f3c653c --- /dev/null +++ b/beagle/debian-rfs/lib/libss.so.2.0 diff --git a/beagle/debian-rfs/lib/libthread_db-1.0.so b/beagle/debian-rfs/lib/libthread_db-1.0.so Binary files differnew file mode 100644 index 0000000..4177bd0 --- /dev/null +++ b/beagle/debian-rfs/lib/libthread_db-1.0.so diff --git a/beagle/debian-rfs/lib/libthread_db.so.1 b/beagle/debian-rfs/lib/libthread_db.so.1 new file mode 120000 index 0000000..bc52514 --- /dev/null +++ b/beagle/debian-rfs/lib/libthread_db.so.1 @@ -0,0 +1 @@ +libthread_db-1.0.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libtic.so.5 b/beagle/debian-rfs/lib/libtic.so.5 new file mode 120000 index 0000000..0584f3f --- /dev/null +++ b/beagle/debian-rfs/lib/libtic.so.5 @@ -0,0 +1 @@ +libtic.so.5.7
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libtic.so.5.7 b/beagle/debian-rfs/lib/libtic.so.5.7 Binary files differnew file mode 100644 index 0000000..4d2493e --- /dev/null +++ b/beagle/debian-rfs/lib/libtic.so.5.7 diff --git a/beagle/debian-rfs/lib/libutil-2.11.2.so b/beagle/debian-rfs/lib/libutil-2.11.2.so Binary files differnew file mode 100644 index 0000000..0e678bc --- /dev/null +++ b/beagle/debian-rfs/lib/libutil-2.11.2.so diff --git a/beagle/debian-rfs/lib/libutil.so.1 b/beagle/debian-rfs/lib/libutil.so.1 new file mode 120000 index 0000000..34a2279 --- /dev/null +++ b/beagle/debian-rfs/lib/libutil.so.1 @@ -0,0 +1 @@ +libutil-2.11.2.so
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libuuid.so.1 b/beagle/debian-rfs/lib/libuuid.so.1 new file mode 120000 index 0000000..774fbfe --- /dev/null +++ b/beagle/debian-rfs/lib/libuuid.so.1 @@ -0,0 +1 @@ +libuuid.so.1.3.0
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/libuuid.so.1.3.0 b/beagle/debian-rfs/lib/libuuid.so.1.3.0 Binary files differnew file mode 100644 index 0000000..4af3063 --- /dev/null +++ b/beagle/debian-rfs/lib/libuuid.so.1.3.0 diff --git a/beagle/debian-rfs/lib/lsb/init-functions b/beagle/debian-rfs/lib/lsb/init-functions new file mode 100644 index 0000000..0514b0f --- /dev/null +++ b/beagle/debian-rfs/lib/lsb/init-functions @@ -0,0 +1,373 @@ +# /lib/lsb/init-functions for Debian -*- shell-script -*- +# +#Copyright (c) 2002-08 Chris Lawrence +#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 author nor the names of other contributors +# may be used to endorse or promote products derived from this software +# without specific prior written permission. +# +#THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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. + +start_daemon () { + local force nice pidfile exec i args + force=0 + nice=0 + pidfile=/dev/null + + OPTIND=1 + while getopts fn:p: opt ; do + case "$opt" in + f) force=1;; + n) nice="$OPTARG";; + p) pidfile="$OPTARG";; + esac + done + + shift $(($OPTIND - 1)) + if [ "$1" = '--' ]; then + shift + fi + + exec="$1"; shift + + args="--start --nicelevel $nice --quiet --oknodo" + if [ $force = 1 ]; then + /sbin/start-stop-daemon $args --chdir "$PWD" --startas $exec --pidfile /dev/null -- "$@" + elif [ $pidfile ]; then + /sbin/start-stop-daemon $args --chdir "$PWD" --exec $exec --oknodo --pidfile "$pidfile" -- "$@" + else + /sbin/start-stop-daemon $args --chdir "$PWD" --exec $exec -- "$@" + fi +} + +pidofproc () { + local pidfile line i pids= status specified pid + pidfile= + specified= + + OPTIND=1 + while getopts p: opt ; do + case "$opt" in + p) pidfile="$OPTARG"; specified=1;; + esac + done + shift $(($OPTIND - 1)) + + base=${1##*/} + if [ ! "$specified" ]; then + pidfile="/var/run/$base.pid" + fi + + if [ -n "${pidfile:-}" -a -r "$pidfile" ]; then + read pid < "$pidfile" + if [ -n "${pid:-}" ]; then + if $(kill -0 "${pid:-}" 2> /dev/null); then + echo "$pid" + return 0 + elif ps "${pid:-}" >/dev/null 2>&1; then + echo "$pid" + return 0 # program is running, but not owned by this user + else + return 1 # program is dead and /var/run pid file exists + fi + fi + fi + if [ -x /bin/pidof -a ! "$specified" ]; then + status="0" + /bin/pidof -o %PPID -x $1 || status="$?" + if [ "$status" = 1 ]; then + return 3 # program is not running + fi + return 0 + fi + return 4 # Unable to determine status +} + +# start-stop-daemon uses the same algorithm as "pidofproc" above. +killproc () { + local pidfile sig status base i name_param is_term_sig + pidfile= + name_param= + is_term_sig=no + + OPTIND=1 + while getopts p: opt ; do + case "$opt" in + p) pidfile="$OPTARG";; + esac + done + shift $(($OPTIND - 1)) + + base=${1##*/} + if [ ! $pidfile ]; then + name_param="--name $base --pidfile /var/run/$base.pid" + else + name_param="--pidfile $pidfile" + fi + + sig=$(echo ${2:-} | sed -e 's/^-\(.*\)/\1/') + sig=$(echo $sig | sed -e 's/^SIG\(.*\)/\1/') + if [ -z "$sig" -o "$sig" = 15 -o "$sig" = TERM ]; then + is_term_sig=yes + fi + status=0 + if [ ! "$is_term_sig" = yes ]; then + if [ -n "$sig" ]; then + /sbin/start-stop-daemon --stop --signal "$sig" --quiet $name_param || status="$?" + else + /sbin/start-stop-daemon --stop --quiet $name_param || status="$?" + fi + else + /sbin/start-stop-daemon --stop --quiet --oknodo $name_param || status="$?" + fi + if [ "$status" = 1 ]; then + if [ -n "$sig" ]; then + return 0 + fi + return 3 # program is not running + fi + + if [ "$status" = 0 -a "$is_term_sig" = yes -a "$pidfile" ]; then + pidofproc -p "$pidfile" "$1" >/dev/null || rm -f "$pidfile" + fi + return 0 +} + +# Return LSB status +status_of_proc () { + local pidfile daemon name status + + pidfile= + OPTIND=1 + while getopts p: opt ; do + case "$opt" in + p) pidfile="$OPTARG";; + esac + done + shift $(($OPTIND - 1)) + + if [ -n "$pidfile" ]; then + pidfile="-p $pidfile" + fi + daemon="$1" + name="$2" + + status="0" + pidofproc $pidfile $daemon >/dev/null || status="$?" + if [ "$status" = 0 ]; then + log_success_msg "$name is running" + return 0 + elif [ "$status" = 4 ]; then + log_failure_msg "could not access PID file for $name" + return $status + else + log_failure_msg "$name is not running" + return $status + fi +} + +log_use_fancy_output () { + TPUT=/usr/bin/tput + EXPR=/usr/bin/expr + if [ -t 1 ] && [ "x${TERM:-}" != "x" ] && [ "x${TERM:-}" != "xdumb" ] && [ -x $TPUT ] && [ -x $EXPR ] && $TPUT hpa 60 >/dev/null 2>&1 && $TPUT setaf 1 >/dev/null 2>&1; then + [ -z $FANCYTTY ] && FANCYTTY=1 || true + else + FANCYTTY=0 + fi + case "$FANCYTTY" in + 1|Y|yes|true) true;; + *) false;; + esac +} + +log_success_msg () { + if [ -n "${1:-}" ]; then + log_begin_msg $@ + fi + log_end_msg 0 +} + +log_failure_msg () { + if [ -n "${1:-}" ]; then + log_begin_msg $@ "..." + fi + log_end_msg 1 || true +} + +log_warning_msg () { + if [ -n "${1:-}" ]; then + log_begin_msg $@ "..." + fi + log_end_msg 255 || true +} + +# +# NON-LSB HELPER FUNCTIONS +# +# int get_lsb_header_val (char *scriptpathname, char *key) +get_lsb_header_val () { + if [ ! -f "$1" ] || [ -z "${2:-}" ]; then + return 1 + fi + LSB_S="### BEGIN INIT INFO" + LSB_E="### END INIT INFO" + sed -n "/$LSB_S/,/$LSB_E/ s/# $2: \(.*\)/\1/p" $1 +} + +# int log_begin_message (char *message) +log_begin_msg () { + if [ -z "${1:-}" ]; then + return 1 + fi + echo -n "$@" +} + +# Sample usage: +# log_daemon_msg "Starting GNOME Login Manager" "gdm" +# +# On Debian, would output "Starting GNOME Login Manager: gdm" +# On Ubuntu, would output " * Starting GNOME Login Manager..." +# +# If the second argument is omitted, logging suitable for use with +# log_progress_msg() is used: +# +# log_daemon_msg "Starting remote filesystem services" +# +# On Debian, would output "Starting remote filesystem services:" +# On Ubuntu, would output " * Starting remote filesystem services..." + +log_daemon_msg () { + if [ -z "${1:-}" ]; then + return 1 + fi + log_daemon_msg_pre "$@" + + if [ -z "${2:-}" ]; then + echo -n "$1:" + return + fi + + echo -n "$1: $2" + log_daemon_msg_post "$@" +} + +# #319739 +# +# Per policy docs: +# +# log_daemon_msg "Starting remote file system services" +# log_progress_msg "nfsd"; start-stop-daemon --start --quiet nfsd +# log_progress_msg "mountd"; start-stop-daemon --start --quiet mountd +# log_progress_msg "ugidd"; start-stop-daemon --start --quiet ugidd +# log_end_msg 0 +# +# You could also do something fancy with log_end_msg here based on the +# return values of start-stop-daemon; this is left as an exercise for +# the reader... +# +# On Ubuntu, one would expect log_progress_msg to be a no-op. +log_progress_msg () { + if [ -z "${1:-}" ]; then + return 1 + fi + echo -n " $@" +} + + +# int log_end_message (int exitstatus) +log_end_msg () { + # If no arguments were passed, return + if [ -z "${1:-}" ]; then + return 1 + fi + + retval=$1 + + log_end_msg_pre "$@" + + # Only do the fancy stuff if we have an appropriate terminal + # and if /usr is already mounted + if log_use_fancy_output; then + RED=`$TPUT setaf 1` + YELLOW=`$TPUT setaf 3` + NORMAL=`$TPUT op` + else + RED='' + YELLOW='' + NORMAL='' + fi + + if [ $1 -eq 0 ]; then + echo "." + elif [ $1 -eq 255 ]; then + /bin/echo -e " ${YELLOW}(warning).${NORMAL}" + else + /bin/echo -e " ${RED}failed!${NORMAL}" + fi + log_end_msg_post "$@" + return $retval +} + +log_action_msg () { + echo "$@." +} + +log_action_begin_msg () { + echo -n "$@..." +} + +log_action_cont_msg () { + echo -n "$@..." +} + +log_action_end_msg () { + log_action_end_msg_pre "$@" + if [ -z "${2:-}" ]; then + end="." + else + end=" ($2)." + fi + + if [ $1 -eq 0 ]; then + echo "done${end}" + else + if log_use_fancy_output; then + RED=`$TPUT setaf 1` + NORMAL=`$TPUT op` + /bin/echo -e "${RED}failed${end}${NORMAL}" + else + echo "failed${end}" + fi + fi + log_action_end_msg_post "$@" +} + +# Hooks for /etc/lsb-base-logging.sh +log_daemon_msg_pre () { :; } +log_daemon_msg_post () { :; } +log_end_msg_pre () { :; } +log_end_msg_post () { :; } +log_action_end_msg_pre () { :; } +log_action_end_msg_post () { :; } + +FANCYTTY= +[ -e /etc/lsb-base-logging.sh ] && . /etc/lsb-base-logging.sh || true diff --git a/beagle/debian-rfs/lib/security/pam_access.so b/beagle/debian-rfs/lib/security/pam_access.so Binary files differnew file mode 100644 index 0000000..011bb11 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_access.so diff --git a/beagle/debian-rfs/lib/security/pam_debug.so b/beagle/debian-rfs/lib/security/pam_debug.so Binary files differnew file mode 100644 index 0000000..5a0c825 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_debug.so diff --git a/beagle/debian-rfs/lib/security/pam_deny.so b/beagle/debian-rfs/lib/security/pam_deny.so Binary files differnew file mode 100644 index 0000000..af9325f --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_deny.so diff --git a/beagle/debian-rfs/lib/security/pam_echo.so b/beagle/debian-rfs/lib/security/pam_echo.so Binary files differnew file mode 100644 index 0000000..38c65b9 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_echo.so diff --git a/beagle/debian-rfs/lib/security/pam_env.so b/beagle/debian-rfs/lib/security/pam_env.so Binary files differnew file mode 100644 index 0000000..4abcf92 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_env.so diff --git a/beagle/debian-rfs/lib/security/pam_exec.so b/beagle/debian-rfs/lib/security/pam_exec.so Binary files differnew file mode 100644 index 0000000..343f3be --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_exec.so diff --git a/beagle/debian-rfs/lib/security/pam_faildelay.so b/beagle/debian-rfs/lib/security/pam_faildelay.so Binary files differnew file mode 100644 index 0000000..1a43dc3 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_faildelay.so diff --git a/beagle/debian-rfs/lib/security/pam_filter.so b/beagle/debian-rfs/lib/security/pam_filter.so Binary files differnew file mode 100644 index 0000000..01f9d29 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_filter.so diff --git a/beagle/debian-rfs/lib/security/pam_ftp.so b/beagle/debian-rfs/lib/security/pam_ftp.so Binary files differnew file mode 100644 index 0000000..ed7a4b4 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_ftp.so diff --git a/beagle/debian-rfs/lib/security/pam_group.so b/beagle/debian-rfs/lib/security/pam_group.so Binary files differnew file mode 100644 index 0000000..86212c5 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_group.so diff --git a/beagle/debian-rfs/lib/security/pam_issue.so b/beagle/debian-rfs/lib/security/pam_issue.so Binary files differnew file mode 100644 index 0000000..bc4c7c6 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_issue.so diff --git a/beagle/debian-rfs/lib/security/pam_keyinit.so b/beagle/debian-rfs/lib/security/pam_keyinit.so Binary files differnew file mode 100644 index 0000000..47ea76b --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_keyinit.so diff --git a/beagle/debian-rfs/lib/security/pam_lastlog.so b/beagle/debian-rfs/lib/security/pam_lastlog.so Binary files differnew file mode 100644 index 0000000..fd28ca9 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_lastlog.so diff --git a/beagle/debian-rfs/lib/security/pam_limits.so b/beagle/debian-rfs/lib/security/pam_limits.so Binary files differnew file mode 100644 index 0000000..9dc61db --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_limits.so diff --git a/beagle/debian-rfs/lib/security/pam_listfile.so b/beagle/debian-rfs/lib/security/pam_listfile.so Binary files differnew file mode 100644 index 0000000..68b5637 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_listfile.so diff --git a/beagle/debian-rfs/lib/security/pam_localuser.so b/beagle/debian-rfs/lib/security/pam_localuser.so Binary files differnew file mode 100644 index 0000000..0c6faa3 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_localuser.so diff --git a/beagle/debian-rfs/lib/security/pam_loginuid.so b/beagle/debian-rfs/lib/security/pam_loginuid.so Binary files differnew file mode 100644 index 0000000..d8e9e4b --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_loginuid.so diff --git a/beagle/debian-rfs/lib/security/pam_mail.so b/beagle/debian-rfs/lib/security/pam_mail.so Binary files differnew file mode 100644 index 0000000..9863147 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_mail.so diff --git a/beagle/debian-rfs/lib/security/pam_mkhomedir.so b/beagle/debian-rfs/lib/security/pam_mkhomedir.so Binary files differnew file mode 100644 index 0000000..a18d480 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_mkhomedir.so diff --git a/beagle/debian-rfs/lib/security/pam_motd.so b/beagle/debian-rfs/lib/security/pam_motd.so Binary files differnew file mode 100644 index 0000000..e202c2b --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_motd.so diff --git a/beagle/debian-rfs/lib/security/pam_namespace.so b/beagle/debian-rfs/lib/security/pam_namespace.so Binary files differnew file mode 100644 index 0000000..f60f4ae --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_namespace.so diff --git a/beagle/debian-rfs/lib/security/pam_nologin.so b/beagle/debian-rfs/lib/security/pam_nologin.so Binary files differnew file mode 100644 index 0000000..e2b5b80 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_nologin.so diff --git a/beagle/debian-rfs/lib/security/pam_permit.so b/beagle/debian-rfs/lib/security/pam_permit.so Binary files differnew file mode 100644 index 0000000..3b70919 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_permit.so diff --git a/beagle/debian-rfs/lib/security/pam_pwhistory.so b/beagle/debian-rfs/lib/security/pam_pwhistory.so Binary files differnew file mode 100644 index 0000000..55b0cff --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_pwhistory.so diff --git a/beagle/debian-rfs/lib/security/pam_rhosts.so b/beagle/debian-rfs/lib/security/pam_rhosts.so Binary files differnew file mode 100644 index 0000000..26c6213 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_rhosts.so diff --git a/beagle/debian-rfs/lib/security/pam_rootok.so b/beagle/debian-rfs/lib/security/pam_rootok.so Binary files differnew file mode 100644 index 0000000..097b3c0 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_rootok.so diff --git a/beagle/debian-rfs/lib/security/pam_securetty.so b/beagle/debian-rfs/lib/security/pam_securetty.so Binary files differnew file mode 100644 index 0000000..e96d7d0 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_securetty.so diff --git a/beagle/debian-rfs/lib/security/pam_selinux.so b/beagle/debian-rfs/lib/security/pam_selinux.so Binary files differnew file mode 100644 index 0000000..a786114 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_selinux.so diff --git a/beagle/debian-rfs/lib/security/pam_sepermit.so b/beagle/debian-rfs/lib/security/pam_sepermit.so Binary files differnew file mode 100644 index 0000000..2fe47e5 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_sepermit.so diff --git a/beagle/debian-rfs/lib/security/pam_shells.so b/beagle/debian-rfs/lib/security/pam_shells.so Binary files differnew file mode 100644 index 0000000..27b4648 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_shells.so diff --git a/beagle/debian-rfs/lib/security/pam_stress.so b/beagle/debian-rfs/lib/security/pam_stress.so Binary files differnew file mode 100644 index 0000000..cc15d6b --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_stress.so diff --git a/beagle/debian-rfs/lib/security/pam_succeed_if.so b/beagle/debian-rfs/lib/security/pam_succeed_if.so Binary files differnew file mode 100644 index 0000000..54f599a --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_succeed_if.so diff --git a/beagle/debian-rfs/lib/security/pam_tally.so b/beagle/debian-rfs/lib/security/pam_tally.so Binary files differnew file mode 100644 index 0000000..3f14fae --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_tally.so diff --git a/beagle/debian-rfs/lib/security/pam_tally2.so b/beagle/debian-rfs/lib/security/pam_tally2.so Binary files differnew file mode 100644 index 0000000..23082bd --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_tally2.so diff --git a/beagle/debian-rfs/lib/security/pam_time.so b/beagle/debian-rfs/lib/security/pam_time.so Binary files differnew file mode 100644 index 0000000..e3cb67d --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_time.so diff --git a/beagle/debian-rfs/lib/security/pam_timestamp.so b/beagle/debian-rfs/lib/security/pam_timestamp.so Binary files differnew file mode 100644 index 0000000..b3e9efc --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_timestamp.so diff --git a/beagle/debian-rfs/lib/security/pam_umask.so b/beagle/debian-rfs/lib/security/pam_umask.so Binary files differnew file mode 100644 index 0000000..74f1a17 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_umask.so diff --git a/beagle/debian-rfs/lib/security/pam_unix.so b/beagle/debian-rfs/lib/security/pam_unix.so Binary files differnew file mode 100644 index 0000000..a447501 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_unix.so diff --git a/beagle/debian-rfs/lib/security/pam_userdb.so b/beagle/debian-rfs/lib/security/pam_userdb.so Binary files differnew file mode 100644 index 0000000..4d6b594 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_userdb.so diff --git a/beagle/debian-rfs/lib/security/pam_warn.so b/beagle/debian-rfs/lib/security/pam_warn.so Binary files differnew file mode 100644 index 0000000..e211770 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_warn.so diff --git a/beagle/debian-rfs/lib/security/pam_wheel.so b/beagle/debian-rfs/lib/security/pam_wheel.so Binary files differnew file mode 100644 index 0000000..700482c --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_wheel.so diff --git a/beagle/debian-rfs/lib/security/pam_xauth.so b/beagle/debian-rfs/lib/security/pam_xauth.so Binary files differnew file mode 100644 index 0000000..3863177 --- /dev/null +++ b/beagle/debian-rfs/lib/security/pam_xauth.so diff --git a/beagle/debian-rfs/lib/terminfo/E/Eterm b/beagle/debian-rfs/lib/terminfo/E/Eterm Binary files differnew file mode 100644 index 0000000..f6337a4 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/E/Eterm diff --git a/beagle/debian-rfs/lib/terminfo/E/Eterm-color b/beagle/debian-rfs/lib/terminfo/E/Eterm-color new file mode 120000 index 0000000..74aebd7 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/E/Eterm-color @@ -0,0 +1 @@ +Eterm
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/terminfo/a/ansi b/beagle/debian-rfs/lib/terminfo/a/ansi Binary files differnew file mode 100644 index 0000000..6de7978 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/a/ansi diff --git a/beagle/debian-rfs/lib/terminfo/c/cons25 b/beagle/debian-rfs/lib/terminfo/c/cons25 Binary files differnew file mode 100644 index 0000000..09d473c --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/c/cons25 diff --git a/beagle/debian-rfs/lib/terminfo/c/cons25-debian b/beagle/debian-rfs/lib/terminfo/c/cons25-debian Binary files differnew file mode 100644 index 0000000..b379983 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/c/cons25-debian diff --git a/beagle/debian-rfs/lib/terminfo/c/cygwin b/beagle/debian-rfs/lib/terminfo/c/cygwin Binary files differnew file mode 100644 index 0000000..3d72886 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/c/cygwin diff --git a/beagle/debian-rfs/lib/terminfo/d/dumb b/beagle/debian-rfs/lib/terminfo/d/dumb Binary files differnew file mode 100644 index 0000000..fd4091a --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/d/dumb diff --git a/beagle/debian-rfs/lib/terminfo/h/hurd b/beagle/debian-rfs/lib/terminfo/h/hurd Binary files differnew file mode 100644 index 0000000..2d48ecb --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/h/hurd diff --git a/beagle/debian-rfs/lib/terminfo/l/linux b/beagle/debian-rfs/lib/terminfo/l/linux Binary files differnew file mode 100644 index 0000000..2055b0a --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/l/linux diff --git a/beagle/debian-rfs/lib/terminfo/m/mach b/beagle/debian-rfs/lib/terminfo/m/mach Binary files differnew file mode 100644 index 0000000..94699c2 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/m/mach diff --git a/beagle/debian-rfs/lib/terminfo/m/mach-bold b/beagle/debian-rfs/lib/terminfo/m/mach-bold Binary files differnew file mode 100644 index 0000000..1b72fcc --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/m/mach-bold diff --git a/beagle/debian-rfs/lib/terminfo/m/mach-color b/beagle/debian-rfs/lib/terminfo/m/mach-color Binary files differnew file mode 100644 index 0000000..0e63d81 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/m/mach-color diff --git a/beagle/debian-rfs/lib/terminfo/p/pcansi b/beagle/debian-rfs/lib/terminfo/p/pcansi Binary files differnew file mode 100644 index 0000000..b24fba9 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/p/pcansi diff --git a/beagle/debian-rfs/lib/terminfo/r/rxvt b/beagle/debian-rfs/lib/terminfo/r/rxvt Binary files differnew file mode 100644 index 0000000..6ba1a8e --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/r/rxvt diff --git a/beagle/debian-rfs/lib/terminfo/r/rxvt-basic b/beagle/debian-rfs/lib/terminfo/r/rxvt-basic Binary files differnew file mode 100644 index 0000000..1b43804 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/r/rxvt-basic diff --git a/beagle/debian-rfs/lib/terminfo/r/rxvt-m b/beagle/debian-rfs/lib/terminfo/r/rxvt-m new file mode 120000 index 0000000..f61abac --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/r/rxvt-m @@ -0,0 +1 @@ +rxvt-basic
\ No newline at end of file diff --git a/beagle/debian-rfs/lib/terminfo/r/rxvt-unicode b/beagle/debian-rfs/lib/terminfo/r/rxvt-unicode Binary files differnew file mode 100644 index 0000000..981d9dc --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/r/rxvt-unicode diff --git a/beagle/debian-rfs/lib/terminfo/s/screen b/beagle/debian-rfs/lib/terminfo/s/screen Binary files differnew file mode 100644 index 0000000..de83253 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/s/screen diff --git a/beagle/debian-rfs/lib/terminfo/s/screen-256color b/beagle/debian-rfs/lib/terminfo/s/screen-256color Binary files differnew file mode 100644 index 0000000..3fff4af --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/s/screen-256color diff --git a/beagle/debian-rfs/lib/terminfo/s/screen-256color-bce b/beagle/debian-rfs/lib/terminfo/s/screen-256color-bce Binary files differnew file mode 100644 index 0000000..257fd95 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/s/screen-256color-bce diff --git a/beagle/debian-rfs/lib/terminfo/s/screen-bce b/beagle/debian-rfs/lib/terminfo/s/screen-bce Binary files differnew file mode 100644 index 0000000..b8247b1 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/s/screen-bce diff --git a/beagle/debian-rfs/lib/terminfo/s/screen-s b/beagle/debian-rfs/lib/terminfo/s/screen-s Binary files differnew file mode 100644 index 0000000..907baa1 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/s/screen-s diff --git a/beagle/debian-rfs/lib/terminfo/s/screen-w b/beagle/debian-rfs/lib/terminfo/s/screen-w Binary files differnew file mode 100644 index 0000000..cd3f4b3 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/s/screen-w diff --git a/beagle/debian-rfs/lib/terminfo/s/sun b/beagle/debian-rfs/lib/terminfo/s/sun Binary files differnew file mode 100644 index 0000000..1976f97 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/s/sun diff --git a/beagle/debian-rfs/lib/terminfo/v/vt100 b/beagle/debian-rfs/lib/terminfo/v/vt100 Binary files differnew file mode 100644 index 0000000..1a7176d --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/v/vt100 diff --git a/beagle/debian-rfs/lib/terminfo/v/vt102 b/beagle/debian-rfs/lib/terminfo/v/vt102 Binary files differnew file mode 100644 index 0000000..b9a393c --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/v/vt102 diff --git a/beagle/debian-rfs/lib/terminfo/v/vt220 b/beagle/debian-rfs/lib/terminfo/v/vt220 Binary files differnew file mode 100644 index 0000000..b3d4d9f --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/v/vt220 diff --git a/beagle/debian-rfs/lib/terminfo/v/vt52 b/beagle/debian-rfs/lib/terminfo/v/vt52 Binary files differnew file mode 100644 index 0000000..b3f466f --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/v/vt52 diff --git a/beagle/debian-rfs/lib/terminfo/w/wsvt25 b/beagle/debian-rfs/lib/terminfo/w/wsvt25 Binary files differnew file mode 100644 index 0000000..453853a --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/w/wsvt25 diff --git a/beagle/debian-rfs/lib/terminfo/w/wsvt25m b/beagle/debian-rfs/lib/terminfo/w/wsvt25m Binary files differnew file mode 100644 index 0000000..5da627b --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/w/wsvt25m diff --git a/beagle/debian-rfs/lib/terminfo/x/xterm b/beagle/debian-rfs/lib/terminfo/x/xterm Binary files differnew file mode 100644 index 0000000..ec28cf0 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/x/xterm diff --git a/beagle/debian-rfs/lib/terminfo/x/xterm-256color b/beagle/debian-rfs/lib/terminfo/x/xterm-256color Binary files differnew file mode 100644 index 0000000..345939d --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/x/xterm-256color diff --git a/beagle/debian-rfs/lib/terminfo/x/xterm-color b/beagle/debian-rfs/lib/terminfo/x/xterm-color Binary files differnew file mode 100644 index 0000000..fc461db --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/x/xterm-color diff --git a/beagle/debian-rfs/lib/terminfo/x/xterm-debian b/beagle/debian-rfs/lib/terminfo/x/xterm-debian Binary files differnew file mode 100644 index 0000000..ace87d2 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/x/xterm-debian diff --git a/beagle/debian-rfs/lib/terminfo/x/xterm-mono b/beagle/debian-rfs/lib/terminfo/x/xterm-mono Binary files differnew file mode 100644 index 0000000..9375a8b --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/x/xterm-mono diff --git a/beagle/debian-rfs/lib/terminfo/x/xterm-r5 b/beagle/debian-rfs/lib/terminfo/x/xterm-r5 Binary files differnew file mode 100644 index 0000000..64449b8 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/x/xterm-r5 diff --git a/beagle/debian-rfs/lib/terminfo/x/xterm-r6 b/beagle/debian-rfs/lib/terminfo/x/xterm-r6 Binary files differnew file mode 100644 index 0000000..9d22f0c --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/x/xterm-r6 diff --git a/beagle/debian-rfs/lib/terminfo/x/xterm-vt220 b/beagle/debian-rfs/lib/terminfo/x/xterm-vt220 Binary files differnew file mode 100644 index 0000000..7d9fa35 --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/x/xterm-vt220 diff --git a/beagle/debian-rfs/lib/terminfo/x/xterm-xfree86 b/beagle/debian-rfs/lib/terminfo/x/xterm-xfree86 Binary files differnew file mode 100644 index 0000000..3dd2d9d --- /dev/null +++ b/beagle/debian-rfs/lib/terminfo/x/xterm-xfree86 diff --git a/beagle/debian-rfs/lib/udev/hwclock-set b/beagle/debian-rfs/lib/udev/hwclock-set new file mode 100755 index 0000000..2dcc8ee --- /dev/null +++ b/beagle/debian-rfs/lib/udev/hwclock-set @@ -0,0 +1,17 @@ +#!/bin/sh +# Reset the System Clock to UTC if the hardware clock from which it +# was copied by the kernel was in localtime. + +dev=$1 + +if [ -f /etc/default/rcS ] ; then + . /etc/default/rcS +fi + +if [ yes != "$UTC" ] ; then + if [ yes = "$BADYEAR" ] ; then + /sbin/hwclock --rtc=$dev --systz --localtime --noadjfile --badyear + else + /sbin/hwclock --rtc=$dev --systz --localtime --noadjfile + fi +fi diff --git a/beagle/debian-rfs/lib/udev/rules.d/85-hwclock.rules b/beagle/debian-rfs/lib/udev/rules.d/85-hwclock.rules new file mode 100644 index 0000000..e1e66e2 --- /dev/null +++ b/beagle/debian-rfs/lib/udev/rules.d/85-hwclock.rules @@ -0,0 +1,4 @@ +# Reset the System Clock to UTC if the hardware clock from which it was +# copied by the kernel was in localtime. + +KERNEL=="rtc0", RUN+="/lib/udev/hwclock-set $root/$name" diff --git a/beagle/debian-rfs/sbin/agetty b/beagle/debian-rfs/sbin/agetty Binary files differnew file mode 100755 index 0000000..40c9431 --- /dev/null +++ b/beagle/debian-rfs/sbin/agetty diff --git a/beagle/debian-rfs/sbin/badblocks b/beagle/debian-rfs/sbin/badblocks Binary files differnew file mode 100755 index 0000000..1fc7d1c --- /dev/null +++ b/beagle/debian-rfs/sbin/badblocks diff --git a/beagle/debian-rfs/sbin/blkid b/beagle/debian-rfs/sbin/blkid Binary files differnew file mode 100755 index 0000000..6b25406 --- /dev/null +++ b/beagle/debian-rfs/sbin/blkid diff --git a/beagle/debian-rfs/sbin/blockdev b/beagle/debian-rfs/sbin/blockdev Binary files differnew file mode 100755 index 0000000..fb2200d --- /dev/null +++ b/beagle/debian-rfs/sbin/blockdev diff --git a/beagle/debian-rfs/sbin/bootlogd b/beagle/debian-rfs/sbin/bootlogd Binary files differnew file mode 100755 index 0000000..deb810e --- /dev/null +++ b/beagle/debian-rfs/sbin/bootlogd diff --git a/beagle/debian-rfs/sbin/cfdisk b/beagle/debian-rfs/sbin/cfdisk Binary files differnew file mode 100755 index 0000000..f9dab7d --- /dev/null +++ b/beagle/debian-rfs/sbin/cfdisk diff --git a/beagle/debian-rfs/sbin/ctrlaltdel b/beagle/debian-rfs/sbin/ctrlaltdel Binary files differnew file mode 100755 index 0000000..6ce1686 --- /dev/null +++ b/beagle/debian-rfs/sbin/ctrlaltdel diff --git a/beagle/debian-rfs/sbin/debugfs b/beagle/debian-rfs/sbin/debugfs Binary files differnew file mode 100755 index 0000000..b2ec5be --- /dev/null +++ b/beagle/debian-rfs/sbin/debugfs diff --git a/beagle/debian-rfs/sbin/dumpe2fs b/beagle/debian-rfs/sbin/dumpe2fs Binary files differnew file mode 100755 index 0000000..9e5ef72 --- /dev/null +++ b/beagle/debian-rfs/sbin/dumpe2fs diff --git a/beagle/debian-rfs/sbin/e2fsck b/beagle/debian-rfs/sbin/e2fsck Binary files differnew file mode 100755 index 0000000..86580b1 --- /dev/null +++ b/beagle/debian-rfs/sbin/e2fsck diff --git a/beagle/debian-rfs/sbin/e2image b/beagle/debian-rfs/sbin/e2image Binary files differnew file mode 100755 index 0000000..a88ac93 --- /dev/null +++ b/beagle/debian-rfs/sbin/e2image diff --git a/beagle/debian-rfs/sbin/e2label b/beagle/debian-rfs/sbin/e2label Binary files differnew file mode 100755 index 0000000..4e7580d --- /dev/null +++ b/beagle/debian-rfs/sbin/e2label diff --git a/beagle/debian-rfs/sbin/e2undo b/beagle/debian-rfs/sbin/e2undo Binary files differnew file mode 100755 index 0000000..1898c51 --- /dev/null +++ b/beagle/debian-rfs/sbin/e2undo diff --git a/beagle/debian-rfs/sbin/fdisk b/beagle/debian-rfs/sbin/fdisk Binary files differnew file mode 100755 index 0000000..44d4c6d --- /dev/null +++ b/beagle/debian-rfs/sbin/fdisk diff --git a/beagle/debian-rfs/sbin/findfs b/beagle/debian-rfs/sbin/findfs Binary files differnew file mode 100755 index 0000000..ced80d6 --- /dev/null +++ b/beagle/debian-rfs/sbin/findfs diff --git a/beagle/debian-rfs/sbin/fsck b/beagle/debian-rfs/sbin/fsck Binary files differnew file mode 100755 index 0000000..735f21f --- /dev/null +++ b/beagle/debian-rfs/sbin/fsck diff --git a/beagle/debian-rfs/sbin/fsck.cramfs b/beagle/debian-rfs/sbin/fsck.cramfs Binary files differnew file mode 100755 index 0000000..ebf6e8c --- /dev/null +++ b/beagle/debian-rfs/sbin/fsck.cramfs diff --git a/beagle/debian-rfs/sbin/fsck.ext2 b/beagle/debian-rfs/sbin/fsck.ext2 Binary files differnew file mode 100755 index 0000000..86580b1 --- /dev/null +++ b/beagle/debian-rfs/sbin/fsck.ext2 diff --git a/beagle/debian-rfs/sbin/fsck.ext3 b/beagle/debian-rfs/sbin/fsck.ext3 Binary files differnew file mode 100755 index 0000000..86580b1 --- /dev/null +++ b/beagle/debian-rfs/sbin/fsck.ext3 diff --git a/beagle/debian-rfs/sbin/fsck.ext4 b/beagle/debian-rfs/sbin/fsck.ext4 Binary files differnew file mode 100755 index 0000000..86580b1 --- /dev/null +++ b/beagle/debian-rfs/sbin/fsck.ext4 diff --git a/beagle/debian-rfs/sbin/fsck.ext4dev b/beagle/debian-rfs/sbin/fsck.ext4dev Binary files differnew file mode 100755 index 0000000..86580b1 --- /dev/null +++ b/beagle/debian-rfs/sbin/fsck.ext4dev diff --git a/beagle/debian-rfs/sbin/fsck.minix b/beagle/debian-rfs/sbin/fsck.minix Binary files differnew file mode 100755 index 0000000..4c7fa49 --- /dev/null +++ b/beagle/debian-rfs/sbin/fsck.minix diff --git a/beagle/debian-rfs/sbin/fsck.nfs b/beagle/debian-rfs/sbin/fsck.nfs new file mode 100755 index 0000000..817da9b --- /dev/null +++ b/beagle/debian-rfs/sbin/fsck.nfs @@ -0,0 +1,21 @@ +#! /bin/sh +# +# fsck.nfs +# +# Dummy fsck.nfs file that always returns success. We +# need this for when the root file system is on NFS: +# there is no way to find out if root is NFS mounted +# and we really want to do a "fsck -a /". +# + +while : +do + case "$1" in + -*) shift ;; + *) break ;; + esac +done + +echo "$1: NFS file system." + +exit 0 diff --git a/beagle/debian-rfs/sbin/fstab-decode b/beagle/debian-rfs/sbin/fstab-decode Binary files differnew file mode 100755 index 0000000..5bda562 --- /dev/null +++ b/beagle/debian-rfs/sbin/fstab-decode diff --git a/beagle/debian-rfs/sbin/getty b/beagle/debian-rfs/sbin/getty Binary files differnew file mode 100755 index 0000000..40c9431 --- /dev/null +++ b/beagle/debian-rfs/sbin/getty diff --git a/beagle/debian-rfs/sbin/halt b/beagle/debian-rfs/sbin/halt Binary files differnew file mode 100755 index 0000000..fe8065c --- /dev/null +++ b/beagle/debian-rfs/sbin/halt diff --git a/beagle/debian-rfs/sbin/hwclock b/beagle/debian-rfs/sbin/hwclock Binary files differnew file mode 100755 index 0000000..a92acfc --- /dev/null +++ b/beagle/debian-rfs/sbin/hwclock diff --git a/beagle/debian-rfs/sbin/init b/beagle/debian-rfs/sbin/init Binary files differnew file mode 100755 index 0000000..ce50348 --- /dev/null +++ b/beagle/debian-rfs/sbin/init diff --git a/beagle/debian-rfs/sbin/insserv b/beagle/debian-rfs/sbin/insserv Binary files differnew file mode 100755 index 0000000..c6fdab3 --- /dev/null +++ b/beagle/debian-rfs/sbin/insserv diff --git a/beagle/debian-rfs/sbin/installkernel b/beagle/debian-rfs/sbin/installkernel new file mode 100755 index 0000000..cbb4444 --- /dev/null +++ b/beagle/debian-rfs/sbin/installkernel @@ -0,0 +1,79 @@ +#!/bin/sh +# +# Copyright (C) 1995 - 1998, Ian A. Murdock <imurdock@debian.org> +# Copyright (C) 1998, 1999, Guy Maor +# Copyright (C) 2002, Matthew Wilcox +# Copyright (C) 2002, 2004, 2005, 2007, 2009 Clint Adams +# Copyright (C) 2009 Manoj Srivasta +# +# Install the kernel on a Debian Linux system. +# +# This script is called from /usr/src/linux/arch/i386/boot/install.sh. +# If you install it as /sbin/installkernel, you can do a "make install" +# from a generic kernel source tree, and the image will be installed to +# the proper place for Debian GNU/Linux. + +set -e + +# Parse the command line options. Of course, powerpc has to be all +# different, and passes in a fifth argument, just because it is +# "special". We ignore the fifth argument, and do not flag is as an +# error, which it would be for any arch apart from powerpc +if [ $# -eq 3 ] || [ $# -eq 4 ] || [ $# -eq 5 ] ; then + img="$2" + map="$3" + ver="$1" + if [ $# -ge 4 ] && [ -n "$4" ] ; then + dir="$4" + else + dir="/boot" + fi +else + echo "Usage: installkernel <version> <image> <System.map> <directory>" + exit 1 +fi + +# Create backups of older versions before installing +updatever () { + if [ -f "$dir/$1-$ver" ] ; then + mv "$dir/$1-$ver" "$dir/$1-$ver.old" + fi + + cat "$2" > "$dir/$1-$ver" + + # This section is for backwards compatibility only + if test -f "$dir/$1" ; then + # The presence of "$dir/$1" is unusual in modern intallations, and + # the results are mostly unused. So only recreate them if they + # already existed. + if test -L "$dir/$1" ; then + # If we were using links, continue to use links, updating if + # we need to. + if [ "$(readlink -f ${dir}/${1})" = "${dir}/${1}-${ver}" ]; then + # Yup, we need to change + ln -sf "$1-$ver.old" "$dir/$1.old" + else + mv "$dir/$1" "$dir/$1.old" + fi + ln -sf "$1-$ver" "$dir/$1" + else # No links + mv "$dir/$1" "$dir/$1.old" + cat "$2" > "$dir/$1" + fi + fi +} + +if [ "$(basename $img)" = "vmlinux" ] ; then + updatever vmlinux "$img" +else + updatever vmlinuz "$img" +fi +updatever System.map "$map" + +config=$(dirname "$map") +config="${config}/.config" +if [ -f "$config" ] ; then + updatever config "$config" +fi + +exit 0 diff --git a/beagle/debian-rfs/sbin/isosize b/beagle/debian-rfs/sbin/isosize Binary files differnew file mode 100755 index 0000000..29f9412 --- /dev/null +++ b/beagle/debian-rfs/sbin/isosize diff --git a/beagle/debian-rfs/sbin/killall5 b/beagle/debian-rfs/sbin/killall5 Binary files differnew file mode 100755 index 0000000..be8e814 --- /dev/null +++ b/beagle/debian-rfs/sbin/killall5 diff --git a/beagle/debian-rfs/sbin/ldconfig b/beagle/debian-rfs/sbin/ldconfig Binary files differnew file mode 100755 index 0000000..bc5706c --- /dev/null +++ b/beagle/debian-rfs/sbin/ldconfig diff --git a/beagle/debian-rfs/sbin/logsave b/beagle/debian-rfs/sbin/logsave Binary files differnew file mode 100755 index 0000000..da62f75 --- /dev/null +++ b/beagle/debian-rfs/sbin/logsave diff --git a/beagle/debian-rfs/sbin/losetup b/beagle/debian-rfs/sbin/losetup Binary files differnew file mode 100755 index 0000000..807868d --- /dev/null +++ b/beagle/debian-rfs/sbin/losetup diff --git a/beagle/debian-rfs/sbin/mke2fs b/beagle/debian-rfs/sbin/mke2fs Binary files differnew file mode 100755 index 0000000..6b4b19e --- /dev/null +++ b/beagle/debian-rfs/sbin/mke2fs diff --git a/beagle/debian-rfs/sbin/mkfs b/beagle/debian-rfs/sbin/mkfs Binary files differnew file mode 100755 index 0000000..d61c2bb --- /dev/null +++ b/beagle/debian-rfs/sbin/mkfs diff --git a/beagle/debian-rfs/sbin/mkfs.bfs b/beagle/debian-rfs/sbin/mkfs.bfs Binary files differnew file mode 100755 index 0000000..823e806 --- /dev/null +++ b/beagle/debian-rfs/sbin/mkfs.bfs diff --git a/beagle/debian-rfs/sbin/mkfs.cramfs b/beagle/debian-rfs/sbin/mkfs.cramfs Binary files differnew file mode 100755 index 0000000..4b3f4eb --- /dev/null +++ b/beagle/debian-rfs/sbin/mkfs.cramfs diff --git a/beagle/debian-rfs/sbin/mkfs.ext2 b/beagle/debian-rfs/sbin/mkfs.ext2 Binary files differnew file mode 100755 index 0000000..6b4b19e --- /dev/null +++ b/beagle/debian-rfs/sbin/mkfs.ext2 diff --git a/beagle/debian-rfs/sbin/mkfs.ext3 b/beagle/debian-rfs/sbin/mkfs.ext3 Binary files differnew file mode 100755 index 0000000..6b4b19e --- /dev/null +++ b/beagle/debian-rfs/sbin/mkfs.ext3 diff --git a/beagle/debian-rfs/sbin/mkfs.ext4 b/beagle/debian-rfs/sbin/mkfs.ext4 Binary files differnew file mode 100755 index 0000000..6b4b19e --- /dev/null +++ b/beagle/debian-rfs/sbin/mkfs.ext4 diff --git a/beagle/debian-rfs/sbin/mkfs.ext4dev b/beagle/debian-rfs/sbin/mkfs.ext4dev Binary files differnew file mode 100755 index 0000000..6b4b19e --- /dev/null +++ b/beagle/debian-rfs/sbin/mkfs.ext4dev diff --git a/beagle/debian-rfs/sbin/mkfs.minix b/beagle/debian-rfs/sbin/mkfs.minix Binary files differnew file mode 100755 index 0000000..4699cbe --- /dev/null +++ b/beagle/debian-rfs/sbin/mkfs.minix diff --git a/beagle/debian-rfs/sbin/mkhomedir_helper b/beagle/debian-rfs/sbin/mkhomedir_helper Binary files differnew file mode 100755 index 0000000..83f6a4f --- /dev/null +++ b/beagle/debian-rfs/sbin/mkhomedir_helper diff --git a/beagle/debian-rfs/sbin/mkswap b/beagle/debian-rfs/sbin/mkswap Binary files differnew file mode 100755 index 0000000..9869d17 --- /dev/null +++ b/beagle/debian-rfs/sbin/mkswap diff --git a/beagle/debian-rfs/sbin/pam_tally b/beagle/debian-rfs/sbin/pam_tally Binary files differnew file mode 100755 index 0000000..fd20647 --- /dev/null +++ b/beagle/debian-rfs/sbin/pam_tally diff --git a/beagle/debian-rfs/sbin/pam_tally2 b/beagle/debian-rfs/sbin/pam_tally2 Binary files differnew file mode 100755 index 0000000..6737d4b --- /dev/null +++ b/beagle/debian-rfs/sbin/pam_tally2 diff --git a/beagle/debian-rfs/sbin/pivot_root b/beagle/debian-rfs/sbin/pivot_root Binary files differnew file mode 100755 index 0000000..59ac416 --- /dev/null +++ b/beagle/debian-rfs/sbin/pivot_root diff --git a/beagle/debian-rfs/sbin/poweroff b/beagle/debian-rfs/sbin/poweroff new file mode 120000 index 0000000..d908836 --- /dev/null +++ b/beagle/debian-rfs/sbin/poweroff @@ -0,0 +1 @@ +halt
\ No newline at end of file diff --git a/beagle/debian-rfs/sbin/raw b/beagle/debian-rfs/sbin/raw Binary files differnew file mode 100755 index 0000000..f58e651 --- /dev/null +++ b/beagle/debian-rfs/sbin/raw diff --git a/beagle/debian-rfs/sbin/reboot b/beagle/debian-rfs/sbin/reboot new file mode 120000 index 0000000..d908836 --- /dev/null +++ b/beagle/debian-rfs/sbin/reboot @@ -0,0 +1 @@ +halt
\ No newline at end of file diff --git a/beagle/debian-rfs/sbin/resize2fs b/beagle/debian-rfs/sbin/resize2fs Binary files differnew file mode 100755 index 0000000..c055852 --- /dev/null +++ b/beagle/debian-rfs/sbin/resize2fs diff --git a/beagle/debian-rfs/sbin/runlevel b/beagle/debian-rfs/sbin/runlevel Binary files differnew file mode 100755 index 0000000..3b3dd71 --- /dev/null +++ b/beagle/debian-rfs/sbin/runlevel diff --git a/beagle/debian-rfs/sbin/sfdisk b/beagle/debian-rfs/sbin/sfdisk Binary files differnew file mode 100755 index 0000000..616a919 --- /dev/null +++ b/beagle/debian-rfs/sbin/sfdisk diff --git a/beagle/debian-rfs/sbin/shadowconfig b/beagle/debian-rfs/sbin/shadowconfig new file mode 100755 index 0000000..4995323 --- /dev/null +++ b/beagle/debian-rfs/sbin/shadowconfig @@ -0,0 +1,49 @@ +#!/bin/sh +# turn shadow passwords on or off on a Debian system + +set -e + +shadowon () { + set -e + pwck -q + grpck -p + pwconv + grpconv + chown root:root /etc/passwd /etc/group + chmod 644 /etc/passwd /etc/group + chown root:shadow /etc/shadow /etc/gshadow + chmod 640 /etc/shadow /etc/gshadow +} + +shadowoff () { + set -e + pwck -q + grpck -p + pwunconv + grpunconv + # sometimes the passwd perms get munged + chown root:root /etc/passwd /etc/group + chmod 644 /etc/passwd /etc/group +} + +case "$1" in + "on") + if shadowon ; then + echo Shadow passwords are now on. + else + echo Please correct the error and rerun \`$0 on\' + exit 1 + fi + ;; + "off") + if shadowoff ; then + echo Shadow passwords are now off. + else + echo Please correct the error and rerun \`$0 off\' + exit 1 + fi + ;; + *) + echo Usage: $0 on \| off + ;; +esac diff --git a/beagle/debian-rfs/sbin/shutdown b/beagle/debian-rfs/sbin/shutdown Binary files differnew file mode 100755 index 0000000..98256e3 --- /dev/null +++ b/beagle/debian-rfs/sbin/shutdown diff --git a/beagle/debian-rfs/sbin/start-stop-daemon b/beagle/debian-rfs/sbin/start-stop-daemon Binary files differnew file mode 100755 index 0000000..523f043 --- /dev/null +++ b/beagle/debian-rfs/sbin/start-stop-daemon diff --git a/beagle/debian-rfs/sbin/startpar b/beagle/debian-rfs/sbin/startpar Binary files differnew file mode 100755 index 0000000..255c3cd --- /dev/null +++ b/beagle/debian-rfs/sbin/startpar diff --git a/beagle/debian-rfs/sbin/sulogin b/beagle/debian-rfs/sbin/sulogin Binary files differnew file mode 100755 index 0000000..207db84 --- /dev/null +++ b/beagle/debian-rfs/sbin/sulogin diff --git a/beagle/debian-rfs/sbin/swapoff b/beagle/debian-rfs/sbin/swapoff new file mode 120000 index 0000000..0bb6acf --- /dev/null +++ b/beagle/debian-rfs/sbin/swapoff @@ -0,0 +1 @@ +swapon
\ No newline at end of file diff --git a/beagle/debian-rfs/sbin/swapon b/beagle/debian-rfs/sbin/swapon Binary files differnew file mode 100755 index 0000000..ec515ea --- /dev/null +++ b/beagle/debian-rfs/sbin/swapon diff --git a/beagle/debian-rfs/sbin/switch_root b/beagle/debian-rfs/sbin/switch_root Binary files differnew file mode 100755 index 0000000..185242f --- /dev/null +++ b/beagle/debian-rfs/sbin/switch_root diff --git a/beagle/debian-rfs/sbin/telinit b/beagle/debian-rfs/sbin/telinit new file mode 120000 index 0000000..cdb8d0e --- /dev/null +++ b/beagle/debian-rfs/sbin/telinit @@ -0,0 +1 @@ +init
\ No newline at end of file diff --git a/beagle/debian-rfs/sbin/tune2fs b/beagle/debian-rfs/sbin/tune2fs Binary files differnew file mode 100755 index 0000000..4e7580d --- /dev/null +++ b/beagle/debian-rfs/sbin/tune2fs diff --git a/beagle/debian-rfs/sbin/unix_chkpwd b/beagle/debian-rfs/sbin/unix_chkpwd Binary files differnew file mode 100755 index 0000000..5fe9e25 --- /dev/null +++ b/beagle/debian-rfs/sbin/unix_chkpwd diff --git a/beagle/debian-rfs/sbin/unix_update b/beagle/debian-rfs/sbin/unix_update Binary files differnew file mode 100755 index 0000000..30be6f0 --- /dev/null +++ b/beagle/debian-rfs/sbin/unix_update diff --git a/beagle/debian-rfs/sbin/wipefs b/beagle/debian-rfs/sbin/wipefs Binary files differnew file mode 100755 index 0000000..34ac397 --- /dev/null +++ b/beagle/debian-rfs/sbin/wipefs diff --git a/beagle/debian-rfs/usr/bin/[ b/beagle/debian-rfs/usr/bin/[ Binary files differnew file mode 100755 index 0000000..d5b9727 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/[ diff --git a/beagle/debian-rfs/usr/bin/addpart b/beagle/debian-rfs/usr/bin/addpart Binary files differnew file mode 100755 index 0000000..64527e5 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/addpart diff --git a/beagle/debian-rfs/usr/bin/arch b/beagle/debian-rfs/usr/bin/arch Binary files differnew file mode 100755 index 0000000..c957500 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/arch diff --git a/beagle/debian-rfs/usr/bin/base64 b/beagle/debian-rfs/usr/bin/base64 Binary files differnew file mode 100755 index 0000000..9d77ccc --- /dev/null +++ b/beagle/debian-rfs/usr/bin/base64 diff --git a/beagle/debian-rfs/usr/bin/basename b/beagle/debian-rfs/usr/bin/basename Binary files differnew file mode 100755 index 0000000..3506974 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/basename diff --git a/beagle/debian-rfs/usr/bin/bashbug b/beagle/debian-rfs/usr/bin/bashbug new file mode 100755 index 0000000..d7f4099 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/bashbug @@ -0,0 +1,272 @@ +#!/bin/sh - +# +# bashbug - create a bug report and mail it to the bug address +# +# The bug address depends on the release status of the shell. Versions +# with status `devel', `alpha', `beta', or `rc' mail bug reports to +# chet@cwru.edu and, optionally, to bash-testers@cwru.edu. +# Other versions send mail to bug-bash@gnu.org. +# +# Copyright (C) 1996-2004 Free Software Foundation, Inc. +# +# 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/>. + +# +# configuration section: +# these variables are filled in by the make target in Makefile +# +MACHINE="arm" +OS="linux-gnueabi" +CC="gcc" +CFLAGS=" -DPROGRAM='bash' -DCONF_HOSTTYPE='arm' -DCONF_OSTYPE='linux-gnueabi' -DCONF_MACHTYPE='arm-unknown-linux-gnueabi' -DCONF_VENDOR='unknown' -DLOCALEDIR='/usr/share/locale' -DPACKAGE='bash' -DSHELL -DHAVE_CONFIG_H -I. -I../bash -I../bash/include -I../bash/lib -g -O2 -Wall" +RELEASE="4.1" +PATCHLEVEL="5" +RELSTATUS="release" +MACHTYPE="arm-unknown-linux-gnueabi" + +PATH=/bin:/usr/bin:/usr/local/bin:$PATH +export PATH + +# Check if TMPDIR is set, default to /tmp +: ${TMPDIR:=/tmp} + +#Securely create a temporary directory for the temporary files +TEMPDIR=$TMPDIR/bbug.$$ +(umask 077 && mkdir $TEMPDIR) || { + echo "$0: could not create temporary directory" >&2 + exit 1 +} + +TEMPFILE1=$TEMPDIR/bbug1 +TEMPFILE2=$TEMPDIR/bbug2 + +USAGE="Usage: $0 [--help] [--version] [bug-report-email-address]" +VERSTR="GNU bashbug, version ${RELEASE}.${PATCHLEVEL}-${RELSTATUS}" + +do_help= do_version= + +while [ $# -gt 0 ]; do + case "$1" in + --help) shift ; do_help=y ;; + --version) shift ; do_version=y ;; + --) shift ; break ;; + -*) echo "bashbug: ${1}: invalid option" >&2 + echo "$USAGE" >& 2 + exit 2 ;; + *) break ;; + esac +done + +if [ -n "$do_version" ]; then + echo "${VERSTR}" + exit 0 +fi + +if [ -n "$do_help" ]; then + echo "${VERSTR}" + echo "${USAGE}" + echo + cat << HERE_EOF +Bashbug is used to send mail to the Bash maintainers +for when Bash doesn't behave like you'd like, or expect. + +Bashbug will start up your editor (as defined by the shell's +EDITOR environment variable) with a preformatted bug report +template for you to fill in. The report will be mailed to the +bug-bash mailing list by default. See the manual for details. + +If you invoke bashbug by accident, just quit your editor without +saving any changes to the template, and no bug report will be sent. +HERE_EOF + exit 0 +fi + +# Figure out how to echo a string without a trailing newline +N=`echo 'hi there\c'` +case "$N" in +*c) n=-n c= ;; +*) n= c='\c' ;; +esac + +BASHTESTERS="bash-testers@cwru.edu" + +case "$RELSTATUS" in +alpha*|beta*|devel*|rc*) BUGBASH=chet@cwru.edu ;; +*) BUGBASH=bug-bash@gnu.org ;; +esac + +case "$RELSTATUS" in +alpha*|beta*|devel*|rc*) + echo "$0: This is a testing release. Would you like your bug report" + echo "$0: to be sent to the bash-testers mailing list?" + echo $n "$0: Send to bash-testers? $c" + read ans + case "$ans" in + y*|Y*) BUGBASH="${BUGBASH},${BASHTESTERS}" ;; + esac ;; +esac + +BUGBASH="${BUGBASH},bash@packages.debian.org" +BUGADDR="${1-$BUGBASH}" + +if [ -z "$DEFEDITOR" ] && [ -z "$EDITOR" ]; then + if [ -x /usr/bin/editor ]; then + DEFEDITOR=editor + elif [ -x /usr/local/bin/ce ]; then + DEFEDITOR=ce + elif [ -x /usr/local/bin/emacs ]; then + DEFEDITOR=emacs + elif [ -x /usr/contrib/bin/emacs ]; then + DEFEDITOR=emacs + elif [ -x /usr/bin/emacs ]; then + DEFEDITOR=emacs + elif [ -x /usr/bin/xemacs ]; then + DEFEDITOR=xemacs + elif [ -x /usr/contrib/bin/jove ]; then + DEFEDITOR=jove + elif [ -x /usr/local/bin/jove ]; then + DEFEDITOR=jove + elif [ -x /usr/bin/vi ]; then + DEFEDITOR=vi + else + echo "$0: No default editor found: attempting to use vi" >&2 + DEFEDITOR=vi + fi +fi + + +: ${EDITOR=$DEFEDITOR} + +: ${USER=${LOGNAME-`whoami`}} + +trap 'rm -rf "$TEMPDIR"; exit 1' 1 2 3 13 15 +trap 'rm -rf "$TEMPDIR"' 0 + +UN= +if (uname) >/dev/null 2>&1; then + UN=`uname -a` +fi + +if [ -f /usr/lib/sendmail ] ; then + RMAIL="/usr/lib/sendmail" + SMARGS="-i -t" +elif [ -f /usr/sbin/sendmail ] ; then + RMAIL="/usr/sbin/sendmail" + SMARGS="-i -t" +else + RMAIL=rmail + SMARGS="$BUGADDR" +fi + +INITIAL_SUBJECT='[50 character or so descriptive subject here (for reference)]' + +cat > "$TEMPFILE1" <<EOF +From: ${USER} +To: ${BUGADDR} +Subject: ${INITIAL_SUBJECT} + +Configuration Information [Automatically generated, do not change]: +Machine: $MACHINE +OS: $OS +Compiler: $CC +Compilation CFLAGS: $CFLAGS +uname output: $UN +Machine Type: $MACHTYPE + +Bash Version: $RELEASE +Patch Level: $PATCHLEVEL +Release Status: $RELSTATUS + +Description: + [Detailed description of the problem, suggestion, or complaint.] + +Repeat-By: + [Describe the sequence of events that causes the problem + to occur.] + +Fix: + [Description of how to fix the problem. If you don't know a + fix for the problem, don't include this section.] +EOF + +cp "$TEMPFILE1" "$TEMPFILE2" +chmod u+w "$TEMPFILE1" + +trap '' 2 # ignore interrupts while in editor + +edstat=1 +while [ $edstat -ne 0 ]; do + $EDITOR "$TEMPFILE1" + edstat=$? + + if [ $edstat -ne 0 ]; then + echo "$0: editor \`$EDITOR' exited with nonzero status." + echo "$0: Perhaps it was interrupted." + echo "$0: Type \`y' to give up, and lose your bug report;" + echo "$0: type \`n' to re-enter the editor." + echo $n "$0: Do you want to give up? $c" + + read ans + case "$ans" in + [Yy]*) exit 1 ;; + esac + + continue + fi + + # find the subject from the temp file and see if it's been changed + CURR_SUB=`grep '^Subject: ' "$TEMPFILE1" | sed 's|^Subject:[ ]*||' | sed 1q` + + case "$CURR_SUB" in + "${INITIAL_SUBJECT}") + echo + echo "$0: You have not changed the subject from the default." + echo "$0: Please use a more descriptive subject header." + echo "$0: Type \`y' to give up, and lose your bug report;" + echo "$0: type \`n' to re-enter the editor." + echo $n "$0: Do you want to give up? $c" + + read ans + case "$ans" in + [Yy]*) exit 1 ;; + esac + + echo "$0: The editor will be restarted in five seconds." + sleep 5 + edstat=1 + ;; + esac + +done + +trap 'rm -rf "$TEMPDIR"; exit 1' 2 # restore trap on SIGINT + +if cmp -s "$TEMPFILE1" "$TEMPFILE2" +then + echo "File not changed, no bug report submitted." + exit +fi + +echo $n "Send bug report to ${BUGADDR}? [y/n] $c" +read ans +case "$ans" in +[Nn]*) exit 0 ;; +esac + +${RMAIL} $SMARGS < "$TEMPFILE1" || { + cat "$TEMPFILE1" >> $HOME/dead.bashbug + echo "$0: mail failed: report saved in $HOME/dead.bashbug" >&2 +} + +exit 0 diff --git a/beagle/debian-rfs/usr/bin/captoinfo b/beagle/debian-rfs/usr/bin/captoinfo new file mode 120000 index 0000000..4c747a3 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/captoinfo @@ -0,0 +1 @@ +tic
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/catchsegv b/beagle/debian-rfs/usr/bin/catchsegv new file mode 100755 index 0000000..7755700 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/catchsegv @@ -0,0 +1,107 @@ +#! /bin/sh +# Copyright (C) 1998,1999,2001,2003,2004,2006,2007,2008,2009 +# Free Software Foundation, Inc. +# This file is part of the GNU C Library. +# Contributed by Ulrich Drepper <drepper@cygnus.com>, 1998. + +# The GNU C 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. + +# The GNU C 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 the GNU C Library; if not, write to the Free +# Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA +# 02111-1307 USA. + +if test $# -eq 0; then + echo "$0: missing program name" >&2 + echo "Try \`$0 --help' for more information." >&2 + exit 1 +fi + +prog="$1" +shift + +if test $# -eq 0; then + case "$prog" in + --h | --he | --hel | --help) + echo 'Usage: catchsegv PROGRAM ARGS...' + echo ' --help print this help, then exit' + echo ' --version print version number, then exit' + echo "For bug reporting instructions, please see:" + echo "<http://www.debian.org/Bugs/>." + exit 0 + ;; + --v | --ve | --ver | --vers | --versi | --versio | --version) + echo 'catchsegv (Debian EGLIBC 2.11.2-10) 2.11.2' + echo 'Copyright (C) 2009 Free Software Foundation, Inc. +This is free software; see the source for copying conditions. There is NO +warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +Written by Ulrich Drepper.' + exit 0 + ;; + *) + ;; + esac +fi + +segv_output=`mktemp ${TMPDIR:-/tmp}/segv_output.XXXXXX` || exit + +# Redirect stderr to avoid termination message from shell. +(exec 3>&2 2>/dev/null +LD_PRELOAD=${LD_PRELOAD:+${LD_PRELOAD}:}/\$LIB/libSegFault.so \ +SEGFAULT_USE_ALTSTACK=1 \ +SEGFAULT_OUTPUT_NAME=$segv_output \ +"$prog" ${1+"$@"} 2>&3 3>&-) +exval=$? + +# Check for output. Even if the program terminated correctly it might +# be that a minor process (clone) failed. Therefore we do not check the +# exit code. +if test -s "$segv_output"; then + # The program caught a signal. The output is in the file with the + # name we have in SEGFAULT_OUTPUT_NAME. In the output the names of + # functions in shared objects are available, but names in the static + # part of the program are not. We use addr2line to get this information. + case $prog in + */*) ;; + *) + old_IFS=$IFS + IFS=: + for p in $PATH; do + test -n "$p" || p=. + if test -f "$p/$prog"; then + prog=$p/$prog + break + fi + done + IFS=$old_IFS + ;; + esac + sed '/Backtrace/q' "$segv_output" + sed '1,/Backtrace/d' "$segv_output" | + (while read line; do + line=`echo $line | sed "s@^$prog\\(\\[.*\\)@\1@"` + case "$line" in + \[*) addr=`echo "$line" | sed 's/^\[\(.*\)\]$/\1/'` + complete=`addr2line -f -e "$prog" $addr 2>/dev/null` + if test $? -eq 0; then + echo "`echo "$complete"|sed 'N;s/\(.*\)\n\(.*\)/\2(\1)/;'`$line" + else + echo "$line" + fi + ;; + *) echo "$line" + ;; + esac + done) +fi +rm -f "$segv_output" + +exit $exval diff --git a/beagle/debian-rfs/usr/bin/chage b/beagle/debian-rfs/usr/bin/chage Binary files differnew file mode 100755 index 0000000..3a58ac1 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/chage diff --git a/beagle/debian-rfs/usr/bin/chattr b/beagle/debian-rfs/usr/bin/chattr Binary files differnew file mode 100755 index 0000000..60b676e --- /dev/null +++ b/beagle/debian-rfs/usr/bin/chattr diff --git a/beagle/debian-rfs/usr/bin/chcon b/beagle/debian-rfs/usr/bin/chcon Binary files differnew file mode 100755 index 0000000..054b771 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/chcon diff --git a/beagle/debian-rfs/usr/bin/chfn b/beagle/debian-rfs/usr/bin/chfn Binary files differnew file mode 100755 index 0000000..718eb8c --- /dev/null +++ b/beagle/debian-rfs/usr/bin/chfn diff --git a/beagle/debian-rfs/usr/bin/chkdupexe b/beagle/debian-rfs/usr/bin/chkdupexe new file mode 100755 index 0000000..e5fae68 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/chkdupexe @@ -0,0 +1,120 @@ +#!/usr/bin/perl -w +# +# chkdupexe version 2.1.1 +# +# Simple script to look for and list duplicate executables and dangling +# symlinks in the system executable directories. +# +# Copyright 1993 Nicolai Langfeldt. janl@math.uio.no +# Distribute under gnu copyleft (included in perl package) +# +# Modified 1995-07-04 Michael Shields <shields@tembel.org> +# Don't depend on GNU ls. +# Cleanups. +# Merge together $ENV{'PATH'} and $execdirs. +# Don't break if there are duplicates in $PATH. +# +# Modified 1996-02-16 Nicolai Langfeldt (janl@math.uio.no). +# I was thinking admins would edit the $execdirs list to suit their +# machine(s) when I wrote this. This is ofcourse not the case, thus +# Michaels fixes. And my fixes to his :-) +# - Working duplicate dirs detection. +# - Added more checks +# - Took out $PATH from the list of checked directories and added a +# check for $execdirs and $PATH consistency instead +# - Made it possible to run with perl -w + +$execdirs='/bin /sbin /usr/bin /usr/sbin /usr/local/bin /usr/local/sbin '. + '/usr/X11/bin /usr/bin/X11 /usr/local/X11/bin '. + '/usr/TeX/bin /usr/tex/bin /usr/games '. + '/usr/local/games'; + +# Turn off buffering for the output channel. +$|=1; + +# Values from /usr/include/linux/errno.h. Existence of linux/errno.ph is not +# something to count on... :-( +$ENOENT=2; + +%didthis=(); + +foreach $dir (split(/\s+/, "$execdirs"), "\0", split(/:/, $ENV{PATH})) { + + if ($dir eq "\0") { $checkingpath = 1; next; } + + # It's like this: One directory corresponds to one $device,$inode tuple + # If a symlink points to a directory we already checked that directory + # will have the same $device,$inode tuple. + + # Does this directory have any real exstence outside the ravings of + # symlinks pointing hither and dither? + ($device,$inode)=stat($dir); + if (!defined($device)) { + # Nonexistant directory, or dangling symlink? + ($dum)=lstat($dir); + next if $! == $ENOENT; + if (!$dum) { + print "Dangling symlink: $dir\n"; + next; + } + warn "Nonexistent directory: $dir\n" if ($checkingpath); + next; + } + + if (!-d _) { + print "Not a directory: $dir\n"; + next; + } + + next if defined($didthis{$device,$inode}); + + $didthis{$device,$inode}=1; + + chdir($dir) || die "Could not chdir $dir: $!\n"; +# This would give us the true directory name, do we want that? +# chop($dir=`pwd`); + opendir(DIR,".") || + die "NUTS! Personaly I think your perl or filesystem is broken.\n". + "I've done all sorts of checks on $dir, and now I can't open it!\n"; + foreach $_ (readdir(DIR)) { + lstat($_); + if (-l _) { + ($dum)=stat($_); + print "Dangling symlink: $dir/$_\n" unless defined($dum); + next; + } + next unless -f _ && -x _; # Only handle regular executable files + if (defined($count{$_})) { + $progs{$_}.=" $dir/$_"; + $count{$_}++; + } else { + $progs{$_}="$dir/$_"; + $count{$_}=1; + } + } + closedir(DIR); +} + +open(LS,"| xargs -r ls -ldU"); +while (($prog,$paths)=each %progs) { + print LS "$paths\n" if ($count{$prog}>1); +} +close(LS); + +exit 0; + +@unchecked=(); +# Check if the users PATH contains something I've not checked. The site admin +# might want to know about inconsistencies in user PATHs and chkdupexec +# configuration +foreach $dir (split(/:/,$ENV{'PATH'})) { + ($device,$inode)=stat($dir); + next unless defined($device); + next if defined($didthis{$device,$inode}); + push(@unchecked,$dir); + $didthis{$device,$inode}=1; +} + +print "Warning: Your path contains these directories which chkdupexe has not checked:\n",join(',',@unchecked), + ".\nPlease review the execdirs list in chkdupexe.\n" + if ($#unchecked>=$[); diff --git a/beagle/debian-rfs/usr/bin/chrt b/beagle/debian-rfs/usr/bin/chrt Binary files differnew file mode 100755 index 0000000..7660ede --- /dev/null +++ b/beagle/debian-rfs/usr/bin/chrt diff --git a/beagle/debian-rfs/usr/bin/chsh b/beagle/debian-rfs/usr/bin/chsh Binary files differnew file mode 100755 index 0000000..7845866 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/chsh diff --git a/beagle/debian-rfs/usr/bin/cksum b/beagle/debian-rfs/usr/bin/cksum Binary files differnew file mode 100755 index 0000000..6c35c59 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/cksum diff --git a/beagle/debian-rfs/usr/bin/clear b/beagle/debian-rfs/usr/bin/clear Binary files differnew file mode 100755 index 0000000..3a36b58 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/clear diff --git a/beagle/debian-rfs/usr/bin/clear_console b/beagle/debian-rfs/usr/bin/clear_console Binary files differnew file mode 100755 index 0000000..86bd4bf --- /dev/null +++ b/beagle/debian-rfs/usr/bin/clear_console diff --git a/beagle/debian-rfs/usr/bin/cmp b/beagle/debian-rfs/usr/bin/cmp Binary files differnew file mode 100755 index 0000000..772a452 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/cmp diff --git a/beagle/debian-rfs/usr/bin/comm b/beagle/debian-rfs/usr/bin/comm Binary files differnew file mode 100755 index 0000000..ea034c4 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/comm diff --git a/beagle/debian-rfs/usr/bin/csplit b/beagle/debian-rfs/usr/bin/csplit Binary files differnew file mode 100755 index 0000000..9e7f89f --- /dev/null +++ b/beagle/debian-rfs/usr/bin/csplit diff --git a/beagle/debian-rfs/usr/bin/cut b/beagle/debian-rfs/usr/bin/cut Binary files differnew file mode 100755 index 0000000..0c61929 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/cut diff --git a/beagle/debian-rfs/usr/bin/ddate b/beagle/debian-rfs/usr/bin/ddate Binary files differnew file mode 100755 index 0000000..f908069 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/ddate diff --git a/beagle/debian-rfs/usr/bin/debconf b/beagle/debian-rfs/usr/bin/debconf new file mode 100755 index 0000000..79c0ceb --- /dev/null +++ b/beagle/debian-rfs/usr/bin/debconf @@ -0,0 +1,120 @@ +#!/usr/bin/perl -w + +=head1 NAME + +debconf - run a debconf-using program + +=cut + +=head1 SYNOPSIS + + debconf [options] command [args] + +=head1 DESCRIPTION + +Debconf is a configuration system for Debian packages. For a debconf +overview and documentation for sysadmins, see L<debconf(7)> (in the +debconf-doc package). + +The B<debconf> program runs a program under debconf's control, setting it up +to talk with debconf on stdio. The program's output is expected to be debconf +protocol commands, and it is expected to read result codes on stdin. See +L<debconf-devel(7)> for details about the debconf protocol. + +The command to be run under debconf must be specified in a way that will +let your PATH find it. + +This command is not the usual way that debconf is used. It's more typical +for debconf to be used via L<dpkg-preconfigure(8)> or L<dpkg-reconfigure(8)>. + +=head1 OPTIONS + +=over 4 + +=item B<-o>I<package>, B<--owner=>I<package> + +Tell debconf what package the command it is running is a part of. This is +necessary to get ownership of registered questions right, and to support +unregister and purge commands properly. + +=item B<-f>I<type>, B<--frontend=>I<type> + +Select the frontend to use. + +=item B<-p>I<value>, B<--priority=>I<value> + +Specify the minimum priority of question that will be displayed. + +=item B<--terse> + +Enables terse output mode. This affects only some frontends. + +=back + +=head1 EXAMPLES + +To debug a shell script that uses debconf, you might use: + + DEBCONF_DEBUG=developer debconf my-shell-prog + +Or, you might use this: + + debconf --frontend=readline sh -x my-shell-prog + +=head1 SEE ALSO + +L<debconf-devel(7)>, L<debconf(7)> + +=cut + +use strict; +use Debconf::Db; +use Debconf::AutoSelect qw(:all); +use Debconf::Gettext; +use Debconf::Config; + +# Find the end of the options for this command, and the beginning of the +# command to run, which may have arguments. Break those arguments out. +my (@argv, @command); +for (my $x=0; $x <= $#ARGV; $x++) { + if ($ARGV[$x] =~ /^-(o|f|p|-(owner|frontend|priority))$/) { + push @argv, $ARGV[$x++]; + push @argv, $ARGV[$x] if defined $ARGV[$x]; # skip option argument + next; + } + elsif ($ARGV[$x] =~ /^-/) { + push @argv, $ARGV[$x]; + } + else { + # end of arguments, start of command + @command=@ARGV[$x..$#ARGV]; + last; + } +} +@ARGV=@argv; +my $usage = gettext("Usage: debconf [options] command [args]"); +my $owner=''; +Debconf::Config->getopt($usage.gettext(qq{ + -o, --owner=package Set the package that owns the command.}), + "o|owner=s" => \$owner, +); +die "$usage\n" unless @command; + +Debconf::Db->load; +my $frontend=make_frontend(); +my $confmodule=make_confmodule(@command); +$confmodule->owner($owner) if length $owner; + +1 while ($confmodule->communicate); + +my $code=$confmodule->exitcode; +$frontend->shutdown; +$confmodule->finish; +Debconf::Db->save; +exit $code; + +=head1 AUTHOR + +Joey Hess <joeyh@debian.org> + +=cut diff --git a/beagle/debian-rfs/usr/bin/debconf-apt-progress b/beagle/debian-rfs/usr/bin/debconf-apt-progress new file mode 100755 index 0000000..c255f01 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/debconf-apt-progress @@ -0,0 +1,485 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +use strict; +use POSIX; +use Fcntl; +use Getopt::Long; +use Debconf::Client::ConfModule (); + +my ($config, $start, $from, $to, $stop); +my $progress=1; +my $dlwaypoint=15; +my ($logfile, $logstderr); +my $had_frontend; + +sub checkopen (@) { + my $file = $_[0]; + my $fd = POSIX::open($file, &POSIX::O_RDONLY); + defined $fd or die "$0: can't open $_[0]: $!\n"; + return $fd; +} + +sub checkclose ($) { + my $fd = $_[0]; + unless (POSIX::close($fd)) { + return if $! == &POSIX::EBADF; + die "$0: can't close fd $fd: $!\n"; + } +} + +sub checkdup2 ($$) { + my ($oldfd, $newfd) = @_; + checkclose($newfd); + POSIX::dup2($oldfd, $newfd) + or die "$0: can't dup fd $oldfd to $newfd: $!\n"; +} + +sub nocloexec (*) { + my $fh = shift; + my $flags = fcntl($fh, F_GETFD, 0); + fcntl($fh, F_SETFD, $flags & ~FD_CLOEXEC); +} + +sub nonblock (*) { + my $fh = shift; + my $flags = fcntl($fh, F_GETFL, 0); + fcntl($fh, F_SETFL, $flags | O_NONBLOCK); +} + +sub reservefds (@) { + my $null = checkopen('/dev/null'); + my $close = 1; + for my $fd (@_) { + if ($null == $fd) { + $close = 0; + } else { + checkclose($fd); + checkdup2($null, $fd); + } + } + if ($close) { + checkclose($null); + } +} + +sub envnonempty ($) { + my $name = shift; + return (exists $ENV{$name} and $ENV{$name} ne ''); +} + +sub start_debconf (@) { + if (! $ENV{DEBIAN_HAS_FRONTEND}) { + if (envnonempty('DEBCONF_DB_REPLACE')) { + $ENV{DEBCONF_APT_PROGRESS_DB_REPLACE} = + $ENV{DEBCONF_DB_REPLACE}; + } + if (envnonempty('DEBCONF_DB_OVERRIDE')) { + $ENV{DEBCONF_APT_PROGRESS_DB_OVERRIDE} = + $ENV{DEBCONF_DB_OVERRIDE}; + } + + $ENV{DEBCONF_DB_REPLACE} = 'configdb'; + $ENV{DEBCONF_DB_OVERRIDE} = 'Pipe{infd:none outfd:none}'; + + $ENV{DEBCONF_APT_PROGRESS_NO_FRONTEND} = 1; + + @ARGV = @_; + } + + import Debconf::Client::ConfModule; +} + +sub passthrough (@) { + my $priority = Debconf::Client::ConfModule::get('debconf/priority'); + + defined(my $pid = fork) or die "$0: can't fork: $!\n"; + if (!$pid) { + close STATUS_READ; + close COMMAND_WRITE; + close DEBCONF_COMMAND_READ; + close DEBCONF_REPLY_WRITE; + $^F = 6; # avoid close-on-exec + if (fileno(COMMAND_READ) != 0) { + checkdup2(fileno(COMMAND_READ), 0); + close COMMAND_READ; + } + if (fileno(APT_LOG) != 1) { + checkclose(1); + checkdup2(fileno(APT_LOG), 1); + } + if (fileno(APT_LOG) != 2) { + checkclose(2); + checkdup2(fileno(APT_LOG), 2); + } + close APT_LOG; + delete $ENV{DEBIAN_HAS_FRONTEND}; + delete $ENV{DEBCONF_REDIR}; + delete $ENV{DEBCONF_SYSTEMRC}; + delete $ENV{DEBCONF_PIPE}; # just in case ... + $ENV{DEBIAN_FRONTEND} = 'passthrough'; + $ENV{DEBIAN_PRIORITY} = $priority; + $ENV{DEBCONF_READFD} = 5; + $ENV{DEBCONF_WRITEFD} = 6; + $ENV{APT_LISTCHANGES_FRONTEND} = 'none'; + if ($had_frontend) { + $ENV{DEBCONF_DB_REPLACE} = 'configdb'; + $ENV{DEBCONF_DB_OVERRIDE} = 'Pipe{infd:none outfd:none}'; + } + exec @_; + } + + close STATUS_WRITE; + close COMMAND_READ; + close DEBCONF_COMMAND_WRITE; + close DEBCONF_REPLY_READ; + return $pid; +} + +sub handle_status ($$$) { + my ($from, $to, $line) = @_; + my ($status, $pkg, $percent, $description) = split ':', $line, 4; + + my ($min, $len); + if ($status eq 'dlstatus') { + $min = 0; + $len = $dlwaypoint; + } + elsif ($status eq 'pmstatus') { + $min = $dlwaypoint; + $len = 100 - $dlwaypoint; + } + elsif ($status eq 'media-change') { + Debconf::Client::ConfModule::subst( + 'debconf-apt-progress/media-change', 'MESSAGE', + $description); + my @ret = Debconf::Client::ConfModule::input( + 'critical', 'debconf-apt-progress/media-change'); + $ret[0] == 0 or die "Can't display media change request!\n"; + Debconf::Client::ConfModule::go(); + print COMMAND_WRITE "\n" || die "can't talk to command fd: $!"; + return; + } + else { + return; + } + + $percent = ($percent * $len / 100 + $min); + $percent = ($percent * ($to - $from) / 100 + $from); + $percent =~ s/\..*//; + if ($progress) { + my @ret=Debconf::Client::ConfModule::progress('SET', $percent); + if ($ret[0] eq '30') { + cancel(); + } + } + Debconf::Client::ConfModule::subst( + 'debconf-apt-progress/info', 'DESCRIPTION', $description); + my @ret=Debconf::Client::ConfModule::progress( + 'INFO', 'debconf-apt-progress/info'); + if ($ret[0] eq '30') { + cancel(); + } +} + +sub handle_debconf_command ($) { + my $line = shift; + + print "$line\n" || die "can't write to stdout: $!"; + my $ret = <STDIN>; + chomp $ret; + print DEBCONF_REPLY_WRITE "$ret\n" || + die "can't write to DEBCONF_REPLY_WRITE: $!"; +} + +my $pid; +sub run_progress ($$@) { + my $from = shift; + my $to = shift; + my $command = shift; + local (*STATUS_READ, *STATUS_WRITE); + local (*COMMAND_READ, *COMMAND_WRITE); + local (*DEBCONF_COMMAND_READ, *DEBCONF_COMMAND_WRITE); + local (*DEBCONF_REPLY_READ, *DEBCONF_REPLY_WRITE); + local *APT_LOG; + use IO::Handle; + + if ($progress) { + my @ret=Debconf::Client::ConfModule::progress( + 'INFO', 'debconf-apt-progress/preparing'); + if ($ret[0] eq '30') { + cancel(); + return 30; + } + } + + reservefds(4, 5, 6); + + pipe STATUS_READ, STATUS_WRITE + or die "$0: can't create status pipe: $!"; + nonblock(\*STATUS_READ); + checkdup2(fileno(STATUS_WRITE), 4); + open STATUS_WRITE, '>&=4' + or die "$0: can't reopen STATUS_WRITE as fd 4: $!"; + nocloexec(\*STATUS_WRITE); + + pipe COMMAND_READ, COMMAND_WRITE + or die "$0: can't create command pipe: $!"; + nocloexec(\*COMMAND_READ); + COMMAND_WRITE->autoflush(1); + + pipe DEBCONF_COMMAND_READ, DEBCONF_COMMAND_WRITE + or die "$0: can't create debconf command pipe: $!"; + nonblock(\*DEBCONF_COMMAND_READ); + checkdup2(fileno(DEBCONF_COMMAND_WRITE), 6); + open DEBCONF_COMMAND_WRITE, '>&=6' + or die "$0: can't reopen DEBCONF_COMMAND_WRITE as fd 6: $!"; + nocloexec(\*DEBCONF_COMMAND_WRITE); + + pipe DEBCONF_REPLY_READ, DEBCONF_REPLY_WRITE + or die "$0: can't create debconf reply pipe: $!"; + checkdup2(fileno(DEBCONF_REPLY_READ), 5); + open DEBCONF_REPLY_READ, '<&=5' + or die "$0: can't reopen DEBCONF_REPLY_READ as fd 5: $!"; + nocloexec(\*DEBCONF_REPLY_READ); + DEBCONF_REPLY_WRITE->autoflush(1); + + if (defined $logfile) { + open APT_LOG, '>>', $logfile + or die "$0: can't open $logfile: $!"; + } elsif ($logstderr) { + open APT_LOG, '>&STDERR' + or die "$0: can't duplicate stderr: $!"; + } else { + open APT_LOG, '>', '/dev/null' + or die "$0: can't open /dev/null: $!"; + } + nocloexec(\*APT_LOG); + + $pid = passthrough $command, + '-o', 'APT::Status-Fd=4', + '-o', 'APT::Keep-Fds::=5', + '-o', 'APT::Keep-Fds::=6', + @_; + + my $status_eof = 0; + my $debconf_command_eof = 0; + my $status_buf = ''; + my $debconf_command_buf = ''; + + while (not $status_eof) { + my $rin = ''; + my $rout; + vec($rin, fileno(STATUS_READ), 1) = 1; + vec($rin, fileno(DEBCONF_COMMAND_READ), 1) = 1 + unless $debconf_command_eof; + my $sel = select($rout = $rin, undef, undef, undef); + if ($sel < 0) { + next if $! == &POSIX::EINTR; + die "$0: select failed: $!"; + } + + if (vec($rout, fileno(STATUS_READ), 1) == 1) { + while (1) { + my $r = sysread(STATUS_READ, $status_buf, 4096, + length $status_buf); + if (not defined $r) { + next if $! == &POSIX::EINTR; + last if $! == &POSIX::EAGAIN or + $! == &POSIX::EWOULDBLOCK; + die "$0: read STATUS_READ failed: $!"; + } + elsif ($r == 0) { + if ($status_buf ne '' and + $status_buf !~ /\n$/) { + $status_buf .= "\n"; + } + $status_eof = 1; + last; + } + last if $status_buf =~ /\n/; + } + + while ($status_buf =~ /\n/) { + my $status_line; + ($status_line, $status_buf) = + split /\n/, $status_buf, 2; + handle_status $from, $to, $status_line; + } + } + + if (vec($rout, fileno(DEBCONF_COMMAND_READ), 1) == 1) { + while (1) { + my $r = sysread(DEBCONF_COMMAND_READ, + $debconf_command_buf, 4096, + length $debconf_command_buf); + if (not defined $r) { + next if $! == &POSIX::EINTR; + last if $! == &POSIX::EAGAIN or + $! == &POSIX::EWOULDBLOCK; + die "$0: read DEBCONF_COMMAND_READ " . + "failed: $!"; + } + elsif ($r == 0) { + if ($debconf_command_buf ne '' and + $debconf_command_buf !~ /\n$/) { + $debconf_command_buf .= "\n"; + } + $debconf_command_eof = 1; + last; + } + last if $debconf_command_buf =~ /\n/; + } + + while ($debconf_command_buf =~ /\n/) { + my $debconf_command_line; + ($debconf_command_line, $debconf_command_buf) = + split /\n/, $debconf_command_buf, 2; + handle_debconf_command $debconf_command_line; + } + } + } + + waitpid $pid, 0; + undef $pid; + my $status = $?; + + if ($progress) { + my @ret=Debconf::Client::ConfModule::progress('SET', $to); + if ($ret[0] eq '30') { + cancel(); + } + } + + if ($status & 127) { + return 127; + } + + return ($status >> 8); +} + +my $cancelled=0; +my $cancel_sent_signal=0; +sub cancel () { + $cancelled++; + if (defined $pid) { + $cancel_sent_signal++; + if ($cancel_sent_signal == 1) { + kill INT => $pid; + } + else { + kill KILL => $pid; + } + } +} + +sub start_bar ($$) { + my ($from, $to) = @_; + if ($progress) { + Debconf::Client::ConfModule::progress( + 'START', $from, $to, 'debconf-apt-progress/title'); + my @ret=Debconf::Client::ConfModule::progress( + 'INFO', 'debconf-apt-progress/preparing'); + if ($ret[0] eq '30') { + cancel(); + } + } +} + +sub stop_bar () { + Debconf::Client::ConfModule::progress('STOP') if $progress; + Debconf::Client::ConfModule::stop() unless $had_frontend; +} + +if (envnonempty('DEBCONF_APT_PROGRESS_DB_REPLACE')) { + $ENV{DEBCONF_DB_REPLACE} = $ENV{DEBCONF_APT_PROGRESS_DB_REPLACE}; +} else { + delete $ENV{DEBCONF_DB_REPLACE}; +} +if (envnonempty('DEBCONF_APT_PROGRESS_DB_OVERRIDE')) { + $ENV{DEBCONF_DB_OVERRIDE} = $ENV{DEBCONF_APT_PROGRESS_DB_OVERRIDE}; +} else { + delete $ENV{DEBCONF_DB_OVERRIDE}; +} +$had_frontend = 1 unless $ENV{DEBCONF_APT_PROGRESS_NO_FRONTEND}; +delete $ENV{DEBCONF_APT_PROGRESS_NO_FRONTEND}; # avoid inheritance + +my @saved_argv = @ARGV; + +my $result = GetOptions('config' => \$config, + 'start' => \$start, + 'from=i' => \$from, + 'to=i' => \$to, + 'stop' => \$stop, + 'logfile=s' => \$logfile, + 'logstderr' => \$logstderr, + 'progress!' => \$progress, + 'dlwaypoint=i' => \$dlwaypoint, +); + +if (! $progress && ($start || $from || $to || $stop)) { + die "--no-progress cannot be used with --start, --from, --to, or --stop\n"; +} + +unless ($start) { + if (defined $from and not defined $to) { + die "$0: --from requires --to\n"; + } elsif (defined $to and not defined $from) { + die "$0: --to requires --from\n"; + } +} + +my $mutex = 0; +++$mutex if $config; +++$mutex if $start; +++$mutex if $stop; +if ($mutex > 1) { + die "$0: must use only one of --config, --start, or --stop\n"; +} + +if (($config or $stop) and (defined $from or defined $to)) { + die "$0: cannot use --from or --to with --config or --stop\n"; +} + +start_debconf(@saved_argv) unless $config; + +my $status = 0; + +if ($config) { + print <<'EOF'; +DEBCONF_APT_PROGRESS_DB_REPLACE="$DEBCONF_DB_REPLACE" +DEBCONF_APT_PROGRESS_DB_OVERRIDE="$DEBCONF_DB_OVERRIDE" +export DEBCONF_APT_PROGRESS_DB_REPLACE DEBCONF_APT_PROGRESS_DB_OVERRIDE +DEBCONF_DB_REPLACE=configdb +DEBCONF_DB_OVERRIDE='Pipe{infd:none outfd:none}' +export DEBCONF_DB_REPLACE DEBCONF_DB_OVERRIDE +EOF +} elsif ($start) { + $from = 0 unless defined $from; + $to = 100 unless defined $to; + start_bar($from, $to); +} elsif (defined $from) { + $status = run_progress($from, $to, @ARGV); +} elsif ($stop) { + stop_bar(); +} else { + start_bar(0, 100); + if (! $cancelled) { + $status = run_progress(0, 100, @ARGV); + stop_bar(); + } +} + +if ($cancelled) { + Debconf::Client::ConfModule::get("debconf/priority"); + + exit 30; +} +elsif ($status == 30) { + exit 3; +} +else { + exit $status; +} + diff --git a/beagle/debian-rfs/usr/bin/debconf-communicate b/beagle/debian-rfs/usr/bin/debconf-communicate new file mode 100755 index 0000000..771def8 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/debconf-communicate @@ -0,0 +1,34 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + + +use strict; +use Debconf::Db; +use Debconf::AutoSelect qw(:all); +use Debconf::Config; +use Debconf::Gettext; + +Debconf::Db->load; + +Debconf::Config->getopt(gettext("Usage: debconf-communicate [options] [package]")); + +my $frontend=make_frontend(); +my $confmodule=make_confmodule(); +$confmodule->owner(shift) if @ARGV; +my $code=127; +autoflush STDOUT 1; + +while (<>) { + chomp; + my $ret=$confmodule->process_command($_); + ($code, undef)=split(/ /, $ret, 2); + print "$ret\n"; +} + +$frontend->shutdown; +$confmodule->finish; +Debconf::Db->save; +exit $code; + + diff --git a/beagle/debian-rfs/usr/bin/debconf-copydb b/beagle/debian-rfs/usr/bin/debconf-copydb new file mode 100755 index 0000000..82d9e2f --- /dev/null +++ b/beagle/debian-rfs/usr/bin/debconf-copydb @@ -0,0 +1,82 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +use strict; +use Getopt::Long; +use Debconf::Log qw{:all}; +use Debconf::Db; +use Debconf::DbDriver; +use Debconf::DbDriver::Backup; + + +sub usage { + print STDERR <<EOF; +Usage: debconf-copydb sourcedb destdb [--pattern=pattern] [--owner-pattern=pattern] [--config=Foo:bar] +EOF + exit(1); +} + + +my $pattern='.*'; +my $owner_pattern; + +my %config; +sub config { + my ($field, $value)=split(/\s*:\s*/, $_[1], 2); + $field=~tr/-/_/; + $field=lc($field); + die "Parse error: \"$_[1]\"" unless defined $field and length $field; + + if ($field eq 'name') { + if ($config{name}) { + Debconf::Db->makedriver(%config); + } + elsif (%config) { + warn "ignoring command line config data before $_[1]"; + } + %config=(); + } + + $config{$field}=$value; +} + +GetOptions( + "pattern|p=s" => \$pattern, + "config|c=s" => \&config, + "owner-pattern=s" => \$owner_pattern, +) || usage(); +Debconf::Db->makedriver(%config) if %config; + +my $srcname=shift || usage(); +my $destname=shift || usage(); + +Debconf::Db->load; + +my $src=Debconf::DbDriver->driver($srcname); +die "$0: source database, \"$srcname\" does not exist\n" unless ref $src; +my $dest=Debconf::DbDriver->driver($destname); +die "$0: destination database, \"$destname\" does not exist\n" unless ref $dest; + +my $copier=Debconf::DbDriver::Backup->new( + db => $src, backupdb => $dest, name => 'copier'); + +my $i=$copier->iterator; +while (my $item=$i->iterate) { + next unless $item =~ /$pattern/; + + if (defined $owner_pattern) { + my $fit_owner = 0; + my $owner; + foreach $owner ($src->owners($item)){ + $fit_owner = 1 if $owner =~ /$owner_pattern/; + } + next unless $fit_owner; + } + + $copier->copy($item, $src, $dest); +} + +$copier->shutdown; + + diff --git a/beagle/debian-rfs/usr/bin/debconf-escape b/beagle/debian-rfs/usr/bin/debconf-escape new file mode 100755 index 0000000..fdff906 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/debconf-escape @@ -0,0 +1,47 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +use strict; +use Getopt::Long; + +use vars qw($escape $unescape); + +sub usage { + print STDERR <<EOF; +Usage: debconf-unescape -e|-u < input-text + -e, --escape escape text + -u, --unescape unescape text + +Exactly one of -e or -u must be used. +EOF + exit(1); +} + +$escape=0; +$unescape=0; + +GetOptions( + "escape|e" => \$escape, + "unescape|u" => \$unescape, +) || usage(); + +if ($escape == $unescape) { + usage(); +} + +if ($escape) { + while (<>) { + s/\\/\\\\/g; + s/\n/\\n/g; + print; + } +} else { + while (<>) { + for (split /(\\.)/) { + s/\\(.)/$1 eq "n" ? "\n" : $1/eg; + print; + } + } +} + diff --git a/beagle/debian-rfs/usr/bin/debconf-set-selections b/beagle/debian-rfs/usr/bin/debconf-set-selections new file mode 100755 index 0000000..abf361c --- /dev/null +++ b/beagle/debian-rfs/usr/bin/debconf-set-selections @@ -0,0 +1,148 @@ +#!/usr/bin/perl +# This file was preprocessed, do not edit! + + +sub usage { + print STDERR <<EOF; +Usage: debconf-set-selections [-vcu] [file] + -v, --verbose verbose output + -c, --checkonly only check the input file format + -u, --unseen do not set the 'seen' flag when preseeding values +EOF + exit(1); +} + + +use warnings; +use strict; +use Debconf::Db; +use Debconf::Template; +use Getopt::Long; + +use vars qw(%opts $filename $debug $error $checkonly $unseen); + +sub info { + my $msg = shift; + print STDERR "info: $msg\n" if $debug; +} + +sub warning { + my $msg = shift; + print STDERR "warning: $msg\n"; +} + +sub error { + my $msg = shift; + print STDERR "error: $msg\n"; + $error++ +} + +sub load_answer { + my ($owner, $label, $type, $content) = @_; + + info "Loading answer for '$label'"; + + my $template=Debconf::Template->get($label); + if (! $template) { + $template=Debconf::Template->new($label, $owner, $type); + $template->description("Dummy template"); + $template->extended_description("This is a fake template used to pre-seed the debconf database. If you are seeing this, something is probably wrong."); + } + else { + $template->default($content); + } + $template->type($type); + + my $question=Debconf::Question->get($label); + if (! $question) { + error("Cannot find a question for $label"); + return; + } + $question->addowner($owner, $type); + $question->value($content); + if (! $unseen) { + $question->flag("seen", "true"); + } +} + +sub set_flag { + my ($owner, $label, $flag, $content) = @_; + + info "Setting $flag flag"; + + my $question=Debconf::Question->get($label); + if (! $question) { + error("Cannot find a question for $label"); + return; + } + $question->flag($flag, $content); +} + +my @knowntypes = qw(select boolean string multiselect note password text title); +my @knownflags = qw(seen); + +sub ok_format { + my ($owner, $label, $type, $content) = @_; + if (! defined $owner || ! defined $label || ! defined $content) { + error "parse error on line $.: '$_'"; + return; + } + elsif (! grep { $_ eq $type } @knowntypes, @knownflags) { + warning "Unknown type $type, skipping line $."; + return; + } + else { + return 1; + } +} + +sub mungeline ($) { + my $line=shift; + chomp $line; + $line=~s/\#.*$//; + $line=~s/\r$//; + return $line; +} + + +GetOptions( + "verbose|v" => \$debug, + "checkonly|c" => \$checkonly, + "unseen|u" => \$unseen, +) || usage(); + +Debconf::Db->load; + +$error = 0; + +while (<>) { + $_=mungeline($_); + while (/\\$/ && ! eof) { + s/\\$//; + $_.=mungeline(<>); + } + next if /^\s*$/; + my ($owner, $label, $type, $content) = /^\s*(\S+)\s+(\S+)\s+(\S+)(?:\s(.*))?/; + if (! defined $content) { + $content=''; + } + if (ok_format($owner, $label, $type, $content)) { + if (grep { $_ eq $type } @knownflags) { + info "Trying to set '$type' flag to '$content'"; + set_flag($owner, $label, $type, $content); + } + else { + info "Trying to set '$label' [$type] to '$content'"; + load_answer($owner, $label, $type, $content); + } + } +} + +if (! $checkonly) { + Debconf::Db->save; +} + +if ($error) { + exit 1; +} + diff --git a/beagle/debian-rfs/usr/bin/debconf-show b/beagle/debian-rfs/usr/bin/debconf-show new file mode 100755 index 0000000..b47fef4 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/debconf-show @@ -0,0 +1,103 @@ +#!/usr/bin/perl +# This file was preprocessed, do not edit! + + +sub usage { + print STDERR <<EOF; +Usage: + debconf-show packagename [...] [--db=dbname] + debconf-show --listowners [--db=dbname] + debconf-show --listdbs +EOF + exit(1); +} + + +use strict; +use warnings; +use Debconf::Db; +use Debconf::Template; +use Debconf::Question; +use Getopt::Long; + +my $db=''; +my $listowners=0; +my @packages; +my $listdbs=0; + +GetOptions( + "db=s" => \$db, + "listowners" => \$listowners, + "listdbs" => \$listdbs, +) || usage(); + +unless ($listowners or $listdbs) { + @packages=@ARGV; + usage() unless @packages; +} + +Debconf::Db->load(readonly => 'true'); + +my %drivers = %Debconf::DbDriver::drivers; +my $conf = Debconf::Config->config; + +sub tree { + my $node=shift; + my $string=shift || ""; + my $driver = Debconf::DbDriver->driver($node); + my $name = $driver->{name}; + + $string = $string.$name; + print $string."\n"; + + if ($driver->isa("Debconf::DbDriver::Stack")) { + $string=$string.'/'; + map { tree($_->{name},$string) } @{$driver->{stack}}; + } +} + +if ($db) { + my $driver = $drivers{$db}; + die $db.": unknown database" unless defined($driver); + $Debconf::Db::config = $driver; +} + +my $qi=Debconf::Question->iterator; + +if ($listdbs) { + tree($conf); +} +elsif (@packages) { + while (my $q=$qi->iterate) { + foreach my $package (@packages) { + if (grep { $package eq $_} split(/, /, $q->owners)) { + if ($q->flag("seen") eq 'true') { + print "* "; + } + else { + print " "; + } + print $q->name.":"; + if ($q->type eq 'password') { + print " (password omitted)"; + } + elsif (length $q->value) { + print " ".$q->value; + } + print "\n"; + } + } + } +} +elsif ($listowners) { + my %seen; + while (my $q=$qi->iterate) { + foreach (split(/, /, $q->owners)) { + unless ($seen{$_}) { + print "$_\n"; + $seen{$_}=1; + } + } + } +} + diff --git a/beagle/debian-rfs/usr/bin/delpart b/beagle/debian-rfs/usr/bin/delpart Binary files differnew file mode 100755 index 0000000..5082350 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/delpart diff --git a/beagle/debian-rfs/usr/bin/diff b/beagle/debian-rfs/usr/bin/diff Binary files differnew file mode 100755 index 0000000..0ab3527 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/diff diff --git a/beagle/debian-rfs/usr/bin/diff3 b/beagle/debian-rfs/usr/bin/diff3 Binary files differnew file mode 100755 index 0000000..675fd4b --- /dev/null +++ b/beagle/debian-rfs/usr/bin/diff3 diff --git a/beagle/debian-rfs/usr/bin/dircolors b/beagle/debian-rfs/usr/bin/dircolors Binary files differnew file mode 100755 index 0000000..df9ef4a --- /dev/null +++ b/beagle/debian-rfs/usr/bin/dircolors diff --git a/beagle/debian-rfs/usr/bin/dirname b/beagle/debian-rfs/usr/bin/dirname Binary files differnew file mode 100755 index 0000000..5d23f28 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/dirname diff --git a/beagle/debian-rfs/usr/bin/dpkg b/beagle/debian-rfs/usr/bin/dpkg Binary files differnew file mode 100755 index 0000000..d8a4c0f --- /dev/null +++ b/beagle/debian-rfs/usr/bin/dpkg diff --git a/beagle/debian-rfs/usr/bin/dpkg-deb b/beagle/debian-rfs/usr/bin/dpkg-deb Binary files differnew file mode 100755 index 0000000..c84625b --- /dev/null +++ b/beagle/debian-rfs/usr/bin/dpkg-deb diff --git a/beagle/debian-rfs/usr/bin/dpkg-divert b/beagle/debian-rfs/usr/bin/dpkg-divert Binary files differnew file mode 100755 index 0000000..d048e6c --- /dev/null +++ b/beagle/debian-rfs/usr/bin/dpkg-divert diff --git a/beagle/debian-rfs/usr/bin/dpkg-maintscript-helper b/beagle/debian-rfs/usr/bin/dpkg-maintscript-helper new file mode 100755 index 0000000..def6b67 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/dpkg-maintscript-helper @@ -0,0 +1,324 @@ +#!/bin/sh +# +# Copyright © 2010 Raphaël Hertzog <hertzog@debian.org> +# Copyright © 2008 Joey Hess <joeyh@debian.org> +# Copyright © 2007 Guillem Jover (modifications on wiki.debian.org) +# Copyright © 2005 Scott James Remnant (original implementation on www.dpkg.org) +# +# 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, see <http://www.gnu.org/licenses/>. + +# The conffile related functions are inspired by +# http://wiki.debian.org/DpkgConffileHandling + +# This script is documented in dpkg-maintscript-helper(1) + +## +## Functions to remove an obsolete conffile during upgrade +## +rm_conffile() { + local CONFFILE="$1" + local LASTVERSION="$2" + local PACKAGE="$3" + if [ "$LASTVERSION" = "--" ]; then + LASTVERSION="" + PACKAGE="$DPKG_MAINTSCRIPT_PACKAGE" + fi + if [ "$PACKAGE" = "--" -o -z "$PACKAGE" ]; then + PACKAGE="$DPKG_MAINTSCRIPT_PACKAGE" + fi + # Skip remaining parameters up to -- + while [ "$1" != "--" -a $# -gt 0 ]; do shift; done + [ $# -gt 0 ] || badusage + shift + + [ -n "$PACKAGE" ] || error "couldn't identify the package" + [ -n "$1" ] || error "maintainer script parameters are missing" + [ -n "$DPKG_MAINTSCRIPT_NAME" ] || \ + error "environment variable DPKG_MAINTSCRIPT_NAME is required" + + debug "Executing $0 rm_conffile in $DPKG_MAINTSCRIPT_NAME "\ + "of $DPKG_MAINTSCRIPT_PACKAGE" + debug "CONFFILE=$CONFFILE PACKAGE=$PACKAGE "\ + "LASTVERSION=$LASTVERSION ACTION=$1 PARAM=$2" + case "$DPKG_MAINTSCRIPT_NAME" in + preinst) + if [ "$1" = "install" -o "$1" = "upgrade" ] && [ -n "$2" ] && + dpkg --compare-versions "$2" le-nl "$LASTVERSION"; then + prepare_rm_conffile "$CONFFILE" "$PACKAGE" + fi + ;; + postinst) + if [ "$1" = "configure" ] && [ -n "$2" ] && + dpkg --compare-versions "$2" le-nl "$LASTVERSION"; then + finish_rm_conffile $CONFFILE + fi + ;; + postrm) + if [ "$1" = "purge" ]; then + rm -f "$CONFFILE.dpkg-bak" "$CONFFILE.dpkg-remove" \ + "$CONFFILE.dpkg-backup" + fi + if [ "$1" = "abort-install" -o "$1" = "abort-upgrade" ] && + [ -n "$2" ] && + dpkg --compare-versions "$2" le-nl "$LASTVERSION"; then + abort_rm_conffile "$CONFFILE" + fi + ;; + *) + debug "$0 rm_conffile not required in $DPKG_MAINTSCRIPT_NAME" + ;; + esac +} + +prepare_rm_conffile() { + local CONFFILE="$1" + local PACKAGE="$2" + + [ -e "$CONFFILE" ] || return 0 + + local md5sum="$(md5sum $CONFFILE | sed -e 's/ .*//')" + local old_md5sum="$(dpkg-query -W -f='${Conffiles}' $PACKAGE | \ + sed -n -e "\' $CONFFILE ' { s/ obsolete$//; s/.* //; p }")" + if [ "$md5sum" != "$old_md5sum" ]; then + echo "Obsolete conffile $CONFFILE has been modified by you." + echo "Saving as $CONFFILE.dpkg-bak ..." + mv -f "$CONFFILE" "$CONFFILE.dpkg-backup" + else + echo "Moving obsolete conffile $CONFFILE out of the way..." + mv -f "$CONFFILE" "$CONFFILE.dpkg-remove" + fi +} + +finish_rm_conffile() { + local CONFFILE="$1" + + if [ -e "$CONFFILE.dpkg-backup" ]; then + mv -f "$CONFFILE.dpkg-backup" "$CONFFILE.dpkg-bak" + fi + if [ -e "$CONFFILE.dpkg-remove" ]; then + echo "Removing obsolete conffile $CONFFILE ..." + rm -f "$CONFFILE.dpkg-remove" + fi +} + +abort_rm_conffile() { + local CONFFILE="$1" + + if [ -e "$CONFFILE.dpkg-remove" ]; then + echo "Reinstalling $CONFFILE that was moved away" + mv "$CONFFILE.dpkg-remove" "$CONFFILE" + fi + if [ -e "$CONFFILE.dpkg-backup" ]; then + echo "Reinstalling $CONFFILE that was backupped" + mv "$CONFFILE.dpkg-backup" "$CONFFILE" + fi +} + +## +## Functions to rename a conffile during upgrade +## +mv_conffile() { + local OLDCONFFILE="$1" + local NEWCONFFILE="$2" + local LASTVERSION="$3" + local PACKAGE="$4" + if [ "$LASTVERSION" = "--" ]; then + LASTVERSION="" + PACKAGE="$DPKG_MAINTSCRIPT_PACKAGE" + fi + if [ "$PACKAGE" = "--" -o -z "$PACKAGE" ]; then + PACKAGE="$DPKG_MAINTSCRIPT_PACKAGE" + fi + # Skip remaining parameters up to -- + while [ "$1" != "--" -a $# -gt 0 ]; do shift; done + [ $# -gt 0 ] || badusage + shift + + [ -n "$PACKAGE" ] || error "couldn't identify the package" + [ -n "$1" ] || error "maintainer script parameters are missing" + [ -n "$DPKG_MAINTSCRIPT_NAME" ] || \ + error "environment variable DPKG_MAINTSCRIPT_NAME is required" + + debug "Executing $0 mv_conffile in $DPKG_MAINTSCRIPT_NAME "\ + "of $DPKG_MAINTSCRIPT_PACKAGE" + debug "CONFFILE=$OLDCONFFILE -> $NEWCONFFILE PACKAGE=$PACKAGE "\ + "LASTVERSION=$LASTVERSION ACTION=$1 PARAM=$2" + case "$DPKG_MAINTSCRIPT_NAME" in + preinst) + if [ "$1" = "install" -o "$1" = "upgrade" ] && [ -n "$2" ] && + dpkg --compare-versions "$2" le-nl "$LASTVERSION"; then + prepare_mv_conffile "$OLDCONFFILE" "$PACKAGE" + fi + ;; + postinst) + if [ "$1" = "configure" ] && [ -n "$2" ] && + dpkg --compare-versions "$2" le-nl "$LASTVERSION"; then + finish_mv_conffile "$OLDCONFFILE" "$NEWCONFFILE" + fi + ;; + postrm) + if [ "$1" = "abort-install" -o "$1" = "abort-upgrade" ] && + [ -n "$2" ] && + dpkg --compare-versions "$2" le-nl "$LASTVERSION"; then + abort_mv_conffile "$OLDCONFFILE" + fi + ;; + *) + debug "$0 mv_conffile not required in $DPKG_MAINTSCRIPT_NAME" + ;; + esac +} + +prepare_mv_conffile() { + local CONFFILE="$1" + local PACKAGE="$2" + + [ -e "$CONFFILE" ] || return 0 + + local md5sum="$(md5sum $CONFFILE | sed -e 's/ .*//')" + local old_md5sum="$(dpkg-query -W -f='${Conffiles}' $PACKAGE | \ + sed -n -e "\' $CONFFILE ' { s/ obsolete$//; s/.* //; p }")" + if [ "$md5sum" = "$old_md5sum" ]; then + mv -f "$CONFFILE" "$CONFFILE.dpkg-remove" + fi +} + +finish_mv_conffile() { + local OLDCONFFILE="$1" + local NEWCONFFILE="$2" + + rm -f $OLDCONFFILE.dpkg-remove + + [ -e "$OLDCONFFILE" ] || return 0 + + echo "Preserving user changes to $NEWCONFFILE (renamed from $OLDCONFFILE)..." + mv -f "$NEWCONFFILE" "$NEWCONFFILE.dpkg-new" + mv -f "$OLDCONFFILE" "$NEWCONFFILE" +} + +abort_mv_conffile() { + local CONFFILE="$1" + + if [ -e "$CONFFILE.dpkg-remove" ]; then + echo "Reinstalling $CONFFILE that was moved away" + mv "$CONFFILE.dpkg-remove" "$CONFFILE" + fi +} + +# Common functions +debug() { + if [ -n "$DPKG_DEBUG" ]; then + echo "DEBUG: $PROGNAME: $1" >&2 + fi +} + +error() { + echo "$PROGNAME: error: $1" >&2 + exit 1 +} + +warning() { + echo "$PROGNAME: warning: $1" >&2 +} + +usage() { + cat <<END +Syntax: $0 <command> <parameters> -- <maintainer script parameters> + +Commands and parameters: + + supports <command> + Returns 0 (success) if the given command is supported, 1 + otherwise. + + rm_conffile <conffile> [<last-version> [<package>]] + Remove obsolete conffile. + Must be called in preinst, postinst and postrm. + + mv_conffile <old-conf> <new-conf> [<last-version> [<package>]] + Rename a conffile. + Must be called in preinst, postinst and postrm. + + help + Display this usage information. +END +} + +badusage() { + usage + exit 1 +} + +# Main code +set -e + +PROGNAME=$(basename $0) +version="1.15.8.10" +command="$1" +[ $# -gt 0 ] || badusage +shift + +case "$command" in +supports) + case "$1" in + rm_conffile|mv_conffile) + code=0 + ;; + *) + code=1 + ;; + esac + if [ -z "$DPKG_MAINTSCRIPT_NAME" ]; then + warning "environment variable DPKG_MAINTSCRIPT_NAME missing" + code=1 + fi + if [ -z "$DPKG_MAINTSCRIPT_PACKAGE" ]; then + warning "environment variable DPKG_MAINTSCRIPT_PACKAGE missing" + code=1 + fi + exit $code + ;; +rm_conffile) + rm_conffile "$@" + ;; +mv_conffile) + mv_conffile "$@" + ;; +--help|help|-?|-h) + usage + ;; +--version) + cat <<-END + Debian $PROGNAME version $version. + + Copyright (C) 2010 Raphaël Hertzog <hertzog@debian.org> + Copyright (C) 2008 Joey Hess <joeyh@debian.org> + Copyright (C) 2007 Guillem Jover <guillem@debian.org> + Copyright (C) 2005 Scott James Remnant + + This is free software; see the GNU General Public License version 2 or + later for copying conditions. There is NO warranty. + END + ;; +*) + cat >&2 <<-END + $PROGNAME: error: command $command is unknown + Hint: upgrading dpkg to a newer version might help. + + END + usage + exit 1 +esac + +exit 0 diff --git a/beagle/debian-rfs/usr/bin/dpkg-query b/beagle/debian-rfs/usr/bin/dpkg-query Binary files differnew file mode 100755 index 0000000..bbf69fe --- /dev/null +++ b/beagle/debian-rfs/usr/bin/dpkg-query diff --git a/beagle/debian-rfs/usr/bin/dpkg-split b/beagle/debian-rfs/usr/bin/dpkg-split Binary files differnew file mode 100755 index 0000000..725f827 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/dpkg-split diff --git a/beagle/debian-rfs/usr/bin/dpkg-statoverride b/beagle/debian-rfs/usr/bin/dpkg-statoverride Binary files differnew file mode 100755 index 0000000..adaf31a --- /dev/null +++ b/beagle/debian-rfs/usr/bin/dpkg-statoverride diff --git a/beagle/debian-rfs/usr/bin/dpkg-trigger b/beagle/debian-rfs/usr/bin/dpkg-trigger Binary files differnew file mode 100755 index 0000000..37ee09b --- /dev/null +++ b/beagle/debian-rfs/usr/bin/dpkg-trigger diff --git a/beagle/debian-rfs/usr/bin/du b/beagle/debian-rfs/usr/bin/du Binary files differnew file mode 100755 index 0000000..b497ced --- /dev/null +++ b/beagle/debian-rfs/usr/bin/du diff --git a/beagle/debian-rfs/usr/bin/env b/beagle/debian-rfs/usr/bin/env Binary files differnew file mode 100755 index 0000000..a7c4616 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/env diff --git a/beagle/debian-rfs/usr/bin/expand b/beagle/debian-rfs/usr/bin/expand Binary files differnew file mode 100755 index 0000000..cad6d8b --- /dev/null +++ b/beagle/debian-rfs/usr/bin/expand diff --git a/beagle/debian-rfs/usr/bin/expiry b/beagle/debian-rfs/usr/bin/expiry Binary files differnew file mode 100755 index 0000000..de8721f --- /dev/null +++ b/beagle/debian-rfs/usr/bin/expiry diff --git a/beagle/debian-rfs/usr/bin/expr b/beagle/debian-rfs/usr/bin/expr Binary files differnew file mode 100755 index 0000000..d409159 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/expr diff --git a/beagle/debian-rfs/usr/bin/factor b/beagle/debian-rfs/usr/bin/factor Binary files differnew file mode 100755 index 0000000..a49927c --- /dev/null +++ b/beagle/debian-rfs/usr/bin/factor diff --git a/beagle/debian-rfs/usr/bin/faillog b/beagle/debian-rfs/usr/bin/faillog Binary files differnew file mode 100755 index 0000000..f1628f5 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/faillog diff --git a/beagle/debian-rfs/usr/bin/fallocate b/beagle/debian-rfs/usr/bin/fallocate Binary files differnew file mode 100755 index 0000000..7100cff --- /dev/null +++ b/beagle/debian-rfs/usr/bin/fallocate diff --git a/beagle/debian-rfs/usr/bin/find b/beagle/debian-rfs/usr/bin/find Binary files differnew file mode 100755 index 0000000..f1f13e3 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/find diff --git a/beagle/debian-rfs/usr/bin/flock b/beagle/debian-rfs/usr/bin/flock Binary files differnew file mode 100755 index 0000000..2312a76 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/flock diff --git a/beagle/debian-rfs/usr/bin/fmt b/beagle/debian-rfs/usr/bin/fmt Binary files differnew file mode 100755 index 0000000..ce88c48 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/fmt diff --git a/beagle/debian-rfs/usr/bin/fold b/beagle/debian-rfs/usr/bin/fold Binary files differnew file mode 100755 index 0000000..246e8b7 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/fold diff --git a/beagle/debian-rfs/usr/bin/getconf b/beagle/debian-rfs/usr/bin/getconf Binary files differnew file mode 100755 index 0000000..1f73b8b --- /dev/null +++ b/beagle/debian-rfs/usr/bin/getconf diff --git a/beagle/debian-rfs/usr/bin/getent b/beagle/debian-rfs/usr/bin/getent Binary files differnew file mode 100755 index 0000000..fbd1553 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/getent diff --git a/beagle/debian-rfs/usr/bin/getopt b/beagle/debian-rfs/usr/bin/getopt Binary files differnew file mode 100755 index 0000000..98e4dfd --- /dev/null +++ b/beagle/debian-rfs/usr/bin/getopt diff --git a/beagle/debian-rfs/usr/bin/gpasswd b/beagle/debian-rfs/usr/bin/gpasswd Binary files differnew file mode 100755 index 0000000..6fc6a52 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/gpasswd diff --git a/beagle/debian-rfs/usr/bin/groups b/beagle/debian-rfs/usr/bin/groups Binary files differnew file mode 100755 index 0000000..af7347b --- /dev/null +++ b/beagle/debian-rfs/usr/bin/groups diff --git a/beagle/debian-rfs/usr/bin/head b/beagle/debian-rfs/usr/bin/head Binary files differnew file mode 100755 index 0000000..3932a30 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/head diff --git a/beagle/debian-rfs/usr/bin/hostid b/beagle/debian-rfs/usr/bin/hostid Binary files differnew file mode 100755 index 0000000..7d04a50 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/hostid diff --git a/beagle/debian-rfs/usr/bin/iconv b/beagle/debian-rfs/usr/bin/iconv Binary files differnew file mode 100755 index 0000000..4173cf6 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/iconv diff --git a/beagle/debian-rfs/usr/bin/id b/beagle/debian-rfs/usr/bin/id Binary files differnew file mode 100755 index 0000000..688f33a --- /dev/null +++ b/beagle/debian-rfs/usr/bin/id diff --git a/beagle/debian-rfs/usr/bin/infocmp b/beagle/debian-rfs/usr/bin/infocmp Binary files differnew file mode 100755 index 0000000..7283425 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/infocmp diff --git a/beagle/debian-rfs/usr/bin/infotocap b/beagle/debian-rfs/usr/bin/infotocap new file mode 120000 index 0000000..4c747a3 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/infotocap @@ -0,0 +1 @@ +tic
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/install b/beagle/debian-rfs/usr/bin/install Binary files differnew file mode 100755 index 0000000..5b90aa1 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/install diff --git a/beagle/debian-rfs/usr/bin/ionice b/beagle/debian-rfs/usr/bin/ionice Binary files differnew file mode 100755 index 0000000..f2e9008 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/ionice diff --git a/beagle/debian-rfs/usr/bin/ipcmk b/beagle/debian-rfs/usr/bin/ipcmk Binary files differnew file mode 100755 index 0000000..f66fb2a --- /dev/null +++ b/beagle/debian-rfs/usr/bin/ipcmk diff --git a/beagle/debian-rfs/usr/bin/ipcrm b/beagle/debian-rfs/usr/bin/ipcrm Binary files differnew file mode 100755 index 0000000..6cfe33f --- /dev/null +++ b/beagle/debian-rfs/usr/bin/ipcrm diff --git a/beagle/debian-rfs/usr/bin/ipcs b/beagle/debian-rfs/usr/bin/ipcs Binary files differnew file mode 100755 index 0000000..769aaa7 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/ipcs diff --git a/beagle/debian-rfs/usr/bin/join b/beagle/debian-rfs/usr/bin/join Binary files differnew file mode 100755 index 0000000..b866af5 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/join diff --git a/beagle/debian-rfs/usr/bin/last b/beagle/debian-rfs/usr/bin/last Binary files differnew file mode 100755 index 0000000..dd0d58b --- /dev/null +++ b/beagle/debian-rfs/usr/bin/last diff --git a/beagle/debian-rfs/usr/bin/lastb b/beagle/debian-rfs/usr/bin/lastb new file mode 120000 index 0000000..1c1206e --- /dev/null +++ b/beagle/debian-rfs/usr/bin/lastb @@ -0,0 +1 @@ +last
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/lastlog b/beagle/debian-rfs/usr/bin/lastlog Binary files differnew file mode 100755 index 0000000..4cc986a --- /dev/null +++ b/beagle/debian-rfs/usr/bin/lastlog diff --git a/beagle/debian-rfs/usr/bin/ldd b/beagle/debian-rfs/usr/bin/ldd new file mode 100755 index 0000000..186a8bd --- /dev/null +++ b/beagle/debian-rfs/usr/bin/ldd @@ -0,0 +1,192 @@ +#! /bin/bash +# Copyright (C) 1996-2008, 2009 Free Software Foundation, Inc. +# This file is part of the GNU C Library. + +# The GNU C 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. + +# The GNU C 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 the GNU C Library; if not, write to the Free +# Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA +# 02111-1307 USA. + + +# This is the `ldd' command, which lists what shared libraries are +# used by given dynamically-linked executables. It works by invoking the +# run-time dynamic linker as a command and setting the environment +# variable LD_TRACE_LOADED_OBJECTS to a non-empty value. + +# We should be able to find the translation right at the beginning. +TEXTDOMAIN=libc +TEXTDOMAINDIR=/usr/share/locale + +RTLDLIST=/lib/ld-linux.so.3 +warn= +bind_now= +verbose= + +while test $# -gt 0; do + case "$1" in + --vers | --versi | --versio | --version) + echo 'ldd (Debian EGLIBC 2.11.2-10) 2.11.2' + printf $"Copyright (C) %s Free Software Foundation, Inc. +This is free software; see the source for copying conditions. There is NO +warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +" "2009" + printf $"Written by %s and %s. +" "Roland McGrath" "Ulrich Drepper" + exit 0 + ;; + --h | --he | --hel | --help) + printf $"Usage: ldd [OPTION]... FILE... + --help print this help and exit + --version print version information and exit + -d, --data-relocs process data relocations + -r, --function-relocs process data and function relocations + -u, --unused print unused direct dependencies + -v, --verbose print all information +" + printf $"For bug reporting instructions, please see: +%s. +" "<http://www.debian.org/Bugs/>" + exit 0 + ;; + -d | --d | --da | --dat | --data | --data- | --data-r | --data-re | \ + --data-rel | --data-relo | --data-reloc | --data-relocs) + warn=yes + shift + ;; + -r | --f | --fu | --fun | --func | --funct | --functi | --functio | \ + --function | --function- | --function-r | --function-re | --function-rel | \ + --function-relo | --function-reloc | --function-relocs) + warn=yes + bind_now=yes + shift + ;; + -v | --verb | --verbo | --verbos | --verbose) + verbose=yes + shift + ;; + -u | --u | --un | --unu | --unus | --unuse | --unused) + unused=yes + shift + ;; + --v | --ve | --ver) + echo >&2 $"ldd: option \`$1' is ambiguous" + exit 1 + ;; + --) # Stop option processing. + shift; break + ;; + -*) + echo >&2 'ldd:' $"unrecognized option" "\`$1'" + echo >&2 $"Try \`ldd --help' for more information." + exit 1 + ;; + *) + break + ;; + esac +done + +nonelf () +{ + # Maybe extra code for non-ELF binaries. + return 1; +} + +add_env="LD_TRACE_LOADED_OBJECTS=1 LD_WARN=$warn LD_BIND_NOW=$bind_now" +add_env="$add_env LD_VERBOSE=$verbose" +if test "$unused" = yes; then + add_env="$add_env LD_DEBUG=\"$LD_DEBUG${LD_DEBUG:+,}unused\"" +fi + +# The following use of cat is needed to make ldd work in SELinux +# environments where the executed program might not have permissions +# to write to the console/tty. But only bash 3.x supports the pipefail +# option, and we don't bother to handle the case for older bash versions. +if x=`set -o` && test "$x" != "${x#*pipefail}" && set -o pipefail ; then + try_trace() { + eval $add_env '"$@"' | cat + } +else + try_trace() { + eval $add_env '"$@"' + } +fi + +case $# in +0) + echo >&2 'ldd:' $"missing file arguments" + echo >&2 $"Try \`ldd --help' for more information." + exit 1 + ;; +1) + single_file=t + ;; +*) + single_file=f + ;; +esac + +result=0 +for file do + # We don't list the file name when there is only one. + test $single_file = t || echo "${file}:" + case $file in + */*) : + ;; + *) file=./$file + ;; + esac + if test ! -e "$file"; then + echo "ldd: ${file}:" $"No such file or directory" >&2 + result=1 + elif test ! -f "$file"; then + echo "ldd: ${file}:" $"not regular file" >&2 + result=1 + elif test -r "$file"; then + RTLD= + ret=1 + for rtld in ${RTLDLIST}; do + if test -x $rtld; then + verify_out=`${rtld} --verify "$file"` + ret=$? + case $ret in + [02]) RTLD=${rtld}; break;; + esac + fi + done + case $ret in + 0|2) + try_trace "$RTLD" "$file" || result=1 + ;; + 1|126) + # This can be a non-ELF binary or no binary at all. + nonelf "$file" || { + echo $" not a dynamic executable" + result=1 + } + ;; + *) + echo 'ldd:' ${RTLD} $"exited with unknown exit code" "($ret)" >&2 + exit 1 + ;; + esac + else + echo 'ldd:' $"error: you do not have read permission for" "\`$file'" >&2 + result=1 + fi +done + +exit $result +# Local Variables: +# mode:ksh +# End: diff --git a/beagle/debian-rfs/usr/bin/line b/beagle/debian-rfs/usr/bin/line Binary files differnew file mode 100755 index 0000000..af28397 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/line diff --git a/beagle/debian-rfs/usr/bin/link b/beagle/debian-rfs/usr/bin/link Binary files differnew file mode 100755 index 0000000..7d9dda4 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/link diff --git a/beagle/debian-rfs/usr/bin/linux32 b/beagle/debian-rfs/usr/bin/linux32 new file mode 120000 index 0000000..da0d0cc --- /dev/null +++ b/beagle/debian-rfs/usr/bin/linux32 @@ -0,0 +1 @@ +setarch
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/linux64 b/beagle/debian-rfs/usr/bin/linux64 new file mode 120000 index 0000000..da0d0cc --- /dev/null +++ b/beagle/debian-rfs/usr/bin/linux64 @@ -0,0 +1 @@ +setarch
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/locale b/beagle/debian-rfs/usr/bin/locale Binary files differnew file mode 100755 index 0000000..2f3cba4 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/locale diff --git a/beagle/debian-rfs/usr/bin/localedef b/beagle/debian-rfs/usr/bin/localedef Binary files differnew file mode 100755 index 0000000..8874fb7 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/localedef diff --git a/beagle/debian-rfs/usr/bin/logger b/beagle/debian-rfs/usr/bin/logger Binary files differnew file mode 100755 index 0000000..fe06467 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/logger diff --git a/beagle/debian-rfs/usr/bin/logname b/beagle/debian-rfs/usr/bin/logname Binary files differnew file mode 100755 index 0000000..777e5dd --- /dev/null +++ b/beagle/debian-rfs/usr/bin/logname diff --git a/beagle/debian-rfs/usr/bin/lsattr b/beagle/debian-rfs/usr/bin/lsattr Binary files differnew file mode 100755 index 0000000..4705961 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/lsattr diff --git a/beagle/debian-rfs/usr/bin/lscpu b/beagle/debian-rfs/usr/bin/lscpu Binary files differnew file mode 100755 index 0000000..4ae0cf9 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/lscpu diff --git a/beagle/debian-rfs/usr/bin/lzmainfo b/beagle/debian-rfs/usr/bin/lzmainfo Binary files differnew file mode 100755 index 0000000..f163802 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/lzmainfo diff --git a/beagle/debian-rfs/usr/bin/mawk b/beagle/debian-rfs/usr/bin/mawk Binary files differnew file mode 100755 index 0000000..1fa2553 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/mawk diff --git a/beagle/debian-rfs/usr/bin/mcookie b/beagle/debian-rfs/usr/bin/mcookie Binary files differnew file mode 100755 index 0000000..124236a --- /dev/null +++ b/beagle/debian-rfs/usr/bin/mcookie diff --git a/beagle/debian-rfs/usr/bin/md5sum b/beagle/debian-rfs/usr/bin/md5sum Binary files differnew file mode 100755 index 0000000..c7e2920 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/md5sum diff --git a/beagle/debian-rfs/usr/bin/md5sum.textutils b/beagle/debian-rfs/usr/bin/md5sum.textutils new file mode 120000 index 0000000..a620625 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/md5sum.textutils @@ -0,0 +1 @@ +md5sum
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/mesg b/beagle/debian-rfs/usr/bin/mesg Binary files differnew file mode 100755 index 0000000..2bd38bb --- /dev/null +++ b/beagle/debian-rfs/usr/bin/mesg diff --git a/beagle/debian-rfs/usr/bin/mkfifo b/beagle/debian-rfs/usr/bin/mkfifo Binary files differnew file mode 100755 index 0000000..4d80446 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/mkfifo diff --git a/beagle/debian-rfs/usr/bin/namei b/beagle/debian-rfs/usr/bin/namei Binary files differnew file mode 100755 index 0000000..65eaf7a --- /dev/null +++ b/beagle/debian-rfs/usr/bin/namei diff --git a/beagle/debian-rfs/usr/bin/ncurses5-config b/beagle/debian-rfs/usr/bin/ncurses5-config new file mode 100755 index 0000000..265f516 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/ncurses5-config @@ -0,0 +1,166 @@ +#!/bin/sh +# $Id: ncurses-config.in,v 1.24 2010/02/06 22:12:16 Miroslav.Lichvar Exp $ +############################################################################## +# Copyright (c) 2006-2009,2010 Free Software Foundation, Inc. # +# # +# Permission is hereby granted, free of charge, to any person obtaining a # +# copy of this software and associated documentation files (the "Software"), # +# to deal in the Software without restriction, including without limitation # +# the rights to use, copy, modify, merge, publish, distribute, distribute # +# with modifications, sublicense, and/or sell copies of the Software, and to # +# permit persons to whom the Software is furnished to do so, subject to the # +# following conditions: # +# # +# The above copyright notice and this permission notice shall be included in # +# all copies or substantial portions of the Software. # +# # +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # +# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # +# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL # +# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER # +# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING # +# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER # +# DEALINGS IN THE SOFTWARE. # +# # +# Except as contained in this notice, the name(s) of the above copyright # +# holders shall not be used in advertising or otherwise to promote the sale, # +# use or other dealings in this Software without prior written # +# authorization. # +############################################################################## +# +# Author: Thomas E. Dickey, 2006-on + +prefix="/usr" +exec_prefix="${prefix}" + +bindir="${exec_prefix}/bin" +includedir="${prefix}/include" +libdir="${exec_prefix}/lib" +datadir="${prefix}/share" +mandir="/usr/share/man" + +THIS="ncurses" +TINFO_LIB="ncurses" + +LANG=C; export LANG +LANGUAGE=C; export LANGUAGE +LC_ALL=C; export LC_ALL +LC_CTYPE=C; export LC_CTYPE + +# with --disable-overwrite, we installed into a subdirectory, but transformed +# the headers to include like this: +# <ncurses/curses.h> +if test xyes = xno ; then + case $includedir in + $prefix/include/ncurses) + includedir=`echo "$includedir" | sed -e 's,/[^/]*$,,'` + ;; + esac +fi + +test $# = 0 && exec /bin/sh $0 --error + +while test $# -gt 0; do + case "$1" in + # basic configuration + --prefix) + echo "$prefix" + ;; + --exec-prefix) + echo "$exec_prefix" + ;; + # compile/link + --cflags) + INCS= + if test "${includedir}" != /usr/include ; then + INCS="-I${includedir}" + fi + if test "xyes" = xno ; then + INCS="$INCS -I${includedir}/${THIS}" + fi + sed -e 's,^[ ]*,,' -e 's, [ ]*, ,g' -e 's,[ ]*$,,' <<-ENDECHO + $INCS +ENDECHO + ;; + --libs) + if test ncurses = ncurses ; then + sed -e 's,^[ ]*,,' -e 's, [ ]*, ,g' -e 's,[ ]*$,,' <<-ENDECHO + -L$libdir -l${THIS} +ENDECHO + else + sed -e 's,^[ ]*,,' -e 's, [ ]*, ,g' -e 's,[ ]*$,,' <<-ENDECHO + -L$libdir -l${THIS} -l${TINFO_LIB} +ENDECHO + fi + ;; + # identification + --version) + echo "5.7.20100313" + ;; + --abi-version) + echo "5" + ;; + --mouse-version) + echo "1" + ;; + # locations + --bindir) + echo "${bindir}" + ;; + --datadir) + echo "${datadir}" + ;; + --includedir) + echo "${includedir}" + ;; + --libdir) + echo "${libdir}" + ;; + --mandir) + echo "${mandir}" + ;; + --terminfo) + echo "/usr/share/terminfo" + ;; + --terminfo-dirs) + echo "/etc/terminfo:/lib/terminfo:/usr/share/terminfo" + ;; + --termpath) + echo "" + ;; + # general info + --help) + cat <<ENDHELP +Usage: ${THIS}-config [options] + +Options: + --prefix echos the package-prefix of ${THIS} + --exec-prefix echos the executable-prefix of ${THIS} + + --cflags echos the C compiler flags needed to compile with ${THIS} + --libs echos the libraries needed to link with ${THIS} + + --version echos the release+patchdate version of ${THIS} + --abi-version echos the ABI version of ${THIS} + --mouse-version echos the mouse-interface version of ${THIS} + + --bindir echos the directory containing ${THIS} programs + --datadir echos the directory containing ${THIS} data + --includedir echos the directory containing ${THIS} header files + --libdir echos the directory containing ${THIS} libraries + --mandir echos the directory containing ${THIS} manpages + --terminfo echos the \$TERMINFO terminfo database path + --terminfo-dirs echos the \$TERMINFO_DIRS directory list + --termpath echos the \$TERMPATH termcap list + + --help prints this message +ENDHELP + ;; + --error|*) + /bin/sh $0 --help 1>&2 + exit 1 + ;; + esac + shift +done +# vile:shmode diff --git a/beagle/debian-rfs/usr/bin/ncursesw5-config b/beagle/debian-rfs/usr/bin/ncursesw5-config new file mode 100755 index 0000000..d7133c7 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/ncursesw5-config @@ -0,0 +1,166 @@ +#!/bin/sh +# $Id: ncurses-config.in,v 1.24 2010/02/06 22:12:16 Miroslav.Lichvar Exp $ +############################################################################## +# Copyright (c) 2006-2009,2010 Free Software Foundation, Inc. # +# # +# Permission is hereby granted, free of charge, to any person obtaining a # +# copy of this software and associated documentation files (the "Software"), # +# to deal in the Software without restriction, including without limitation # +# the rights to use, copy, modify, merge, publish, distribute, distribute # +# with modifications, sublicense, and/or sell copies of the Software, and to # +# permit persons to whom the Software is furnished to do so, subject to the # +# following conditions: # +# # +# The above copyright notice and this permission notice shall be included in # +# all copies or substantial portions of the Software. # +# # +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # +# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # +# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL # +# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER # +# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING # +# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER # +# DEALINGS IN THE SOFTWARE. # +# # +# Except as contained in this notice, the name(s) of the above copyright # +# holders shall not be used in advertising or otherwise to promote the sale, # +# use or other dealings in this Software without prior written # +# authorization. # +############################################################################## +# +# Author: Thomas E. Dickey, 2006-on + +prefix="/usr" +exec_prefix="${prefix}" + +bindir="${exec_prefix}/bin" +includedir="${prefix}/include/ncursesw" +libdir="${exec_prefix}/lib" +datadir="${prefix}/share" +mandir="/usr/share/man" + +THIS="ncursesw" +TINFO_LIB="ncursesw" + +LANG=C; export LANG +LANGUAGE=C; export LANGUAGE +LC_ALL=C; export LC_ALL +LC_CTYPE=C; export LC_CTYPE + +# with --disable-overwrite, we installed into a subdirectory, but transformed +# the headers to include like this: +# <ncursesw/curses.h> +if test xno = xno ; then + case $includedir in + $prefix/include/ncursesw) + includedir=`echo "$includedir" | sed -e 's,/[^/]*$,,'` + ;; + esac +fi + +test $# = 0 && exec /bin/sh $0 --error + +while test $# -gt 0; do + case "$1" in + # basic configuration + --prefix) + echo "$prefix" + ;; + --exec-prefix) + echo "$exec_prefix" + ;; + # compile/link + --cflags) + INCS= + if test "${includedir}" != /usr/include ; then + INCS="-I${includedir}" + fi + if test "xno" = xno ; then + INCS="$INCS -I${includedir}/${THIS}" + fi + sed -e 's,^[ ]*,,' -e 's, [ ]*, ,g' -e 's,[ ]*$,,' <<-ENDECHO + $INCS +ENDECHO + ;; + --libs) + if test ncurses = ncurses ; then + sed -e 's,^[ ]*,,' -e 's, [ ]*, ,g' -e 's,[ ]*$,,' <<-ENDECHO + -L$libdir -l${THIS} +ENDECHO + else + sed -e 's,^[ ]*,,' -e 's, [ ]*, ,g' -e 's,[ ]*$,,' <<-ENDECHO + -L$libdir -l${THIS} -l${TINFO_LIB} +ENDECHO + fi + ;; + # identification + --version) + echo "5.7.20100313" + ;; + --abi-version) + echo "5" + ;; + --mouse-version) + echo "1" + ;; + # locations + --bindir) + echo "${bindir}" + ;; + --datadir) + echo "${datadir}" + ;; + --includedir) + echo "${includedir}" + ;; + --libdir) + echo "${libdir}" + ;; + --mandir) + echo "${mandir}" + ;; + --terminfo) + echo "/usr/share/terminfo" + ;; + --terminfo-dirs) + echo "/etc/terminfo:/lib/terminfo:/usr/share/terminfo" + ;; + --termpath) + echo "" + ;; + # general info + --help) + cat <<ENDHELP +Usage: ${THIS}-config [options] + +Options: + --prefix echos the package-prefix of ${THIS} + --exec-prefix echos the executable-prefix of ${THIS} + + --cflags echos the C compiler flags needed to compile with ${THIS} + --libs echos the libraries needed to link with ${THIS} + + --version echos the release+patchdate version of ${THIS} + --abi-version echos the ABI version of ${THIS} + --mouse-version echos the mouse-interface version of ${THIS} + + --bindir echos the directory containing ${THIS} programs + --datadir echos the directory containing ${THIS} data + --includedir echos the directory containing ${THIS} header files + --libdir echos the directory containing ${THIS} libraries + --mandir echos the directory containing ${THIS} manpages + --terminfo echos the \$TERMINFO terminfo database path + --terminfo-dirs echos the \$TERMINFO_DIRS directory list + --termpath echos the \$TERMPATH termcap list + + --help prints this message +ENDHELP + ;; + --error|*) + /bin/sh $0 --help 1>&2 + exit 1 + ;; + esac + shift +done +# vile:shmode diff --git a/beagle/debian-rfs/usr/bin/newgrp b/beagle/debian-rfs/usr/bin/newgrp Binary files differnew file mode 100755 index 0000000..3e9236d --- /dev/null +++ b/beagle/debian-rfs/usr/bin/newgrp diff --git a/beagle/debian-rfs/usr/bin/nice b/beagle/debian-rfs/usr/bin/nice Binary files differnew file mode 100755 index 0000000..b7925c8 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/nice diff --git a/beagle/debian-rfs/usr/bin/nl b/beagle/debian-rfs/usr/bin/nl Binary files differnew file mode 100755 index 0000000..1809c64 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/nl diff --git a/beagle/debian-rfs/usr/bin/nohup b/beagle/debian-rfs/usr/bin/nohup Binary files differnew file mode 100755 index 0000000..ed6d135 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/nohup diff --git a/beagle/debian-rfs/usr/bin/nproc b/beagle/debian-rfs/usr/bin/nproc Binary files differnew file mode 100755 index 0000000..3ab1582 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/nproc diff --git a/beagle/debian-rfs/usr/bin/od b/beagle/debian-rfs/usr/bin/od Binary files differnew file mode 100755 index 0000000..ab0dd10 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/od diff --git a/beagle/debian-rfs/usr/bin/oldfind b/beagle/debian-rfs/usr/bin/oldfind Binary files differnew file mode 100755 index 0000000..7ed2698 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/oldfind diff --git a/beagle/debian-rfs/usr/bin/partx b/beagle/debian-rfs/usr/bin/partx Binary files differnew file mode 100755 index 0000000..123e003 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/partx diff --git a/beagle/debian-rfs/usr/bin/passwd b/beagle/debian-rfs/usr/bin/passwd Binary files differnew file mode 100755 index 0000000..826f09b --- /dev/null +++ b/beagle/debian-rfs/usr/bin/passwd diff --git a/beagle/debian-rfs/usr/bin/paste b/beagle/debian-rfs/usr/bin/paste Binary files differnew file mode 100755 index 0000000..6e92731 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/paste diff --git a/beagle/debian-rfs/usr/bin/pathchk b/beagle/debian-rfs/usr/bin/pathchk Binary files differnew file mode 100755 index 0000000..6f2183c --- /dev/null +++ b/beagle/debian-rfs/usr/bin/pathchk diff --git a/beagle/debian-rfs/usr/bin/perl b/beagle/debian-rfs/usr/bin/perl Binary files differnew file mode 100755 index 0000000..53b35df --- /dev/null +++ b/beagle/debian-rfs/usr/bin/perl diff --git a/beagle/debian-rfs/usr/bin/perl5.10.1 b/beagle/debian-rfs/usr/bin/perl5.10.1 Binary files differnew file mode 100755 index 0000000..53b35df --- /dev/null +++ b/beagle/debian-rfs/usr/bin/perl5.10.1 diff --git a/beagle/debian-rfs/usr/bin/pg b/beagle/debian-rfs/usr/bin/pg Binary files differnew file mode 100755 index 0000000..86ffc67 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/pg diff --git a/beagle/debian-rfs/usr/bin/pinky b/beagle/debian-rfs/usr/bin/pinky Binary files differnew file mode 100755 index 0000000..3320115 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/pinky diff --git a/beagle/debian-rfs/usr/bin/pr b/beagle/debian-rfs/usr/bin/pr Binary files differnew file mode 100755 index 0000000..943b887 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/pr diff --git a/beagle/debian-rfs/usr/bin/printenv b/beagle/debian-rfs/usr/bin/printenv Binary files differnew file mode 100755 index 0000000..2b1e4ca --- /dev/null +++ b/beagle/debian-rfs/usr/bin/printenv diff --git a/beagle/debian-rfs/usr/bin/printf b/beagle/debian-rfs/usr/bin/printf Binary files differnew file mode 100755 index 0000000..2da842c --- /dev/null +++ b/beagle/debian-rfs/usr/bin/printf diff --git a/beagle/debian-rfs/usr/bin/ptx b/beagle/debian-rfs/usr/bin/ptx Binary files differnew file mode 100755 index 0000000..e431328 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/ptx diff --git a/beagle/debian-rfs/usr/bin/rename.ul b/beagle/debian-rfs/usr/bin/rename.ul Binary files differnew file mode 100755 index 0000000..7eb3c75 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/rename.ul diff --git a/beagle/debian-rfs/usr/bin/renice b/beagle/debian-rfs/usr/bin/renice Binary files differnew file mode 100755 index 0000000..2a1f2c6 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/renice diff --git a/beagle/debian-rfs/usr/bin/reset b/beagle/debian-rfs/usr/bin/reset new file mode 120000 index 0000000..73c1790 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/reset @@ -0,0 +1 @@ +tset
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/rev b/beagle/debian-rfs/usr/bin/rev Binary files differnew file mode 100755 index 0000000..5668ff0 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/rev diff --git a/beagle/debian-rfs/usr/bin/rgrep b/beagle/debian-rfs/usr/bin/rgrep new file mode 100755 index 0000000..2edbcd4 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/rgrep @@ -0,0 +1,4 @@ +#!/bin/sh + +exec grep -r "$@" + diff --git a/beagle/debian-rfs/usr/bin/rpcinfo b/beagle/debian-rfs/usr/bin/rpcinfo Binary files differnew file mode 100755 index 0000000..98148fd --- /dev/null +++ b/beagle/debian-rfs/usr/bin/rpcinfo diff --git a/beagle/debian-rfs/usr/bin/runcon b/beagle/debian-rfs/usr/bin/runcon Binary files differnew file mode 100755 index 0000000..ea45516 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/runcon diff --git a/beagle/debian-rfs/usr/bin/savelog b/beagle/debian-rfs/usr/bin/savelog new file mode 100755 index 0000000..1a0f305 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/savelog @@ -0,0 +1,354 @@ +#! /bin/sh +# savelog - save a log file +# Copyright (C) 1987, 1988 Ronald S. Karr and Landon Curt Noll +# Copyright (C) 1992 Ronald S. Karr +# Slight modifications by Ian A. Murdock <imurdock@gnu.ai.mit.edu>: +# * uses `gzip' rather than `compress' +# * doesn't use $savedir; keeps saved log files in the same directory +# * reports successful rotation of log files +# * for the sake of consistency, files are rotated even if they are +# empty +# More modifications by Guy Maor <maor@debian.org>: +# * cleanup. +# * -p (preserve) option +# +# usage: savelog [-m mode] [-u user] [-g group] [-t] [-p] [-c cycle] +# [-j] [-C] [-d] [-l] [-r rolldir] [-n] [-q] file... +# -m mode - chmod log files to mode +# -u user - chown log files to user +# -g group - chgrp log files to group +# -c cycle - save cycle versions of the logfile (default: 7) +# -r rolldir- use rolldir instead of . to roll files +# -C - force cleanup of cycled logfiles +# -d - use standard date for rolling +# -D - override date format for -d +# -t - touch file +# -l - don't compress any log files (default: compress) +# -p - preserve mode/user/group of original file +# -j - use bzip2 instead of gzip +# -J - use xz instead of gzip +# -1 .. -9 - compression strength or memory usage (default: 9, except for xz) +# -x script - invoke script with rotated log file in $FILE +# -n - do not rotate empty files +# -q - be quiet +# file - log file names +# +# The savelog command saves and optionally compresses old copies of files. +# Older version of 'file' are named: +# +# 'file'.<number><compress_suffix> +# +# where <number> is the version number, 0 being the newest. By default, +# version numbers > 0 are compressed (unless -l prevents it). The +# version number 0 is never compressed on the off chance that a process +# still has 'file' opened for I/O. +# +# if the '-d' option is specified, <number> will be YYMMDDhhmmss +# +# If the 'file' does not exist and -t was given, it will be created. +# +# For files that do exist and have lengths greater than zero, the following +# actions are performed. +# +# 1) Version numered files are cycled. That is version 6 is moved to +# version 7, version is moved to becomes version 6, ... and finally +# version 0 is moved to version 1. Both compressed names and +# uncompressed names are cycled, regardless of -t. Missing version +# files are ignored. +# +# 2) The new file.1 is compressed and is changed subject to +# the -m, -u and -g flags. This step is skipped if the -t flag +# was given. +# +# 3) The main file is moved to file.0. +# +# 4) If the -m, -u, -g, -t, or -p flags are given, then the file is +# touched into existence subject to the given flags. The -p flag +# will preserve the original owner, group, and permissions. +# +# 5) The new file.0 is changed subject to the -m, -u and -g flags. +# +# Note: If no -m, -u, -g, -t, or -p is given, then the primary log file is +# not created. +# +# Note: Since the version numbers start with 0, version number <cycle> +# is never formed. The <cycle> count must be at least 2. +# +# Bugs: If a process is still writing to the file.0 and savelog +# moved it to file.1 and compresses it, data could be lost. +# Smail does not have this problem in general because it +# restats files often. + +# common location +export PATH=$PATH:/sbin:/bin:/usr/sbin:/usr/bin +COMPRESS="gzip" +COMPRESS_OPTS="-f" +COMPRESS_STRENGTH_DEF="-9"; +DOT_Z=".gz" +DATUM=`date +%Y%m%d%H%M%S` + +# parse args +exitcode=0 # no problems to far +prog=`basename $0` +mode= +user= +group= +touch= +forceclean= +rolldir= +datum= +preserve= +hookscript= +quiet=0 +rotateifempty=yes +count=7 + +usage() +{ + echo "Usage: $prog [-m mode] [-u user] [-g group] [-t] [-c cycle] [-p]" + echo " [-j] [-C] [-d] [-l] [-r rolldir] [-n] [-q] file ..." + echo " -m mode - chmod log files to mode" + echo " -u user - chown log files to user" + echo " -g group - chgrp log files to group" + echo " -c cycle - save cycle versions of the logfile (default: 7)" + echo " -r rolldir - use rolldir instead of . to roll files" + echo " -C - force cleanup of cycled logfiles" + echo " -d - use standard date for rolling" + echo " -D - override date format for -d" + echo " -t - touch file" + echo " -l - don't compress any log files (default: compress)" + echo " -p - preserve mode/user/group of original file" + echo " -j - use bzip2 instead of gzip" + echo " -J - use xz instead of gzip" + echo " -1 .. -9 - compression strength or memory usage (default: 9, except for xz)" + echo " -x script - invoke script with rotated log file in \$FILE" + echo " -n - do not rotate empty files" + echo " -q - suppress rotation message" + echo " file - log file names" +} + + +fixfile() +{ + if [ -n "$user" ]; then + chown -- "$user" "$1" + fi + if [ -n "$group" ]; then + chgrp -- "$group" "$1" + fi + if [ -n "$mode" ]; then + chmod -- "$mode" "$1" + fi +} + + +while getopts m:u:g:c:r:CdD:tlphjJ123456789x:nq opt ; do + case "$opt" in + m) mode="$OPTARG" ;; + u) user="$OPTARG" ;; + g) group="$OPTARG" ;; + c) count="$OPTARG" ;; + r) rolldir="$OPTARG" ;; + C) forceclean=1 ;; + d) datum=1 ;; + D) DATUM=$(date +$OPTARG) ;; + t) touch=1 ;; + j) COMPRESS="bzip2"; COMPRESS_OPTS="-f"; COMPRESS_STRENGTH_DEF="-9"; DOT_Z=".bz2" ;; + J) COMPRESS="xz"; COMPRESS_OPTS="-f"; COMPRESS_STRENGTH_DEF=""; DOT_Z=".xz" ;; + [1-9]) COMPRESS_STRENGTH="-$opt" ;; + x) hookscript="$OPTARG" ;; + l) COMPRESS="" ;; + p) preserve=1 ;; + n) rotateifempty="no" ;; + q) quiet=1 ;; + h) usage; exit 0 ;; + *) usage; exit 1 ;; + esac +done + +shift $(($OPTIND - 1)) + +if [ "$count" -lt 2 ]; then + echo "$prog: count must be at least 2" 1>&2 + exit 2 +fi + +if [ -n "$COMPRESS" ] && [ -z "`which $COMPRESS`" ]; then + echo "$prog: Compression binary not available, please make sure '$COMPRESS' is installed" 1>&2 + exit 2 +fi + +if [ -n "$COMPRESS_STRENGTH" ]; then + COMPRESS_OPTS="$COMPRESS_OPTS $COMPRESS_STRENGTH" +else + COMPRESS_OPTS="$COMPRESS_OPTS $COMPRESS_STRENGTH_DEF" +fi + +# cycle thru filenames +while [ $# -gt 0 ]; do + + # get the filename + filename="$1" + shift + + # catch bogus files + if [ -e "$filename" ] && [ ! -f "$filename" ]; then + echo "$prog: $filename is not a regular file" 1>&2 + exitcode=3 + continue + fi + + # if file does not exist or is empty, and we've been told to not rotate + # empty files, create if requested and skip to the next file. + if [ ! -s "$filename" ] && [ "$rotateifempty" = "no" ]; then + # if -t was given and it does not exist, create it + if test -n "$touch" && [ ! -f "$filename" ]; then + touch -- "$filename" + if [ "$?" -ne 0 ]; then + echo "$prog: could not touch $filename" 1>&2 + exitcode=4 + continue + fi + fixfile "$filename" + fi + continue + # otherwise if the file does not exist and we've been told to rotate it + # anyway, create an empty file to rotate. + elif [ ! -e "$filename" ]; then + touch -- "$filename" + if [ "$?" -ne 0 ]; then + echo "$prog: could not touch $filename" 1>&2 + exitcode=4 + continue + fi + fixfile "$filename" + fi + + # be sure that the savedir exists and is writable + # (Debian default: $savedir is . and not ./OLD) + savedir=`dirname -- "$filename"` + if [ -z "$savedir" ]; then + savedir=. + fi + case "$rolldir" in + (/*) + savedir="$rolldir" + ;; + (*) + savedir="$savedir/$rolldir" + ;; + esac + if [ ! -d "$savedir" ]; then + mkdir -p -- "$savedir" + if [ "$?" -ne 0 ]; then + echo "$prog: could not mkdir $savedir" 1>&2 + exitcode=5 + continue + fi + chmod 0755 -- "$savedir" + fi + if [ ! -w "$savedir" ]; then + echo "$prog: directory $savedir is not writable" 1>&2 + exitcode=7 + continue + fi + + # determine our uncompressed file names + newname=`basename -- "$filename"` + newname="$savedir/$newname" + + # cycle the old compressed log files + cycle=$(( $count - 1)) + rm -f -- "$newname.$cycle" "$newname.$cycle$DOT_Z" + while [ $cycle -gt 1 ]; do + # --cycle + oldcycle=$cycle + cycle=$(( $cycle - 1 )) + # cycle log + if [ -f "$newname.$cycle$DOT_Z" ]; then + mv -f -- "$newname.$cycle$DOT_Z" \ + "$newname.$oldcycle$DOT_Z" + fi + if [ -f "$newname.$cycle" ]; then + # file was not compressed. move it anyway + mv -f -- "$newname.$cycle" "$newname.$oldcycle" + fi + done + + # compress the old uncompressed log if needed + if [ -f "$newname.0" ]; then + if [ -z "$COMPRESS" ]; then + newfile="$newname.1" + mv -- "$newname.0" "$newfile" + else + newfile="$newname.1$DOT_Z" +# $COMPRESS $COMPRESS_OPTS < $newname.0 > $newfile +# rm -f $newname.0 + $COMPRESS $COMPRESS_OPTS "$newname.0" + mv -- "$newname.0$DOT_Z" "$newfile" + fi + fixfile "$newfile" + fi + + # compress the old uncompressed log if needed + if test -n "$datum" && test -n "$COMPRESS"; then + $COMPRESS $COMPRESS_OPTS -- "$newname".[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9] + fi + + # remove old files if so desired + if [ -n "$forceclean" ]; then + cycle=$(( $count - 1)) + if [ -z "$COMPRESS" ]; then + rm -f -- `ls -t -- $newname.[0-9]* | sed -e 1,${cycle}d` + else + rm -f -- `ls -t -- $newname.[0-9]*$DOT_Z | sed -e 1,${cycle}d` + fi + fi + + # create new file if needed + if [ -n "$preserve" ]; then + (umask 077 + touch -- "$filename.new" + chown --reference="$filename" -- "$filename.new" + chmod --reference="$filename" -- "$filename.new") + filenew=1 + elif [ -n "$touch$user$group$mode" ]; then + touch -- "$filename.new" + fixfile "$filename.new" + filenew=1 + fi + + newfilename="$newname.0" + # link the file into the file.0 holding place + if [ -f "$filename" ]; then + if [ -n "$filenew" ]; then + if ln -f -- "$filename" "$newfilename"; then + mv -- "$filename.new" "$filename" + else + echo "Error hardlinking $filename to $newfilename" >&2 + exitcode=8 + continue + fi + else + mv -- "$filename" "$newfilename" + fi + fi + [ ! -f "$newfilename" ] && touch -- "$newfilename" + fixfile "$newfilename" + if [ -n "$datum" ]; then + mv -- "$newfilename" "$newname.$DATUM" + newfilename="$newname.$DATUM" + fi + + if [ -n "$hookscript" ]; then + FILE="$newfilename" $SHELL -c "$hookscript" || \ + { + ret=$? + test "$quiet" -eq 1 || echo "Hook script failed with exit code $ret." 1>&2 + } + fi + + # report successful rotation + test "$quiet" -eq 1 || echo "Rotated \`$filename' at `date`." +done +exit $exitcode diff --git a/beagle/debian-rfs/usr/bin/script b/beagle/debian-rfs/usr/bin/script Binary files differnew file mode 100755 index 0000000..a86e644 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/script diff --git a/beagle/debian-rfs/usr/bin/scriptreplay b/beagle/debian-rfs/usr/bin/scriptreplay Binary files differnew file mode 100755 index 0000000..abf1295 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/scriptreplay diff --git a/beagle/debian-rfs/usr/bin/sdiff b/beagle/debian-rfs/usr/bin/sdiff Binary files differnew file mode 100755 index 0000000..9b645e7 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/sdiff diff --git a/beagle/debian-rfs/usr/bin/sensible-browser b/beagle/debian-rfs/usr/bin/sensible-browser new file mode 100755 index 0000000..bf80f29 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/sensible-browser @@ -0,0 +1,50 @@ +#!/bin/sh + +URL="$1" + +if test -n "$BROWSER"; then + OLDIFS="$IFS" + IFS=: + for i in $BROWSER; do + case "$i" in + (*sensible-browser*) + printf 'Using sensible-browser in $BROWSER makes no sense.\n' >&2 + exit 1 + ;; + (*%s*) + : + ;; + (*) + i="$i %s" + ;; + esac + IFS="$OLDIFS" + cmd=$(printf "$i\n" "$URL") + $cmd && exit 0 + done + printf 'None of the browsers in $BROWSER worked!\n' >&2 + exit 1 +fi + +if test -n "$DISPLAY"; then + if test -n "$GNOME_DESKTOP_SESSION_ID"; then + if test -x /usr/bin/gnome-www-browser; then + exec /usr/bin/gnome-www-browser ${URL:+"$URL"} + elif test -x /usr/bin/x-www-browser; then + exec /usr/bin/x-www-browser ${URL:+"$URL"} + elif test -x /usr/bin/gnome-terminal && test -x /usr/bin/www-browser; then + exec /usr/bin/gnome-terminal -e "/usr/bin/www-browser ${URL:+\"$URL\"}" + fi + fi + if test -x /usr/bin/x-www-browser; then + exec /usr/bin/x-www-browser ${URL:+"$URL"} + elif test -x /usr/bin/x-terminal-emulator && test -x /usr/bin/www-browser; then + exec /usr/bin/x-terminal-emulator -e /usr/bin/www-browser ${URL:+"$URL"} + fi +elif test -x /usr/bin/www-browser; then + exec /usr/bin/www-browser ${URL:+"$URL"} +fi + +printf "Couldn't find a suitable web browser!\n" >&2 +printf "Set the BROWSER environment variable to your desired browser.\n" >&2 +exit 1; diff --git a/beagle/debian-rfs/usr/bin/sensible-editor b/beagle/debian-rfs/usr/bin/sensible-editor new file mode 100755 index 0000000..8e4c9e4 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/sensible-editor @@ -0,0 +1,32 @@ +#!/bin/sh + +ret="$?" + +if [ -n "$VISUAL" ]; then + ${VISUAL} "$@" + ret="$?" + if [ "$ret" -ne 126 ] && [ "$ret" -ne 127 ]; then + exit "$ret" + fi +fi + +${EDITOR:-editor} "$@" +ret="$?" +if [ "$ret" -eq 126 ] || [ "$ret" -eq 127 ]; then + nano "$@" + ret="$?" + if [ "$ret" -eq 126 ] || [ "$ret" -eq 127 ]; then + nano-tiny "$@" + ret="$?" + if [ "$ret" -eq 126 ] || [ "$ret" -eq 127 ]; then + vi "$@" + ret="$?" + if [ "$ret" -eq 126 ] || [ "$ret" -eq 127 ]; then + echo "Couldn't find an editor!" 1>&2 + echo "Set the \$EDITOR environment variable to your desired editor." 1>&2 + exit 1 + fi + fi + fi +fi +exit "$ret" diff --git a/beagle/debian-rfs/usr/bin/sensible-pager b/beagle/debian-rfs/usr/bin/sensible-pager new file mode 100755 index 0000000..af6d462 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/sensible-pager @@ -0,0 +1,13 @@ +#!/bin/sh + +${PAGER:-pager} "$@" +ret="$?" +if [ "$ret" -eq 126 ] || [ "$ret" -eq 127 ]; then +more "$@" +ret="$?" + if [ "$ret" -eq 126 ] || [ "$ret" -eq 127 ]; then + echo "Couldn't find a pager!" 1>&2 + echo "Set the \$PAGER environment variable to your desired pager." 1>&2 + exit 1 + fi +fi diff --git a/beagle/debian-rfs/usr/bin/seq b/beagle/debian-rfs/usr/bin/seq Binary files differnew file mode 100755 index 0000000..376d268 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/seq diff --git a/beagle/debian-rfs/usr/bin/setarch b/beagle/debian-rfs/usr/bin/setarch Binary files differnew file mode 100755 index 0000000..65a96b4 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/setarch diff --git a/beagle/debian-rfs/usr/bin/setsid b/beagle/debian-rfs/usr/bin/setsid Binary files differnew file mode 100755 index 0000000..3d8b8cf --- /dev/null +++ b/beagle/debian-rfs/usr/bin/setsid diff --git a/beagle/debian-rfs/usr/bin/setterm b/beagle/debian-rfs/usr/bin/setterm Binary files differnew file mode 100755 index 0000000..8e6bbf9 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/setterm diff --git a/beagle/debian-rfs/usr/bin/sg b/beagle/debian-rfs/usr/bin/sg new file mode 120000 index 0000000..7510390 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/sg @@ -0,0 +1 @@ +newgrp
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/sha1sum b/beagle/debian-rfs/usr/bin/sha1sum Binary files differnew file mode 100755 index 0000000..fbe8220 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/sha1sum diff --git a/beagle/debian-rfs/usr/bin/sha224sum b/beagle/debian-rfs/usr/bin/sha224sum Binary files differnew file mode 100755 index 0000000..177a11d --- /dev/null +++ b/beagle/debian-rfs/usr/bin/sha224sum diff --git a/beagle/debian-rfs/usr/bin/sha256sum b/beagle/debian-rfs/usr/bin/sha256sum Binary files differnew file mode 100755 index 0000000..8596524 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/sha256sum diff --git a/beagle/debian-rfs/usr/bin/sha384sum b/beagle/debian-rfs/usr/bin/sha384sum Binary files differnew file mode 100755 index 0000000..6426b01 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/sha384sum diff --git a/beagle/debian-rfs/usr/bin/sha512sum b/beagle/debian-rfs/usr/bin/sha512sum Binary files differnew file mode 100755 index 0000000..9717df2 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/sha512sum diff --git a/beagle/debian-rfs/usr/bin/shred b/beagle/debian-rfs/usr/bin/shred Binary files differnew file mode 100755 index 0000000..cb6679b --- /dev/null +++ b/beagle/debian-rfs/usr/bin/shred diff --git a/beagle/debian-rfs/usr/bin/shuf b/beagle/debian-rfs/usr/bin/shuf Binary files differnew file mode 100755 index 0000000..65e3893 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/shuf diff --git a/beagle/debian-rfs/usr/bin/sort b/beagle/debian-rfs/usr/bin/sort Binary files differnew file mode 100755 index 0000000..c11c260 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/sort diff --git a/beagle/debian-rfs/usr/bin/split b/beagle/debian-rfs/usr/bin/split Binary files differnew file mode 100755 index 0000000..f97ac49 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/split diff --git a/beagle/debian-rfs/usr/bin/stat b/beagle/debian-rfs/usr/bin/stat Binary files differnew file mode 100755 index 0000000..92cf20d --- /dev/null +++ b/beagle/debian-rfs/usr/bin/stat diff --git a/beagle/debian-rfs/usr/bin/stdbuf b/beagle/debian-rfs/usr/bin/stdbuf Binary files differnew file mode 100755 index 0000000..a09a704 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/stdbuf diff --git a/beagle/debian-rfs/usr/bin/sum b/beagle/debian-rfs/usr/bin/sum Binary files differnew file mode 100755 index 0000000..8d1a425 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/sum diff --git a/beagle/debian-rfs/usr/bin/tabs b/beagle/debian-rfs/usr/bin/tabs Binary files differnew file mode 100755 index 0000000..c4df0d0 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/tabs diff --git a/beagle/debian-rfs/usr/bin/tac b/beagle/debian-rfs/usr/bin/tac Binary files differnew file mode 100755 index 0000000..e956006 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/tac diff --git a/beagle/debian-rfs/usr/bin/tail b/beagle/debian-rfs/usr/bin/tail Binary files differnew file mode 100755 index 0000000..11d14eb --- /dev/null +++ b/beagle/debian-rfs/usr/bin/tail diff --git a/beagle/debian-rfs/usr/bin/taskset b/beagle/debian-rfs/usr/bin/taskset Binary files differnew file mode 100755 index 0000000..ea6b760 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/taskset diff --git a/beagle/debian-rfs/usr/bin/tee b/beagle/debian-rfs/usr/bin/tee Binary files differnew file mode 100755 index 0000000..19da0f9 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/tee diff --git a/beagle/debian-rfs/usr/bin/test b/beagle/debian-rfs/usr/bin/test Binary files differnew file mode 100755 index 0000000..999ed9e --- /dev/null +++ b/beagle/debian-rfs/usr/bin/test diff --git a/beagle/debian-rfs/usr/bin/tic b/beagle/debian-rfs/usr/bin/tic Binary files differnew file mode 100755 index 0000000..b364890 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/tic diff --git a/beagle/debian-rfs/usr/bin/timeout b/beagle/debian-rfs/usr/bin/timeout Binary files differnew file mode 100755 index 0000000..f6986a2 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/timeout diff --git a/beagle/debian-rfs/usr/bin/toe b/beagle/debian-rfs/usr/bin/toe Binary files differnew file mode 100755 index 0000000..c524f14 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/toe diff --git a/beagle/debian-rfs/usr/bin/touch b/beagle/debian-rfs/usr/bin/touch new file mode 120000 index 0000000..b22e934 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/touch @@ -0,0 +1 @@ +/bin/touch
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/tput b/beagle/debian-rfs/usr/bin/tput Binary files differnew file mode 100755 index 0000000..a00a9e7 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/tput diff --git a/beagle/debian-rfs/usr/bin/tr b/beagle/debian-rfs/usr/bin/tr Binary files differnew file mode 100755 index 0000000..8c6c5eb --- /dev/null +++ b/beagle/debian-rfs/usr/bin/tr diff --git a/beagle/debian-rfs/usr/bin/truncate b/beagle/debian-rfs/usr/bin/truncate Binary files differnew file mode 100755 index 0000000..739a25e --- /dev/null +++ b/beagle/debian-rfs/usr/bin/truncate diff --git a/beagle/debian-rfs/usr/bin/tset b/beagle/debian-rfs/usr/bin/tset Binary files differnew file mode 100755 index 0000000..a63247a --- /dev/null +++ b/beagle/debian-rfs/usr/bin/tset diff --git a/beagle/debian-rfs/usr/bin/tsort b/beagle/debian-rfs/usr/bin/tsort Binary files differnew file mode 100755 index 0000000..a9a3fb9 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/tsort diff --git a/beagle/debian-rfs/usr/bin/tty b/beagle/debian-rfs/usr/bin/tty Binary files differnew file mode 100755 index 0000000..7bd7cf1 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/tty diff --git a/beagle/debian-rfs/usr/bin/tzselect b/beagle/debian-rfs/usr/bin/tzselect new file mode 100755 index 0000000..037e3ef --- /dev/null +++ b/beagle/debian-rfs/usr/bin/tzselect @@ -0,0 +1,326 @@ +#! /bin/bash + +VERSION='@(#)tzselect.ksh 8.2' +PKGVERSION='(Debian EGLIBC 2.11.2-10) ' +REPORT_BUGS_TO='<http://www.debian.org/Bugs/>' + +# Ask the user about the time zone, and output the resulting TZ value to stdout. +# Interact with the user via stderr and stdin. + +# Contributed by Paul Eggert. + +# Porting notes: +# +# This script requires several features of the Korn shell. +# If your host lacks the Korn shell, +# you can use either of the following free programs instead: +# +# <a href=ftp://ftp.gnu.org/pub/gnu/> +# Bourne-Again shell (bash) +# </a> +# +# <a href=ftp://ftp.cs.mun.ca/pub/pdksh/pdksh.tar.gz> +# Public domain ksh +# </a> +# +# This script also uses several features of modern awk programs. +# If your host lacks awk, or has an old awk that does not conform to Posix.2, +# you can use either of the following free programs instead: +# +# <a href=ftp://ftp.gnu.org/pub/gnu/> +# GNU awk (gawk) +# </a> +# +# <a href=ftp://ftp.whidbey.net/pub/brennan/> +# mawk +# </a> + + +# Specify default values for environment variables if they are unset. +: ${AWK=awk} +: ${TZDIR=/usr/share/zoneinfo} + +# Check for awk Posix compliance. +($AWK -v x=y 'BEGIN { exit 123 }') </dev/null >/dev/null 2>&1 +[ $? = 123 ] || { + echo >&2 "$0: Sorry, your \`$AWK' program is not Posix compatible." + exit 1 +} + +if [ "$1" = "--help" ]; then + cat <<EOF +Usage: tzselect +Select a time zone interactively. + +For bug reporting instructions, please see: +$REPORT_BUGS_TO. +EOF + exit 0 +elif [ "$1" = "--version" ]; then + cat <<EOF +tzselect $PKGVERSION$VERSION +EOF + exit 0 +fi + +# Make sure the tables are readable. +TZ_COUNTRY_TABLE=$TZDIR/iso3166.tab +TZ_ZONE_TABLE=$TZDIR/zone.tab +for f in $TZ_COUNTRY_TABLE $TZ_ZONE_TABLE +do + <$f || { + echo >&2 "$0: time zone files are not set up correctly" + exit 1 + } +done + +newline=' +' +IFS=$newline + + +# Work around a bug in bash 1.14.7 and earlier, where $PS3 is sent to stdout. +case $(echo 1 | (select x in x; do break; done) 2>/dev/null) in +?*) PS3= +esac + + +# Begin the main loop. We come back here if the user wants to retry. +while + + echo >&2 'Please identify a location' \ + 'so that time zone rules can be set correctly.' + + continent= + country= + region= + + + # Ask the user for continent or ocean. + + echo >&2 'Please select a continent or ocean.' + + select continent in \ + Africa \ + Americas \ + Antarctica \ + 'Arctic Ocean' \ + Asia \ + 'Atlantic Ocean' \ + Australia \ + Europe \ + 'Indian Ocean' \ + 'Pacific Ocean' \ + 'none - I want to specify the time zone using the Posix TZ format.' + do + case $continent in + '') + echo >&2 'Please enter a number in range.';; + ?*) + case $continent in + Americas) continent=America;; + *' '*) continent=$(expr "$continent" : '\([^ ]*\)') + esac + break + esac + done + case $continent in + '') + exit 1;; + none) + # Ask the user for a Posix TZ string. Check that it conforms. + while + echo >&2 'Please enter the desired value' \ + 'of the TZ environment variable.' + echo >&2 'For example, GST-10 is a zone named GST' \ + 'that is 10 hours ahead (east) of UTC.' + read TZ + $AWK -v TZ="$TZ" 'BEGIN { + tzname = "[^-+,0-9][^-+,0-9][^-+,0-9]+" + time = "[0-2]?[0-9](:[0-5][0-9](:[0-5][0-9])?)?" + offset = "[-+]?" time + date = "(J?[0-9]+|M[0-9]+\.[0-9]+\.[0-9]+)" + datetime = "," date "(/" time ")?" + tzpattern = "^(:.*|" tzname offset "(" tzname \ + "(" offset ")?(" datetime datetime ")?)?)$" + if (TZ ~ tzpattern) exit 1 + exit 0 + }' + do + echo >&2 "\`$TZ' is not a conforming" \ + 'Posix time zone string.' + done + TZ_for_date=$TZ;; + *) + # Get list of names of countries in the continent or ocean. + countries=$($AWK -F'\t' \ + -v continent="$continent" \ + -v TZ_COUNTRY_TABLE="$TZ_COUNTRY_TABLE" \ + ' + /^#/ { next } + $3 ~ ("^" continent "/") { + if (!cc_seen[$1]++) cc_list[++ccs] = $1 + } + END { + while (getline <TZ_COUNTRY_TABLE) { + if ($0 !~ /^#/) cc_name[$1] = $2 + } + for (i = 1; i <= ccs; i++) { + country = cc_list[i] + if (cc_name[country]) { + country = cc_name[country] + } + print country + } + } + ' <$TZ_ZONE_TABLE | sort -f) + + + # If there's more than one country, ask the user which one. + case $countries in + *"$newline"*) + echo >&2 'Please select a country.' + select country in $countries + do + case $country in + '') echo >&2 'Please enter a number in range.';; + ?*) break + esac + done + + case $country in + '') exit 1 + esac;; + *) + country=$countries + esac + + + # Get list of names of time zone rule regions in the country. + regions=$($AWK -F'\t' \ + -v country="$country" \ + -v TZ_COUNTRY_TABLE="$TZ_COUNTRY_TABLE" \ + ' + BEGIN { + cc = country + while (getline <TZ_COUNTRY_TABLE) { + if ($0 !~ /^#/ && country == $2) { + cc = $1 + break + } + } + } + $1 == cc { print $4 } + ' <$TZ_ZONE_TABLE) + + + # If there's more than one region, ask the user which one. + case $regions in + *"$newline"*) + echo >&2 'Please select one of the following' \ + 'time zone regions.' + select region in $regions + do + case $region in + '') echo >&2 'Please enter a number in range.';; + ?*) break + esac + done + case $region in + '') exit 1 + esac;; + *) + region=$regions + esac + + # Determine TZ from country and region. + TZ=$($AWK -F'\t' \ + -v country="$country" \ + -v region="$region" \ + -v TZ_COUNTRY_TABLE="$TZ_COUNTRY_TABLE" \ + ' + BEGIN { + cc = country + while (getline <TZ_COUNTRY_TABLE) { + if ($0 !~ /^#/ && country == $2) { + cc = $1 + break + } + } + } + $1 == cc && $4 == region { print $3 } + ' <$TZ_ZONE_TABLE) + + # Make sure the corresponding zoneinfo file exists. + TZ_for_date=$TZDIR/$TZ + <$TZ_for_date || { + echo >&2 "$0: time zone files are not set up correctly" + exit 1 + } + esac + + + # Use the proposed TZ to output the current date relative to UTC. + # Loop until they agree in seconds. + # Give up after 8 unsuccessful tries. + + extra_info= + for i in 1 2 3 4 5 6 7 8 + do + TZdate=$(LANG=C TZ="$TZ_for_date" date) + UTdate=$(LANG=C TZ=UTC0 date) + TZsec=$(expr "$TZdate" : '.*:\([0-5][0-9]\)') + UTsec=$(expr "$UTdate" : '.*:\([0-5][0-9]\)') + case $TZsec in + $UTsec) + extra_info=" +Local time is now: $TZdate. +Universal Time is now: $UTdate." + break + esac + done + + + # Output TZ info and ask the user to confirm. + + echo >&2 "" + echo >&2 "The following information has been given:" + echo >&2 "" + case $country+$region in + ?*+?*) echo >&2 " $country$newline $region";; + ?*+) echo >&2 " $country";; + +) echo >&2 " TZ='$TZ'" + esac + echo >&2 "" + echo >&2 "Therefore TZ='$TZ' will be used.$extra_info" + echo >&2 "Is the above information OK?" + + ok= + select ok in Yes No + do + case $ok in + '') echo >&2 'Please enter 1 for Yes, or 2 for No.';; + ?*) break + esac + done + case $ok in + '') exit 1;; + Yes) break + esac +do : +done + +case $SHELL in +*csh) file=.login line="setenv TZ '$TZ'";; +*) file=.profile line="TZ='$TZ'; export TZ" +esac + +echo >&2 " +You can make this change permanent for yourself by appending the line + $line +to the file '$file' in your home directory; then log out and log in again. + +Here is that TZ value again, this time on standard output so that you +can use the $0 command in shell scripts:" + +echo "$TZ" diff --git a/beagle/debian-rfs/usr/bin/unexpand b/beagle/debian-rfs/usr/bin/unexpand Binary files differnew file mode 100755 index 0000000..f07d3e1 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/unexpand diff --git a/beagle/debian-rfs/usr/bin/uniq b/beagle/debian-rfs/usr/bin/uniq Binary files differnew file mode 100755 index 0000000..cf508a6 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/uniq diff --git a/beagle/debian-rfs/usr/bin/unlink b/beagle/debian-rfs/usr/bin/unlink Binary files differnew file mode 100755 index 0000000..b98089b --- /dev/null +++ b/beagle/debian-rfs/usr/bin/unlink diff --git a/beagle/debian-rfs/usr/bin/unshare b/beagle/debian-rfs/usr/bin/unshare Binary files differnew file mode 100755 index 0000000..f58a2a2 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/unshare diff --git a/beagle/debian-rfs/usr/bin/unxz b/beagle/debian-rfs/usr/bin/unxz new file mode 120000 index 0000000..a162c28 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/unxz @@ -0,0 +1 @@ +xz
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/update-alternatives b/beagle/debian-rfs/usr/bin/update-alternatives Binary files differnew file mode 100755 index 0000000..d459002 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/update-alternatives diff --git a/beagle/debian-rfs/usr/bin/users b/beagle/debian-rfs/usr/bin/users Binary files differnew file mode 100755 index 0000000..dc3286b --- /dev/null +++ b/beagle/debian-rfs/usr/bin/users diff --git a/beagle/debian-rfs/usr/bin/wall b/beagle/debian-rfs/usr/bin/wall Binary files differnew file mode 100755 index 0000000..19353e5 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/wall diff --git a/beagle/debian-rfs/usr/bin/wc b/beagle/debian-rfs/usr/bin/wc Binary files differnew file mode 100755 index 0000000..e40083a --- /dev/null +++ b/beagle/debian-rfs/usr/bin/wc diff --git a/beagle/debian-rfs/usr/bin/whereis b/beagle/debian-rfs/usr/bin/whereis Binary files differnew file mode 100755 index 0000000..dd6c064 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/whereis diff --git a/beagle/debian-rfs/usr/bin/which b/beagle/debian-rfs/usr/bin/which new file mode 120000 index 0000000..21b1c17 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/which @@ -0,0 +1 @@ +/bin/which
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/who b/beagle/debian-rfs/usr/bin/who Binary files differnew file mode 100755 index 0000000..374bfa1 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/who diff --git a/beagle/debian-rfs/usr/bin/whoami b/beagle/debian-rfs/usr/bin/whoami Binary files differnew file mode 100755 index 0000000..be88209 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/whoami diff --git a/beagle/debian-rfs/usr/bin/xargs b/beagle/debian-rfs/usr/bin/xargs Binary files differnew file mode 100755 index 0000000..345852c --- /dev/null +++ b/beagle/debian-rfs/usr/bin/xargs diff --git a/beagle/debian-rfs/usr/bin/xz b/beagle/debian-rfs/usr/bin/xz Binary files differnew file mode 100755 index 0000000..920148b --- /dev/null +++ b/beagle/debian-rfs/usr/bin/xz diff --git a/beagle/debian-rfs/usr/bin/xzcat b/beagle/debian-rfs/usr/bin/xzcat new file mode 120000 index 0000000..a162c28 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/xzcat @@ -0,0 +1 @@ +xz
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/xzcmp b/beagle/debian-rfs/usr/bin/xzcmp new file mode 120000 index 0000000..b0db3ab --- /dev/null +++ b/beagle/debian-rfs/usr/bin/xzcmp @@ -0,0 +1 @@ +xzdiff
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/xzdiff b/beagle/debian-rfs/usr/bin/xzdiff new file mode 100755 index 0000000..0e2b1b7 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/xzdiff @@ -0,0 +1,172 @@ +#!/bin/bash + +# Copyright (C) 1998, 2002, 2006, 2007 Free Software Foundation +# Copyright (C) 1993 Jean-loup Gailly + +# Modified for XZ Utils by Andrew Dudman and Lasse Collin. + +# 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. + +#SET_PATH - This line is a placeholder to ease patching this script. + +# Instead of unsetting XZ_OPT, just make sure that xz will use file format +# autodetection. This way memory usage limit and thread limit can be +# specified via XZ_OPT. With gzip and bzip2 it's OK to just unset the +# environment variables. +xz='xz --format=auto' +unset GZIP BZIP BZIP2 + +case ${0##*/} in + *cmp*) prog=xzcmp; cmp=${CMP:-cmp};; + *) prog=xzdiff; cmp=${DIFF:-diff};; +esac + +version="$prog (XZ Utils) 5.0.0" + +usage="Usage: ${0##*/} [OPTION]... FILE1 [FILE2] +Compare FILE1 to FILE2, using their uncompressed contents if they are +compressed. If FILE2 is omitted, then the files compared are FILE1 and +FILE1 from which the compression format suffix has been stripped. + +Do comparisons like '$cmp' does. OPTIONs are the same as for '$cmp'. + +Report bugs to <lasse.collin@tukaani.org>." + +# sed script to escape all ' for the shell, and then (to handle trailing +# newlines correctly) turn trailing X on last line into '. +escape=' + s/'\''/'\''\\'\'''\''/g + $s/X$/'\''/ +' + +while :; do + case $1 in + --h*) printf '%s\n' "$usage" || exit 2; exit;; + --v*) echo "$version" || exit 2; exit;; + --) shift; break;; + -*\'*) cmp="$cmp '"`printf '%sX\n' "$1" | sed "$escape"`;; + -?*) cmp="$cmp '$1'";; + *) break;; + esac + shift +done +cmp="$cmp --" + +for file; do + test "X$file" = X- || <"$file" || exit 2 +done + +xz1=$xz +xz2=$xz +xz_status=0 +exec 3>&1 + +if test $# -eq 1; then + case $1 in + *[-.]xz | *[-.]lzma | *.t[lx]z) + ;; + *[-.]bz2 | *.tbz | *.tbz2) + xz1=$bzip2;; + *[-.][zZ] | *_z | *[-.]gz | *.t[ag]z) + xz1=$gzip;; + *) + echo >&2 "$0: $1: Unknown compressed file name suffix" + exit 2;; + esac + case $1 in + *[-.][zZ] | *_z | *[-.][gx]z | *[-.]bz2 | *[-.]lzma) + FILE=`expr "X$1" : 'X\(.*\)[-.][abglmxzZ2]*$'`;; + *.t[abglx]z) + FILE=`expr "X$1" : 'X\(.*[-.]t\)[abglx]z$'`ar;; + *.tbz2) + FILE=`expr "X$1" : 'X\(.*[-.]t\)bz2$'`ar;; + esac + xz_status=$( + exec 4>&1 + ($xz1 -cd -- "$1" 4>&-; echo $? >&4) 3>&- | eval "$cmp" - '"$FILE"' >&3 + ) +elif test $# -eq 2; then + case $1 in + *[-.]bz2 | *.tbz | *.tbz2) xz1=$bzip2;; + *[-.][zZ] | *_z | *[-.]gz | *.t[ag]z) xz1=$gzip;; + esac + case $2 in + *[-.]bz2 | *.tbz | *.tbz2) xz2=$bzip2;; + *[-.][zZ] | *_z | *[-.]gz | *.t[ag]z) xz2=$gzip;; + esac + case $1 in + *[-.][zZ] | *_z | *[-.][gx]z | *[-.]bz2 | *[-.]lzma | *.t[abglx]z | *.tbz2 | -) + case "$2" in + *[-.][zZ] | *_z | *[-.][gx]z | *[-.]bz2 | *[-.]lzma | *.t[abglx]z | *.tbz2 | -) + if test "$1$2" = --; then + xz_status=$( + exec 4>&1 + ($xz1 -cdfq - 4>&-; echo $? >&4) 3>&- | + eval "$cmp" - - >&3 + ) + elif # Reject Solaris 8's buggy /bin/bash 2.03. + echo X | (echo X | eval "$cmp" /dev/fd/5 - >/dev/null 2>&1) 5<&0; then + xz_status=$( + exec 4>&1 + ($xz1 -cdfq -- "$1" 4>&-; echo $? >&4) 3>&- | + ( ($xz2 -cdfq -- "$2" 4>&-; echo $? >&4) 3>&- 5<&- </dev/null | + eval "$cmp" /dev/fd/5 - >&3) 5<&0 + ) + case $xz_status in + *[1-9]*) xz_status=1;; + *) xz_status=0;; + esac + else + F=`expr "/$2" : '.*/\(.*\)[-.][ablmtxz2]*$'` || F=$prog + tmp= + trap ' + test -n "$tmp" && rm -f "$tmp" + (exit 2); exit 2 + ' HUP INT PIPE TERM 0 + tmp=`mktemp -t -- "$F.XXXXXX"` || exit 2 + $xz2 -cdfq -- "$2" > "$tmp" || exit 2 + xz_status=$( + exec 4>&1 + ($xz1 -cdfq -- "$1" 4>&-; echo $? >&4) 3>&- | + eval "$cmp" - '"$tmp"' >&3 + ) + cmp_status=$? + rm -f "$tmp" || xz_status=$? + trap - HUP INT PIPE TERM 0 + (exit $cmp_status) + fi;; + *) + xz_status=$( + exec 4>&1 + ($xz1 -cdfq -- "$1" 4>&-; echo $? >&4) 3>&- | + eval "$cmp" - '"$2"' >&3 + );; + esac;; + *) + case "$2" in + *[-.][zZ] | *_z | *[-.][gx]z | *[-.]bz2 | *[-.]lzma | *.t[abglx]z | *.tbz2 | -) + xz_status=$( + exec 4>&1 + ($xz2 -cdfq -- "$2" 4>&-; echo $? >&4) 3>&- | + eval "$cmp" '"$1"' - >&3 + );; + *) + eval "$cmp" '"$1"' '"$2"';; + esac;; + esac +else + echo >&2 "$0: Invalid number of operands; try \`${0##*/} --help' for help" + exit 2 +fi + +cmp_status=$? +test "$xz_status" -eq 0 || exit 2 +exit $cmp_status diff --git a/beagle/debian-rfs/usr/bin/xzegrep b/beagle/debian-rfs/usr/bin/xzegrep new file mode 120000 index 0000000..b79a453 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/xzegrep @@ -0,0 +1 @@ +xzgrep
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/xzfgrep b/beagle/debian-rfs/usr/bin/xzfgrep new file mode 120000 index 0000000..b79a453 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/xzfgrep @@ -0,0 +1 @@ +xzgrep
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/bin/xzgrep b/beagle/debian-rfs/usr/bin/xzgrep new file mode 100755 index 0000000..44dd484 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/xzgrep @@ -0,0 +1,196 @@ +#!/bin/bash + +# xzgrep -- a wrapper around a grep program that decompresses files as needed +# Adapted from a version sent by Charles Levert <charles@comm.polymtl.ca> + +# Copyright (C) 1998, 2001, 2002, 2006, 2007 Free Software Foundation +# Copyright (C) 1993 Jean-loup Gailly + +# Modified for XZ Utils by Andrew Dudman and Lasse Collin. + +# 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. + +#SET_PATH - This line is a placeholder to ease patching this script. + +# Instead of unsetting XZ_OPT, just make sure that xz will use file format +# autodetection. This way memory usage limit and thread limit can be +# specified via XZ_OPT. With gzip and bzip2 it's OK to just unset the +# environment variables. +xz='xz --format=auto' +unset GZIP BZIP BZIP2 + +case ${0##/*} in + *egrep*) prog=xzegrep; grep=${GREP:-egrep};; + *fgrep*) prog=xzfgrep; grep=${GREP:-fgrep};; + *) prog=xzgrep; grep=${GREP:-grep};; +esac + +version="$prog (XZ Utils) 5.0.0" + +usage="Usage: ${0##/*} [OPTION]... [-e] PATTERN [FILE]... +Look for instances of PATTERN in the input FILEs, using their +uncompressed contents if they are compressed. + +OPTIONs are the same as for '$grep'. + +Report bugs to <lasse.collin@tukaani.org>." + +# sed script to escape all ' for the shell, and then (to handle trailing +# newlines correctly) turn trailing X on last line into '. +escape=' + s/'\''/'\''\\'\'''\''/g + $s/X$/'\''/ +' +operands= +have_pat=0 +files_with_matches=0 +files_without_matches=0 +no_filename=0 +with_filename=0 + +while test $# -ne 0; do + option=$1 + shift + optarg= + + case $option in + (-[0123456789abcdhHiIKLlnoqrRsTuUvVwxyzZ]?*) + arg2=-\'$(expr "X${option}X" : 'X-.[0-9]*\(.*\)' | sed "$escape") + eval "set -- $arg2 "'${1+"$@"}' + option=$(expr "X$option" : 'X\(-.[0-9]*\)');; + (--binary-*=* | --[lm]a*=* | --reg*=*) + ;; + (-[ABCDefm] | --binary-* | --file | --[lm]a* | --reg*) + case ${1?"$option option requires an argument"} in + (*\'*) + optarg=" '"$(printf '%sX\n' "$1" | sed "$escape");; + (*) + optarg=" '$1'";; + esac + shift;; + (--) + break;; + (-?*) + ;; + (*) + case $option in + (*\'*) + operands="$operands '"$(printf '%sX\n' "$option" | sed "$escape");; + (*) + operands="$operands '$option'";; + esac + ${POSIXLY_CORRECT+break} + continue;; + esac + + case $option in + (-[drRzZ] | --di* | --exc* | --inc* | --rec* | --nu*) + printf >&2 '%s: %s: Option not supported\n' "$0" "$option" + exit 2;; + (-[ef]* | --file | --file=* | --reg*) + have_pat=1;; + (--h | --he | --hel | --help) + echo "$usage" || exit 2 + exit;; + (-H | --wi | --wit | --with | --with- | --with-f | --with-fi \ + | --with-fil | --with-file | --with-filen | --with-filena | --with-filenam \ + | --with-filename) + with_filename=1 + continue;; + (-l | --files-with-*) + files_with_matches=1;; + (-L | --files-witho*) + files_without_matches=1;; + (--no-f*) + no_filename=1;; + (-V | --v | --ve | --ver | --vers | --versi | --versio | --version) + echo "$version" || exit 2 + exit;; + esac + + case $option in + (*\'?*) + option=\'$(expr "X${option}X" : 'X\(.*\)' | sed "$escape");; + (*) + option="'$option'";; + esac + + grep="$grep $option$optarg" +done + +eval "set -- $operands "'${1+"$@"}' + +if test $have_pat -eq 0; then + case ${1?"Missing pattern; try \`${0##*/} --help' for help"} in + (*\'*) + grep="$grep -- '"$(printf '%sX\n' "$1" | sed "$escape");; + (*) + grep="$grep -- '$1'";; + esac + shift +fi + +if test $# -eq 0; then + set -- - +fi + +exec 3>&1 +res=0 + +for i; do + case $i in + *[-.][zZ] | *_z | *[-.]gz | *.t[ag]z) uncompress="gzip -cdfq";; + *[-.]bz2 | *[-.]tbz | *.tbz2) uncompress="bzip2 -cdfq";; + *) uncompress="$xz -cdfq";; + esac + # Fail if xz or grep (or sed) fails. + xz_status=$( + exec 5>&1 + ($uncompress -- "$i" 5>&-; echo $? >&5) 3>&- | + if test $files_with_matches -eq 1; then + eval "$grep" -q && { printf '%s\n' "$i" || exit 2; } + elif test $files_without_matches -eq 1; then + eval "$grep" -q || { + r=$? + if test $r -eq 1; then + printf '%s\n' "$i" || r=2 + fi + exit $r + } + elif test $with_filename -eq 0 && + { test $# -eq 1 || test $no_filename -eq 1; }; then + eval "$grep" + else + case $i in + (*' +'* | *'&'* | *'\'* | *'|'*) + i=$(printf '%s\n' "$i" | + sed ' + $!N + $s/[&\|]/\\&/g + $s/\n/\\n/g + ');; + esac + sed_script="s|^|$i:|" + + # Fail if grep or sed fails. + r=$( + exec 4>&1 + (eval "$grep" 4>&-; echo $? >&4) 3>&- | sed "$sed_script" >&3 4>&- + ) || r=2 + exit $r + fi >&3 5>&- + ) + r=$? + test "$xz_status" -eq 0 || test "$xz_status" -eq 2 || r=2 + test $res -lt $r && res=$r +done +exit $res diff --git a/beagle/debian-rfs/usr/bin/xzless b/beagle/debian-rfs/usr/bin/xzless new file mode 100755 index 0000000..73eab7e --- /dev/null +++ b/beagle/debian-rfs/usr/bin/xzless @@ -0,0 +1,58 @@ +#!/bin/bash + +# Copyright (C) 1998, 2002, 2006, 2007 Free Software Foundation + +# The original version for gzip was written by Paul Eggert. +# Modified for XZ Utils by Andrew Dudman and Lasse Collin. + +# 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. + +#SET_PATH - This line is a placeholder to ease patching this script. + +# Instead of unsetting XZ_OPT, just make sure that xz will use file format +# autodetection. This way memory usage limit and thread limit can be +# specified via XZ_OPT. +xz='xz --format=auto' + +version='xzless (XZ Utils) 5.0.0' + +usage="Usage: ${0##*/} [OPTION]... [FILE]... +Like 'less', but operate on the uncompressed contents of xz compressed FILEs. + +Options are the same as for 'less'. + +Report bugs to <lasse.collin@tukaani.org>." + +case $1 in + --help) echo "$usage" || exit 2; exit;; + --version) echo "$version" || exit 2; exit;; +esac + +if test "${LESSMETACHARS+set}" != set; then + # Work around a bug in less 394 and earlier; + # it mishandles the metacharacters '$%=~'. + space=' ' + tab=' ' + nl=' +' + LESSMETACHARS="$space$tab$nl'"';*?"()<>[|&^`#\$%=~' +fi + +if test "$(less -V | { read ver && echo ${ver#less }; })" -ge 429; then + # less 429 or later: LESSOPEN pipe will be used on + # standard input if $LESSOPEN begins with |-. + LESSOPEN="|-$xz -cdfq -- %s" +else + LESSOPEN="|$xz -cdfq -- %s" +fi +export LESSMETACHARS LESSOPEN + +exec less "$@" diff --git a/beagle/debian-rfs/usr/bin/xzmore b/beagle/debian-rfs/usr/bin/xzmore new file mode 100755 index 0000000..3148cbd --- /dev/null +++ b/beagle/debian-rfs/usr/bin/xzmore @@ -0,0 +1,78 @@ +#!/bin/bash + +# Copyright (C) 2001, 2002, 2007 Free Software Foundation +# Copyright (C) 1992, 1993 Jean-loup Gailly + +# Modified for XZ Utils by Andrew Dudman and Lasse Collin. + +# 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. + +#SET_PATH - This line is a placeholder to ease patching this script. + +# Instead of unsetting XZ_OPT, just make sure that xz will use file format +# autodetection. This way memory usage limit and thread limit can be +# specified via XZ_OPT. +xz='xz --format=auto' + +version='xzmore (XZ Utils) 5.0.0' + +usage="Usage: ${0##*/} [OPTION]... [FILE]... +Like 'more', but operate on the uncompressed contents of xz compressed FILEs. + +Report bugs to <lasse.collin@tukaani.org>." + +case $1 in + --help) echo "$usage" || exit 2; exit;; + --version) echo "$version" || exit 2; exit;; +esac + +oldtty=`stty -g 2>/dev/null` +if stty -cbreak 2>/dev/null; then + cb='cbreak'; ncb='-cbreak' +else + # 'stty min 1' resets eof to ^a on both SunOS and SysV! + cb='min 1 -icanon'; ncb='icanon eof ^d' +fi +if test $? -eq 0 && test -n "$oldtty"; then + trap 'stty $oldtty 2>/dev/null; exit' 0 2 3 5 10 13 15 +else + trap 'stty $ncb echo 2>/dev/null; exit' 0 2 3 5 10 13 15 +fi + +if test $# = 0; then + if test -t 0; then + echo "$usage"; exit 1 + else + $xz -cdfq | eval "${PAGER:-more}" + fi +else + FIRST=1 + for FILE; do + < "$FILE" || continue + if test $FIRST -eq 0; then + printf "%s--More--(Next file: %s)" "" "$FILE" + stty $cb -echo 2>/dev/null + ANS=`dd bs=1 count=1 2>/dev/null` + stty $ncb echo 2>/dev/null + echo " " + case "$ANS" in + [eq]) exit;; + esac + fi + if test "$ANS" != 's'; then + echo "------> $FILE <------" + $xz -cdfq -- "$FILE" | eval "${PAGER:-more}" + fi + if test -t 1; then + FIRST=0 + fi + done +fi diff --git a/beagle/debian-rfs/usr/bin/yes b/beagle/debian-rfs/usr/bin/yes Binary files differnew file mode 100755 index 0000000..2bc6292 --- /dev/null +++ b/beagle/debian-rfs/usr/bin/yes diff --git a/beagle/debian-rfs/usr/bin/zdump b/beagle/debian-rfs/usr/bin/zdump Binary files differnew file mode 100755 index 0000000..3877b8e --- /dev/null +++ b/beagle/debian-rfs/usr/bin/zdump diff --git a/beagle/debian-rfs/usr/include/initreq.h b/beagle/debian-rfs/usr/include/initreq.h new file mode 100644 index 0000000..757ffe0 --- /dev/null +++ b/beagle/debian-rfs/usr/include/initreq.h @@ -0,0 +1,84 @@ +/* + * initreq.h Interface to talk to init through /dev/initctl. + * + * Copyright (C) 1995-2004 Miquel van Smoorenburg + * + * 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 + * + * Version: @(#)initreq.h 1.28 31-Mar-2004 MvS + * + */ +#ifndef _INITREQ_H +#define _INITREQ_H + +#include <sys/param.h> + +#if defined(__FreeBSD_kernel__) +# define INIT_FIFO "/etc/.initctl" +#else +# define INIT_FIFO "/dev/initctl" +#endif + +#define INIT_MAGIC 0x03091969 +#define INIT_CMD_START 0 +#define INIT_CMD_RUNLVL 1 +#define INIT_CMD_POWERFAIL 2 +#define INIT_CMD_POWERFAILNOW 3 +#define INIT_CMD_POWEROK 4 +#define INIT_CMD_BSD 5 +#define INIT_CMD_SETENV 6 +#define INIT_CMD_UNSETENV 7 + +#ifdef MAXHOSTNAMELEN +# define INITRQ_HLEN MAXHOSTNAMELEN +#else +# define INITRQ_HLEN 64 +#endif + +/* + * This is what BSD 4.4 uses when talking to init. + * Linux doesn't use this right now. + */ +struct init_request_bsd { + char gen_id[8]; /* Beats me.. telnetd uses "fe" */ + char tty_id[16]; /* Tty name minus /dev/tty */ + char host[INITRQ_HLEN]; /* Hostname */ + char term_type[16]; /* Terminal type */ + int signal; /* Signal to send */ + int pid; /* Process to send to */ + char exec_name[128]; /* Program to execute */ + char reserved[128]; /* For future expansion. */ +}; + + +/* + * Because of legacy interfaces, "runlevel" and "sleeptime" + * aren't in a seperate struct in the union. + * + * The weird sizes are because init expects the whole + * struct to be 384 bytes. + */ +struct init_request { + int magic; /* Magic number */ + int cmd; /* What kind of request */ + int runlevel; /* Runlevel to change to */ + int sleeptime; /* Time between TERM and KILL */ + union { + struct init_request_bsd bsd; + char data[368]; + } i; +}; + +#endif diff --git a/beagle/debian-rfs/usr/lib/coreutils/libstdbuf.so b/beagle/debian-rfs/usr/lib/coreutils/libstdbuf.so Binary files differnew file mode 100644 index 0000000..8bcb6c4 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/coreutils/libstdbuf.so diff --git a/beagle/debian-rfs/usr/lib/e2initrd_helper b/beagle/debian-rfs/usr/lib/e2initrd_helper Binary files differnew file mode 100755 index 0000000..537e1b0 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/e2initrd_helper diff --git a/beagle/debian-rfs/usr/lib/gcc/arm-linux-gnueabi/4.4.4 b/beagle/debian-rfs/usr/lib/gcc/arm-linux-gnueabi/4.4.4 new file mode 120000 index 0000000..30a59a8 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/gcc/arm-linux-gnueabi/4.4.4 @@ -0,0 +1 @@ +4.4
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/lib/gcc/arm-linux-gnueabi/4.4.5 b/beagle/debian-rfs/usr/lib/gcc/arm-linux-gnueabi/4.4.5 new file mode 120000 index 0000000..30a59a8 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/gcc/arm-linux-gnueabi/4.4.5 @@ -0,0 +1 @@ +4.4
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/lib/libdb-4.8.so b/beagle/debian-rfs/usr/lib/libdb-4.8.so Binary files differnew file mode 100644 index 0000000..71c364b --- /dev/null +++ b/beagle/debian-rfs/usr/lib/libdb-4.8.so diff --git a/beagle/debian-rfs/usr/lib/libform.so.5 b/beagle/debian-rfs/usr/lib/libform.so.5 new file mode 120000 index 0000000..e1fb9cf --- /dev/null +++ b/beagle/debian-rfs/usr/lib/libform.so.5 @@ -0,0 +1 @@ +libform.so.5.7
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/lib/libform.so.5.7 b/beagle/debian-rfs/usr/lib/libform.so.5.7 Binary files differnew file mode 100644 index 0000000..89e5376 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/libform.so.5.7 diff --git a/beagle/debian-rfs/usr/lib/liblzma.so.2 b/beagle/debian-rfs/usr/lib/liblzma.so.2 new file mode 120000 index 0000000..ee2305b --- /dev/null +++ b/beagle/debian-rfs/usr/lib/liblzma.so.2 @@ -0,0 +1 @@ +liblzma.so.2.0.0
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/lib/liblzma.so.2.0.0 b/beagle/debian-rfs/usr/lib/liblzma.so.2.0.0 Binary files differnew file mode 100644 index 0000000..52930b2 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/liblzma.so.2.0.0 diff --git a/beagle/debian-rfs/usr/lib/libmenu.so.5 b/beagle/debian-rfs/usr/lib/libmenu.so.5 new file mode 120000 index 0000000..e94f0ba --- /dev/null +++ b/beagle/debian-rfs/usr/lib/libmenu.so.5 @@ -0,0 +1 @@ +libmenu.so.5.7
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/lib/libmenu.so.5.7 b/beagle/debian-rfs/usr/lib/libmenu.so.5.7 Binary files differnew file mode 100644 index 0000000..45b9238 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/libmenu.so.5.7 diff --git a/beagle/debian-rfs/usr/lib/libpanel.so.5 b/beagle/debian-rfs/usr/lib/libpanel.so.5 new file mode 120000 index 0000000..3f18db1 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/libpanel.so.5 @@ -0,0 +1 @@ +libpanel.so.5.7
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/lib/libpanel.so.5.7 b/beagle/debian-rfs/usr/lib/libpanel.so.5.7 Binary files differnew file mode 100644 index 0000000..1ab5109 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/libpanel.so.5.7 diff --git a/beagle/debian-rfs/usr/lib/libperl.so.5.10 b/beagle/debian-rfs/usr/lib/libperl.so.5.10 new file mode 120000 index 0000000..cfe6a0c --- /dev/null +++ b/beagle/debian-rfs/usr/lib/libperl.so.5.10 @@ -0,0 +1 @@ +libperl.so.5.10.1
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/lib/libperl.so.5.10.1 b/beagle/debian-rfs/usr/lib/libperl.so.5.10.1 Binary files differnew file mode 100644 index 0000000..fa6512d --- /dev/null +++ b/beagle/debian-rfs/usr/lib/libperl.so.5.10.1 diff --git a/beagle/debian-rfs/usr/lib/libstdc++.so.6 b/beagle/debian-rfs/usr/lib/libstdc++.so.6 new file mode 120000 index 0000000..a9430f1 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/libstdc++.so.6 @@ -0,0 +1 @@ +libstdc++.so.6.0.13
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/lib/libstdc++.so.6.0.13 b/beagle/debian-rfs/usr/lib/libstdc++.so.6.0.13 Binary files differnew file mode 100644 index 0000000..84a3737 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/libstdc++.so.6.0.13 diff --git a/beagle/debian-rfs/usr/lib/libz.so.1 b/beagle/debian-rfs/usr/lib/libz.so.1 new file mode 120000 index 0000000..693a5dd --- /dev/null +++ b/beagle/debian-rfs/usr/lib/libz.so.1 @@ -0,0 +1 @@ +libz.so.1.2.3.4
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/lib/libz.so.1.2.3.4 b/beagle/debian-rfs/usr/lib/libz.so.1.2.3.4 Binary files differnew file mode 100644 index 0000000..1f3a0a4 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/libz.so.1.2.3.4 diff --git a/beagle/debian-rfs/usr/lib/mime/packages/sensible-utils b/beagle/debian-rfs/usr/lib/mime/packages/sensible-utils new file mode 100644 index 0000000..3260548 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/mime/packages/sensible-utils @@ -0,0 +1 @@ +text/html; /usr/bin/sensible-browser %s; description=HTML Text; nametemplate=%s.html; priority=6 diff --git a/beagle/debian-rfs/usr/lib/mime/packages/tar b/beagle/debian-rfs/usr/lib/mime/packages/tar new file mode 100644 index 0000000..c203ff6 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/mime/packages/tar @@ -0,0 +1,2 @@ +application/x-tar; /bin/tar tvf -; print=/bin/tar tvf - | print text/plain:-; copiousoutput +application/x-gtar; /bin/tar tvzf -; print=/bin/tar tvzf - | print text/plain:-; copiousoutput diff --git a/beagle/debian-rfs/usr/lib/mime/packages/util-linux b/beagle/debian-rfs/usr/lib/mime/packages/util-linux new file mode 100644 index 0000000..2653e42 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/mime/packages/util-linux @@ -0,0 +1,2 @@ +text/plain; more %s; needsterminal; priority=5 +text/*; more %s; needsterminal; priority=1 diff --git a/beagle/debian-rfs/usr/lib/perl/5.10 b/beagle/debian-rfs/usr/lib/perl/5.10 new file mode 120000 index 0000000..a620310 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10 @@ -0,0 +1 @@ +5.10.1
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/Config.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/Config.pm new file mode 100644 index 0000000..4082988 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/Config.pm @@ -0,0 +1,98 @@ +# This file was created by configpm when Perl was built. Any changes +# made to this file will be lost the next time perl is built. + +# for a description of the variables, please have a look at the +# Glossary file, as written in the Porting folder, or use the url: +# http://perl5.git.perl.org/perl.git/blob/HEAD:/Porting/Glossary + +package Config; +use strict; +# use warnings; Pulls in Carp +# use vars pulls in Carp +@Config::EXPORT = qw(%Config); +@Config::EXPORT_OK = qw(myconfig config_sh config_vars config_re); + +# Need to stub all the functions to make code such as print Config::config_sh +# keep working + +sub myconfig; +sub config_sh; +sub config_vars; +sub config_re; + +my %Export_Cache = map {($_ => 1)} (@Config::EXPORT, @Config::EXPORT_OK); + +our %Config; + +# Define our own import method to avoid pulling in the full Exporter: +sub import { + my $pkg = shift; + @_ = @Config::EXPORT unless @_; + + my @funcs = grep $_ ne '%Config', @_; + my $export_Config = @funcs < @_ ? 1 : 0; + + no strict 'refs'; + my $callpkg = caller(0); + foreach my $func (@funcs) { + die sprintf qq{"%s" is not exported by the %s module\n}, + $func, __PACKAGE__ unless $Export_Cache{$func}; + *{$callpkg.'::'.$func} = \&{$func}; + } + + *{"$callpkg\::Config"} = \%Config if $export_Config; + return; +} + +die "Perl lib version (5.10.1) doesn't match executable version ($])" + unless $^V; + +$^V eq 5.10.1 + or die "Perl lib version (5.10.1) doesn't match executable version (" . + sprintf("v%vd",$^V) . ")"; + +sub FETCH { + my($self, $key) = @_; + + # check for cached value (which may be undef so we use exists not defined) + return $self->{$key} if exists $self->{$key}; + + return $self->fetch_string($key); +} +sub TIEHASH { + bless $_[1], $_[0]; +} + +sub DESTROY { } + +sub AUTOLOAD { + require 'Config_heavy.pl'; + goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/; + die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; +} + +# tie returns the object, so the value returned to require will be true. +tie %Config, 'Config', { + archlibexp => '/usr/lib/perl/5.10', + archname => 'arm-linux-gnueabi-thread-multi', + cc => 'cc', + d_readlink => 'define', + d_symlink => 'define', + dlsrc => 'dl_dlopen.xs', + dont_use_nlink => undef, + exe_ext => '', + inc_version_list => '5.10.0', + intsize => '4', + ldlibpthname => 'LD_LIBRARY_PATH', + libpth => '/usr/local/lib /lib /usr/lib', + osname => 'linux', + osvers => '2.6.32', + path_sep => ':', + privlibexp => '/usr/share/perl/5.10', + scriptdir => '/usr/bin', + sitearchexp => '/usr/local/lib/perl/5.10.1', + sitelibexp => '/usr/local/share/perl/5.10.1', + useithreads => 'define', + usevendorprefix => 'define', + version => '5.10.1', +}; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/Config_git.pl b/beagle/debian-rfs/usr/lib/perl/5.10.1/Config_git.pl new file mode 100644 index 0000000..6aacc4c --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/Config_git.pl @@ -0,0 +1,12 @@ +###################################################################### +# WARNING: 'lib/Config_git.pl' is generated by make_patchnum.pl +# DO NOT EDIT DIRECTLY - edit make_patchnum.pl instead +###################################################################### +$Config::Git_Data=<<'ENDOFGIT'; +git_commit_id='' +git_describe='' +git_branch='' +git_uncommitted_changes='' +git_commit_id_title='' + +ENDOFGIT diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/Config_heavy.pl b/beagle/debian-rfs/usr/lib/perl/5.10.1/Config_heavy.pl new file mode 100644 index 0000000..b075e2a --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/Config_heavy.pl @@ -0,0 +1,1300 @@ +# This file was created by configpm when Perl was built. Any changes +# made to this file will be lost the next time perl is built. + +package Config; +use strict; +# use warnings; Pulls in Carp +# use vars pulls in Carp +## +## This file was produced by running the Configure script. It holds all the +## definitions figured out by Configure. Should you modify one of these values, +## do not forget to propagate your changes by running "Configure -der". You may +## instead choose to run each of the .SH files by yourself, or "Configure -S". +## +# +## Package name : perl5 +## Source directory : . +## Configuration time: Fri Jan 7 14:33:44 UTC 2011 +## Configured by : Debian Project +## Target system : linux antheil 2.6.32 #2 wed sep 22 17:47:11 utc 2010 armv5tel gnulinux +# +#: Configure command line arguments. +# +#: Variables propagated from previous config.sh file. + +our $summary = <<'!END!'; +Summary of my $package (revision $revision $version_patchlevel_string) configuration: + $git_commit_id_title $git_commit_id$git_ancestor_line + Platform: + osname=$osname, osvers=$osvers, archname=$archname + uname='$myuname' + config_args='$config_args' + hint=$hint, useposix=$useposix, d_sigaction=$d_sigaction + useithreads=$useithreads, usemultiplicity=$usemultiplicity + useperlio=$useperlio, d_sfio=$d_sfio, uselargefiles=$uselargefiles, usesocks=$usesocks + use64bitint=$use64bitint, use64bitall=$use64bitall, uselongdouble=$uselongdouble + usemymalloc=$usemymalloc, bincompat5005=undef + Compiler: + cc='$cc', ccflags ='$ccflags', + optimize='$optimize', + cppflags='$cppflags' + ccversion='$ccversion', gccversion='$gccversion', gccosandvers='$gccosandvers' + intsize=$intsize, longsize=$longsize, ptrsize=$ptrsize, doublesize=$doublesize, byteorder=$byteorder + d_longlong=$d_longlong, longlongsize=$longlongsize, d_longdbl=$d_longdbl, longdblsize=$longdblsize + ivtype='$ivtype', ivsize=$ivsize, nvtype='$nvtype', nvsize=$nvsize, Off_t='$lseektype', lseeksize=$lseeksize + alignbytes=$alignbytes, prototype=$prototype + Linker and Libraries: + ld='$ld', ldflags ='$ldflags' + libpth=$libpth + libs=$libs + perllibs=$perllibs + libc=$libc, so=$so, useshrplib=$useshrplib, libperl=$libperl + gnulibc_version='$gnulibc_version' + Dynamic Linking: + dlsrc=$dlsrc, dlext=$dlext, d_dlsymun=$d_dlsymun, ccdlflags='$ccdlflags' + cccdlflags='$cccdlflags', lddlflags='$lddlflags' + +!END! +my $summary_expanded; + +sub myconfig { + return $summary_expanded if $summary_expanded; + ($summary_expanded = $summary) =~ s{\$(\w+)} + { + my $c; + if ($1 eq 'git_ancestor_line') { + if ($Config::Config{git_ancestor}) { + $c= "\n Ancestor: $Config::Config{git_ancestor}"; + } else { + $c= ""; + } + } else { + $c = $Config::Config{$1}; + } + defined($c) ? $c : 'undef' + }ge; + $summary_expanded; +} + +local *_ = \my $a; +$_ = <<'!END!'; +Author='' +CONFIG='true' +Date='$Date' +Header='' +Id='$Id' +Locker='' +Log='$Log' +PATCHLEVEL='10' +PERL_API_REVISION='5' +PERL_API_SUBVERSION='0' +PERL_API_VERSION='10' +PERL_CONFIG_SH='true' +PERL_PATCHLEVEL='' +PERL_REVISION='5' +PERL_SUBVERSION='1' +PERL_VERSION='10' +RCSfile='$RCSfile' +Revision='$Revision' +SUBVERSION='1' +Source='' +State='' +_a='.a' +_exe='' +_o='.o' +afs='false' +afsroot='/afs' +alignbytes='8' +ansi2knr='' +aphostname='/bin/hostname' +api_revision='5' +api_subversion='0' +api_version='10' +api_versionstring='5.10.0' +ar='ar' +archlib='/usr/lib/perl/5.10' +archlibexp='/usr/lib/perl/5.10' +archname64='' +archname='arm-linux-gnueabi-thread-multi' +archobjs='' +asctime_r_proto='REENTRANT_PROTO_B_SB' +awk='awk' +baserev='5.0' +bash='' +bin='/usr/bin' +binexp='/usr/bin' +bison='bison' +byacc='byacc' +byteorder='1234' +c='' +castflags='1' +cat='cat' +cc='cc' +cccdlflags='-fPIC' +ccdlflags='-Wl,-E' +ccflags='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' +ccflags_uselargefiles='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' +ccname='gcc' +ccsymbols='' +ccversion='' +cf_by='Debian Project' +cf_email='perl@packages.debian.org' +cf_time='Fri Jan 7 14:33:44 UTC 2011' +chgrp='' +chmod='chmod' +chown='' +clocktype='clock_t' +comm='comm' +compress='' +config_arg0='Configure' +config_arg10='-Dvendorlib=/usr/share/perl5' +config_arg11='-Dvendorarch=/usr/lib/perl5' +config_arg12='-Dsiteprefix=/usr/local' +config_arg13='-Dsitelib=/usr/local/share/perl/5.10.1' +config_arg14='-Dsitearch=/usr/local/lib/perl/5.10.1' +config_arg15='-Dman1dir=/usr/share/man/man1' +config_arg16='-Dman3dir=/usr/share/man/man3' +config_arg17='-Dsiteman1dir=/usr/local/man/man1' +config_arg18='-Dsiteman3dir=/usr/local/man/man3' +config_arg19='-Dman1ext=1' +config_arg1='-Dusethreads' +config_arg20='-Dman3ext=3perl' +config_arg21='-Dpager=/usr/bin/sensible-pager' +config_arg22='-Uafs' +config_arg23='-Ud_csh' +config_arg24='-Ud_ualarm' +config_arg25='-Uusesfio' +config_arg26='-Uusenm' +config_arg27='-DDEBUGGING=-g' +config_arg28='-Doptimize=-O2' +config_arg29='-Duseshrplib' +config_arg2='-Duselargefiles' +config_arg30='-Dlibperl=libperl.so.5.10.1' +config_arg31='-Dd_dosuid' +config_arg32='-des' +config_arg3='-Dccflags=-DDEBIAN' +config_arg4='-Dcccdlflags=-fPIC' +config_arg5='-Darchname=arm-linux-gnueabi' +config_arg6='-Dprefix=/usr' +config_arg7='-Dprivlib=/usr/share/perl/5.10' +config_arg8='-Darchlib=/usr/lib/perl/5.10' +config_arg9='-Dvendorprefix=/usr' +config_argc='32' +config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=arm-linux-gnueabi -Dprefix=/usr -Dprivlib=/usr/share/perl/5.10 -Darchlib=/usr/lib/perl/5.10 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.10.1 -Dsitearch=/usr/local/lib/perl/5.10.1 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Ud_ualarm -Uusesfio -Uusenm -DDEBUGGING=-g -Doptimize=-O2 -Duseshrplib -Dlibperl=libperl.so.5.10.1 -Dd_dosuid -des' +contains='grep' +cp='cp' +cpio='' +cpp='cpp' +cpp_stuff='42' +cppccsymbols='' +cppflags='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include' +cpplast='-' +cppminus='-' +cpprun='cc -E' +cppstdin='cc -E' +cppsymbols='_FILE_OFFSET_BITS=64 _GNU_SOURCE=1 _LARGEFILE64_SOURCE=1 _LARGEFILE_SOURCE=1 _POSIX_C_SOURCE=200809L _POSIX_SOURCE=1 _REENTRANT=1 _XOPEN_SOURCE=700 _XOPEN_SOURCE_EXTENDED=1 __APCS_32__=1 __ARMEL__=1 __ARM_ARCH_4T__=1 __ARM_EABI__=1 __BIGGEST_ALIGNMENT__=8 __CHAR16_TYPE__=short\ unsigned\ int __CHAR32_TYPE__=unsigned\ int __CHAR_BIT__=8 __CHAR_UNSIGNED__=1 __DBL_DENORM_MIN__=4.9406564584124654e-324 __DBL_DIG__=15 __DBL_EPSILON__=2.2204460492503131e-16 __DBL_HAS_DENORM__=1 __DBL_HAS_INFINITY__=1 __DBL_HAS_QUIET_NAN__=1 __DBL_MANT_DIG__=53 __DBL_MAX_10_EXP__=308 __DBL_MAX_EXP__=1024 __DBL_MAX__=1.7976931348623157e+308 __DBL_MIN_10_EXP__=(-307) __DBL_MIN_EXP__=(-1021) __DBL_MIN__=2.2250738585072014e-308 __DEC128_EPSILON__=1E-33DL __DEC128_MANT_DIG__=34 __DEC128_MAX_EXP__=6145 __DEC128_MAX__=9.999999999999999999999999999999999E6144DL __DEC128_MIN_EXP__=(-6142) __DEC128_MIN__=1E-6143DL __DEC128_SUBNORMAL_MIN__=0.000000000000000000000000000000001E-6143DL __DEC32_EPSILON__=1E-6DF __DEC32_MANT_DIG__=7 __DEC32_MAX_EXP__=97 __DEC32_MAX__=9.999999E96DF __DEC32_MIN_EXP__=(-94) __DEC32_MIN__=1E-95DF __DEC32_SUBNORMAL_MIN__=0.000001E-95DF __DEC64_EPSILON__=1E-15DD __DEC64_MANT_DIG__=16 __DEC64_MAX_EXP__=385 __DEC64_MAX__=9.999999999999999E384DD __DEC64_MIN_EXP__=(-382) __DEC64_MIN__=1E-383DD __DEC64_SUBNORMAL_MIN__=0.000000000000001E-383DD __DECIMAL_DIG__=17 __DEC_EVAL_METHOD__=2 __ELF__=1 __FINITE_MATH_ONLY__=0 __FLT_DENORM_MIN__=1.40129846e-45F __FLT_DIG__=6 __FLT_EPSILON__=1.19209290e-7F __FLT_EVAL_METHOD__=0 __FLT_HAS_DENORM__=1 __FLT_HAS_INFINITY__=1 __FLT_HAS_QUIET_NAN__=1 __FLT_MANT_DIG__=24 __FLT_MAX_10_EXP__=38 __FLT_MAX_EXP__=128 __FLT_MAX__=3.40282347e+38F __FLT_MIN_10_EXP__=(-37) __FLT_MIN_EXP__=(-125) __FLT_MIN__=1.17549435e-38F __FLT_RADIX__=2 __GLIBC_MINOR__=11 __GLIBC__=2 __GNUC_GNU_INLINE__=1 __GNUC_MINOR__=4 __GNUC_PATCHLEVEL__=5 __GNUC__=4 __GNU_LIBRARY__=6 __GXX_ABI_VERSION=1002 __GXX_TYPEINFO_EQUALITY_INLINE=0 __INTMAX_MAX__=9223372036854775807LL __INTMAX_TYPE__=long\ long\ int __INT_MAX__=2147483647 __LDBL_DENORM_MIN__=4.9406564584124654e-324L __LDBL_DIG__=15 __LDBL_EPSILON__=2.2204460492503131e-16L __LDBL_HAS_DENORM__=1 __LDBL_HAS_INFINITY__=1 __LDBL_HAS_QUIET_NAN__=1 __LDBL_MANT_DIG__=53 __LDBL_MAX_10_EXP__=308 __LDBL_MAX_EXP__=1024 __LDBL_MAX__=1.7976931348623157e+308L __LDBL_MIN_10_EXP__=(-307) __LDBL_MIN_EXP__=(-1021) __LDBL_MIN__=2.2250738585072014e-308L __LONG_LONG_MAX__=9223372036854775807LL __LONG_MAX__=2147483647L __PTRDIFF_TYPE__=int __REGISTER_PREFIX__= __SCHAR_MAX__=127 __SHRT_MAX__=32767 __SIZEOF_DOUBLE__=8 __SIZEOF_FLOAT__=4 __SIZEOF_INT__=4 __SIZEOF_LONG_DOUBLE__=8 __SIZEOF_LONG_LONG__=8 __SIZEOF_LONG__=4 __SIZEOF_POINTER__=4 __SIZEOF_PTRDIFF_T__=4 __SIZEOF_SHORT__=2 __SIZEOF_SIZE_T__=4 __SIZEOF_WCHAR_T__=4 __SIZEOF_WINT_T__=4 __SIZE_TYPE__=unsigned\ int __SOFTFP__=1 __STDC_HOSTED__=1 __STDC__=1 __THUMB_INTERWORK__=1 __UINTMAX_TYPE__=long\ long\ unsigned\ int __USER_LABEL_PREFIX__= __USE_BSD=1 __USE_FILE_OFFSET64=1 __USE_GNU=1 __USE_LARGEFILE64=1 __USE_LARGEFILE=1 __USE_MISC=1 __USE_POSIX199309=1 __USE_POSIX199506=1 __USE_POSIX2=1 __USE_POSIX=1 __USE_REENTRANT=1 __USE_SVID=1 __USE_UNIX98=1 __USE_XOPEN=1 __USE_XOPEN_EXTENDED=1 __VERSION__="4.4.5" __VFP_FP__=1 __WCHAR_MAX__=4294967295U __WCHAR_TYPE__=unsigned\ int __WINT_TYPE__=unsigned\ int __arm__=1 __gnu_linux__=1 __linux=1 __linux__=1 __unix=1 __unix__=1 linux=1 unix=1' +crypt_r_proto='REENTRANT_PROTO_B_CCS' +cryptlib='' +csh='csh' +ctermid_r_proto='0' +ctime_r_proto='REENTRANT_PROTO_B_SB' +d_Gconvert='gcvt((x),(n),(b))' +d_PRIEUldbl='define' +d_PRIFUldbl='define' +d_PRIGUldbl='define' +d_PRIXU64='define' +d_PRId64='define' +d_PRIeldbl='define' +d_PRIfldbl='define' +d_PRIgldbl='define' +d_PRIi64='define' +d_PRIo64='define' +d_PRIu64='define' +d_PRIx64='define' +d_SCNfldbl='define' +d__fwalk='undef' +d_access='define' +d_accessx='undef' +d_aintl='undef' +d_alarm='define' +d_archlib='define' +d_asctime64='undef' +d_asctime_r='define' +d_atolf='undef' +d_atoll='define' +d_attribute_deprecated='define' +d_attribute_format='define' +d_attribute_malloc='define' +d_attribute_nonnull='define' +d_attribute_noreturn='define' +d_attribute_pure='define' +d_attribute_unused='define' +d_attribute_warn_unused_result='define' +d_bcmp='define' +d_bcopy='define' +d_bsd='undef' +d_bsdgetpgrp='undef' +d_bsdsetpgrp='undef' +d_builtin_choose_expr='define' +d_builtin_expect='define' +d_bzero='define' +d_c99_variadic_macros='define' +d_casti32='define' +d_castneg='undef' +d_charvspr='undef' +d_chown='define' +d_chroot='define' +d_chsize='undef' +d_class='undef' +d_clearenv='define' +d_closedir='define' +d_cmsghdr_s='define' +d_const='define' +d_copysignl='define' +d_cplusplus='undef' +d_crypt='define' +d_crypt_r='define' +d_csh='undef' +d_ctermid='define' +d_ctermid_r='undef' +d_ctime64='undef' +d_ctime_r='define' +d_cuserid='define' +d_dbl_dig='define' +d_dbminitproto='define' +d_difftime64='undef' +d_difftime='define' +d_dir_dd_fd='undef' +d_dirfd='define' +d_dirnamlen='undef' +d_dlerror='define' +d_dlopen='define' +d_dlsymun='undef' +d_dosuid='define' +d_drand48_r='define' +d_drand48proto='define' +d_dup2='define' +d_eaccess='define' +d_endgrent='define' +d_endgrent_r='undef' +d_endhent='define' +d_endhostent_r='undef' +d_endnent='define' +d_endnetent_r='undef' +d_endpent='define' +d_endprotoent_r='undef' +d_endpwent='define' +d_endpwent_r='undef' +d_endsent='define' +d_endservent_r='undef' +d_eofnblk='define' +d_eunice='undef' +d_faststdio='define' +d_fchdir='define' +d_fchmod='define' +d_fchown='define' +d_fcntl='define' +d_fcntl_can_lock='define' +d_fd_macros='define' +d_fd_set='define' +d_fds_bits='define' +d_fgetpos='define' +d_finite='define' +d_finitel='define' +d_flexfnam='define' +d_flock='define' +d_flockproto='define' +d_fork='define' +d_fp_class='undef' +d_fpathconf='define' +d_fpclass='undef' +d_fpclassify='undef' +d_fpclassl='undef' +d_fpos64_t='undef' +d_frexpl='define' +d_fs_data_s='undef' +d_fseeko='define' +d_fsetpos='define' +d_fstatfs='define' +d_fstatvfs='define' +d_fsync='define' +d_ftello='define' +d_ftime='undef' +d_futimes='define' +d_gdbm_ndbm_h_uses_prototypes='undef' +d_gdbmndbm_h_uses_prototypes='undef' +d_getaddrinfo='define' +d_getcwd='define' +d_getespwnam='undef' +d_getfsstat='undef' +d_getgrent='define' +d_getgrent_r='define' +d_getgrgid_r='define' +d_getgrnam_r='define' +d_getgrps='define' +d_gethbyaddr='define' +d_gethbyname='define' +d_gethent='define' +d_gethname='define' +d_gethostbyaddr_r='define' +d_gethostbyname_r='define' +d_gethostent_r='define' +d_gethostprotos='define' +d_getitimer='define' +d_getlogin='define' +d_getlogin_r='define' +d_getmnt='undef' +d_getmntent='define' +d_getnameinfo='define' +d_getnbyaddr='define' +d_getnbyname='define' +d_getnent='define' +d_getnetbyaddr_r='define' +d_getnetbyname_r='define' +d_getnetent_r='define' +d_getnetprotos='define' +d_getpagsz='define' +d_getpbyname='define' +d_getpbynumber='define' +d_getpent='define' +d_getpgid='define' +d_getpgrp2='undef' +d_getpgrp='define' +d_getppid='define' +d_getprior='define' +d_getprotobyname_r='define' +d_getprotobynumber_r='define' +d_getprotoent_r='define' +d_getprotoprotos='define' +d_getprpwnam='undef' +d_getpwent='define' +d_getpwent_r='define' +d_getpwnam_r='define' +d_getpwuid_r='define' +d_getsbyname='define' +d_getsbyport='define' +d_getsent='define' +d_getservbyname_r='define' +d_getservbyport_r='define' +d_getservent_r='define' +d_getservprotos='define' +d_getspnam='define' +d_getspnam_r='define' +d_gettimeod='define' +d_gmtime64='undef' +d_gmtime_r='define' +d_gnulibc='define' +d_grpasswd='define' +d_hasmntopt='define' +d_htonl='define' +d_ilogbl='define' +d_inc_version_list='define' +d_index='undef' +d_inetaton='define' +d_inetntop='define' +d_inetpton='define' +d_int64_t='define' +d_isascii='define' +d_isfinite='undef' +d_isinf='define' +d_isnan='define' +d_isnanl='define' +d_killpg='define' +d_lchown='define' +d_ldbl_dig='define' +d_libm_lib_version='define' +d_link='define' +d_localtime64='undef' +d_localtime_r='define' +d_localtime_r_needs_tzset='define' +d_locconv='define' +d_lockf='define' +d_longdbl='define' +d_longlong='define' +d_lseekproto='define' +d_lstat='define' +d_madvise='define' +d_malloc_good_size='undef' +d_malloc_size='undef' +d_mblen='define' +d_mbstowcs='define' +d_mbtowc='define' +d_memchr='define' +d_memcmp='define' +d_memcpy='define' +d_memmove='define' +d_memset='define' +d_mkdir='define' +d_mkdtemp='define' +d_mkfifo='define' +d_mkstemp='define' +d_mkstemps='define' +d_mktime64='undef' +d_mktime='define' +d_mmap='define' +d_modfl='define' +d_modfl_pow32_bug='undef' +d_modflproto='define' +d_mprotect='define' +d_msg='define' +d_msg_ctrunc='define' +d_msg_dontroute='define' +d_msg_oob='define' +d_msg_peek='define' +d_msg_proxy='define' +d_msgctl='define' +d_msgget='define' +d_msghdr_s='define' +d_msgrcv='define' +d_msgsnd='define' +d_msync='define' +d_munmap='define' +d_mymalloc='undef' +d_ndbm='define' +d_ndbm_h_uses_prototypes='undef' +d_nice='define' +d_nl_langinfo='define' +d_nv_preserves_uv='define' +d_nv_zero_is_allbits_zero='define' +d_off64_t='define' +d_old_pthread_create_joinable='undef' +d_oldpthreads='undef' +d_oldsock='undef' +d_open3='define' +d_pathconf='define' +d_pause='define' +d_perl_otherlibdirs='undef' +d_phostname='undef' +d_pipe='define' +d_poll='define' +d_portable='define' +d_printf_format_null='define' +d_procselfexe='define' +d_pseudofork='undef' +d_pthread_atfork='define' +d_pthread_attr_setscope='define' +d_pthread_yield='define' +d_pwage='undef' +d_pwchange='undef' +d_pwclass='undef' +d_pwcomment='undef' +d_pwexpire='undef' +d_pwgecos='define' +d_pwpasswd='define' +d_pwquota='undef' +d_qgcvt='define' +d_quad='define' +d_random_r='define' +d_readdir64_r='define' +d_readdir='define' +d_readdir_r='define' +d_readlink='define' +d_readv='define' +d_recvmsg='define' +d_rename='define' +d_rewinddir='define' +d_rmdir='define' +d_safebcpy='undef' +d_safemcpy='undef' +d_sanemcmp='define' +d_sbrkproto='define' +d_scalbnl='define' +d_sched_yield='define' +d_scm_rights='define' +d_seekdir='define' +d_select='define' +d_sem='define' +d_semctl='define' +d_semctl_semid_ds='define' +d_semctl_semun='define' +d_semget='define' +d_semop='define' +d_sendmsg='define' +d_setegid='define' +d_seteuid='define' +d_setgrent='define' +d_setgrent_r='undef' +d_setgrps='define' +d_sethent='define' +d_sethostent_r='undef' +d_setitimer='define' +d_setlinebuf='define' +d_setlocale='define' +d_setlocale_r='undef' +d_setnent='define' +d_setnetent_r='undef' +d_setpent='define' +d_setpgid='define' +d_setpgrp2='undef' +d_setpgrp='define' +d_setprior='define' +d_setproctitle='undef' +d_setprotoent_r='undef' +d_setpwent='define' +d_setpwent_r='undef' +d_setregid='define' +d_setresgid='define' +d_setresuid='define' +d_setreuid='define' +d_setrgid='undef' +d_setruid='undef' +d_setsent='define' +d_setservent_r='undef' +d_setsid='define' +d_setvbuf='define' +d_sfio='undef' +d_shm='define' +d_shmat='define' +d_shmatprototype='define' +d_shmctl='define' +d_shmdt='define' +d_shmget='define' +d_sigaction='define' +d_signbit='define' +d_sigprocmask='define' +d_sigsetjmp='define' +d_sitearch='define' +d_snprintf='define' +d_sockatmark='define' +d_sockatmarkproto='define' +d_socket='define' +d_socklen_t='define' +d_sockpair='define' +d_socks5_init='undef' +d_sprintf_returns_strlen='define' +d_sqrtl='define' +d_srand48_r='define' +d_srandom_r='define' +d_sresgproto='define' +d_sresuproto='define' +d_statblks='define' +d_statfs_f_flags='undef' +d_statfs_s='define' +d_statvfs='define' +d_stdio_cnt_lval='undef' +d_stdio_ptr_lval='define' +d_stdio_ptr_lval_nochange_cnt='undef' +d_stdio_ptr_lval_sets_cnt='define' +d_stdio_stream_array='undef' +d_stdiobase='define' +d_stdstdio='define' +d_strchr='define' +d_strcoll='define' +d_strctcpy='define' +d_strerrm='strerror(e)' +d_strerror='define' +d_strerror_r='define' +d_strftime='define' +d_strlcat='undef' +d_strlcpy='undef' +d_strtod='define' +d_strtol='define' +d_strtold='define' +d_strtoll='define' +d_strtoq='define' +d_strtoul='define' +d_strtoull='define' +d_strtouq='define' +d_strxfrm='define' +d_suidsafe='undef' +d_symlink='define' +d_syscall='define' +d_syscallproto='define' +d_sysconf='define' +d_sysernlst='' +d_syserrlst='define' +d_system='define' +d_tcgetpgrp='define' +d_tcsetpgrp='define' +d_telldir='define' +d_telldirproto='define' +d_time='define' +d_timegm='define' +d_times='define' +d_tm_tm_gmtoff='define' +d_tm_tm_zone='define' +d_tmpnam_r='define' +d_truncate='define' +d_ttyname_r='define' +d_tzname='define' +d_u32align='define' +d_ualarm='undef' +d_umask='define' +d_uname='define' +d_union_semun='undef' +d_unordered='undef' +d_unsetenv='define' +d_usleep='define' +d_usleepproto='define' +d_ustat='define' +d_vendorarch='define' +d_vendorbin='define' +d_vendorlib='define' +d_vendorscript='define' +d_vfork='undef' +d_void_closedir='undef' +d_voidsig='define' +d_voidtty='' +d_volatile='define' +d_vprintf='define' +d_vsnprintf='define' +d_wait4='define' +d_waitpid='define' +d_wcstombs='define' +d_wctomb='define' +d_writev='define' +d_xenix='undef' +date='date' +db_hashtype='u_int32_t' +db_prefixtype='size_t' +db_version_major='4' +db_version_minor='7' +db_version_patch='25' +defvoidused='15' +direntrytype='struct dirent' +dlext='so' +dlsrc='dl_dlopen.xs' +doublesize='8' +drand01='drand48()' +drand48_r_proto='REENTRANT_PROTO_I_ST' +dtrace='' +dynamic_ext='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call GDBM_File Hash/Util Hash/Util/FieldHash I18N/Langinfo IO IO/Compress IPC/SysV List/Util MIME/Base64 Math/BigInt/FastCalc NDBM_File ODBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex Time/HiRes Time/Piece Unicode/Normalize XS/APItest XS/Typemap attrs mro re threads threads/shared' +eagain='EAGAIN' +ebcdic='undef' +echo='echo' +egrep='egrep' +emacs='' +endgrent_r_proto='0' +endhostent_r_proto='0' +endnetent_r_proto='0' +endprotoent_r_proto='0' +endpwent_r_proto='0' +endservent_r_proto='0' +eunicefix=':' +exe_ext='' +expr='expr' +extensions='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call GDBM_File Hash/Util Hash/Util/FieldHash I18N/Langinfo IO IO/Compress IPC/SysV List/Util MIME/Base64 Math/BigInt/FastCalc NDBM_File ODBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex Time/HiRes Time/Piece Unicode/Normalize XS/APItest XS/Typemap attrs mro re threads threads/shared Attribute/Handlers Errno Module/Pluggable Safe Test/Harness' +extern_C='extern' +extras='' +fflushNULL='define' +fflushall='undef' +find='' +firstmakefile='makefile' +flex='' +fpossize='16' +fpostype='fpos_t' +freetype='void' +from=':' +full_ar='/usr/bin/ar' +full_csh='csh' +full_sed='/bin/sed' +gccansipedantic='' +gccosandvers='' +gccversion='4.4.5' +getgrent_r_proto='REENTRANT_PROTO_I_SBWR' +getgrgid_r_proto='REENTRANT_PROTO_I_TSBWR' +getgrnam_r_proto='REENTRANT_PROTO_I_CSBWR' +gethostbyaddr_r_proto='REENTRANT_PROTO_I_TsISBWRE' +gethostbyname_r_proto='REENTRANT_PROTO_I_CSBWRE' +gethostent_r_proto='REENTRANT_PROTO_I_SBWRE' +getlogin_r_proto='REENTRANT_PROTO_I_BW' +getnetbyaddr_r_proto='REENTRANT_PROTO_I_uISBWRE' +getnetbyname_r_proto='REENTRANT_PROTO_I_CSBWRE' +getnetent_r_proto='REENTRANT_PROTO_I_SBWRE' +getprotobyname_r_proto='REENTRANT_PROTO_I_CSBWR' +getprotobynumber_r_proto='REENTRANT_PROTO_I_ISBWR' +getprotoent_r_proto='REENTRANT_PROTO_I_SBWR' +getpwent_r_proto='REENTRANT_PROTO_I_SBWR' +getpwnam_r_proto='REENTRANT_PROTO_I_CSBWR' +getpwuid_r_proto='REENTRANT_PROTO_I_TSBWR' +getservbyname_r_proto='REENTRANT_PROTO_I_CCSBWR' +getservbyport_r_proto='REENTRANT_PROTO_I_ICSBWR' +getservent_r_proto='REENTRANT_PROTO_I_SBWR' +getspnam_r_proto='REENTRANT_PROTO_I_CSBWR' +gidformat='"lu"' +gidsign='1' +gidsize='4' +gidtype='gid_t' +glibpth='/usr/shlib /lib /usr/lib /usr/lib/386 /lib/386 /usr/ccs/lib /usr/ucblib /usr/local/lib ' +gmake='gmake' +gmtime_r_proto='REENTRANT_PROTO_S_TS' +gnulibc_version='2.11.2' +grep='grep' +groupcat='cat /etc/group' +groupstype='gid_t' +gzip='gzip' +h_fcntl='false' +h_sysfile='true' +hint='recommended' +hostcat='cat /etc/hosts' +html1dir=' ' +html1direxp='' +html3dir=' ' +html3direxp='' +i16size='2' +i16type='short' +i32size='4' +i32type='long' +i64size='8' +i64type='long long' +i8size='1' +i8type='signed char' +i_arpainet='define' +i_assert='define' +i_bsdioctl='' +i_crypt='define' +i_db='define' +i_dbm='define' +i_dirent='define' +i_dld='undef' +i_dlfcn='define' +i_fcntl='undef' +i_float='define' +i_fp='undef' +i_fp_class='undef' +i_gdbm='define' +i_gdbm_ndbm='define' +i_gdbmndbm='undef' +i_grp='define' +i_ieeefp='undef' +i_inttypes='define' +i_langinfo='define' +i_libutil='undef' +i_limits='define' +i_locale='define' +i_machcthr='undef' +i_malloc='define' +i_mallocmalloc='undef' +i_math='define' +i_memory='undef' +i_mntent='define' +i_ndbm='undef' +i_netdb='define' +i_neterrno='undef' +i_netinettcp='define' +i_niin='define' +i_poll='define' +i_prot='undef' +i_pthread='define' +i_pwd='define' +i_rpcsvcdbm='undef' +i_sfio='undef' +i_sgtty='undef' +i_shadow='define' +i_socks='undef' +i_stdarg='define' +i_stddef='define' +i_stdlib='define' +i_string='define' +i_sunmath='undef' +i_sysaccess='undef' +i_sysdir='define' +i_sysfile='define' +i_sysfilio='undef' +i_sysin='undef' +i_sysioctl='define' +i_syslog='define' +i_sysmman='define' +i_sysmode='undef' +i_sysmount='define' +i_sysndir='undef' +i_sysparam='define' +i_syspoll='define' +i_sysresrc='define' +i_syssecrt='undef' +i_sysselct='define' +i_syssockio='undef' +i_sysstat='define' +i_sysstatfs='define' +i_sysstatvfs='define' +i_systime='define' +i_systimek='undef' +i_systimes='define' +i_systypes='define' +i_sysuio='define' +i_sysun='define' +i_sysutsname='define' +i_sysvfs='define' +i_syswait='define' +i_termio='undef' +i_termios='define' +i_time='define' +i_unistd='define' +i_ustat='define' +i_utime='define' +i_values='define' +i_varargs='undef' +i_varhdr='stdarg.h' +i_vfork='undef' +ignore_versioned_solibs='y' +inc_version_list='5.10.0' +inc_version_list_init='"5.10.0",0' +incpath='' +inews='' +initialinstalllocation='/usr/bin' +installarchlib='/usr/lib/perl/5.10' +installbin='/usr/bin' +installhtml1dir='' +installhtml3dir='' +installman1dir='/usr/share/man/man1' +installman3dir='/usr/share/man/man3' +installprefix='/usr' +installprefixexp='/usr' +installprivlib='/usr/share/perl/5.10' +installscript='/usr/bin' +installsitearch='/usr/local/lib/perl/5.10.1' +installsitebin='/usr/local/bin' +installsitehtml1dir='' +installsitehtml3dir='' +installsitelib='/usr/local/share/perl/5.10.1' +installsiteman1dir='/usr/local/man/man1' +installsiteman3dir='/usr/local/man/man3' +installsitescript='/usr/local/bin' +installstyle='lib/perl5' +installusrbinperl='undef' +installvendorarch='/usr/lib/perl5' +installvendorbin='/usr/bin' +installvendorhtml1dir='' +installvendorhtml3dir='' +installvendorlib='/usr/share/perl5' +installvendorman1dir='/usr/share/man/man1' +installvendorman3dir='/usr/share/man/man3' +installvendorscript='/usr/bin' +intsize='4' +issymlink='test -h' +ivdformat='"ld"' +ivsize='4' +ivtype='long' +known_extensions='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call GDBM_File Hash/Util Hash/Util/FieldHash I18N/Langinfo IO IO/Compress IPC/SysV List/Util MIME/Base64 Math/BigInt/FastCalc NDBM_File ODBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex Time/HiRes Time/Piece Unicode/Normalize Win32 Win32API/File Win32CORE XS/APItest XS/Typemap attrs mro re threads threads/shared' +ksh='' +ld='cc' +lddlflags='-shared -O2 -g -L/usr/local/lib -fstack-protector' +ldflags=' -fstack-protector -L/usr/local/lib' +ldflags_uselargefiles='' +ldlibpthname='LD_LIBRARY_PATH' +less='less' +lib_ext='.a' +libc='/lib/libc-2.11.2.so' +libdb_needs_pthread='N' +libperl='libperl.so.5.10.1' +libpth='/usr/local/lib /lib /usr/lib' +libs='-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt' +libsdirs=' /usr/lib' +libsfiles=' libgdbm.so libgdbm_compat.so libdb.so libdl.so libm.so libpthread.so libc.so libcrypt.so' +libsfound=' /usr/lib/libgdbm.so /usr/lib/libgdbm_compat.so /usr/lib/libdb.so /usr/lib/libdl.so /usr/lib/libm.so /usr/lib/libpthread.so /usr/lib/libc.so /usr/lib/libcrypt.so' +libspath=' /usr/local/lib /lib /usr/lib' +libswanted='gdbm gdbm_compat db dl m pthread c crypt gdbm_compat' +libswanted_uselargefiles='' +line='' +lint='' +lkflags='' +ln='ln' +lns='/bin/ln -s' +localtime_r_proto='REENTRANT_PROTO_S_TS' +locincpth='/usr/local/include /opt/local/include /usr/gnu/include /opt/gnu/include /usr/GNU/include /opt/GNU/include' +loclibpth='/usr/local/lib /opt/local/lib /usr/gnu/lib /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib' +longdblsize='8' +longlongsize='8' +longsize='4' +lp='' +lpr='' +ls='ls' +lseeksize='8' +lseektype='off_t' +mad='undef' +madlyh='' +madlyobj='' +madlysrc='' +mail='' +mailx='' +make='make' +make_set_make='#' +mallocobj='' +mallocsrc='' +malloctype='void *' +man1dir='/usr/share/man/man1' +man1direxp='/usr/share/man/man1' +man1ext='1p' +man3dir='/usr/share/man/man3' +man3direxp='/usr/share/man/man3' +man3ext='3pm' +mips_type='' +mistrustnm='' +mkdir='mkdir' +mmaptype='void *' +modetype='mode_t' +more='more' +multiarch='undef' +mv='' +myarchname='armv5tel-linux' +mydomain='' +myhostname='localhost' +myuname='linux antheil 2.6.32 #2 wed sep 22 17:47:11 utc 2010 armv5tel gnulinux ' +n='-n' +need_va_copy='undef' +netdb_hlen_type='size_t' +netdb_host_type='const void *' +netdb_name_type='const char *' +netdb_net_type='in_addr_t' +nm='nm' +nm_opt='' +nm_so_opt='--dynamic' +nonxs_ext='Attribute/Handlers Errno Module/Pluggable Safe Test/Harness' +nroff='nroff' +nvEUformat='"E"' +nvFUformat='"F"' +nvGUformat='"G"' +nv_overflows_integers_at='256.0*256.0*256.0*256.0*256.0*256.0*2.0*2.0*2.0*2.0*2.0' +nv_preserves_uv_bits='32' +nveformat='"e"' +nvfformat='"f"' +nvgformat='"g"' +nvsize='8' +nvtype='double' +o_nonblock='O_NONBLOCK' +obj_ext='.o' +old_pthread_create_joinable='' +optimize='-O2 -g' +orderlib='false' +osname='linux' +osvers='2.6.32' +otherlibdirs=' ' +package='perl5' +pager='/usr/bin/sensible-pager' +passcat='cat /etc/passwd' +patchlevel='10' +path_sep=':' +perl5='/usr/bin/perl' +perl='' +perl_patchlevel='' +perladmin='root@localhost' +perllibs='-ldl -lm -lpthread -lc -lcrypt' +perlpath='/usr/bin/perl' +pg='pg' +phostname='hostname' +pidtype='pid_t' +plibpth='' +pmake='' +pr='' +prefix='/usr' +prefixexp='/usr' +privlib='/usr/share/perl/5.10' +privlibexp='/usr/share/perl/5.10' +procselfexe='"/proc/self/exe"' +prototype='define' +ptrsize='4' +quadkind='3' +quadtype='long long' +randbits='48' +randfunc='drand48' +random_r_proto='REENTRANT_PROTO_I_St' +randseedtype='long' +ranlib=':' +rd_nodata='-1' +readdir64_r_proto='REENTRANT_PROTO_I_TSR' +readdir_r_proto='REENTRANT_PROTO_I_TSR' +revision='5' +rm='rm' +rm_try='/bin/rm -f try try a.out .out try.[cho] try..o core core.try* try.core*' +rmail='' +run='' +runnm='false' +sGMTIME_max='2147483647' +sGMTIME_min='-2147483648' +sLOCALTIME_max='2147483647' +sLOCALTIME_min='-2147483648' +sPRIEUldbl='"E"' +sPRIFUldbl='"F"' +sPRIGUldbl='"G"' +sPRIXU64='"LX"' +sPRId64='"Ld"' +sPRIeldbl='"e"' +sPRIfldbl='"f"' +sPRIgldbl='"g"' +sPRIi64='"Li"' +sPRIo64='"Lo"' +sPRIu64='"Lu"' +sPRIx64='"Lx"' +sSCNfldbl='"f"' +sched_yield='sched_yield()' +scriptdir='/usr/bin' +scriptdirexp='/usr/bin' +sed='sed' +seedfunc='srand48' +selectminbits='32' +selecttype='fd_set *' +sendmail='' +setgrent_r_proto='0' +sethostent_r_proto='0' +setlocale_r_proto='0' +setnetent_r_proto='0' +setprotoent_r_proto='0' +setpwent_r_proto='0' +setservent_r_proto='0' +sh='/bin/sh' +shar='' +sharpbang='#!' +shmattype='void *' +shortsize='2' +shrpenv='' +shsharp='true' +sig_count='65' +sig_name='ZERO HUP INT QUIT ILL TRAP ABRT BUS FPE KILL USR1 SEGV USR2 PIPE ALRM TERM STKFLT CHLD CONT STOP TSTP TTIN TTOU URG XCPU XFSZ VTALRM PROF WINCH IO PWR SYS NUM32 NUM33 RTMIN NUM35 NUM36 NUM37 NUM38 NUM39 NUM40 NUM41 NUM42 NUM43 NUM44 NUM45 NUM46 NUM47 NUM48 NUM49 NUM50 NUM51 NUM52 NUM53 NUM54 NUM55 NUM56 NUM57 NUM58 NUM59 NUM60 NUM61 NUM62 NUM63 RTMAX IOT CLD POLL UNUSED ' +sig_name_init='"ZERO", "HUP", "INT", "QUIT", "ILL", "TRAP", "ABRT", "BUS", "FPE", "KILL", "USR1", "SEGV", "USR2", "PIPE", "ALRM", "TERM", "STKFLT", "CHLD", "CONT", "STOP", "TSTP", "TTIN", "TTOU", "URG", "XCPU", "XFSZ", "VTALRM", "PROF", "WINCH", "IO", "PWR", "SYS", "NUM32", "NUM33", "RTMIN", "NUM35", "NUM36", "NUM37", "NUM38", "NUM39", "NUM40", "NUM41", "NUM42", "NUM43", "NUM44", "NUM45", "NUM46", "NUM47", "NUM48", "NUM49", "NUM50", "NUM51", "NUM52", "NUM53", "NUM54", "NUM55", "NUM56", "NUM57", "NUM58", "NUM59", "NUM60", "NUM61", "NUM62", "NUM63", "RTMAX", "IOT", "CLD", "POLL", "UNUSED", 0' +sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 6 17 29 31 ' +sig_num_init='0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 6, 17, 29, 31, 0' +sig_size='69' +signal_t='void' +sitearch='/usr/local/lib/perl/5.10.1' +sitearchexp='/usr/local/lib/perl/5.10.1' +sitebin='/usr/local/bin' +sitebinexp='/usr/local/bin' +sitehtml1dir='' +sitehtml1direxp='' +sitehtml3dir='' +sitehtml3direxp='' +sitelib='/usr/local/share/perl/5.10.1' +sitelib_stem='' +sitelibexp='/usr/local/share/perl/5.10.1' +siteman1dir='/usr/local/man/man1' +siteman1direxp='/usr/local/man/man1' +siteman3dir='/usr/local/man/man3' +siteman3direxp='/usr/local/man/man3' +siteprefix='/usr/local' +siteprefixexp='/usr/local' +sitescript='/usr/local/bin' +sitescriptexp='/usr/local/bin' +sizesize='4' +sizetype='size_t' +sleep='' +smail='' +so='so' +sockethdr='' +socketlib='' +socksizetype='socklen_t' +sort='sort' +spackage='Perl5' +spitshell='cat' +srand48_r_proto='REENTRANT_PROTO_I_LS' +srandom_r_proto='REENTRANT_PROTO_I_TS' +src='.' +ssizetype='ssize_t' +startperl='#!/usr/bin/perl' +startsh='#!/bin/sh' +static_ext=' ' +stdchar='char' +stdio_base='((fp)->_IO_read_base)' +stdio_bufsiz='((fp)->_IO_read_end - (fp)->_IO_read_base)' +stdio_cnt='((fp)->_IO_read_end - (fp)->_IO_read_ptr)' +stdio_filbuf='' +stdio_ptr='((fp)->_IO_read_ptr)' +stdio_stream_array='' +strerror_r_proto='REENTRANT_PROTO_B_IBW' +strings='/usr/include/string.h' +submit='' +subversion='1' +sysman='/usr/share/man/man1' +tail='' +tar='' +targetarch='' +tbl='' +tee='' +test='test' +timeincl='/usr/include/sys/time.h /usr/include/time.h ' +timetype='time_t' +tmpnam_r_proto='REENTRANT_PROTO_B_B' +to=':' +touch='touch' +tr='tr' +trnl='\n' +troff='' +ttyname_r_proto='REENTRANT_PROTO_I_IBW' +u16size='2' +u16type='unsigned short' +u32size='4' +u32type='unsigned long' +u64size='8' +u64type='unsigned long long' +u8size='1' +u8type='unsigned char' +uidformat='"lu"' +uidsign='1' +uidsize='4' +uidtype='uid_t' +uname='uname' +uniq='uniq' +uquadtype='unsigned long long' +use5005threads='undef' +use64bitall='undef' +use64bitint='undef' +usecrosscompile='undef' +usedevel='undef' +usedl='define' +usedtrace='undef' +usefaststdio='undef' +useithreads='define' +uselargefiles='define' +uselongdouble='undef' +usemallocwrap='define' +usemorebits='undef' +usemultiplicity='define' +usemymalloc='n' +usenm='false' +useopcode='true' +useperlio='define' +useposix='true' +usereentrant='undef' +userelocatableinc='undef' +usesfio='false' +useshrplib='true' +usesitecustomize='undef' +usesocks='undef' +usethreads='define' +usevendorprefix='define' +usevfork='false' +usrinc='/usr/include' +uuname='' +uvXUformat='"lX"' +uvoformat='"lo"' +uvsize='4' +uvtype='unsigned long' +uvuformat='"lu"' +uvxformat='"lx"' +vendorarch='/usr/lib/perl5' +vendorarchexp='/usr/lib/perl5' +vendorbin='/usr/bin' +vendorbinexp='/usr/bin' +vendorhtml1dir=' ' +vendorhtml1direxp='' +vendorhtml3dir=' ' +vendorhtml3direxp='' +vendorlib='/usr/share/perl5' +vendorlib_stem='' +vendorlibexp='/usr/share/perl5' +vendorman1dir='/usr/share/man/man1' +vendorman1direxp='/usr/share/man/man1' +vendorman3dir='/usr/share/man/man3' +vendorman3direxp='/usr/share/man/man3' +vendorprefix='/usr' +vendorprefixexp='/usr' +vendorscript='/usr/bin' +vendorscriptexp='/usr/bin' +version='5.10.1' +version_patchlevel_string='version 10 subversion 1' +versiononly='undef' +vi='' +voidflags='15' +xlibpth='/usr/lib/386 /lib/386' +yacc='yacc' +yaccflags='' +zcat='' +zip='zip' +!END! + +my $i = 0; +foreach my $c (4,3,2) { $i |= ord($c); $i <<= 8 } +$i |= ord(1); +our $byteorder = join('', unpack('aaaa', pack('L!', $i))); +s/(byteorder=)(['"]).*?\2/$1$2$Config::byteorder$2/m; + +my $config_sh_len = length $_; + +our $Config_SH_expanded = "\n$_" . << 'EOVIRTUAL'; +ccflags_nolargefiles='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include ' +ldflags_nolargefiles=' -fstack-protector -L/usr/local/lib' +libs_nolargefiles='-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt' +libswanted_nolargefiles='gdbm gdbm_compat db dl m pthread c crypt gdbm_compat' +EOVIRTUAL +eval { + # do not have hairy conniptions if this isnt available + require 'Config_git.pl'; + $Config_SH_expanded .= $Config::Git_Data; + 1; +} or warn "Warning: failed to load Config_git.pl, something strange about this perl...\n"; + +# Search for it in the big string +sub fetch_string { + my($self, $key) = @_; + + # We only have ' delimted. + my $start = index($Config_SH_expanded, "\n$key=\'"); + # Start can never be -1 now, as we've rigged the long string we're + # searching with an initial dummy newline. + return undef if $start == -1; + + $start += length($key) + 3; + + my $value = substr($Config_SH_expanded, $start, + index($Config_SH_expanded, "'\n", $start) + - $start); + # So we can say "if $Config{'foo'}". + $value = undef if $value eq 'undef'; + $self->{$key} = $value; # cache it +} + +my $prevpos = 0; + +sub FIRSTKEY { + $prevpos = 0; + substr($Config_SH_expanded, 1, index($Config_SH_expanded, '=') - 1 ); +} + +sub NEXTKEY { + my $pos = index($Config_SH_expanded, qq('\n), $prevpos) + 2; + my $len = index($Config_SH_expanded, "=", $pos) - $pos; + $prevpos = $pos; + $len > 0 ? substr($Config_SH_expanded, $pos, $len) : undef; +} + +sub EXISTS { + return 1 if exists($_[0]->{$_[1]}); + + return(index($Config_SH_expanded, "\n$_[1]='") != -1 + ); +} + +sub STORE { die "\%Config::Config is read-only\n" } +*DELETE = \&STORE; +*CLEAR = \&STORE; + + +sub config_sh { + substr $Config_SH_expanded, 1, $config_sh_len; +} + +sub config_re { + my $re = shift; + return map { chomp; $_ } grep eval{ /^(?:$re)=/ }, split /^/, + $Config_SH_expanded; +} + +sub config_vars { + # implements -V:cfgvar option (see perlrun -V:) + foreach (@_) { + # find optional leading, trailing colons; and query-spec + my ($notag,$qry,$lncont) = m/^(:)?(.*?)(:)?$/; # flags fore and aft, + # map colon-flags to print decorations + my $prfx = $notag ? '': "$qry="; # tag-prefix for print + my $lnend = $lncont ? ' ' : ";\n"; # line ending for print + + # all config-vars are by definition \w only, any \W means regex + if ($qry =~ /\W/) { + my @matches = config_re($qry); + print map "$_$lnend", @matches ? @matches : "$qry: not found" if !$notag; + print map { s/\w+=//; "$_$lnend" } @matches ? @matches : "$qry: not found" if $notag; + } else { + my $v = (exists $Config::Config{$qry}) ? $Config::Config{$qry} + : 'UNKNOWN'; + $v = 'undef' unless defined $v; + print "${prfx}'${v}'$lnend"; + } + } +} + +# Called by the real AUTOLOAD +sub launcher { + undef &AUTOLOAD; + goto \&$Config::AUTOLOAD; +} + +1; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/Cwd.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/Cwd.pm new file mode 100644 index 0000000..e7031d9 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/Cwd.pm @@ -0,0 +1,648 @@ +package Cwd; + +use strict; +use Exporter; +use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION); + +$VERSION = '3.30'; +my $xs_version = $VERSION; +$VERSION = eval $VERSION; + +@ISA = qw/ Exporter /; +@EXPORT = qw(cwd getcwd fastcwd fastgetcwd); +push @EXPORT, qw(getdcwd) if $^O eq 'MSWin32'; +@EXPORT_OK = qw(chdir abs_path fast_abs_path realpath fast_realpath); + +# sys_cwd may keep the builtin command + +# All the functionality of this module may provided by builtins, +# there is no sense to process the rest of the file. +# The best choice may be to have this in BEGIN, but how to return from BEGIN? + +if ($^O eq 'os2') { + local $^W = 0; + + *cwd = defined &sys_cwd ? \&sys_cwd : \&_os2_cwd; + *getcwd = \&cwd; + *fastgetcwd = \&cwd; + *fastcwd = \&cwd; + + *fast_abs_path = \&sys_abspath if defined &sys_abspath; + *abs_path = \&fast_abs_path; + *realpath = \&fast_abs_path; + *fast_realpath = \&fast_abs_path; + + return 1; +} + +# Need to look up the feature settings on VMS. The preferred way is to use the +# VMS::Feature module, but that may not be available to dual life modules. + +my $use_vms_feature; +BEGIN { + if ($^O eq 'VMS') { + if (eval { local $SIG{__DIE__}; require VMS::Feature; }) { + $use_vms_feature = 1; + } + } +} + +# Need to look up the UNIX report mode. This may become a dynamic mode +# in the future. +sub _vms_unix_rpt { + my $unix_rpt; + if ($use_vms_feature) { + $unix_rpt = VMS::Feature::current("filename_unix_report"); + } else { + my $env_unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || ''; + $unix_rpt = $env_unix_rpt =~ /^[ET1]/i; + } + return $unix_rpt; +} + +# Need to look up the EFS character set mode. This may become a dynamic +# mode in the future. +sub _vms_efs { + my $efs; + if ($use_vms_feature) { + $efs = VMS::Feature::current("efs_charset"); + } else { + my $env_efs = $ENV{'DECC$EFS_CHARSET'} || ''; + $efs = $env_efs =~ /^[ET1]/i; + } + return $efs; +} + +# If loading the XS stuff doesn't work, we can fall back to pure perl +eval { + if ( $] >= 5.006 ) { + require XSLoader; + XSLoader::load( __PACKAGE__, $xs_version); + } else { + require DynaLoader; + push @ISA, 'DynaLoader'; + __PACKAGE__->bootstrap( $xs_version ); + } +}; + +# Must be after the DynaLoader stuff: +$VERSION = eval $VERSION; + +# Big nasty table of function aliases +my %METHOD_MAP = + ( + VMS => + { + cwd => '_vms_cwd', + getcwd => '_vms_cwd', + fastcwd => '_vms_cwd', + fastgetcwd => '_vms_cwd', + abs_path => '_vms_abs_path', + fast_abs_path => '_vms_abs_path', + }, + + MSWin32 => + { + # We assume that &_NT_cwd is defined as an XSUB or in the core. + cwd => '_NT_cwd', + getcwd => '_NT_cwd', + fastcwd => '_NT_cwd', + fastgetcwd => '_NT_cwd', + abs_path => 'fast_abs_path', + realpath => 'fast_abs_path', + }, + + dos => + { + cwd => '_dos_cwd', + getcwd => '_dos_cwd', + fastgetcwd => '_dos_cwd', + fastcwd => '_dos_cwd', + abs_path => 'fast_abs_path', + }, + + # QNX4. QNX6 has a $os of 'nto'. + qnx => + { + cwd => '_qnx_cwd', + getcwd => '_qnx_cwd', + fastgetcwd => '_qnx_cwd', + fastcwd => '_qnx_cwd', + abs_path => '_qnx_abs_path', + fast_abs_path => '_qnx_abs_path', + }, + + cygwin => + { + getcwd => 'cwd', + fastgetcwd => 'cwd', + fastcwd => 'cwd', + abs_path => 'fast_abs_path', + realpath => 'fast_abs_path', + }, + + epoc => + { + cwd => '_epoc_cwd', + getcwd => '_epoc_cwd', + fastgetcwd => '_epoc_cwd', + fastcwd => '_epoc_cwd', + abs_path => 'fast_abs_path', + }, + + MacOS => + { + getcwd => 'cwd', + fastgetcwd => 'cwd', + fastcwd => 'cwd', + abs_path => 'fast_abs_path', + }, + ); + +$METHOD_MAP{NT} = $METHOD_MAP{MSWin32}; + +# Find the pwd command in the expected locations. We assume these +# are safe. This prevents _backtick_pwd() consulting $ENV{PATH} +# so everything works under taint mode. +my $pwd_cmd; +foreach my $try ('/bin/pwd', + '/usr/bin/pwd', + '/QOpenSys/bin/pwd', # OS/400 PASE. + ) { + + if( -x $try ) { + $pwd_cmd = $try; + last; + } +} +my $found_pwd_cmd = defined($pwd_cmd); +unless ($pwd_cmd) { + # Isn't this wrong? _backtick_pwd() will fail if somenone has + # pwd in their path but it is not /bin/pwd or /usr/bin/pwd? + # See [perl #16774]. --jhi + $pwd_cmd = 'pwd'; +} + +# Lazy-load Carp +sub _carp { require Carp; Carp::carp(@_) } +sub _croak { require Carp; Carp::croak(@_) } + +# The 'natural and safe form' for UNIX (pwd may be setuid root) +sub _backtick_pwd { + # Localize %ENV entries in a way that won't create new hash keys + my @localize = grep exists $ENV{$_}, qw(PATH IFS CDPATH ENV BASH_ENV); + local @ENV{@localize}; + + my $cwd = `$pwd_cmd`; + # Belt-and-suspenders in case someone said "undef $/". + local $/ = "\n"; + # `pwd` may fail e.g. if the disk is full + chomp($cwd) if defined $cwd; + $cwd; +} + +# Since some ports may predefine cwd internally (e.g., NT) +# we take care not to override an existing definition for cwd(). + +unless ($METHOD_MAP{$^O}{cwd} or defined &cwd) { + # The pwd command is not available in some chroot(2)'ed environments + my $sep = $Config::Config{path_sep} || ':'; + my $os = $^O; # Protect $^O from tainting + + # Try again to find a pwd, this time searching the whole PATH. + if (defined $ENV{PATH} and $os ne 'MSWin32') { # no pwd on Windows + my @candidates = split($sep, $ENV{PATH}); + while (!$found_pwd_cmd and @candidates) { + my $candidate = shift @candidates; + $found_pwd_cmd = 1 if -x "$candidate/pwd"; + } + } + + # MacOS has some special magic to make `pwd` work. + if( $os eq 'MacOS' || $found_pwd_cmd ) + { + *cwd = \&_backtick_pwd; + } + else { + *cwd = \&getcwd; + } +} + +if ($^O eq 'cygwin') { + # We need to make sure cwd() is called with no args, because it's + # got an arg-less prototype and will die if args are present. + local $^W = 0; + my $orig_cwd = \&cwd; + *cwd = sub { &$orig_cwd() } +} + +# set a reasonable (and very safe) default for fastgetcwd, in case it +# isn't redefined later (20001212 rspier) +*fastgetcwd = \&cwd; + +# A non-XS version of getcwd() - also used to bootstrap the perl build +# process, when miniperl is running and no XS loading happens. +sub _perl_getcwd +{ + abs_path('.'); +} + +# By John Bazik +# +# Usage: $cwd = &fastcwd; +# +# This is a faster version of getcwd. It's also more dangerous because +# you might chdir out of a directory that you can't chdir back into. + +sub fastcwd_ { + my($odev, $oino, $cdev, $cino, $tdev, $tino); + my(@path, $path); + local(*DIR); + + my($orig_cdev, $orig_cino) = stat('.'); + ($cdev, $cino) = ($orig_cdev, $orig_cino); + for (;;) { + my $direntry; + ($odev, $oino) = ($cdev, $cino); + CORE::chdir('..') || return undef; + ($cdev, $cino) = stat('.'); + last if $odev == $cdev && $oino == $cino; + opendir(DIR, '.') || return undef; + for (;;) { + $direntry = readdir(DIR); + last unless defined $direntry; + next if $direntry eq '.'; + next if $direntry eq '..'; + + ($tdev, $tino) = lstat($direntry); + last unless $tdev != $odev || $tino != $oino; + } + closedir(DIR); + return undef unless defined $direntry; # should never happen + unshift(@path, $direntry); + } + $path = '/' . join('/', @path); + if ($^O eq 'apollo') { $path = "/".$path; } + # At this point $path may be tainted (if tainting) and chdir would fail. + # Untaint it then check that we landed where we started. + $path =~ /^(.*)\z/s # untaint + && CORE::chdir($1) or return undef; + ($cdev, $cino) = stat('.'); + die "Unstable directory path, current directory changed unexpectedly" + if $cdev != $orig_cdev || $cino != $orig_cino; + $path; +} +if (not defined &fastcwd) { *fastcwd = \&fastcwd_ } + +# Keeps track of current working directory in PWD environment var +# Usage: +# use Cwd 'chdir'; +# chdir $newdir; + +my $chdir_init = 0; + +sub chdir_init { + if ($ENV{'PWD'} and $^O ne 'os2' and $^O ne 'dos' and $^O ne 'MSWin32') { + my($dd,$di) = stat('.'); + my($pd,$pi) = stat($ENV{'PWD'}); + if (!defined $dd or !defined $pd or $di != $pi or $dd != $pd) { + $ENV{'PWD'} = cwd(); + } + } + else { + my $wd = cwd(); + $wd = Win32::GetFullPathName($wd) if $^O eq 'MSWin32'; + $ENV{'PWD'} = $wd; + } + # Strip an automounter prefix (where /tmp_mnt/foo/bar == /foo/bar) + if ($^O ne 'MSWin32' and $ENV{'PWD'} =~ m|(/[^/]+(/[^/]+/[^/]+))(.*)|s) { + my($pd,$pi) = stat($2); + my($dd,$di) = stat($1); + if (defined $pd and defined $dd and $di == $pi and $dd == $pd) { + $ENV{'PWD'}="$2$3"; + } + } + $chdir_init = 1; +} + +sub chdir { + my $newdir = @_ ? shift : ''; # allow for no arg (chdir to HOME dir) + $newdir =~ s|///*|/|g unless $^O eq 'MSWin32'; + chdir_init() unless $chdir_init; + my $newpwd; + if ($^O eq 'MSWin32') { + # get the full path name *before* the chdir() + $newpwd = Win32::GetFullPathName($newdir); + } + + return 0 unless CORE::chdir $newdir; + + if ($^O eq 'VMS') { + return $ENV{'PWD'} = $ENV{'DEFAULT'} + } + elsif ($^O eq 'MacOS') { + return $ENV{'PWD'} = cwd(); + } + elsif ($^O eq 'MSWin32') { + $ENV{'PWD'} = $newpwd; + return 1; + } + + if (ref $newdir eq 'GLOB') { # in case a file/dir handle is passed in + $ENV{'PWD'} = cwd(); + } elsif ($newdir =~ m#^/#s) { + $ENV{'PWD'} = $newdir; + } else { + my @curdir = split(m#/#,$ENV{'PWD'}); + @curdir = ('') unless @curdir; + my $component; + foreach $component (split(m#/#, $newdir)) { + next if $component eq '.'; + pop(@curdir),next if $component eq '..'; + push(@curdir,$component); + } + $ENV{'PWD'} = join('/',@curdir) || '/'; + } + 1; +} + +sub _perl_abs_path +{ + my $start = @_ ? shift : '.'; + my($dotdots, $cwd, @pst, @cst, $dir, @tst); + + unless (@cst = stat( $start )) + { + _carp("stat($start): $!"); + return ''; + } + + unless (-d _) { + # Make sure we can be invoked on plain files, not just directories. + # NOTE that this routine assumes that '/' is the only directory separator. + + my ($dir, $file) = $start =~ m{^(.*)/(.+)$} + or return cwd() . '/' . $start; + + # Can't use "-l _" here, because the previous stat was a stat(), not an lstat(). + if (-l $start) { + my $link_target = readlink($start); + die "Can't resolve link $start: $!" unless defined $link_target; + + require File::Spec; + $link_target = $dir . '/' . $link_target + unless File::Spec->file_name_is_absolute($link_target); + + return abs_path($link_target); + } + + return $dir ? abs_path($dir) . "/$file" : "/$file"; + } + + $cwd = ''; + $dotdots = $start; + do + { + $dotdots .= '/..'; + @pst = @cst; + local *PARENT; + unless (opendir(PARENT, $dotdots)) + { + # probably a permissions issue. Try the native command. + return File::Spec->rel2abs( $start, _backtick_pwd() ); + } + unless (@cst = stat($dotdots)) + { + _carp("stat($dotdots): $!"); + closedir(PARENT); + return ''; + } + if ($pst[0] == $cst[0] && $pst[1] == $cst[1]) + { + $dir = undef; + } + else + { + do + { + unless (defined ($dir = readdir(PARENT))) + { + _carp("readdir($dotdots): $!"); + closedir(PARENT); + return ''; + } + $tst[0] = $pst[0]+1 unless (@tst = lstat("$dotdots/$dir")) + } + while ($dir eq '.' || $dir eq '..' || $tst[0] != $pst[0] || + $tst[1] != $pst[1]); + } + $cwd = (defined $dir ? "$dir" : "" ) . "/$cwd" ; + closedir(PARENT); + } while (defined $dir); + chop($cwd) unless $cwd eq '/'; # drop the trailing / + $cwd; +} + +my $Curdir; +sub fast_abs_path { + local $ENV{PWD} = $ENV{PWD} || ''; # Guard against clobberage + my $cwd = getcwd(); + require File::Spec; + my $path = @_ ? shift : ($Curdir ||= File::Spec->curdir); + + # Detaint else we'll explode in taint mode. This is safe because + # we're not doing anything dangerous with it. + ($path) = $path =~ /(.*)/; + ($cwd) = $cwd =~ /(.*)/; + + unless (-e $path) { + _croak("$path: No such file or directory"); + } + + unless (-d _) { + # Make sure we can be invoked on plain files, not just directories. + + my ($vol, $dir, $file) = File::Spec->splitpath($path); + return File::Spec->catfile($cwd, $path) unless length $dir; + + if (-l $path) { + my $link_target = readlink($path); + die "Can't resolve link $path: $!" unless defined $link_target; + + $link_target = File::Spec->catpath($vol, $dir, $link_target) + unless File::Spec->file_name_is_absolute($link_target); + + return fast_abs_path($link_target); + } + + return $dir eq File::Spec->rootdir + ? File::Spec->catpath($vol, $dir, $file) + : fast_abs_path(File::Spec->catpath($vol, $dir, '')) . '/' . $file; + } + + if (!CORE::chdir($path)) { + _croak("Cannot chdir to $path: $!"); + } + my $realpath = getcwd(); + if (! ((-d $cwd) && (CORE::chdir($cwd)))) { + _croak("Cannot chdir back to $cwd: $!"); + } + $realpath; +} + +# added function alias to follow principle of least surprise +# based on previous aliasing. --tchrist 27-Jan-00 +*fast_realpath = \&fast_abs_path; + +# --- PORTING SECTION --- + +# VMS: $ENV{'DEFAULT'} points to default directory at all times +# 06-Mar-1996 Charles Bailey bailey@newman.upenn.edu +# Note: Use of Cwd::chdir() causes the logical name PWD to be defined +# in the process logical name table as the default device and directory +# seen by Perl. This may not be the same as the default device +# and directory seen by DCL after Perl exits, since the effects +# the CRTL chdir() function persist only until Perl exits. + +sub _vms_cwd { + return $ENV{'DEFAULT'}; +} + +sub _vms_abs_path { + return $ENV{'DEFAULT'} unless @_; + my $path = shift; + + my $efs = _vms_efs; + my $unix_rpt = _vms_unix_rpt; + + if (defined &VMS::Filespec::vmsrealpath) { + my $path_unix = 0; + my $path_vms = 0; + + $path_unix = 1 if ($path =~ m#(?<=\^)/#); + $path_unix = 1 if ($path =~ /^\.\.?$/); + $path_vms = 1 if ($path =~ m#[\[<\]]#); + $path_vms = 1 if ($path =~ /^--?$/); + + my $unix_mode = $path_unix; + if ($efs) { + # In case of a tie, the Unix report mode decides. + if ($path_vms == $path_unix) { + $unix_mode = $unix_rpt; + } else { + $unix_mode = 0 if $path_vms; + } + } + + if ($unix_mode) { + # Unix format + return VMS::Filespec::unixrealpath($path); + } + + # VMS format + + my $new_path = VMS::Filespec::vmsrealpath($path); + + # Perl expects directories to be in directory format + $new_path = VMS::Filespec::pathify($new_path) if -d $path; + return $new_path; + } + + # Fallback to older algorithm if correct ones are not + # available. + + if (-l $path) { + my $link_target = readlink($path); + die "Can't resolve link $path: $!" unless defined $link_target; + + return _vms_abs_path($link_target); + } + + # may need to turn foo.dir into [.foo] + my $pathified = VMS::Filespec::pathify($path); + $path = $pathified if defined $pathified; + + return VMS::Filespec::rmsexpand($path); +} + +sub _os2_cwd { + $ENV{'PWD'} = `cmd /c cd`; + chomp $ENV{'PWD'}; + $ENV{'PWD'} =~ s:\\:/:g ; + return $ENV{'PWD'}; +} + +sub _win32_cwd { + if (defined &DynaLoader::boot_DynaLoader) { + $ENV{'PWD'} = Win32::GetCwd(); + } + else { # miniperl + chomp($ENV{'PWD'} = `cd`); + } + $ENV{'PWD'} =~ s:\\:/:g ; + return $ENV{'PWD'}; +} + +*_NT_cwd = defined &Win32::GetCwd ? \&_win32_cwd : \&_os2_cwd; + +sub _dos_cwd { + if (!defined &Dos::GetCwd) { + $ENV{'PWD'} = `command /c cd`; + chomp $ENV{'PWD'}; + $ENV{'PWD'} =~ s:\\:/:g ; + } else { + $ENV{'PWD'} = Dos::GetCwd(); + } + return $ENV{'PWD'}; +} + +sub _qnx_cwd { + local $ENV{PATH} = ''; + local $ENV{CDPATH} = ''; + local $ENV{ENV} = ''; + $ENV{'PWD'} = `/usr/bin/fullpath -t`; + chomp $ENV{'PWD'}; + return $ENV{'PWD'}; +} + +sub _qnx_abs_path { + local $ENV{PATH} = ''; + local $ENV{CDPATH} = ''; + local $ENV{ENV} = ''; + my $path = @_ ? shift : '.'; + local *REALPATH; + + defined( open(REALPATH, '-|') || exec '/usr/bin/fullpath', '-t', $path ) or + die "Can't open /usr/bin/fullpath: $!"; + my $realpath = <REALPATH>; + close REALPATH; + chomp $realpath; + return $realpath; +} + +sub _epoc_cwd { + $ENV{'PWD'} = EPOC::getcwd(); + return $ENV{'PWD'}; +} + +# Now that all the base-level functions are set up, alias the +# user-level functions to the right places + +if (exists $METHOD_MAP{$^O}) { + my $map = $METHOD_MAP{$^O}; + foreach my $name (keys %$map) { + local $^W = 0; # assignments trigger 'subroutine redefined' warning + no strict 'refs'; + *{$name} = \&{$map->{$name}}; + } +} + +# In case the XS version doesn't load. +*abs_path = \&_perl_abs_path unless defined &abs_path; +*getcwd = \&_perl_getcwd unless defined &getcwd; + +# added function alias for those of us more +# used to the libc function. --tchrist 27-Jan-00 +*realpath = \&abs_path; + +1; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/DynaLoader.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/DynaLoader.pm new file mode 100644 index 0000000..693e16b --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/DynaLoader.pm @@ -0,0 +1,225 @@ +# Generated from DynaLoader_pm.PL + +package DynaLoader; + +# And Gandalf said: 'Many folk like to know beforehand what is to +# be set on the table; but those who have laboured to prepare the +# feast like to keep their secret; for wonder makes the words of +# praise louder.' + +# (Quote from Tolkien suggested by Anno Siegel.) +# +# See pod text at end of file for documentation. +# See also ext/DynaLoader/README in source tree for other information. +# +# Tim.Bunce@ig.co.uk, August 1994 + +BEGIN { + $VERSION = '1.10'; +} + +require AutoLoader; +*AUTOLOAD = \&AutoLoader::AUTOLOAD; + +use Config; + +# enable debug/trace messages from DynaLoader perl code +$dl_debug = $ENV{PERL_DL_DEBUG} || 0 unless defined $dl_debug; + +# +# Flags to alter dl_load_file behaviour. Assigned bits: +# 0x01 make symbols available for linking later dl_load_file's. +# (only known to work on Solaris 2 using dlopen(RTLD_GLOBAL)) +# (ignored under VMS; effect is built-in to image linking) +# +# This is called as a class method $module->dl_load_flags. The +# definition here will be inherited and result on "default" loading +# behaviour unless a sub-class of DynaLoader defines its own version. +# + +sub dl_load_flags { 0x00 } + +($dl_dlext, $dl_so, $dlsrc) = @Config::Config{qw(dlext so dlsrc)}; + +$do_expand = 0; + +@dl_require_symbols = (); # names of symbols we need +@dl_resolve_using = (); # names of files to link with +@dl_library_path = (); # path to look for files + +#XSLoader.pm may have added elements before we were required +#@dl_shared_objects = (); # shared objects for symbols we have +#@dl_librefs = (); # things we have loaded +#@dl_modules = (); # Modules we have loaded + +# This is a fix to support DLD's unfortunate desire to relink -lc +@dl_resolve_using = dl_findfile('-lc') if $dlsrc eq "dl_dld.xs"; + +# Initialise @dl_library_path with the 'standard' library path +# for this platform as determined by Configure. + +push(@dl_library_path, split(' ', $Config::Config{libpth})); + +my $ldlibpthname = $Config::Config{ldlibpthname}; +my $ldlibpthname_defined = defined $Config::Config{ldlibpthname}; +my $pthsep = $Config::Config{path_sep}; + +# Add to @dl_library_path any extra directories we can gather from environment +# during runtime. + +if ($ldlibpthname_defined && + exists $ENV{$ldlibpthname}) { + push(@dl_library_path, split(/$pthsep/, $ENV{$ldlibpthname})); +} + +# E.g. HP-UX supports both its native SHLIB_PATH *and* LD_LIBRARY_PATH. + +if ($ldlibpthname_defined && + $ldlibpthname ne 'LD_LIBRARY_PATH' && + exists $ENV{LD_LIBRARY_PATH}) { + push(@dl_library_path, split(/$pthsep/, $ENV{LD_LIBRARY_PATH})); +} + +# No prizes for guessing why we don't say 'bootstrap DynaLoader;' here. +# NOTE: All dl_*.xs (including dl_none.xs) define a dl_error() XSUB +boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader) && + !defined(&dl_error); + +if ($dl_debug) { + print STDERR "DynaLoader.pm loaded (@INC, @dl_library_path)\n"; + print STDERR "DynaLoader not linked into this perl\n" + unless defined(&boot_DynaLoader); +} + +1; # End of main code + +sub croak { require Carp; Carp::croak(@_) } + +sub bootstrap_inherit { + my $module = $_[0]; + local *isa = *{"$module\::ISA"}; + local @isa = (@isa, 'DynaLoader'); + # Cannot goto due to delocalization. Will report errors on a wrong line? + bootstrap(@_); +} + +# The bootstrap function cannot be autoloaded (without complications) +# so we define it here: + +sub bootstrap { + # use local vars to enable $module.bs script to edit values + local(@args) = @_; + local($module) = $args[0]; + local(@dirs, $file); + + unless ($module) { + require Carp; + Carp::confess("Usage: DynaLoader::bootstrap(module)"); + } + + # A common error on platforms which don't support dynamic loading. + # Since it's fatal and potentially confusing we give a detailed message. + croak("Can't load module $module, dynamic loading not available in this perl.\n". + " (You may need to build a new perl executable which either supports\n". + " dynamic loading or has the $module module statically linked into it.)\n") + unless defined(&dl_load_file); + + + my @modparts = split(/::/,$module); + my $modfname = $modparts[-1]; + + # Some systems have restrictions on files names for DLL's etc. + # mod2fname returns appropriate file base name (typically truncated) + # It may also edit @modparts if required. + $modfname = &mod2fname(\@modparts) if defined &mod2fname; + + + + my $modpname = join('/',@modparts); + + print STDERR "DynaLoader::bootstrap for $module ", + "(auto/$modpname/$modfname.$dl_dlext)\n" + if $dl_debug; + + foreach (@INC) { + + + my $dir = "$_/auto/$modpname"; + + + next unless -d $dir; # skip over uninteresting directories + + # check for common cases to avoid autoload of dl_findfile + my $try = "$dir/$modfname.$dl_dlext"; + last if $file = ($do_expand) ? dl_expandspec($try) : ((-f $try) && $try); + + # no luck here, save dir for possible later dl_findfile search + push @dirs, $dir; + } + # last resort, let dl_findfile have a go in all known locations + $file = dl_findfile(map("-L$_",@dirs,@INC), $modfname) unless $file; + + croak("Can't locate loadable object for module $module in \@INC (\@INC contains: @INC)") + unless $file; # wording similar to error from 'require' + + + my $bootname = "boot_$module"; + $bootname =~ s/\W/_/g; + @dl_require_symbols = ($bootname); + + # Execute optional '.bootstrap' perl script for this module. + # The .bs file can be used to configure @dl_resolve_using etc to + # match the needs of the individual module on this architecture. + my $bs = $file; + $bs =~ s/(\.\w+)?(;\d*)?$/\.bs/; # look for .bs 'beside' the library + if (-s $bs) { # only read file if it's not empty + print STDERR "BS: $bs ($^O, $dlsrc)\n" if $dl_debug; + eval { do $bs; }; + warn "$bs: $@\n" if $@; + } + + my $boot_symbol_ref; + + + + # Many dynamic extension loading problems will appear to come from + # this section of code: XYZ failed at line 123 of DynaLoader.pm. + # Often these errors are actually occurring in the initialisation + # C code of the extension XS file. Perl reports the error as being + # in this perl code simply because this was the last perl code + # it executed. + + my $libref = dl_load_file($file, $module->dl_load_flags) or + croak("Can't load '$file' for module $module: ".dl_error()); + + push(@dl_librefs,$libref); # record loaded object + + my @unresolved = dl_undef_symbols(); + if (@unresolved) { + require Carp; + Carp::carp("Undefined symbols present after loading $file: @unresolved\n"); + } + + $boot_symbol_ref = dl_find_symbol($libref, $bootname) or + croak("Can't find '$bootname' symbol in $file\n"); + + push(@dl_modules, $module); # record loaded module + + boot: + my $xs = dl_install_xsub("${module}::bootstrap", $boot_symbol_ref, $file); + + # See comment block above + + push(@dl_shared_objects, $file); # record files loaded + + &$xs(@args); +} + +#sub _check_file { # private utility to handle dl_expandspec vs -f tests +# my($file) = @_; +# return $file if (!$do_expand && -f $file); # the common case +# return $file if ( $do_expand && ($file=dl_expandspec($file))); +# return undef; +#} + +# Let autosplit and the autoloader deal with these functions: diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/Errno.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/Errno.pm new file mode 100644 index 0000000..0da8bda --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/Errno.pm @@ -0,0 +1,228 @@ +# +# This file is auto-generated. ***ANY*** changes here will be lost +# + +package Errno; +our (@EXPORT_OK,%EXPORT_TAGS,@ISA,$VERSION,%errno,$AUTOLOAD); +use Exporter (); +use strict; + +$VERSION = "1.11"; +$VERSION = eval $VERSION; +@ISA = qw(Exporter); + +@EXPORT_OK = qw(EBADR ENOMSG ENOTSUP ESTRPIPE EADDRINUSE EL3HLT EBADF + ENOTBLK ENAVAIL ECHRNG ENOTNAM ELNRNG ENOKEY EXDEV EBADE EBADSLT + ECONNREFUSED ENOSTR ENONET EOVERFLOW EISCONN EFBIG EKEYREVOKED + ECONNRESET EWOULDBLOCK ELIBMAX EREMOTEIO ERFKILL ENOPKG ELIBSCN + EDESTADDRREQ ENOTSOCK EIO EMEDIUMTYPE EINPROGRESS ERANGE EAFNOSUPPORT + EADDRNOTAVAIL EINTR EREMOTE EILSEQ ENOMEM EPIPE ENETUNREACH ENODATA + EUSERS EOPNOTSUPP EPROTO EISNAM ESPIPE EALREADY ENAMETOOLONG ENOEXEC + EISDIR EBADRQC EEXIST EDOTDOT ELIBBAD EOWNERDEAD ESRCH EFAULT EXFULL + EDEADLOCK EAGAIN ENOPROTOOPT ENETDOWN EPROTOTYPE EL2NSYNC ENETRESET + EUCLEAN EADV EROFS ESHUTDOWN EMULTIHOP EPROTONOSUPPORT ENFILE ENOLCK + ECONNABORTED ECANCELED EDEADLK ESRMNT ENOLINK ETIME ENOTDIR EINVAL + ENOTTY ENOANO ELOOP ENOENT EPFNOSUPPORT EBADMSG ENOMEDIUM EL2HLT EDOM + EBFONT EKEYEXPIRED EMSGSIZE ENOCSI EL3RST ENOSPC EIDRM ENOBUFS ENOSYS + EHOSTDOWN EBADFD ENOSR ENOTCONN ESTALE EDQUOT EKEYREJECTED EMFILE + ENOTRECOVERABLE EACCES EBUSY E2BIG EPERM ELIBEXEC ETOOMANYREFS ELIBACC + ENOTUNIQ ECOMM ERESTART ESOCKTNOSUPPORT EUNATCH ETIMEDOUT ENXIO ENODEV + ETXTBSY EMLINK ECHILD EHOSTUNREACH EREMCHG ENOTEMPTY); + +%EXPORT_TAGS = ( + POSIX => [qw( + E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY + EBADF EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK + EDESTADDRREQ EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH + EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK + EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS + ENODEV ENOENT ENOEXEC ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK + ENOTCONN ENOTDIR ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM + EPFNOSUPPORT EPIPE EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART + EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT + ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV + )] +); + +sub EPERM () { 1 } +sub ENOENT () { 2 } +sub ESRCH () { 3 } +sub EINTR () { 4 } +sub EIO () { 5 } +sub ENXIO () { 6 } +sub E2BIG () { 7 } +sub ENOEXEC () { 8 } +sub EBADF () { 9 } +sub ECHILD () { 10 } +sub EWOULDBLOCK () { 11 } +sub EAGAIN () { 11 } +sub ENOMEM () { 12 } +sub EACCES () { 13 } +sub EFAULT () { 14 } +sub ENOTBLK () { 15 } +sub EBUSY () { 16 } +sub EEXIST () { 17 } +sub EXDEV () { 18 } +sub ENODEV () { 19 } +sub ENOTDIR () { 20 } +sub EISDIR () { 21 } +sub EINVAL () { 22 } +sub ENFILE () { 23 } +sub EMFILE () { 24 } +sub ENOTTY () { 25 } +sub ETXTBSY () { 26 } +sub EFBIG () { 27 } +sub ENOSPC () { 28 } +sub ESPIPE () { 29 } +sub EROFS () { 30 } +sub EMLINK () { 31 } +sub EPIPE () { 32 } +sub EDOM () { 33 } +sub ERANGE () { 34 } +sub EDEADLOCK () { 35 } +sub EDEADLK () { 35 } +sub ENAMETOOLONG () { 36 } +sub ENOLCK () { 37 } +sub ENOSYS () { 38 } +sub ENOTEMPTY () { 39 } +sub ELOOP () { 40 } +sub ENOMSG () { 42 } +sub EIDRM () { 43 } +sub ECHRNG () { 44 } +sub EL2NSYNC () { 45 } +sub EL3HLT () { 46 } +sub EL3RST () { 47 } +sub ELNRNG () { 48 } +sub EUNATCH () { 49 } +sub ENOCSI () { 50 } +sub EL2HLT () { 51 } +sub EBADE () { 52 } +sub EBADR () { 53 } +sub EXFULL () { 54 } +sub ENOANO () { 55 } +sub EBADRQC () { 56 } +sub EBADSLT () { 57 } +sub EBFONT () { 59 } +sub ENOSTR () { 60 } +sub ENODATA () { 61 } +sub ETIME () { 62 } +sub ENOSR () { 63 } +sub ENONET () { 64 } +sub ENOPKG () { 65 } +sub EREMOTE () { 66 } +sub ENOLINK () { 67 } +sub EADV () { 68 } +sub ESRMNT () { 69 } +sub ECOMM () { 70 } +sub EPROTO () { 71 } +sub EMULTIHOP () { 72 } +sub EDOTDOT () { 73 } +sub EBADMSG () { 74 } +sub EOVERFLOW () { 75 } +sub ENOTUNIQ () { 76 } +sub EBADFD () { 77 } +sub EREMCHG () { 78 } +sub ELIBACC () { 79 } +sub ELIBBAD () { 80 } +sub ELIBSCN () { 81 } +sub ELIBMAX () { 82 } +sub ELIBEXEC () { 83 } +sub EILSEQ () { 84 } +sub ERESTART () { 85 } +sub ESTRPIPE () { 86 } +sub EUSERS () { 87 } +sub ENOTSOCK () { 88 } +sub EDESTADDRREQ () { 89 } +sub EMSGSIZE () { 90 } +sub EPROTOTYPE () { 91 } +sub ENOPROTOOPT () { 92 } +sub EPROTONOSUPPORT () { 93 } +sub ESOCKTNOSUPPORT () { 94 } +sub ENOTSUP () { 95 } +sub EOPNOTSUPP () { 95 } +sub EPFNOSUPPORT () { 96 } +sub EAFNOSUPPORT () { 97 } +sub EADDRINUSE () { 98 } +sub EADDRNOTAVAIL () { 99 } +sub ENETDOWN () { 100 } +sub ENETUNREACH () { 101 } +sub ENETRESET () { 102 } +sub ECONNABORTED () { 103 } +sub ECONNRESET () { 104 } +sub ENOBUFS () { 105 } +sub EISCONN () { 106 } +sub ENOTCONN () { 107 } +sub ESHUTDOWN () { 108 } +sub ETOOMANYREFS () { 109 } +sub ETIMEDOUT () { 110 } +sub ECONNREFUSED () { 111 } +sub EHOSTDOWN () { 112 } +sub EHOSTUNREACH () { 113 } +sub EALREADY () { 114 } +sub EINPROGRESS () { 115 } +sub ESTALE () { 116 } +sub EUCLEAN () { 117 } +sub ENOTNAM () { 118 } +sub ENAVAIL () { 119 } +sub EISNAM () { 120 } +sub EREMOTEIO () { 121 } +sub EDQUOT () { 122 } +sub ENOMEDIUM () { 123 } +sub EMEDIUMTYPE () { 124 } +sub ECANCELED () { 125 } +sub ENOKEY () { 126 } +sub EKEYEXPIRED () { 127 } +sub EKEYREVOKED () { 128 } +sub EKEYREJECTED () { 129 } +sub EOWNERDEAD () { 130 } +sub ENOTRECOVERABLE () { 131 } +sub ERFKILL () { 132 } + +sub TIEHASH { bless [] } + +sub FETCH { + my ($self, $errname) = @_; + my $proto = prototype("Errno::$errname"); + my $errno = ""; + if (defined($proto) && $proto eq "") { + no strict 'refs'; + $errno = &$errname; + $errno = 0 unless $! == $errno; + } + return $errno; +} + +sub STORE { + require Carp; + Carp::confess("ERRNO hash is read only!"); +} + +*CLEAR = \&STORE; +*DELETE = \&STORE; + +sub NEXTKEY { + my($k,$v); + while(($k,$v) = each %Errno::) { + my $proto = prototype("Errno::$k"); + last if (defined($proto) && $proto eq ""); + } + $k +} + +sub FIRSTKEY { + my $s = scalar keys %Errno::; # initialize iterator + goto &NEXTKEY; +} + +sub EXISTS { + my ($self, $errname) = @_; + my $r = ref $errname; + my $proto = !$r || $r eq 'CODE' ? prototype($errname) : undef; + defined($proto) && $proto eq ""; +} + +tie %!, __PACKAGE__; + +1; +__END__ + diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/Fcntl.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/Fcntl.pm new file mode 100644 index 0000000..41a3859 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/Fcntl.pm @@ -0,0 +1,189 @@ +package Fcntl; + +use strict; +our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $AUTOLOAD); + +require Exporter; +use XSLoader (); +@ISA = qw(Exporter); +BEGIN { + $VERSION = "1.06"; +} + +# Items to export into callers namespace by default +# (move infrequently used names to @EXPORT_OK below) +@EXPORT = + qw( + FD_CLOEXEC + F_ALLOCSP + F_ALLOCSP64 + F_COMPAT + F_DUP2FD + F_DUPFD + F_EXLCK + F_FREESP + F_FREESP64 + F_FSYNC + F_FSYNC64 + F_GETFD + F_GETFL + F_GETLK + F_GETLK64 + F_GETOWN + F_NODNY + F_POSIX + F_RDACC + F_RDDNY + F_RDLCK + F_RWACC + F_RWDNY + F_SETFD + F_SETFL + F_SETLK + F_SETLK64 + F_SETLKW + F_SETLKW64 + F_SETOWN + F_SHARE + F_SHLCK + F_UNLCK + F_UNSHARE + F_WRACC + F_WRDNY + F_WRLCK + O_ACCMODE + O_ALIAS + O_APPEND + O_ASYNC + O_BINARY + O_CREAT + O_DEFER + O_DIRECT + O_DIRECTORY + O_DSYNC + O_EXCL + O_EXLOCK + O_LARGEFILE + O_NDELAY + O_NOCTTY + O_NOFOLLOW + O_NOINHERIT + O_NONBLOCK + O_RANDOM + O_RAW + O_RDONLY + O_RDWR + O_RSRC + O_RSYNC + O_SEQUENTIAL + O_SHLOCK + O_SYNC + O_TEMPORARY + O_TEXT + O_TRUNC + O_WRONLY + ); + +# Other items we are prepared to export if requested +@EXPORT_OK = qw( + DN_ACCESS + DN_ATTRIB + DN_CREATE + DN_DELETE + DN_MODIFY + DN_MULTISHOT + DN_RENAME + FAPPEND + FASYNC + FCREAT + FDEFER + FDSYNC + FEXCL + FLARGEFILE + FNDELAY + FNONBLOCK + FRSYNC + FSYNC + FTRUNC + F_GETLEASE + F_GETSIG + F_NOTIFY + F_SETLEASE + F_SETSIG + LOCK_EX + LOCK_MAND + LOCK_NB + LOCK_READ + LOCK_RW + LOCK_SH + LOCK_UN + LOCK_WRITE + O_IGNORE_CTTY + O_NOATIME + O_NOLINK + O_NOTRANS + SEEK_CUR + SEEK_END + SEEK_SET + S_IFSOCK S_IFBLK S_IFCHR S_IFIFO S_IFWHT S_ENFMT + S_IREAD S_IWRITE S_IEXEC + S_IRGRP S_IWGRP S_IXGRP S_IRWXG + S_IROTH S_IWOTH S_IXOTH S_IRWXO + S_IRUSR S_IWUSR S_IXUSR S_IRWXU + S_ISUID S_ISGID S_ISVTX S_ISTXT + _S_IFMT S_IFREG S_IFDIR S_IFLNK + &S_ISREG &S_ISDIR &S_ISLNK &S_ISSOCK &S_ISBLK &S_ISCHR &S_ISFIFO + &S_ISWHT &S_ISENFMT &S_IFMT &S_IMODE +); +# Named groups of exports +%EXPORT_TAGS = ( + 'flock' => [qw(LOCK_SH LOCK_EX LOCK_NB LOCK_UN)], + 'Fcompat' => [qw(FAPPEND FASYNC FCREAT FDEFER FDSYNC FEXCL FLARGEFILE + FNDELAY FNONBLOCK FRSYNC FSYNC FTRUNC)], + 'seek' => [qw(SEEK_SET SEEK_CUR SEEK_END)], + 'mode' => [qw(S_ISUID S_ISGID S_ISVTX S_ISTXT + _S_IFMT S_IFREG S_IFDIR S_IFLNK + S_IFSOCK S_IFBLK S_IFCHR S_IFIFO S_IFWHT S_ENFMT + S_IRUSR S_IWUSR S_IXUSR S_IRWXU + S_IRGRP S_IWGRP S_IXGRP S_IRWXG + S_IROTH S_IWOTH S_IXOTH S_IRWXO + S_IREAD S_IWRITE S_IEXEC + S_ISREG S_ISDIR S_ISLNK S_ISSOCK + S_ISBLK S_ISCHR S_ISFIFO + S_ISWHT S_ISENFMT + S_IFMT S_IMODE + )], +); + +# Force the constants to become inlined +BEGIN { + XSLoader::load 'Fcntl', $VERSION; +} + +sub S_IFMT { @_ ? ( $_[0] & _S_IFMT() ) : _S_IFMT() } +sub S_IMODE { $_[0] & 07777 } + +sub S_ISREG { ( $_[0] & _S_IFMT() ) == S_IFREG() } +sub S_ISDIR { ( $_[0] & _S_IFMT() ) == S_IFDIR() } +sub S_ISLNK { ( $_[0] & _S_IFMT() ) == S_IFLNK() } +sub S_ISSOCK { ( $_[0] & _S_IFMT() ) == S_IFSOCK() } +sub S_ISBLK { ( $_[0] & _S_IFMT() ) == S_IFBLK() } +sub S_ISCHR { ( $_[0] & _S_IFMT() ) == S_IFCHR() } +sub S_ISFIFO { ( $_[0] & _S_IFMT() ) == S_IFIFO() } +sub S_ISWHT { ( $_[0] & _S_IFMT() ) == S_IFWHT() } +sub S_ISENFMT { ( $_[0] & _S_IFMT() ) == S_IFENFMT() } + +sub AUTOLOAD { + (my $constname = $AUTOLOAD) =~ s/.*:://; + die "&Fcntl::constant not defined" if $constname eq 'constant'; + my ($error, $val) = constant($constname); + if ($error) { + my (undef,$file,$line) = caller; + die "$error at $file line $line.\n"; + } + no strict 'refs'; + *$AUTOLOAD = sub { $val }; + goto &$AUTOLOAD; +} + +1; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/File/Glob.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/File/Glob.pm new file mode 100644 index 0000000..57c30b4 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/File/Glob.pm @@ -0,0 +1,190 @@ +package File::Glob; + +use strict; +our($VERSION, @ISA, @EXPORT_OK, @EXPORT_FAIL, %EXPORT_TAGS, + $AUTOLOAD, $DEFAULT_FLAGS); + +use XSLoader (); + +@ISA = qw(Exporter); + +# NOTE: The glob() export is only here for compatibility with 5.6.0. +# csh_glob() should not be used directly, unless you know what you're doing. + +@EXPORT_OK = qw( + csh_glob + bsd_glob + glob + GLOB_ABEND + GLOB_ALPHASORT + GLOB_ALTDIRFUNC + GLOB_BRACE + GLOB_CSH + GLOB_ERR + GLOB_ERROR + GLOB_LIMIT + GLOB_MARK + GLOB_NOCASE + GLOB_NOCHECK + GLOB_NOMAGIC + GLOB_NOSORT + GLOB_NOSPACE + GLOB_QUOTE + GLOB_TILDE +); + +%EXPORT_TAGS = ( + 'glob' => [ qw( + GLOB_ABEND + GLOB_ALPHASORT + GLOB_ALTDIRFUNC + GLOB_BRACE + GLOB_CSH + GLOB_ERR + GLOB_ERROR + GLOB_LIMIT + GLOB_MARK + GLOB_NOCASE + GLOB_NOCHECK + GLOB_NOMAGIC + GLOB_NOSORT + GLOB_NOSPACE + GLOB_QUOTE + GLOB_TILDE + glob + bsd_glob + ) ], +); + +$VERSION = '1.06'; + +sub import { + require Exporter; + my $i = 1; + while ($i < @_) { + if ($_[$i] =~ /^:(case|nocase|globally)$/) { + splice(@_, $i, 1); + $DEFAULT_FLAGS &= ~GLOB_NOCASE() if $1 eq 'case'; + $DEFAULT_FLAGS |= GLOB_NOCASE() if $1 eq 'nocase'; + if ($1 eq 'globally') { + local $^W; + *CORE::GLOBAL::glob = \&File::Glob::csh_glob; + } + next; + } + ++$i; + } + goto &Exporter::import; +} + +sub AUTOLOAD { + # This AUTOLOAD is used to 'autoload' constants from the constant() + # XS function. If a constant is not found then control is passed + # to the AUTOLOAD in AutoLoader. + + my $constname; + ($constname = $AUTOLOAD) =~ s/.*:://; + my ($error, $val) = constant($constname); + if ($error) { + require Carp; + Carp::croak($error); + } + eval "sub $AUTOLOAD { $val }"; + goto &$AUTOLOAD; +} + +XSLoader::load 'File::Glob', $VERSION; + +# Preloaded methods go here. + +sub GLOB_ERROR { + return (constant('GLOB_ERROR'))[1]; +} + +sub GLOB_CSH () { + GLOB_BRACE() + | GLOB_NOMAGIC() + | GLOB_QUOTE() + | GLOB_TILDE() + | GLOB_ALPHASORT() +} + +$DEFAULT_FLAGS = GLOB_CSH(); +if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos|MacOS)$/) { + $DEFAULT_FLAGS |= GLOB_NOCASE(); +} + +# Autoload methods go after =cut, and are processed by the autosplit program. + +sub bsd_glob { + my ($pat,$flags) = @_; + $flags = $DEFAULT_FLAGS if @_ < 2; + return doglob($pat,$flags); +} + +# File::Glob::glob() is deprecated because its prototype is different from +# CORE::glob() (use bsd_glob() instead) +sub glob { + splice @_, 1; # don't pass PL_glob_index as flags! + goto &bsd_glob; +} + +## borrowed heavily from gsar's File::DosGlob +my %iter; +my %entries; + +sub csh_glob { + my $pat = shift; + my $cxix = shift; + my @pat; + + # glob without args defaults to $_ + $pat = $_ unless defined $pat; + + # extract patterns + $pat =~ s/^\s+//; # Protect against empty elements in + $pat =~ s/\s+$//; # things like < *.c> and <*.c >. + # These alone shouldn't trigger ParseWords. + if ($pat =~ /\s/) { + # XXX this is needed for compatibility with the csh + # implementation in Perl. Need to support a flag + # to disable this behavior. + require Text::ParseWords; + @pat = Text::ParseWords::parse_line('\s+',0,$pat); + } + + # assume global context if not provided one + $cxix = '_G_' unless defined $cxix; + $iter{$cxix} = 0 unless exists $iter{$cxix}; + + # if we're just beginning, do it all first + if ($iter{$cxix} == 0) { + if (@pat) { + $entries{$cxix} = [ map { doglob($_, $DEFAULT_FLAGS) } @pat ]; + } + else { + $entries{$cxix} = [ doglob($pat, $DEFAULT_FLAGS) ]; + } + } + + # chuck it all out, quick or slow + if (wantarray) { + delete $iter{$cxix}; + return @{delete $entries{$cxix}}; + } + else { + if ($iter{$cxix} = scalar @{$entries{$cxix}}) { + return shift @{$entries{$cxix}}; + } + else { + # return undef for EOL + delete $iter{$cxix}; + delete $entries{$cxix}; + return undef; + } + } +} + +1; +__END__ + diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/Hash/Util.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/Hash/Util.pm new file mode 100644 index 0000000..45b1ce4 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/Hash/Util.pm @@ -0,0 +1,191 @@ +package Hash::Util; + +require 5.007003; +use strict; +use Carp; +use warnings; +use warnings::register; +use Scalar::Util qw(reftype); + +require Exporter; +our @ISA = qw(Exporter); +our @EXPORT_OK = qw( + fieldhash fieldhashes + + all_keys + lock_keys unlock_keys + lock_value unlock_value + lock_hash unlock_hash + lock_keys_plus hash_locked + hidden_keys legal_keys + + lock_ref_keys unlock_ref_keys + lock_ref_value unlock_ref_value + lock_hashref unlock_hashref + lock_ref_keys_plus hashref_locked + hidden_ref_keys legal_ref_keys + + hash_seed hv_store + + ); +our $VERSION = 0.07; +require DynaLoader; +local @ISA = qw(DynaLoader); +bootstrap Hash::Util $VERSION; + +sub import { + my $class = shift; + if ( grep /fieldhash/, @_ ) { + require Hash::Util::FieldHash; + Hash::Util::FieldHash->import(':all'); # for re-export + } + unshift @_, $class; + goto &Exporter::import; +} + +sub lock_ref_keys { + my($hash, @keys) = @_; + + Internals::hv_clear_placeholders %$hash; + if( @keys ) { + my %keys = map { ($_ => 1) } @keys; + my %original_keys = map { ($_ => 1) } keys %$hash; + foreach my $k (keys %original_keys) { + croak "Hash has key '$k' which is not in the new key set" + unless $keys{$k}; + } + + foreach my $k (@keys) { + $hash->{$k} = undef unless exists $hash->{$k}; + } + Internals::SvREADONLY %$hash, 1; + + foreach my $k (@keys) { + delete $hash->{$k} unless $original_keys{$k}; + } + } + else { + Internals::SvREADONLY %$hash, 1; + } + + return $hash; +} + +sub unlock_ref_keys { + my $hash = shift; + + Internals::SvREADONLY %$hash, 0; + return $hash; +} + +sub lock_keys (\%;@) { lock_ref_keys(@_) } +sub unlock_keys (\%) { unlock_ref_keys(@_) } + +sub lock_ref_keys_plus { + my ($hash,@keys)=@_; + my @delete; + Internals::hv_clear_placeholders(%$hash); + foreach my $key (@keys) { + unless (exists($hash->{$key})) { + $hash->{$key}=undef; + push @delete,$key; + } + } + Internals::SvREADONLY(%$hash,1); + delete @{$hash}{@delete}; + return $hash +} + +sub lock_keys_plus(\%;@) { lock_ref_keys_plus(@_) } + +sub lock_ref_value { + my($hash, $key) = @_; + # I'm doubtful about this warning, as it seems not to be true. + # Marking a value in the hash as RO is useful, regardless + # of the status of the hash itself. + carp "Cannot usefully lock values in an unlocked hash" + if !Internals::SvREADONLY(%$hash) && warnings::enabled; + Internals::SvREADONLY $hash->{$key}, 1; + return $hash +} + +sub unlock_ref_value { + my($hash, $key) = @_; + Internals::SvREADONLY $hash->{$key}, 0; + return $hash +} + +sub lock_value (\%$) { lock_ref_value(@_) } +sub unlock_value (\%$) { unlock_ref_value(@_) } + +sub lock_hashref { + my $hash = shift; + + lock_ref_keys($hash); + + foreach my $value (values %$hash) { + Internals::SvREADONLY($value,1); + } + + return $hash; +} + +sub unlock_hashref { + my $hash = shift; + + foreach my $value (values %$hash) { + Internals::SvREADONLY($value, 0); + } + + unlock_ref_keys($hash); + + return $hash; +} + +sub lock_hash (\%) { lock_hashref(@_) } +sub unlock_hash (\%) { unlock_hashref(@_) } + +sub lock_hashref_recurse { + my $hash = shift; + + lock_ref_keys($hash); + foreach my $value (values %$hash) { + if (reftype($value) eq 'HASH') { + lock_hashref_recurse($value); + } + Internals::SvREADONLY($value,1); + } + return $hash +} + +sub unlock_hashref_recurse { + my $hash = shift; + + foreach my $value (values %$hash) { + if (reftype($value) eq 'HASH') { + unlock_hashref_recurse($value); + } + Internals::SvREADONLY($value,1); + } + unlock_ref_keys($hash); + return $hash; +} + +sub lock_hash_recurse (\%) { lock_hashref_recurse(@_) } +sub unlock_hash_recurse (\%) { unlock_hashref_recurse(@_) } + +sub hashref_unlocked { + my $hash=shift; + return Internals::SvREADONLY($hash) +} + +sub hash_unlocked(\%) { hashref_unlocked(@_) } + +sub legal_keys(\%) { legal_ref_keys(@_) } +sub hidden_keys(\%){ hidden_ref_keys(@_) } + +sub hash_seed () { + Internals::rehash_seed(); +} + +1; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO.pm new file mode 100644 index 0000000..f28a812 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO.pm @@ -0,0 +1,28 @@ +# + +package IO; + +use XSLoader (); +use Carp; +use strict; +use warnings; + +our $VERSION = "1.25"; +XSLoader::load 'IO', $VERSION; + +sub import { + shift; + + warnings::warnif('deprecated', qq{Parameterless "use IO" deprecated}) + if @_ == 0 ; + + my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir); + + eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l) + or croak $@; +} + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/File.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/File.pm new file mode 100644 index 0000000..bf73876 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/File.pm @@ -0,0 +1,82 @@ +# + +package IO::File; + +use 5.006_001; +use strict; +our($VERSION, @EXPORT, @EXPORT_OK, @ISA); +use Carp; +use Symbol; +use SelectSaver; +use IO::Seekable; +use File::Spec; + +require Exporter; + +@ISA = qw(IO::Handle IO::Seekable Exporter); + +$VERSION = "1.14"; + +@EXPORT = @IO::Seekable::EXPORT; + +eval { + # Make all Fcntl O_XXX constants available for importing + require Fcntl; + my @O = grep /^O_/, @Fcntl::EXPORT; + Fcntl->import(@O); # first we import what we want to export + push(@EXPORT, @O); +}; + +################################################ +## Constructor +## + +sub new { + my $type = shift; + my $class = ref($type) || $type || "IO::File"; + @_ >= 0 && @_ <= 3 + or croak "usage: new $class [FILENAME [,MODE [,PERMS]]]"; + my $fh = $class->SUPER::new(); + if (@_) { + $fh->open(@_) + or return undef; + } + $fh; +} + +################################################ +## Open +## + +sub open { + @_ >= 2 && @_ <= 4 or croak 'usage: $fh->open(FILENAME [,MODE [,PERMS]])'; + my ($fh, $file) = @_; + if (@_ > 2) { + my ($mode, $perms) = @_[2, 3]; + if ($mode =~ /^\d+$/) { + defined $perms or $perms = 0666; + return sysopen($fh, $file, $mode, $perms); + } elsif ($mode =~ /:/) { + return open($fh, $mode, $file) if @_ == 3; + croak 'usage: $fh->open(FILENAME, IOLAYERS)'; + } else { + return open($fh, IO::Handle::_open_mode_string($mode), $file); + } + } + open($fh, $file); +} + +################################################ +## Binmode +## + +sub binmode { + ( @_ == 1 or @_ == 2 ) or croak 'usage $fh->binmode([LAYER])'; + + my($fh, $layer) = @_; + + return binmode $$fh unless $layer; + return binmode $$fh, $layer; +} + +1; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Handle.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Handle.pm new file mode 100644 index 0000000..140e793 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Handle.pm @@ -0,0 +1,376 @@ +package IO::Handle; + +use 5.006_001; +use strict; +our($VERSION, @EXPORT_OK, @ISA); +use Carp; +use Symbol; +use SelectSaver; +use IO (); # Load the XS module + +require Exporter; +@ISA = qw(Exporter); + +$VERSION = "1.28"; +$VERSION = eval $VERSION; + +@EXPORT_OK = qw( + 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 + format_write + + print + printf + say + getline + getlines + + printflush + flush + + SEEK_SET + SEEK_CUR + SEEK_END + _IOFBF + _IOLBF + _IONBF +); + +################################################ +## Constructors, destructors. +## + +sub new { + my $class = ref($_[0]) || $_[0] || "IO::Handle"; + @_ == 1 or croak "usage: new $class"; + my $io = gensym; + bless $io, $class; +} + +sub new_from_fd { + my $class = ref($_[0]) || $_[0] || "IO::Handle"; + @_ == 3 or croak "usage: new_from_fd $class FD, MODE"; + my $io = gensym; + shift; + IO::Handle::fdopen($io, @_) + or return undef; + bless $io, $class; +} + +# +# There is no need for DESTROY to do anything, because when the +# last reference to an IO object is gone, Perl automatically +# closes its associated files (if any). However, to avoid any +# attempts to autoload DESTROY, we here define it to do nothing. +# +sub DESTROY {} + +################################################ +## Open and close. +## + +sub _open_mode_string { + my ($mode) = @_; + $mode =~ /^\+?(<|>>?)$/ + or $mode =~ s/^r(\+?)$/$1</ + or $mode =~ s/^w(\+?)$/$1>/ + or $mode =~ s/^a(\+?)$/$1>>/ + or croak "IO::Handle: bad open mode: $mode"; + $mode; +} + +sub fdopen { + @_ == 3 or croak 'usage: $io->fdopen(FD, MODE)'; + my ($io, $fd, $mode) = @_; + local(*GLOB); + + if (ref($fd) && "".$fd =~ /GLOB\(/o) { + # It's a glob reference; Alias it as we cannot get name of anon GLOBs + my $n = qualify(*GLOB); + *GLOB = *{*$fd}; + $fd = $n; + } elsif ($fd =~ m#^\d+$#) { + # It's an FD number; prefix with "=". + $fd = "=$fd"; + } + + open($io, _open_mode_string($mode) . '&' . $fd) + ? $io : undef; +} + +sub close { + @_ == 1 or croak 'usage: $io->close()'; + my($io) = @_; + + close($io); +} + +################################################ +## Normal I/O functions. +## + +# flock +# select + +sub opened { + @_ == 1 or croak 'usage: $io->opened()'; + defined fileno($_[0]); +} + +sub fileno { + @_ == 1 or croak 'usage: $io->fileno()'; + fileno($_[0]); +} + +sub getc { + @_ == 1 or croak 'usage: $io->getc()'; + getc($_[0]); +} + +sub eof { + @_ == 1 or croak 'usage: $io->eof()'; + eof($_[0]); +} + +sub print { + @_ or croak 'usage: $io->print(ARGS)'; + my $this = shift; + print $this @_; +} + +sub printf { + @_ >= 2 or croak 'usage: $io->printf(FMT,[ARGS])'; + my $this = shift; + printf $this @_; +} + +sub say { + @_ or croak 'usage: $io->say(ARGS)'; + my $this = shift; + local $\ = "\n"; + print $this @_; +} + +sub getline { + @_ == 1 or croak 'usage: $io->getline()'; + my $this = shift; + return scalar <$this>; +} + +*gets = \&getline; # deprecated + +sub getlines { + @_ == 1 or croak 'usage: $io->getlines()'; + wantarray or + croak 'Can\'t call $io->getlines in a scalar context, use $io->getline'; + my $this = shift; + return <$this>; +} + +sub truncate { + @_ == 2 or croak 'usage: $io->truncate(LEN)'; + truncate($_[0], $_[1]); +} + +sub read { + @_ == 3 || @_ == 4 or croak 'usage: $io->read(BUF, LEN [, OFFSET])'; + read($_[0], $_[1], $_[2], $_[3] || 0); +} + +sub sysread { + @_ == 3 || @_ == 4 or croak 'usage: $io->sysread(BUF, LEN [, OFFSET])'; + sysread($_[0], $_[1], $_[2], $_[3] || 0); +} + +sub write { + @_ >= 2 && @_ <= 4 or croak 'usage: $io->write(BUF [, LEN [, OFFSET]])'; + local($\) = ""; + $_[2] = length($_[1]) unless defined $_[2]; + print { $_[0] } substr($_[1], $_[3] || 0, $_[2]); +} + +sub syswrite { + @_ >= 2 && @_ <= 4 or croak 'usage: $io->syswrite(BUF [, LEN [, OFFSET]])'; + if (defined($_[2])) { + syswrite($_[0], $_[1], $_[2], $_[3] || 0); + } else { + syswrite($_[0], $_[1]); + } +} + +sub stat { + @_ == 1 or croak 'usage: $io->stat()'; + stat($_[0]); +} + +################################################ +## State modification functions. +## + +sub autoflush { + my $old = new SelectSaver qualify($_[0], caller); + my $prev = $|; + $| = @_ > 1 ? $_[1] : 1; + $prev; +} + +sub output_field_separator { + carp "output_field_separator is not supported on a per-handle basis" + if ref($_[0]); + my $prev = $,; + $, = $_[1] if @_ > 1; + $prev; +} + +sub output_record_separator { + carp "output_record_separator is not supported on a per-handle basis" + if ref($_[0]); + my $prev = $\; + $\ = $_[1] if @_ > 1; + $prev; +} + +sub input_record_separator { + carp "input_record_separator is not supported on a per-handle basis" + if ref($_[0]); + my $prev = $/; + $/ = $_[1] if @_ > 1; + $prev; +} + +sub input_line_number { + local $.; + () = tell qualify($_[0], caller) if ref($_[0]); + my $prev = $.; + $. = $_[1] if @_ > 1; + $prev; +} + +sub format_page_number { + my $old; + $old = new SelectSaver qualify($_[0], caller) if ref($_[0]); + my $prev = $%; + $% = $_[1] if @_ > 1; + $prev; +} + +sub format_lines_per_page { + my $old; + $old = new SelectSaver qualify($_[0], caller) if ref($_[0]); + my $prev = $=; + $= = $_[1] if @_ > 1; + $prev; +} + +sub format_lines_left { + my $old; + $old = new SelectSaver qualify($_[0], caller) if ref($_[0]); + my $prev = $-; + $- = $_[1] if @_ > 1; + $prev; +} + +sub format_name { + my $old; + $old = new SelectSaver qualify($_[0], caller) if ref($_[0]); + my $prev = $~; + $~ = qualify($_[1], caller) if @_ > 1; + $prev; +} + +sub format_top_name { + my $old; + $old = new SelectSaver qualify($_[0], caller) if ref($_[0]); + my $prev = $^; + $^ = qualify($_[1], caller) if @_ > 1; + $prev; +} + +sub format_line_break_characters { + carp "format_line_break_characters is not supported on a per-handle basis" + if ref($_[0]); + my $prev = $:; + $: = $_[1] if @_ > 1; + $prev; +} + +sub format_formfeed { + carp "format_formfeed is not supported on a per-handle basis" + if ref($_[0]); + my $prev = $^L; + $^L = $_[1] if @_ > 1; + $prev; +} + +sub formline { + my $io = shift; + my $picture = shift; + local($^A) = $^A; + local($\) = ""; + formline($picture, @_); + print $io $^A; +} + +sub format_write { + @_ < 3 || croak 'usage: $io->write( [FORMAT_NAME] )'; + if (@_ == 2) { + my ($io, $fmt) = @_; + my $oldfmt = $io->format_name(qualify($fmt,caller)); + CORE::write($io); + $io->format_name($oldfmt); + } else { + CORE::write($_[0]); + } +} + +sub fcntl { + @_ == 3 || croak 'usage: $io->fcntl( OP, VALUE );'; + my ($io, $op) = @_; + return fcntl($io, $op, $_[2]); +} + +sub ioctl { + @_ == 3 || croak 'usage: $io->ioctl( OP, VALUE );'; + my ($io, $op) = @_; + return ioctl($io, $op, $_[2]); +} + +# this sub is for compatability with older releases of IO that used +# a sub called constant to detemine if a constant existed -- GMB +# +# The SEEK_* and _IO?BF constants were the only constants at that time +# any new code should just chech defined(&CONSTANT_NAME) + +sub constant { + no strict 'refs'; + my $name = shift; + (($name =~ /^(SEEK_(SET|CUR|END)|_IO[FLN]BF)$/) && defined &{$name}) + ? &{$name}() : undef; +} + +# so that flush.pl can be deprecated + +sub printflush { + my $io = shift; + my $old; + $old = new SelectSaver qualify($io, caller) if ref($io); + local $| = 1; + if(ref($io)) { + print $io @_; + } + else { + print @_; + } +} + +1; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Pipe.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Pipe.pm new file mode 100644 index 0000000..a8723cd --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Pipe.pm @@ -0,0 +1,160 @@ +# IO::Pipe.pm +# +# Copyright (c) 1996-8 Graham Barr <gbarr@pobox.com>. All rights reserved. +# This program is free software; you can redistribute it and/or +# modify it under the same terms as Perl itself. + +package IO::Pipe; + +use 5.006_001; + +use IO::Handle; +use strict; +our($VERSION); +use Carp; +use Symbol; + +$VERSION = "1.13"; + +sub new { + my $type = shift; + my $class = ref($type) || $type || "IO::Pipe"; + @_ == 0 || @_ == 2 or croak "usage: new $class [READFH, WRITEFH]"; + + my $me = bless gensym(), $class; + + my($readfh,$writefh) = @_ ? @_ : $me->handles; + + pipe($readfh, $writefh) + or return undef; + + @{*$me} = ($readfh, $writefh); + + $me; +} + +sub handles { + @_ == 1 or croak 'usage: $pipe->handles()'; + (IO::Pipe::End->new(), IO::Pipe::End->new()); +} + +my $do_spawn = $^O eq 'os2' || $^O eq 'MSWin32'; + +sub _doit { + my $me = shift; + my $rw = shift; + + my $pid = $do_spawn ? 0 : fork(); + + if($pid) { # Parent + return $pid; + } + elsif(defined $pid) { # Child or spawn + my $fh; + my $io = $rw ? \*STDIN : \*STDOUT; + my ($mode, $save) = $rw ? "r" : "w"; + if ($do_spawn) { + require Fcntl; + $save = IO::Handle->new_from_fd($io, $mode); + my $handle = shift; + # Close in child: + unless ($^O eq 'MSWin32') { + fcntl($handle, Fcntl::F_SETFD(), 1) or croak "fcntl: $!"; + } + $fh = $rw ? ${*$me}[0] : ${*$me}[1]; + } else { + shift; + $fh = $rw ? $me->reader() : $me->writer(); # close the other end + } + bless $io, "IO::Handle"; + $io->fdopen($fh, $mode); + $fh->close; + + if ($do_spawn) { + $pid = eval { system 1, @_ }; # 1 == P_NOWAIT + my $err = $!; + + $io->fdopen($save, $mode); + $save->close or croak "Cannot close $!"; + croak "IO::Pipe: Cannot spawn-NOWAIT: $err" if not $pid or $pid < 0; + return $pid; + } else { + exec @_ or + croak "IO::Pipe: Cannot exec: $!"; + } + } + else { + croak "IO::Pipe: Cannot fork: $!"; + } + + # NOT Reached +} + +sub reader { + @_ >= 1 or croak 'usage: $pipe->reader( [SUB_COMMAND_ARGS] )'; + my $me = shift; + + return undef + unless(ref($me) || ref($me = $me->new)); + + my $fh = ${*$me}[0]; + my $pid; + $pid = $me->_doit(0, $fh, @_) + if(@_); + + close ${*$me}[1]; + bless $me, ref($fh); + *$me = *$fh; # Alias self to handle + $me->fdopen($fh->fileno,"r") + unless defined($me->fileno); + bless $fh; # Really wan't un-bless here + ${*$me}{'io_pipe_pid'} = $pid + if defined $pid; + + $me; +} + +sub writer { + @_ >= 1 or croak 'usage: $pipe->writer( [SUB_COMMAND_ARGS] )'; + my $me = shift; + + return undef + unless(ref($me) || ref($me = $me->new)); + + my $fh = ${*$me}[1]; + my $pid; + $pid = $me->_doit(1, $fh, @_) + if(@_); + + close ${*$me}[0]; + bless $me, ref($fh); + *$me = *$fh; # Alias self to handle + $me->fdopen($fh->fileno,"w") + unless defined($me->fileno); + bless $fh; # Really wan't un-bless here + ${*$me}{'io_pipe_pid'} = $pid + if defined $pid; + + $me; +} + +package IO::Pipe::End; + +our(@ISA); + +@ISA = qw(IO::Handle); + +sub close { + my $fh = shift; + my $r = $fh->SUPER::close(@_); + + waitpid(${*$fh}{'io_pipe_pid'},0) + if(defined ${*$fh}{'io_pipe_pid'}); + + $r; +} + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm new file mode 100644 index 0000000..025b89f --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Seekable.pm @@ -0,0 +1,36 @@ +# + +package IO::Seekable; + +use 5.006_001; +use Carp; +use strict; +our($VERSION, @EXPORT, @ISA); +use IO::Handle (); +# XXX we can't get these from IO::Handle or we'll get prototype +# mismatch warnings on C<use POSIX; use IO::File;> :-( +use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END); +require Exporter; + +@EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END); +@ISA = qw(Exporter); + +$VERSION = "1.10"; +$VERSION = eval $VERSION; + +sub seek { + @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)'; + seek($_[0], $_[1], $_[2]); +} + +sub sysseek { + @_ == 3 or croak 'usage: $io->sysseek(POS, WHENCE)'; + sysseek($_[0], $_[1], $_[2]); +} + +sub tell { + @_ == 1 or croak 'usage: $io->tell()'; + tell($_[0]); +} + +1; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Select.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Select.pm new file mode 100644 index 0000000..2a18c7d --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Select.pm @@ -0,0 +1,233 @@ +# IO::Select.pm +# +# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved. +# This program is free software; you can redistribute it and/or +# modify it under the same terms as Perl itself. + +package IO::Select; + +use strict; +use warnings::register; +use vars qw($VERSION @ISA); +require Exporter; + +$VERSION = "1.17"; + +@ISA = qw(Exporter); # This is only so we can do version checking + +sub VEC_BITS () {0} +sub FD_COUNT () {1} +sub FIRST_FD () {2} + +sub new +{ + my $self = shift; + my $type = ref($self) || $self; + + my $vec = bless [undef,0], $type; + + $vec->add(@_) + if @_; + + $vec; +} + +sub add +{ + shift->_update('add', @_); +} + +sub remove +{ + shift->_update('remove', @_); +} + +sub exists +{ + my $vec = shift; + my $fno = $vec->_fileno(shift); + return undef unless defined $fno; + $vec->[$fno + FIRST_FD]; +} + +sub _fileno +{ + my($self, $f) = @_; + return unless defined $f; + $f = $f->[0] if ref($f) eq 'ARRAY'; + ($f =~ /^\d+$/) ? $f : fileno($f); +} + +sub _update +{ + my $vec = shift; + my $add = shift eq 'add'; + + my $bits = $vec->[VEC_BITS]; + $bits = '' unless defined $bits; + + my $count = 0; + my $f; + foreach $f (@_) + { + my $fn = $vec->_fileno($f); + next unless defined $fn; + my $i = $fn + FIRST_FD; + if ($add) { + if (defined $vec->[$i]) { + $vec->[$i] = $f; # if array rest might be different, so we update + next; + } + $vec->[FD_COUNT]++; + vec($bits, $fn, 1) = 1; + $vec->[$i] = $f; + } else { # remove + next unless defined $vec->[$i]; + $vec->[FD_COUNT]--; + vec($bits, $fn, 1) = 0; + $vec->[$i] = undef; + } + $count++; + } + $vec->[VEC_BITS] = $vec->[FD_COUNT] ? $bits : undef; + $count; +} + +sub can_read +{ + my $vec = shift; + my $timeout = shift; + my $r = $vec->[VEC_BITS]; + + defined($r) && (select($r,undef,undef,$timeout) > 0) + ? handles($vec, $r) + : (); +} + +sub can_write +{ + my $vec = shift; + my $timeout = shift; + my $w = $vec->[VEC_BITS]; + + defined($w) && (select(undef,$w,undef,$timeout) > 0) + ? handles($vec, $w) + : (); +} + +sub has_exception +{ + my $vec = shift; + my $timeout = shift; + my $e = $vec->[VEC_BITS]; + + defined($e) && (select(undef,undef,$e,$timeout) > 0) + ? handles($vec, $e) + : (); +} + +sub has_error +{ + warnings::warn("Call to deprecated method 'has_error', use 'has_exception'") + if warnings::enabled(); + goto &has_exception; +} + +sub count +{ + my $vec = shift; + $vec->[FD_COUNT]; +} + +sub bits +{ + my $vec = shift; + $vec->[VEC_BITS]; +} + +sub as_string # for debugging +{ + my $vec = shift; + my $str = ref($vec) . ": "; + my $bits = $vec->bits; + my $count = $vec->count; + $str .= defined($bits) ? unpack("b*", $bits) : "undef"; + $str .= " $count"; + my @handles = @$vec; + splice(@handles, 0, FIRST_FD); + for (@handles) { + $str .= " " . (defined($_) ? "$_" : "-"); + } + $str; +} + +sub _max +{ + my($a,$b,$c) = @_; + $a > $b + ? $a > $c + ? $a + : $c + : $b > $c + ? $b + : $c; +} + +sub select +{ + shift + if defined $_[0] && !ref($_[0]); + + my($r,$w,$e,$t) = @_; + my @result = (); + + my $rb = defined $r ? $r->[VEC_BITS] : undef; + my $wb = defined $w ? $w->[VEC_BITS] : undef; + my $eb = defined $e ? $e->[VEC_BITS] : undef; + + if(select($rb,$wb,$eb,$t) > 0) + { + my @r = (); + my @w = (); + my @e = (); + my $i = _max(defined $r ? scalar(@$r)-1 : 0, + defined $w ? scalar(@$w)-1 : 0, + defined $e ? scalar(@$e)-1 : 0); + + for( ; $i >= FIRST_FD ; $i--) + { + my $j = $i - FIRST_FD; + push(@r, $r->[$i]) + if defined $rb && defined $r->[$i] && vec($rb, $j, 1); + push(@w, $w->[$i]) + if defined $wb && defined $w->[$i] && vec($wb, $j, 1); + push(@e, $e->[$i]) + if defined $eb && defined $e->[$i] && vec($eb, $j, 1); + } + + @result = (\@r, \@w, \@e); + } + @result; +} + +sub handles +{ + my $vec = shift; + my $bits = shift; + my @h = (); + my $i; + my $max = scalar(@$vec) - 1; + + for ($i = FIRST_FD; $i <= $max; $i++) + { + next unless defined $vec->[$i]; + push(@h, $vec->[$i]) + if !defined($bits) || vec($bits, $i - FIRST_FD, 1); + } + + @h; +} + +1; +__END__ + diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Socket.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Socket.pm new file mode 100644 index 0000000..7c196f9 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Socket.pm @@ -0,0 +1,357 @@ +# IO::Socket.pm +# +# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved. +# This program is free software; you can redistribute it and/or +# modify it under the same terms as Perl itself. + +package IO::Socket; + +require 5.006; + +use IO::Handle; +use Socket 1.3; +use Carp; +use strict; +our(@ISA, $VERSION, @EXPORT_OK); +use Exporter; +use Errno; + +# legacy + +require IO::Socket::INET; +require IO::Socket::UNIX if ($^O ne 'epoc' && $^O ne 'symbian'); + +@ISA = qw(IO::Handle); + +$VERSION = "1.31"; + +@EXPORT_OK = qw(sockatmark); + +sub import { + my $pkg = shift; + if (@_ && $_[0] eq 'sockatmark') { # not very extensible but for now, fast + Exporter::export_to_level('IO::Socket', 1, $pkg, 'sockatmark'); + } else { + my $callpkg = caller; + Exporter::export 'Socket', $callpkg, @_; + } +} + +sub new { + my($class,%arg) = @_; + my $sock = $class->SUPER::new(); + + $sock->autoflush(1); + + ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout}; + + return scalar(%arg) ? $sock->configure(\%arg) + : $sock; +} + +my @domain2pkg; + +sub register_domain { + my($p,$d) = @_; + $domain2pkg[$d] = $p; +} + +sub configure { + my($sock,$arg) = @_; + my $domain = delete $arg->{Domain}; + + croak 'IO::Socket: Cannot configure a generic socket' + unless defined $domain; + + croak "IO::Socket: Unsupported socket domain" + unless defined $domain2pkg[$domain]; + + croak "IO::Socket: Cannot configure socket in domain '$domain'" + unless ref($sock) eq "IO::Socket"; + + bless($sock, $domain2pkg[$domain]); + $sock->configure($arg); +} + +sub socket { + @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)'; + my($sock,$domain,$type,$protocol) = @_; + + socket($sock,$domain,$type,$protocol) or + return undef; + + ${*$sock}{'io_socket_domain'} = $domain; + ${*$sock}{'io_socket_type'} = $type; + ${*$sock}{'io_socket_proto'} = $protocol; + + $sock; +} + +sub socketpair { + @_ == 4 || croak 'usage: IO::Socket->socketpair(DOMAIN, TYPE, PROTOCOL)'; + my($class,$domain,$type,$protocol) = @_; + my $sock1 = $class->new(); + my $sock2 = $class->new(); + + socketpair($sock1,$sock2,$domain,$type,$protocol) or + return (); + + ${*$sock1}{'io_socket_type'} = ${*$sock2}{'io_socket_type'} = $type; + ${*$sock1}{'io_socket_proto'} = ${*$sock2}{'io_socket_proto'} = $protocol; + + ($sock1,$sock2); +} + +sub connect { + @_ == 2 or croak 'usage: $sock->connect(NAME)'; + my $sock = shift; + my $addr = shift; + my $timeout = ${*$sock}{'io_socket_timeout'}; + my $err; + my $blocking; + + $blocking = $sock->blocking(0) if $timeout; + if (!connect($sock, $addr)) { + if (defined $timeout && ($!{EINPROGRESS} || $!{EWOULDBLOCK})) { + require IO::Select; + + my $sel = new IO::Select $sock; + + undef $!; + if (!$sel->can_write($timeout)) { + $err = $! || (exists &Errno::ETIMEDOUT ? &Errno::ETIMEDOUT : 1); + $@ = "connect: timeout"; + } + elsif (!connect($sock,$addr) && + not ($!{EISCONN} || ($! == 10022 && $^O eq 'MSWin32')) + ) { + # Some systems refuse to re-connect() to + # an already open socket and set errno to EISCONN. + # Windows sets errno to WSAEINVAL (10022) + $err = $!; + $@ = "connect: $!"; + } + } + elsif ($blocking || !($!{EINPROGRESS} || $!{EWOULDBLOCK})) { + $err = $!; + $@ = "connect: $!"; + } + } + + $sock->blocking(1) if $blocking; + + $! = $err if $err; + + $err ? undef : $sock; +} + +# Enable/disable blocking IO on sockets. +# Without args return the current status of blocking, +# with args change the mode as appropriate, returning the +# old setting, or in case of error during the mode change +# undef. + +sub blocking { + my $sock = shift; + + return $sock->SUPER::blocking(@_) + if $^O ne 'MSWin32'; + + # Windows handles blocking differently + # + # http://groups.google.co.uk/group/perl.perl5.porters/browse_thread/thread/b4e2b1d88280ddff/630b667a66e3509f?#630b667a66e3509f + # http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winsock/winsock/ioctlsocket_2.asp + # + # 0x8004667e is FIONBIO + # + # which is used to set blocking behaviour. + + # NOTE: + # This is a little confusing, the perl keyword for this is + # 'blocking' but the OS level behaviour is 'non-blocking', probably + # because sockets are blocking by default. + # Therefore internally we have to reverse the semantics. + + my $orig= !${*$sock}{io_sock_nonblocking}; + + return $orig unless @_; + + my $block = shift; + + if ( !$block != !$orig ) { + ${*$sock}{io_sock_nonblocking} = $block ? 0 : 1; + ioctl($sock, 0x8004667e, pack("L!",${*$sock}{io_sock_nonblocking})) + or return undef; + } + + return $orig; +} + +sub close { + @_ == 1 or croak 'usage: $sock->close()'; + my $sock = shift; + ${*$sock}{'io_socket_peername'} = undef; + $sock->SUPER::close(); +} + +sub bind { + @_ == 2 or croak 'usage: $sock->bind(NAME)'; + my $sock = shift; + my $addr = shift; + + return bind($sock, $addr) ? $sock + : undef; +} + +sub listen { + @_ >= 1 && @_ <= 2 or croak 'usage: $sock->listen([QUEUE])'; + my($sock,$queue) = @_; + $queue = 5 + unless $queue && $queue > 0; + + return listen($sock, $queue) ? $sock + : undef; +} + +sub accept { + @_ == 1 || @_ == 2 or croak 'usage $sock->accept([PKG])'; + my $sock = shift; + my $pkg = shift || $sock; + my $timeout = ${*$sock}{'io_socket_timeout'}; + my $new = $pkg->new(Timeout => $timeout); + my $peer = undef; + + if(defined $timeout) { + require IO::Select; + + my $sel = new IO::Select $sock; + + unless ($sel->can_read($timeout)) { + $@ = 'accept: timeout'; + $! = (exists &Errno::ETIMEDOUT ? &Errno::ETIMEDOUT : 1); + return; + } + } + + $peer = accept($new,$sock) + or return; + + return wantarray ? ($new, $peer) + : $new; +} + +sub sockname { + @_ == 1 or croak 'usage: $sock->sockname()'; + getsockname($_[0]); +} + +sub peername { + @_ == 1 or croak 'usage: $sock->peername()'; + my($sock) = @_; + ${*$sock}{'io_socket_peername'} ||= getpeername($sock); +} + +sub connected { + @_ == 1 or croak 'usage: $sock->connected()'; + my($sock) = @_; + getpeername($sock); +} + +sub send { + @_ >= 2 && @_ <= 4 or croak 'usage: $sock->send(BUF, [FLAGS, [TO]])'; + my $sock = $_[0]; + my $flags = $_[2] || 0; + my $peer = $_[3] || $sock->peername; + + croak 'send: Cannot determine peer address' + unless(defined $peer); + + my $r = defined(getpeername($sock)) + ? send($sock, $_[1], $flags) + : send($sock, $_[1], $flags, $peer); + + # remember who we send to, if it was successful + ${*$sock}{'io_socket_peername'} = $peer + if(@_ == 4 && defined $r); + + $r; +} + +sub recv { + @_ == 3 || @_ == 4 or croak 'usage: $sock->recv(BUF, LEN [, FLAGS])'; + my $sock = $_[0]; + my $len = $_[2]; + my $flags = $_[3] || 0; + + # remember who we recv'd from + ${*$sock}{'io_socket_peername'} = recv($sock, $_[1]='', $len, $flags); +} + +sub shutdown { + @_ == 2 or croak 'usage: $sock->shutdown(HOW)'; + my($sock, $how) = @_; + ${*$sock}{'io_socket_peername'} = undef; + shutdown($sock, $how); +} + +sub setsockopt { + @_ == 4 or croak '$sock->setsockopt(LEVEL, OPTNAME, OPTVAL)'; + setsockopt($_[0],$_[1],$_[2],$_[3]); +} + +my $intsize = length(pack("i",0)); + +sub getsockopt { + @_ == 3 or croak '$sock->getsockopt(LEVEL, OPTNAME)'; + my $r = getsockopt($_[0],$_[1],$_[2]); + # Just a guess + $r = unpack("i", $r) + if(defined $r && length($r) == $intsize); + $r; +} + +sub sockopt { + my $sock = shift; + @_ == 1 ? $sock->getsockopt(SOL_SOCKET,@_) + : $sock->setsockopt(SOL_SOCKET,@_); +} + +sub atmark { + @_ == 1 or croak 'usage: $sock->atmark()'; + my($sock) = @_; + sockatmark($sock); +} + +sub timeout { + @_ == 1 || @_ == 2 or croak 'usage: $sock->timeout([VALUE])'; + my($sock,$val) = @_; + my $r = ${*$sock}{'io_socket_timeout'}; + + ${*$sock}{'io_socket_timeout'} = defined $val ? 0 + $val : $val + if(@_ == 2); + + $r; +} + +sub sockdomain { + @_ == 1 or croak 'usage: $sock->sockdomain()'; + my $sock = shift; + ${*$sock}{'io_socket_domain'}; +} + +sub socktype { + @_ == 1 or croak 'usage: $sock->socktype()'; + my $sock = shift; + ${*$sock}{'io_socket_type'} +} + +sub protocol { + @_ == 1 or croak 'usage: $sock->protocol()'; + my($sock) = @_; + ${*$sock}{'io_socket_proto'}; +} + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Socket/INET.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Socket/INET.pm new file mode 100644 index 0000000..308a16a --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Socket/INET.pm @@ -0,0 +1,311 @@ +# IO::Socket::INET.pm +# +# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved. +# This program is free software; you can redistribute it and/or +# modify it under the same terms as Perl itself. + +package IO::Socket::INET; + +use strict; +our(@ISA, $VERSION); +use IO::Socket; +use Socket; +use Carp; +use Exporter; +use Errno; + +@ISA = qw(IO::Socket); +$VERSION = "1.31"; + +my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1; + +IO::Socket::INET->register_domain( AF_INET ); + +my %socket_type = ( tcp => SOCK_STREAM, + udp => SOCK_DGRAM, + icmp => SOCK_RAW + ); +my %proto_number; +$proto_number{tcp} = Socket::IPPROTO_TCP() if defined &Socket::IPPROTO_TCP; +$proto_number{udp} = Socket::IPPROTO_UDP() if defined &Socket::IPPROTO_UDP; +$proto_number{icmp} = Socket::IPPROTO_ICMP() if defined &Socket::IPPROTO_ICMP; +my %proto_name = reverse %proto_number; + +sub new { + my $class = shift; + unshift(@_, "PeerAddr") if @_ == 1; + return $class->SUPER::new(@_); +} + +sub _cache_proto { + my @proto = @_; + for (map lc($_), $proto[0], split(' ', $proto[1])) { + $proto_number{$_} = $proto[2]; + } + $proto_name{$proto[2]} = $proto[0]; +} + +sub _get_proto_number { + my $name = lc(shift); + return undef unless defined $name; + return $proto_number{$name} if exists $proto_number{$name}; + + my @proto = getprotobyname($name); + return undef unless @proto; + _cache_proto(@proto); + + return $proto[2]; +} + +sub _get_proto_name { + my $num = shift; + return undef unless defined $num; + return $proto_name{$num} if exists $proto_name{$num}; + + my @proto = getprotobynumber($num); + return undef unless @proto; + _cache_proto(@proto); + + return $proto[0]; +} + +sub _sock_info { + my($addr,$port,$proto) = @_; + my $origport = $port; + my @serv = (); + + $port = $1 + if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,); + + if(defined $proto && $proto =~ /\D/) { + my $num = _get_proto_number($proto); + unless (defined $num) { + $@ = "Bad protocol '$proto'"; + return; + } + $proto = $num; + } + + if(defined $port) { + my $defport = ($port =~ s,\((\d+)\)$,,) ? $1 : undef; + my $pnum = ($port =~ m,^(\d+)$,)[0]; + + @serv = getservbyname($port, _get_proto_name($proto) || "") + if ($port =~ m,\D,); + + $port = $serv[2] || $defport || $pnum; + unless (defined $port) { + $@ = "Bad service '$origport'"; + return; + } + + $proto = _get_proto_number($serv[3]) if @serv && !$proto; + } + + return ($addr || undef, + $port || undef, + $proto || undef + ); +} + +sub _error { + my $sock = shift; + my $err = shift; + { + local($!); + my $title = ref($sock).": "; + $@ = join("", $_[0] =~ /^$title/ ? "" : $title, @_); + $sock->close() + if(defined fileno($sock)); + } + $! = $err; + return undef; +} + +sub _get_addr { + my($sock,$addr_str, $multi) = @_; + my @addr; + if ($multi && $addr_str !~ /^\d+(?:\.\d+){3}$/) { + (undef, undef, undef, undef, @addr) = gethostbyname($addr_str); + } else { + my $h = inet_aton($addr_str); + push(@addr, $h) if defined $h; + } + @addr; +} + +sub configure { + my($sock,$arg) = @_; + my($lport,$rport,$laddr,$raddr,$proto,$type); + + $arg->{LocalAddr} = $arg->{LocalHost} + if exists $arg->{LocalHost} && !exists $arg->{LocalAddr}; + + ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr}, + $arg->{LocalPort}, + $arg->{Proto}) + or return _error($sock, $!, $@); + + $laddr = defined $laddr ? inet_aton($laddr) + : INADDR_ANY; + + return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'") + unless(defined $laddr); + + $arg->{PeerAddr} = $arg->{PeerHost} + if exists $arg->{PeerHost} && !exists $arg->{PeerAddr}; + + unless(exists $arg->{Listen}) { + ($raddr,$rport,$proto) = _sock_info($arg->{PeerAddr}, + $arg->{PeerPort}, + $proto) + or return _error($sock, $!, $@); + } + + $proto ||= _get_proto_number('tcp'); + + $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)}; + + my @raddr = (); + + if(defined $raddr) { + @raddr = $sock->_get_addr($raddr, $arg->{MultiHomed}); + return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") + unless @raddr; + } + + while(1) { + + $sock->socket(AF_INET, $type, $proto) or + return _error($sock, $!, "$!"); + + if (defined $arg->{Blocking}) { + defined $sock->blocking($arg->{Blocking}) + or return _error($sock, $!, "$!"); + } + + if ($arg->{Reuse} || $arg->{ReuseAddr}) { + $sock->sockopt(SO_REUSEADDR,1) or + return _error($sock, $!, "$!"); + } + + if ($arg->{ReusePort}) { + $sock->sockopt(SO_REUSEPORT,1) or + return _error($sock, $!, "$!"); + } + + if ($arg->{Broadcast}) { + $sock->sockopt(SO_BROADCAST,1) or + return _error($sock, $!, "$!"); + } + + if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) { + $sock->bind($lport || 0, $laddr) or + return _error($sock, $!, "$!"); + } + + if(exists $arg->{Listen}) { + $sock->listen($arg->{Listen} || 5) or + return _error($sock, $!, "$!"); + last; + } + + # don't try to connect unless we're given a PeerAddr + last unless exists($arg->{PeerAddr}); + + $raddr = shift @raddr; + + return _error($sock, $EINVAL, 'Cannot determine remote port') + unless($rport || $type == SOCK_DGRAM || $type == SOCK_RAW); + + last + unless($type == SOCK_STREAM || defined $raddr); + + return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'") + unless defined $raddr; + +# my $timeout = ${*$sock}{'io_socket_timeout'}; +# my $before = time() if $timeout; + + undef $@; + if ($sock->connect(pack_sockaddr_in($rport, $raddr))) { +# ${*$sock}{'io_socket_timeout'} = $timeout; + return $sock; + } + + return _error($sock, $!, $@ || "Timeout") + unless @raddr; + +# if ($timeout) { +# my $new_timeout = $timeout - (time() - $before); +# return _error($sock, +# (exists(&Errno::ETIMEDOUT) ? Errno::ETIMEDOUT() : $EINVAL), +# "Timeout") if $new_timeout <= 0; +# ${*$sock}{'io_socket_timeout'} = $new_timeout; +# } + + } + + $sock; +} + +sub connect { + @_ == 2 || @_ == 3 or + croak 'usage: $sock->connect(NAME) or $sock->connect(PORT, ADDR)'; + my $sock = shift; + return $sock->SUPER::connect(@_ == 1 ? shift : pack_sockaddr_in(@_)); +} + +sub bind { + @_ == 2 || @_ == 3 or + croak 'usage: $sock->bind(NAME) or $sock->bind(PORT, ADDR)'; + my $sock = shift; + return $sock->SUPER::bind(@_ == 1 ? shift : pack_sockaddr_in(@_)) +} + +sub sockaddr { + @_ == 1 or croak 'usage: $sock->sockaddr()'; + my($sock) = @_; + my $name = $sock->sockname; + $name ? (sockaddr_in($name))[1] : undef; +} + +sub sockport { + @_ == 1 or croak 'usage: $sock->sockport()'; + my($sock) = @_; + my $name = $sock->sockname; + $name ? (sockaddr_in($name))[0] : undef; +} + +sub sockhost { + @_ == 1 or croak 'usage: $sock->sockhost()'; + my($sock) = @_; + my $addr = $sock->sockaddr; + $addr ? inet_ntoa($addr) : undef; +} + +sub peeraddr { + @_ == 1 or croak 'usage: $sock->peeraddr()'; + my($sock) = @_; + my $name = $sock->peername; + $name ? (sockaddr_in($name))[1] : undef; +} + +sub peerport { + @_ == 1 or croak 'usage: $sock->peerport()'; + my($sock) = @_; + my $name = $sock->peername; + $name ? (sockaddr_in($name))[0] : undef; +} + +sub peerhost { + @_ == 1 or croak 'usage: $sock->peerhost()'; + my($sock) = @_; + my $addr = $sock->peeraddr; + $addr ? inet_ntoa($addr) : undef; +} + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Socket/UNIX.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Socket/UNIX.pm new file mode 100644 index 0000000..d2d0fd8 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO/Socket/UNIX.pm @@ -0,0 +1,68 @@ +# IO::Socket::UNIX.pm +# +# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved. +# This program is free software; you can redistribute it and/or +# modify it under the same terms as Perl itself. + +package IO::Socket::UNIX; + +use strict; +our(@ISA, $VERSION); +use IO::Socket; +use Carp; + +@ISA = qw(IO::Socket); +$VERSION = "1.23"; +$VERSION = eval $VERSION; + +IO::Socket::UNIX->register_domain( AF_UNIX ); + +sub new { + my $class = shift; + unshift(@_, "Peer") if @_ == 1; + return $class->SUPER::new(@_); +} + +sub configure { + my($sock,$arg) = @_; + my($bport,$cport); + + my $type = $arg->{Type} || SOCK_STREAM; + + $sock->socket(AF_UNIX, $type, 0) or + return undef; + + if(exists $arg->{Local}) { + my $addr = sockaddr_un($arg->{Local}); + $sock->bind($addr) or + return undef; + } + if(exists $arg->{Listen} && $type != SOCK_DGRAM) { + $sock->listen($arg->{Listen} || 5) or + return undef; + } + elsif(exists $arg->{Peer}) { + my $addr = sockaddr_un($arg->{Peer}); + $sock->connect($addr) or + return undef; + } + + $sock; +} + +sub hostpath { + @_ == 1 or croak 'usage: $sock->hostpath()'; + my $n = $_[0]->sockname || return undef; + (sockaddr_un($n))[0]; +} + +sub peerpath { + @_ == 1 or croak 'usage: $sock->peerpath()'; + my $n = $_[0]->peername || return undef; + (sockaddr_un($n))[0]; +} + +1; # Keep require happy + +__END__ + diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/List/Util.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/List/Util.pm new file mode 100644 index 0000000..3cb75a5 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/List/Util.pm @@ -0,0 +1,44 @@ +# List::Util.pm +# +# Copyright (c) 1997-2009 Graham Barr <gbarr@pobox.com>. All rights reserved. +# This program is free software; you can redistribute it and/or +# modify it under the same terms as Perl itself. +# +# This module is normally only loaded if the XS module is not available + +package List::Util; + +use strict; +use vars qw(@ISA @EXPORT_OK $VERSION $XS_VERSION $TESTING_PERL_ONLY); +require Exporter; + +@ISA = qw(Exporter); +@EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle); +$VERSION = "1.21"; +$XS_VERSION = $VERSION; +$VERSION = eval $VERSION; + +eval { + # PERL_DL_NONLAZY must be false, or any errors in loading will just + # cause the perl code to be tested + local $ENV{PERL_DL_NONLAZY} = 0 if $ENV{PERL_DL_NONLAZY}; + eval { + require XSLoader; + XSLoader::load('List::Util', $XS_VERSION); + 1; + } or do { + require DynaLoader; + local @ISA = qw(DynaLoader); + bootstrap List::Util $XS_VERSION; + }; +} unless $TESTING_PERL_ONLY; + +if (!defined &sum) { + require List::Util::PP; + List::Util::PP->import; +} + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/POSIX.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/POSIX.pm new file mode 100644 index 0000000..cb816f5 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/POSIX.pm @@ -0,0 +1,77 @@ +package POSIX; +use strict; +use warnings; + +our(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = (); + +our $VERSION = "1.17"; + +use AutoLoader; + +use XSLoader (); + +use Fcntl qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK F_SETFD + F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND + O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC + O_WRONLY SEEK_CUR SEEK_END SEEK_SET + S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG + S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID + S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR); + +# Grandfather old foo_h form to new :foo_h form +my $loaded; + +sub import { + load_imports() unless $loaded++; + my $this = shift; + my @list = map { m/^\w+_h$/ ? ":$_" : $_ } @_; + local $Exporter::ExportLevel = 1; + Exporter::import($this,@list); +} + +sub croak { require Carp; goto &Carp::croak } +# declare usage to assist AutoLoad +sub usage; + +XSLoader::load 'POSIX', $VERSION; + +sub AUTOLOAD { + no strict; + no warnings 'uninitialized'; + if ($AUTOLOAD =~ /::(_?[a-z])/) { + # require AutoLoader; + $AutoLoader::AUTOLOAD = $AUTOLOAD; + goto &AutoLoader::AUTOLOAD + } + local $! = 0; + my $constname = $AUTOLOAD; + $constname =~ s/.*:://; + my ($error, $val) = constant($constname); + croak $error if $error; + *$AUTOLOAD = sub { $val }; + + goto &$AUTOLOAD; +} + +package POSIX::SigAction; + +use AutoLoader 'AUTOLOAD'; + +package POSIX::SigRt; + +use AutoLoader 'AUTOLOAD'; + +use Tie::Hash; + +use vars qw($SIGACTION_FLAGS $_SIGRTMIN $_SIGRTMAX $_sigrtn @ISA); +@POSIX::SigRt::ISA = qw(Tie::StdHash); + +$SIGACTION_FLAGS = 0; + +tie %POSIX::SIGRT, 'POSIX::SigRt'; + +sub DESTROY {}; + +package POSIX; + +1; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/Scalar/Util.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/Scalar/Util.pm new file mode 100644 index 0000000..6c005bb --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/Scalar/Util.pm @@ -0,0 +1,69 @@ +# Scalar::Util.pm +# +# Copyright (c) 1997-2007 Graham Barr <gbarr@pobox.com>. All rights reserved. +# This program is free software; you can redistribute it and/or +# modify it under the same terms as Perl itself. + +package Scalar::Util; + +use strict; +use vars qw(@ISA @EXPORT_OK $VERSION @EXPORT_FAIL); +require Exporter; +require List::Util; # List::Util loads the XS + +@ISA = qw(Exporter); +@EXPORT_OK = qw(blessed dualvar reftype weaken isweak tainted readonly openhandle refaddr isvstring looks_like_number set_prototype); +$VERSION = "1.21"; +$VERSION = eval $VERSION; + +unless (defined &dualvar) { + # Load Pure Perl version if XS not loaded + require Scalar::Util::PP; + Scalar::Util::PP->import; + push @EXPORT_FAIL, qw(weaken isweak dualvar isvstring set_prototype); +} + +sub export_fail { + if (grep { /dualvar/ } @EXPORT_FAIL) { # no XS loaded + my $pat = join("|", @EXPORT_FAIL); + if (my ($err) = grep { /^($pat)$/ } @_ ) { + require Carp; + Carp::croak("$err is only available with the XS version of Scalar::Util"); + } + } + + if (grep { /^(weaken|isweak)$/ } @_ ) { + require Carp; + Carp::croak("Weak references are not implemented in the version of perl"); + } + + if (grep { /^(isvstring)$/ } @_ ) { + require Carp; + Carp::croak("Vstrings are not implemented in the version of perl"); + } + + @_; +} + +sub openhandle ($) { + my $fh = shift; + my $rt = reftype($fh) || ''; + + return defined(fileno($fh)) ? $fh : undef + if $rt eq 'IO'; + + if (reftype(\$fh) eq 'GLOB') { # handle openhandle(*DATA) + $fh = \(my $tmp=$fh); + } + elsif ($rt ne 'GLOB') { + return undef; + } + + (tied(*$fh) or defined(fileno($fh))) + ? $fh : undef; +} + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/Socket.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/Socket.pm new file mode 100644 index 0000000..42dede6 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/Socket.pm @@ -0,0 +1,242 @@ +package Socket; + +our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); +$VERSION = "1.82"; + +use Carp; +use warnings::register; + +require Exporter; +use XSLoader (); +@ISA = qw(Exporter); +@EXPORT = qw( + inet_aton inet_ntoa + sockaddr_family + pack_sockaddr_in unpack_sockaddr_in + pack_sockaddr_un unpack_sockaddr_un + sockaddr_in sockaddr_un + INADDR_ANY INADDR_BROADCAST INADDR_LOOPBACK INADDR_NONE + AF_802 + AF_AAL + AF_APPLETALK + AF_CCITT + AF_CHAOS + AF_CTF + AF_DATAKIT + AF_DECnet + AF_DLI + AF_ECMA + AF_GOSIP + AF_HYLINK + AF_IMPLINK + AF_INET + AF_INET6 + AF_ISO + AF_KEY + AF_LAST + AF_LAT + AF_LINK + AF_MAX + AF_NBS + AF_NIT + AF_NS + AF_OSI + AF_OSINET + AF_PUP + AF_ROUTE + AF_SNA + AF_UNIX + AF_UNSPEC + AF_USER + AF_WAN + AF_X25 + IOV_MAX + IP_OPTIONS + IP_HDRINCL + IP_TOS + IP_TTL + IP_RECVOPTS + IP_RECVRETOPTS + IP_RETOPTS + MSG_BCAST + MSG_BTAG + MSG_CTLFLAGS + MSG_CTLIGNORE + MSG_CTRUNC + MSG_DONTROUTE + MSG_DONTWAIT + MSG_EOF + MSG_EOR + MSG_ERRQUEUE + MSG_ETAG + MSG_FIN + MSG_MAXIOVLEN + MSG_MCAST + MSG_NOSIGNAL + MSG_OOB + MSG_PEEK + MSG_PROXY + MSG_RST + MSG_SYN + MSG_TRUNC + MSG_URG + MSG_WAITALL + MSG_WIRE + PF_802 + PF_AAL + PF_APPLETALK + PF_CCITT + PF_CHAOS + PF_CTF + PF_DATAKIT + PF_DECnet + PF_DLI + PF_ECMA + PF_GOSIP + PF_HYLINK + PF_IMPLINK + PF_INET + PF_INET6 + PF_ISO + PF_KEY + PF_LAST + PF_LAT + PF_LINK + PF_MAX + PF_NBS + PF_NIT + PF_NS + PF_OSI + PF_OSINET + PF_PUP + PF_ROUTE + PF_SNA + PF_UNIX + PF_UNSPEC + PF_USER + PF_WAN + PF_X25 + SCM_CONNECT + SCM_CREDENTIALS + SCM_CREDS + SCM_RIGHTS + SCM_TIMESTAMP + SHUT_RD + SHUT_RDWR + SHUT_WR + SOCK_DGRAM + SOCK_RAW + SOCK_RDM + SOCK_SEQPACKET + SOCK_STREAM + SOL_SOCKET + SOMAXCONN + SO_ACCEPTCONN + SO_ATTACH_FILTER + SO_BACKLOG + SO_BROADCAST + SO_CHAMELEON + SO_DEBUG + SO_DETACH_FILTER + SO_DGRAM_ERRIND + SO_DONTLINGER + SO_DONTROUTE + SO_ERROR + SO_FAMILY + SO_KEEPALIVE + SO_LINGER + SO_OOBINLINE + SO_PASSCRED + SO_PASSIFNAME + SO_PEERCRED + SO_PROTOCOL + SO_PROTOTYPE + SO_RCVBUF + SO_RCVLOWAT + SO_RCVTIMEO + SO_REUSEADDR + SO_REUSEPORT + SO_SECURITY_AUTHENTICATION + SO_SECURITY_ENCRYPTION_NETWORK + SO_SECURITY_ENCRYPTION_TRANSPORT + SO_SNDBUF + SO_SNDLOWAT + SO_SNDTIMEO + SO_STATE + SO_TYPE + SO_USELOOPBACK + SO_XOPEN + SO_XSE + UIO_MAXIOV +); + +@EXPORT_OK = qw(CR LF CRLF $CR $LF $CRLF + + IPPROTO_IP + IPPROTO_IPV6 + IPPROTO_RAW + IPPROTO_ICMP + IPPROTO_TCP + IPPROTO_UDP + + TCP_KEEPALIVE + TCP_MAXRT + TCP_MAXSEG + TCP_NODELAY + TCP_STDURG); + +%EXPORT_TAGS = ( + crlf => [qw(CR LF CRLF $CR $LF $CRLF)], + all => [@EXPORT, @EXPORT_OK], +); + +BEGIN { + sub CR () {"\015"} + sub LF () {"\012"} + sub CRLF () {"\015\012"} +} + +*CR = \CR(); +*LF = \LF(); +*CRLF = \CRLF(); + +sub sockaddr_in { + if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die + my($af, $port, @quad) = @_; + warnings::warn "6-ARG sockaddr_in call is deprecated" + if warnings::enabled(); + pack_sockaddr_in($port, inet_aton(join('.', @quad))); + } elsif (wantarray) { + croak "usage: (port,iaddr) = sockaddr_in(sin_sv)" unless @_ == 1; + unpack_sockaddr_in(@_); + } else { + croak "usage: sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2; + pack_sockaddr_in(@_); + } +} + +sub sockaddr_un { + if (wantarray) { + croak "usage: (filename) = sockaddr_un(sun_sv)" unless @_ == 1; + unpack_sockaddr_un(@_); + } else { + croak "usage: sun_sv = sockaddr_un(filename)" unless @_ == 1; + pack_sockaddr_un(@_); + } +} + +sub AUTOLOAD { + my($constname); + ($constname = $AUTOLOAD) =~ s/.*:://; + croak "&Socket::constant not defined" if $constname eq 'constant'; + my ($error, $val) = constant($constname); + if ($error) { + croak $error; + } + *$AUTOLOAD = sub { $val }; + goto &$AUTOLOAD; +} + +XSLoader::load 'Socket', $VERSION; + +1; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/XSLoader.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/XSLoader.pm new file mode 100644 index 0000000..b75b4ab --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/XSLoader.pm @@ -0,0 +1,117 @@ +# Generated from XSLoader.pm.PL (resolved %Config::Config value) + +package XSLoader; + +$VERSION = "0.10"; + +#use strict; + +# enable debug/trace messages from DynaLoader perl code +# $dl_debug = $ENV{PERL_DL_DEBUG} || 0 unless defined $dl_debug; + + my $dl_dlext = 'so'; + +package DynaLoader; + +# No prizes for guessing why we don't say 'bootstrap DynaLoader;' here. +# NOTE: All dl_*.xs (including dl_none.xs) define a dl_error() XSUB +boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader) && + !defined(&dl_error); +package XSLoader; + +sub load { + package DynaLoader; + + die q{XSLoader::load('Your::Module', $Your::Module::VERSION)} unless @_; + + my($module) = $_[0]; + + # work with static linking too + my $boots = "$module\::bootstrap"; + goto &$boots if defined &$boots; + + goto retry unless $module and defined &dl_load_file; + + my @modparts = split(/::/,$module); + my $modfname = $modparts[-1]; + + my $modpname = join('/',@modparts); + my $modlibname = (caller())[1]; + my $c = @modparts; + $modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename + my $file = "$modlibname/auto/$modpname/$modfname.$dl_dlext"; + +# print STDERR "XSLoader::load for $module ($file)\n" if $dl_debug; + + my $bs = $file; + $bs =~ s/(\.\w+)?(;\d*)?$/\.bs/; # look for .bs 'beside' the library + + if (-s $bs) { # only read file if it's not empty +# print STDERR "BS: $bs ($^O, $dlsrc)\n" if $dl_debug; + eval { do $bs; }; + warn "$bs: $@\n" if $@; + } + + goto retry if not -f $file or -s $bs; + + my $bootname = "boot_$module"; + $bootname =~ s/\W/_/g; + @DynaLoader::dl_require_symbols = ($bootname); + + my $boot_symbol_ref; + + # Many dynamic extension loading problems will appear to come from + # this section of code: XYZ failed at line 123 of DynaLoader.pm. + # Often these errors are actually occurring in the initialisation + # C code of the extension XS file. Perl reports the error as being + # in this perl code simply because this was the last perl code + # it executed. + + my $libref = dl_load_file($file, 0) or do { + require Carp; + Carp::croak("Can't load '$file' for module $module: " . dl_error()); + }; + push(@DynaLoader::dl_librefs,$libref); # record loaded object + + my @unresolved = dl_undef_symbols(); + if (@unresolved) { + require Carp; + Carp::carp("Undefined symbols present after loading $file: @unresolved\n"); + } + + $boot_symbol_ref = dl_find_symbol($libref, $bootname) or do { + require Carp; + Carp::croak("Can't find '$bootname' symbol in $file\n"); + }; + + push(@DynaLoader::dl_modules, $module); # record loaded module + + boot: + my $xs = dl_install_xsub($boots, $boot_symbol_ref, $file); + + # See comment block above + push(@DynaLoader::dl_shared_objects, $file); # record files loaded + return &$xs(@_); + + retry: + my $bootstrap_inherit = DynaLoader->can('bootstrap_inherit') || + XSLoader->can('bootstrap_inherit'); + goto &$bootstrap_inherit; +} + +# Versions of DynaLoader prior to 5.6.0 don't have this function. +sub bootstrap_inherit { + package DynaLoader; + + my $module = $_[0]; + local *DynaLoader::isa = *{"$module\::ISA"}; + local @DynaLoader::isa = (@DynaLoader::isa, 'DynaLoader'); + # Cannot goto due to delocalization. Will report errors on a wrong line? + require DynaLoader; + DynaLoader::bootstrap(@_); +} + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/Cwd/Cwd.so b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/Cwd/Cwd.so Binary files differnew file mode 100644 index 0000000..eba86d7 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/Cwd/Cwd.so diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/autosplit.ix b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/autosplit.ix new file mode 100644 index 0000000..ca7f728 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/autosplit.ix @@ -0,0 +1,8 @@ +# Index created by AutoSplit for ../../lib/DynaLoader.pm +# (file acts as timestamp) +package DynaLoader; +sub dl_findfile ; +sub dl_expandspec ; +sub dl_find_symbol_anywhere +; +1; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_expandspec.al b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_expandspec.al new file mode 100644 index 0000000..4682650 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_expandspec.al @@ -0,0 +1,31 @@ +# NOTE: Derived from ../../lib/DynaLoader.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package DynaLoader; + +#line 318 "../../lib/DynaLoader.pm (autosplit into ../../lib/auto/DynaLoader/dl_expandspec.al)" +sub dl_expandspec { + my($spec) = @_; + # Optional function invoked if DynaLoader.pm sets $do_expand. + # Most systems do not require or use this function. + # Some systems may implement it in the dl_*.xs file in which case + # this autoload version will not be called but is harmless. + + # This function is designed to deal with systems which treat some + # 'filenames' in a special way. For example VMS 'Logical Names' + # (something like unix environment variables - but different). + # This function should recognise such names and expand them into + # full file paths. + # Must return undef if $spec is invalid or file does not exist. + + my $file = $spec; # default output to input + + + return undef unless -f $file; + + print STDERR "dl_expandspec($spec) => $file\n" if $dl_debug; + $file; +} + +# end of DynaLoader::dl_expandspec +1; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_find_symbol_anywhere.al b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_find_symbol_anywhere.al new file mode 100644 index 0000000..408035a --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_find_symbol_anywhere.al @@ -0,0 +1,19 @@ +# NOTE: Derived from ../../lib/DynaLoader.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package DynaLoader; + +#line 341 "../../lib/DynaLoader.pm (autosplit into ../../lib/auto/DynaLoader/dl_find_symbol_anywhere.al)" +sub dl_find_symbol_anywhere +{ + my $sym = shift; + my $libref; + foreach $libref (@dl_librefs) { + my $symref = dl_find_symbol($libref,$sym); + return $symref if $symref; + } + return undef; +} + +1; +# end of DynaLoader::dl_find_symbol_anywhere diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_findfile.al b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_findfile.al new file mode 100644 index 0000000..4ee67f9 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/DynaLoader/dl_findfile.al @@ -0,0 +1,86 @@ +# NOTE: Derived from ../../lib/DynaLoader.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package DynaLoader; + +#line 239 "../../lib/DynaLoader.pm (autosplit into ../../lib/auto/DynaLoader/dl_findfile.al)" +sub dl_findfile { + # Read ext/DynaLoader/DynaLoader.doc for detailed information. + # This function does not automatically consider the architecture + # or the perl library auto directories. + my (@args) = @_; + my (@dirs, $dir); # which directories to search + my (@found); # full paths to real files we have found + #my $dl_ext= 'so'; # $Config::Config{'dlext'} suffix for perl extensions + #my $dl_so = 'so'; # $Config::Config{'so'} suffix for shared libraries + + print STDERR "dl_findfile(@args)\n" if $dl_debug; + + # accumulate directories but process files as they appear + arg: foreach(@args) { + # Special fast case: full filepath requires no search + + + + if (m:/: && -f $_) { + push(@found,$_); + last arg unless wantarray; + next; + } + + + # Deal with directories first: + # Using a -L prefix is the preferred option (faster and more robust) + if (m:^-L:) { s/^-L//; push(@dirs, $_); next; } + + + + # Otherwise we try to try to spot directories by a heuristic + # (this is a more complicated issue than it first appears) + if (m:/: && -d $_) { push(@dirs, $_); next; } + + + + # Only files should get this far... + my(@names, $name); # what filenames to look for + if (m:-l: ) { # convert -lname to appropriate library name + s/-l//; + push(@names,"lib$_.$dl_so"); + push(@names,"lib$_.a"); + } else { # Umm, a bare name. Try various alternatives: + # these should be ordered with the most likely first + push(@names,"$_.$dl_dlext") unless m/\.$dl_dlext$/o; + push(@names,"$_.$dl_so") unless m/\.$dl_so$/o; + push(@names,"lib$_.$dl_so") unless m:/:; + push(@names,"$_.a") if !m/\.a$/ and $dlsrc eq "dl_dld.xs"; + push(@names, $_); + } + my $dirsep = '/'; + + foreach $dir (@dirs, @dl_library_path) { + next unless -d $dir; + + foreach $name (@names) { + my($file) = "$dir$dirsep$name"; + print STDERR " checking in $dir for $name\n" if $dl_debug; + $file = ($do_expand) ? dl_expandspec($file) : (-f $file && $file); + #$file = _check_file($file); + if ($file) { + push(@found, $file); + next arg; # no need to look any further + } + } + } + } + if ($dl_debug) { + foreach(@dirs) { + print STDERR " dl_findfile ignored non-existent directory: $_\n" unless -d $_; + } + print STDERR "dl_findfile found: @found\n"; + } + return $found[0] unless wantarray; + @found; +} + +# end of DynaLoader::dl_findfile +1; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/Fcntl/Fcntl.so b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/Fcntl/Fcntl.so Binary files differnew file mode 100644 index 0000000..467be60 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/Fcntl/Fcntl.so diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/File/Glob/Glob.so b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/File/Glob/Glob.so Binary files differnew file mode 100644 index 0000000..a0d9e31 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/File/Glob/Glob.so diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/Hash/Util/Util.so b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/Hash/Util/Util.so Binary files differnew file mode 100644 index 0000000..1c53fdb --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/Hash/Util/Util.so diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/IO/IO.so b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/IO/IO.so Binary files differnew file mode 100644 index 0000000..620aab8 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/IO/IO.so diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/List/Util/Util.so b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/List/Util/Util.so Binary files differnew file mode 100644 index 0000000..f9a2ea4 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/List/Util/Util.so diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/POSIX/POSIX.so b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/POSIX/POSIX.so Binary files differnew file mode 100644 index 0000000..72e3012 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/POSIX/POSIX.so diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/POSIX/autosplit.ix b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/POSIX/autosplit.ix new file mode 100644 index 0000000..a13c556 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/POSIX/autosplit.ix @@ -0,0 +1,173 @@ +# Index created by AutoSplit for ../../lib/POSIX.pm +# (file acts as timestamp) +package POSIX; +sub usage ; +sub redef ; +sub unimpl ; +sub assert ; +sub tolower ; +sub toupper ; +sub closedir ; +sub opendir ; +sub readdir ; +sub rewinddir ; +sub errno ; +sub creat ; +sub fcntl ; +sub getgrgid ; +sub getgrnam ; +sub atan2 ; +sub cos ; +sub exp ; +sub fabs ; +sub log ; +sub pow ; +sub sin ; +sub sqrt ; +sub getpwnam ; +sub getpwuid ; +sub longjmp ; +sub setjmp ; +sub siglongjmp ; +sub sigsetjmp ; +sub kill ; +sub raise ; +sub offsetof ; +sub clearerr ; +sub fclose ; +sub fdopen ; +sub feof ; +sub fgetc ; +sub fgets ; +sub fileno ; +sub fopen ; +sub fprintf ; +sub fputc ; +sub fputs ; +sub fread ; +sub freopen ; +sub fscanf ; +sub fseek ; +sub fsync ; +sub ferror ; +sub fflush ; +sub fgetpos ; +sub fsetpos ; +sub ftell ; +sub fwrite ; +sub getc ; +sub getchar ; +sub gets ; +sub perror ; +sub printf ; +sub putc ; +sub putchar ; +sub puts ; +sub remove ; +sub rename ; +sub rewind ; +sub scanf ; +sub sprintf ; +sub sscanf ; +sub tmpfile ; +sub ungetc ; +sub vfprintf ; +sub vprintf ; +sub vsprintf ; +sub abs ; +sub atexit ; +sub atof ; +sub atoi ; +sub atol ; +sub bsearch ; +sub calloc ; +sub div ; +sub exit ; +sub free ; +sub getenv ; +sub labs ; +sub ldiv ; +sub malloc ; +sub qsort ; +sub rand ; +sub realloc ; +sub srand ; +sub system ; +sub memchr ; +sub memcmp ; +sub memcpy ; +sub memmove ; +sub memset ; +sub strcat ; +sub strchr ; +sub strcmp ; +sub strcpy ; +sub strcspn ; +sub strerror ; +sub strlen ; +sub strncat ; +sub strncmp ; +sub strncpy ; +sub strpbrk ; +sub strrchr ; +sub strspn ; +sub strstr ; +sub strtok ; +sub chmod ; +sub fstat ; +sub mkdir ; +sub stat ; +sub umask ; +sub wait ; +sub waitpid ; +sub gmtime ; +sub localtime ; +sub time ; +sub alarm ; +sub chdir ; +sub chown ; +sub execl ; +sub execle ; +sub execlp ; +sub execv ; +sub execve ; +sub execvp ; +sub fork ; +sub getegid ; +sub geteuid ; +sub getgid ; +sub getgroups ; +sub getlogin ; +sub getpgrp ; +sub getpid ; +sub getppid ; +sub getuid ; +sub isatty ; +sub link ; +sub rmdir ; +sub setbuf ; +sub setvbuf ; +sub sleep ; +sub unlink ; +sub utime ; +sub load_imports ; +package POSIX::SigAction; +sub new ; +sub handler ; +sub mask ; +sub flags ; +sub safe ; +package POSIX::SigRt; +sub _init ; +sub _croak ; +sub _getsig ; +sub _exist ; +sub _check ; +sub new ; +sub EXISTS ; +sub FETCH ; +sub STORE ; +sub DELETE ; +sub CLEAR ; +sub SCALAR ; +1; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/POSIX/load_imports.al b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/POSIX/load_imports.al new file mode 100644 index 0000000..bcbd3d4 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/POSIX/load_imports.al @@ -0,0 +1,230 @@ +# NOTE: Derived from ../../lib/POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 759 "../../lib/POSIX.pm (autosplit into ../../lib/auto/POSIX/load_imports.al)" +sub load_imports { +%EXPORT_TAGS = ( + + assert_h => [qw(assert NDEBUG)], + + ctype_h => [qw(isalnum isalpha iscntrl isdigit isgraph islower + isprint ispunct isspace isupper isxdigit tolower toupper)], + + dirent_h => [], + + errno_h => [qw(E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT + EAGAIN EALREADY EBADF EBUSY ECHILD ECONNABORTED + ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDQUOT + EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS + EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK + EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH + ENFILE ENOBUFS ENODEV ENOENT ENOEXEC ENOLCK ENOMEM + ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR + ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM + EPFNOSUPPORT EPIPE EPROCLIM EPROTONOSUPPORT EPROTOTYPE + ERANGE EREMOTE ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT + ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS ETXTBSY + EUSERS EWOULDBLOCK EXDEV errno)], + + fcntl_h => [qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK + F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK + O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK + O_RDONLY O_RDWR O_TRUNC O_WRONLY + creat + SEEK_CUR SEEK_END SEEK_SET + S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU + S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID + S_IWGRP S_IWOTH S_IWUSR)], + + float_h => [qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG + DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP + DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP + FLT_DIG FLT_EPSILON FLT_MANT_DIG + FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP + FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP + FLT_RADIX FLT_ROUNDS + LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG + LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP + LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP)], + + grp_h => [], + + limits_h => [qw( ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX + INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON + MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX + PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN + SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX + ULONG_MAX USHRT_MAX _POSIX_ARG_MAX _POSIX_CHILD_MAX + _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT + _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_OPEN_MAX + _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SSIZE_MAX + _POSIX_STREAM_MAX _POSIX_TZNAME_MAX)], + + locale_h => [qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES + LC_MONETARY LC_NUMERIC LC_TIME NULL + localeconv setlocale)], + + math_h => [qw(HUGE_VAL acos asin atan ceil cosh fabs floor fmod + frexp ldexp log10 modf pow sinh tan tanh)], + + pwd_h => [], + + setjmp_h => [qw(longjmp setjmp siglongjmp sigsetjmp)], + + signal_h => [qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK + SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM + SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL + SIGPIPE %SIGRT SIGRTMIN SIGRTMAX SIGQUIT SIGSEGV SIGSTOP + SIGTERM SIGTSTP SIGTTIN SIGTTOU SIGUSR1 SIGUSR2 + SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK SIG_UNBLOCK + raise sigaction signal sigpending sigprocmask sigsuspend)], + + stdarg_h => [], + + stddef_h => [qw(NULL offsetof)], + + stdio_h => [qw(BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid + L_tmpname NULL SEEK_CUR SEEK_END SEEK_SET + STREAM_MAX TMP_MAX stderr stdin stdout + clearerr fclose fdopen feof ferror fflush fgetc fgetpos + fgets fopen fprintf fputc fputs fread freopen + fscanf fseek fsetpos ftell fwrite getchar gets + perror putc putchar puts remove rewind + scanf setbuf setvbuf sscanf tmpfile tmpnam + ungetc vfprintf vprintf vsprintf)], + + stdlib_h => [qw(EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX NULL RAND_MAX + abort atexit atof atoi atol bsearch calloc div + free getenv labs ldiv malloc mblen mbstowcs mbtowc + qsort realloc strtod strtol strtoul wcstombs wctomb)], + + string_h => [qw(NULL memchr memcmp memcpy memmove memset strcat + strchr strcmp strcoll strcpy strcspn strerror strlen + strncat strncmp strncpy strpbrk strrchr strspn strstr + strtok strxfrm)], + + sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU + S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG + S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR + fstat mkfifo)], + + sys_times_h => [], + + sys_types_h => [], + + sys_utsname_h => [qw(uname)], + + sys_wait_h => [qw(WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED + WNOHANG WSTOPSIG WTERMSIG WUNTRACED)], + + termios_h => [qw( B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400 + B300 B38400 B4800 B50 B600 B75 B9600 BRKINT CLOCAL + CREAD CS5 CS6 CS7 CS8 CSIZE CSTOPB ECHO ECHOE ECHOK + ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR + INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST + PARENB PARMRK PARODD TCIFLUSH TCIOFF TCIOFLUSH TCION + TCOFLUSH TCOOFF TCOON TCSADRAIN TCSAFLUSH TCSANOW + TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART + VSTOP VSUSP VTIME + cfgetispeed cfgetospeed cfsetispeed cfsetospeed tcdrain + tcflow tcflush tcgetattr tcsendbreak tcsetattr )], + + time_h => [qw(CLK_TCK CLOCKS_PER_SEC NULL asctime clock ctime + difftime mktime strftime tzset tzname)], + + unistd_h => [qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET + STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK + _PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON + _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX + _PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED + _POSIX_JOB_CONTROL _POSIX_NO_TRUNC _POSIX_SAVED_IDS + _POSIX_VDISABLE _POSIX_VERSION _SC_ARG_MAX + _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL + _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS + _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION + _exit access ctermid cuserid + dup2 dup execl execle execlp execv execve execvp + fpathconf fsync getcwd getegid geteuid getgid getgroups + getpid getuid isatty lseek pathconf pause setgid setpgid + setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)], + + utime_h => [], + +); + +# Exporter::export_tags(); +{ + # De-duplicate the export list: + my %export; + @export{map {@$_} values %EXPORT_TAGS} = (); + # Doing the de-dup with a temporary hash has the advantage that the SVs in + # @EXPORT are actually shared hash key sacalars, which will save some memory. + push @EXPORT, keys %export; +} + +@EXPORT_OK = qw( + abs + alarm + atan2 + chdir + chmod + chown + close + closedir + cos + exit + exp + fcntl + fileno + fork + getc + getgrgid + getgrnam + getlogin + getpgrp + getppid + getpwnam + getpwuid + gmtime + isatty + kill + lchown + link + localtime + log + mkdir + nice + open + opendir + pipe + printf + rand + read + readdir + rename + rewinddir + rmdir + sin + sleep + sprintf + sqrt + srand + stat + system + time + times + umask + unlink + utime + wait + waitpid + write +); + +require Exporter; +} + +# end of POSIX::SigAction::load_imports +1; diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/Socket/Socket.so b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/Socket/Socket.so Binary files differnew file mode 100644 index 0000000..e7054fd --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/auto/Socket/Socket.so diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/lib.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/lib.pm new file mode 100644 index 0000000..f7b8eab --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/lib.pm @@ -0,0 +1,116 @@ +package lib; + +# THIS FILE IS AUTOMATICALLY GENERATED FROM lib_pm.PL. +# ANY CHANGES TO THIS FILE WILL BE OVERWRITTEN BY THE NEXT PERL BUILD. + +use Config; + +use strict; + +my $archname = $Config{archname}; +my $version = $Config{version}; +my @inc_version_list = reverse split / /, $Config{inc_version_list}; + +our @ORIG_INC = @INC; # take a handy copy of 'original' value +our $VERSION = '0.62'; +my $Is_MacOS = $^O eq 'MacOS'; +my $Mac_FS; +if ($Is_MacOS) { + require File::Spec; + $Mac_FS = eval { require Mac::FileSpec::Unixish }; +} + +sub import { + shift; + + my %names; + foreach (reverse @_) { + my $path = $_; # we'll be modifying it, so break the alias + if ($path eq '') { + require Carp; + Carp::carp("Empty compile time value given to use lib"); + } + + $path = _nativize($path); + + if ($path !~ /\.par$/i && -e $path && ! -d _) { + require Carp; + Carp::carp("Parameter to use lib must be directory, not file"); + } + unshift(@INC, $path); + # Add any previous version directories we found at configure time + foreach my $incver (@inc_version_list) + { + my $dir = $Is_MacOS + ? File::Spec->catdir( $path, $incver ) + : "$path/$incver"; + unshift(@INC, $dir) if -d $dir; + } + # Put a corresponding archlib directory in front of $path if it + # looks like $path has an archlib directory below it. + my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir) + = _get_dirs($path); + unshift(@INC, $arch_dir) if -d $arch_auto_dir; + unshift(@INC, $version_dir) if -d $version_dir; + unshift(@INC, $version_arch_dir) if -d $version_arch_dir; + } + + # remove trailing duplicates + @INC = grep { ++$names{$_} == 1 } @INC; + return; +} + +sub unimport { + shift; + + my %names; + foreach (@_) { + my $path = _nativize($_); + + my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir) + = _get_dirs($path); + ++$names{$path}; + ++$names{$arch_dir} if -d $arch_auto_dir; + ++$names{$version_dir} if -d $version_dir; + ++$names{$version_arch_dir} if -d $version_arch_dir; + } + + # Remove ALL instances of each named directory. + @INC = grep { !exists $names{$_} } @INC; + return; +} + +sub _get_dirs { + my($dir) = @_; + my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir); + + # we could use this for all platforms in the future, but leave it + # Mac-only for now, until there is more time for testing it. + if ($Is_MacOS) { + $arch_auto_dir = File::Spec->catdir( $dir, $archname, 'auto' ); + $arch_dir = File::Spec->catdir( $dir, $archname, ); + $version_dir = File::Spec->catdir( $dir, $version ); + $version_arch_dir = File::Spec->catdir( $dir, $version, $archname ); + } else { + $arch_auto_dir = "$dir/$archname/auto"; + $arch_dir = "$dir/$archname"; + $version_dir = "$dir/$version"; + $version_arch_dir = "$dir/$version/$archname"; + } + return($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir); +} + +sub _nativize { + my($dir) = @_; + + if ($Is_MacOS && $Mac_FS && ! -d $dir) { + $dir = Mac::FileSpec::Unixish::nativize($dir); + $dir .= ":" unless $dir =~ /:$/; + } + + return $dir; +} + +1; +__END__ + diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/re.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/re.pm new file mode 100644 index 0000000..c4a020f --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/re.pm @@ -0,0 +1,182 @@ +package re; + +# pragma for controlling the regex engine +use strict; +use warnings; + +our $VERSION = "0.09"; +our @ISA = qw(Exporter); +my @XS_FUNCTIONS = qw(regmust); +my %XS_FUNCTIONS = map { $_ => 1 } @XS_FUNCTIONS; +our @EXPORT_OK = (@XS_FUNCTIONS, + qw(is_regexp regexp_pattern + regname regnames regnames_count)); +our %EXPORT_OK = map { $_ => 1 } @EXPORT_OK; + +# *** WARNING *** WARNING *** WARNING *** WARNING *** WARNING *** +# +# If you modify these values see comment below! + +my %bitmask = ( + taint => 0x00100000, # HINT_RE_TAINT + eval => 0x00200000, # HINT_RE_EVAL +); + +# - File::Basename contains a literal for 'taint' as a fallback. If +# taint is changed here, File::Basename must be updated as well. +# +# - ExtUtils::ParseXS uses a hardcoded +# BEGIN { $^H |= 0x00200000 } +# in it to allow re.xs to be built. So if 'eval' is changed here then +# ExtUtils::ParseXS must be changed as well. +# +# *** WARNING *** WARNING *** WARNING *** WARNING *** WARNING *** + +sub setcolor { + eval { # Ignore errors + require Term::Cap; + + my $terminal = Tgetent Term::Cap ({OSPEED => 9600}); # Avoid warning. + my $props = $ENV{PERL_RE_TC} || 'md,me,so,se,us,ue'; + my @props = split /,/, $props; + my $colors = join "\t", map {$terminal->Tputs($_,1)} @props; + + $colors =~ s/\0//g; + $ENV{PERL_RE_COLORS} = $colors; + }; + if ($@) { + $ENV{PERL_RE_COLORS} ||= qq'\t\t> <\t> <\t\t'; + } + +} + +my %flags = ( + COMPILE => 0x0000FF, + PARSE => 0x000001, + OPTIMISE => 0x000002, + TRIEC => 0x000004, + DUMP => 0x000008, + FLAGS => 0x000010, + + EXECUTE => 0x00FF00, + INTUIT => 0x000100, + MATCH => 0x000200, + TRIEE => 0x000400, + + EXTRA => 0xFF0000, + TRIEM => 0x010000, + OFFSETS => 0x020000, + OFFSETSDBG => 0x040000, + STATE => 0x080000, + OPTIMISEM => 0x100000, + STACK => 0x280000, + BUFFERS => 0x400000, +); +$flags{ALL} = -1 & ~($flags{OFFSETS}|$flags{OFFSETSDBG}|$flags{BUFFERS}); +$flags{All} = $flags{all} = $flags{DUMP} | $flags{EXECUTE}; +$flags{Extra} = $flags{EXECUTE} | $flags{COMPILE}; +$flags{More} = $flags{MORE} = $flags{All} | $flags{TRIEC} | $flags{TRIEM} | $flags{STATE}; +$flags{State} = $flags{DUMP} | $flags{EXECUTE} | $flags{STATE}; +$flags{TRIE} = $flags{DUMP} | $flags{EXECUTE} | $flags{TRIEC}; + +my $installed; +my $installed_error; + +sub _do_install { + if ( ! defined($installed) ) { + require XSLoader; + $installed = eval { XSLoader::load('re', $VERSION) } || 0; + $installed_error = $@; + } +} + +sub _load_unload { + my ($on)= @_; + if ($on) { + _do_install(); + if ( ! $installed ) { + die "'re' not installed!? ($installed_error)"; + } else { + # We call install() every time, as if we didn't, we wouldn't + # "see" any changes to the color environment var since + # the last time it was called. + + # install() returns an integer, which if casted properly + # in C resolves to a structure containing the regex + # hooks. Setting it to a random integer will guarantee + # segfaults. + $^H{regcomp} = install(); + } + } else { + delete $^H{regcomp}; + } +} + +sub bits { + my $on = shift; + my $bits = 0; + unless (@_) { + require Carp; + Carp::carp("Useless use of \"re\" pragma"); + } + foreach my $idx (0..$#_){ + my $s=$_[$idx]; + if ($s eq 'Debug' or $s eq 'Debugcolor') { + setcolor() if $s =~/color/i; + ${^RE_DEBUG_FLAGS} = 0 unless defined ${^RE_DEBUG_FLAGS}; + for my $idx ($idx+1..$#_) { + if ($flags{$_[$idx]}) { + if ($on) { + ${^RE_DEBUG_FLAGS} |= $flags{$_[$idx]}; + } else { + ${^RE_DEBUG_FLAGS} &= ~ $flags{$_[$idx]}; + } + } else { + require Carp; + Carp::carp("Unknown \"re\" Debug flag '$_[$idx]', possible flags: ", + join(", ",sort keys %flags ) ); + } + } + _load_unload($on ? 1 : ${^RE_DEBUG_FLAGS}); + last; + } elsif ($s eq 'debug' or $s eq 'debugcolor') { + setcolor() if $s =~/color/i; + _load_unload($on); + last; + } elsif (exists $bitmask{$s}) { + $bits |= $bitmask{$s}; + } elsif ($XS_FUNCTIONS{$s}) { + _do_install(); + if (! $installed) { + require Carp; + Carp::croak("\"re\" function '$s' not available"); + } + require Exporter; + re->export_to_level(2, 're', $s); + } elsif ($EXPORT_OK{$s}) { + require Exporter; + re->export_to_level(2, 're', $s); + } else { + require Carp; + Carp::carp("Unknown \"re\" subpragma '$s' (known ones are: ", + join(', ', map {qq('$_')} 'debug', 'debugcolor', sort keys %bitmask), + ")"); + } + } + $bits; +} + +sub import { + shift; + $^H |= bits(1, @_); +} + +sub unimport { + shift; + $^H &= ~ bits(0, @_); +} + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm b/beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm new file mode 100644 index 0000000..4b024eb --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm @@ -0,0 +1,283 @@ +package Locale::gettext; + +=head1 NAME + +Locale::gettext - message handling functions + +=head1 SYNOPSIS + + use Locale::gettext; + use POSIX; # Needed for setlocale() + + setlocale(LC_MESSAGES, ""); + + # OO interface + my $d = Locale::gettext->domain("my_program"); + + print $d->get("Welcome to my program"), "\n"; + # (printed in the local language) + + # Direct access to C functions + textdomain("my_program"); + + print gettext("Welcome to my program"), "\n"; + # (printed in the local language) + +=head1 DESCRIPTION + +The gettext module permits access from perl to the gettext() family of +functions for retrieving message strings from databases constructed +to internationalize software. + +=cut + +use Carp; +use POSIX qw(:locale_h); + +require Exporter; +require DynaLoader; +@ISA = qw(Exporter DynaLoader); + +BEGIN { + eval { + require Encode; + $encode_available = 1; + }; + import Encode if ($encode_available); +} + +$VERSION = "1.05" ; + +%EXPORT_TAGS = ( + + locale_h => [qw(LC_CTYPE LC_NUMERIC LC_TIME LC_COLLATE LC_MONETARY LC_MESSAGES LC_ALL)], + + libintl_h => [qw(gettext textdomain bindtextdomain dcgettext dgettext ngettext dngettext dcngettext bind_textdomain_codeset)], + +); + +Exporter::export_tags(); + +@EXPORT_OK = qw( +); + +bootstrap Locale::gettext $VERSION; + +sub AUTOLOAD { + local $! = 0; + my $constname = $AUTOLOAD; + $constname =~ s/.*:://; + my $val = constant($constname, (@_ ? $_[0] : 0)); + if ($! == 0) { + *$AUTOLOAD = sub { $val }; + } + else { + croak "Missing constant $constname"; + } + goto &$AUTOLOAD; +} + +=over 2 + +=item $d = Locale::gettext->domain(DOMAIN) + +=item $d = Locale::gettext->domain_raw(DOMAIN) + +Creates a new object for retrieving strings in the domain B<DOMAIN> +and returns it. C<domain> requests that strings be returned as +Perl strings (possibly with wide characters) if possible while +C<domain_raw> requests that octet strings directly from functions +like C<dgettext()>. + +=cut + +sub domain_raw { + my ($class, $domain) = @_; + my $self = { domain => $domain, raw => 1 }; + bless $self, $class; +} + +sub domain { + my ($class, $domain) = @_; + unless ($encode_available) { + croak "Encode module not available, cannot use Locale::gettext->domain"; + } + my $self = { domain => $domain, raw => 0 }; + bless $self, $class; + eval { bind_textdomain_codeset($self->{domain}, "UTF-8"); }; + if ($@ =~ /not implemented/) { + # emulate it + $self->{emulate} = 1; + } elsif ($@ ne '') { + die; # some other problem + } + $self; +} + +=item $d->get(MSGID) + +Calls C<dgettext()> to return the translated string for the given +B<MSGID>. + +=cut + +sub get { + my ($self, $msgid) = @_; + $self->_convert(dgettext($self->{domain}, $msgid)); +} + +=item $d->cget(MSGID, CATEGORY) + +Calls C<dcgettext()> to return the translated string for the given +B<MSGID> in the given B<CATEGORY>. + +=cut + +sub cget { + my ($self, $msgid, $category) = @_; + $self->_convert(dcgettext($self->{domain}, $msgid, $category)); +} + +=item $d->nget(MSGID, MSGID_PLURAL, N) + +Calls C<dngettext()> to return the translated string for the given +B<MSGID> or B<MSGID_PLURAL> depending on B<N>. + +=cut + +sub nget { + my ($self, $msgid, $msgid_plural, $n) = @_; + $self->_convert(dngettext($self->{domain}, $msgid, $msgid_plural, $n)); +} + +=item $d->ncget(MSGID, MSGID_PLURAL, N, CATEGORY) + +Calls C<dngettext()> to return the translated string for the given +B<MSGID> or B<MSGID_PLURAL> depending on B<N> in the given +B<CATEGORY>. + +=cut + +sub ncget { + my ($self, $msgid, $msgid_plural, $n, $category) = @_; + $self->_convert(dcngettext($self->{domain}, $msgid, $msgid_plural, $n, $category)); +} + +=item $d->dir([NEWDIR]) + +If B<NEWDIR> is given, calls C<bindtextdomain> to set the +name of the directory where messages for the domain +represented by C<$d> are found. Returns the (possibly changed) +current directory name. + +=cut + +sub dir { + my ($self, $newdir) = @_; + if (defined($newdir)) { + bindtextdomain($self->{domain}, $newdir); + } else { + bindtextdomain($self->{domain}); + } +} + +=item $d->codeset([NEWCODE]) + +For instances created with C<Locale::gettext-E<gt>domain_raw>, manuiplates +the character set of the returned strings. +If B<NEWCODE> is given, calls C<bind_textdomain_codeset> to set the +character encoding in which messages for the domain +represented by C<$d> are returned. Returns the (possibly changed) +current encoding name. + +=cut + +sub codeset { + my ($self, $codeset) = @_; + if ($self->{raw} < 1) { + warn "Locale::gettext->codeset: meaningful only for instances created with domain_raw"; + return; + } + if (defined($codeset)) { + bind_textdomain_codeset($self->{domain}, $codeset); + } else { + bind_textdomain_codeset($self->{domain}); + } +} + +sub _convert { + my ($self, $str) = @_; + return $str if ($self->{raw}); + # thanks to the use of UTF-8 in bind_textdomain_codeset, the + # result should always be valid UTF-8 when raw mode is not used. + if ($self->{emulate}) { + delete $self->{emulate}; + $self->{raw} = 1; + my $null = $self->get(""); + if ($null =~ /charset=(\S+)/) { + $self->{decode_from} = $1; + $self->{raw} = 0; + } #else matches the behaviour of glibc - no null entry + # means no conversion is done + } + if ($self->{decode_from}) { + return decode($self->{decode_from}, $str); + } else { + return decode_utf8($str); + } +} + +sub DESTROY { + my ($self) = @_; +} + +=back + +gettext(), dgettext(), and dcgettext() attempt to retrieve a string +matching their C<msgid> parameter within the context of the current +locale. dcgettext() takes the message's category and the text domain +as parameters while dgettext() defaults to the LC_MESSAGES category +and gettext() defaults to LC_MESSAGES and uses the current text domain. +If the string is not found in the database, then C<msgid> is returned. + +ngettext(), dngettext(), and dcngettext() function similarily but +implement differentiation of messages between singular and plural. +See the documentation for the corresponding C functions for details. + +textdomain() sets the current text domain and returns the previously +active domain. + +I<bindtextdomain(domain, dirname)> instructs the retrieval functions to look +for the databases belonging to domain C<domain> in the directory +C<dirname> + +I<bind_textdomain_codeset(domain, codeset)> instructs the retrieval +functions to translate the returned messages to the character encoding +given by B<codeset> if the encoding of the message catalog is known. + +=head1 NOTES + +Not all platforms provide all of the functions. Functions that are +not available in the underlying C library will not be available in +Perl either. + +Perl programs should use the object interface. In addition to being +able to return native Perl wide character strings, +C<bind_textdomain_codeset> will be emulated if the C library does +not provide it. + +=head1 VERSION + +1.05. + +=head1 SEE ALSO + +gettext(3i), gettext(1), msgfmt(1) + +=head1 AUTHOR + +Phillip Vandry <vandry@TZoNE.ORG> + +=cut + +1; diff --git a/beagle/debian-rfs/usr/lib/perl5/Text/CharWidth.pm b/beagle/debian-rfs/usr/lib/perl5/Text/CharWidth.pm new file mode 100644 index 0000000..8f8c78d --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl5/Text/CharWidth.pm @@ -0,0 +1,78 @@ +package Text::CharWidth; + +use 5.008; +use strict; +use warnings; + +require Exporter; + +our @ISA = qw(Exporter); +our @EXPORT_OK = qw(mbwidth mbswidth mblen); +our @EXPORT = qw(); +our %EXPORT_TAGS = ('all' => [ @EXPORT_OK ]); + +our $VERSION = '0.04'; + +require XSLoader; +XSLoader::load('Text::CharWidth', $VERSION); + +# Preloaded methods go here. + +1; +__END__ +# Below is stub documentation for your module. You'd better edit it! + +=head1 NAME + +Text::CharWidth - Get number of occupied columns of a string on terminal + +=head1 SYNOPSIS + + use Text::CharWidth qw(mbwidth mbswidth mblen); + mbwidth(string); + mbswidth(string); + mblen(string); + +=head1 DESCRIPTION + +This module supplies features similar as wcwidth(3) and wcswidth(3) +in C language. + +Characters have its own width on terminal depending on locale. +For example, ASCII characters occupy one column per character, +east Asian fullwidth characters (like Hiragana or Han Ideograph) +occupy two columns per character, and combining characters (apperaring +in ISO-8859-11 Thai, Unicode, and so on) occupy zero columns per +character. mbwidth() gives the width of the first character of +the given string and mbswidth() gives the width of the whole given +string. + +The names of mbwidth and mbswidth came from "multibyte" versions +of wcwidth and wcswidth which are "wide character" versions. + +I<mblen(string)> returns number of bytes of the first character of the +string. Please note that a character may consist of multiple +bytes in multibyte encodings such as UTF-8, EUC-JP, EUC-KR, +GB2312, or Big5. + +I<mbwidth(string)> returns the width of the first character of the +string. I<mbswidth(string)> returns the width of the whole string. + +Parameters are to be given in locale encodings, not always in UTF-8. + +=head1 SEE ALSO + +locale(5), wcwidth(3), wcswidth(3) + +=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/lib/perl5/Text/Iconv.pm b/beagle/debian-rfs/usr/lib/perl5/Text/Iconv.pm new file mode 100644 index 0000000..435a33b --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl5/Text/Iconv.pm @@ -0,0 +1,160 @@ +package Text::Iconv; +# @(#) $Id: Iconv.pm,v 1.10 2007/10/17 14:14:22 mxp Exp $ +# Copyright (c) 2007 Michael Piotrowski + +use strict; +use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); + +require Exporter; +require DynaLoader; +require AutoLoader; + +@ISA = qw(Exporter AutoLoader DynaLoader); +# Items to export into callers namespace by default. Note: do not export +# names by default without a very good reason. Use EXPORT_OK instead. +# Do not simply export all your public functions/methods/constants. +@EXPORT_OK = qw( + convert +); +$VERSION = '1.7'; + +bootstrap Text::Iconv $VERSION; + +# Preloaded methods go here. + +# Autoload methods go after =cut, and are processed by the autosplit program. + +1; +__END__ +# Below is the documentation for the module. + +=head1 NAME + +Text::Iconv - Perl interface to iconv() codeset conversion function + +=head1 SYNOPSIS + + use Text::Iconv; + $converter = Text::Iconv->new("fromcode", "tocode"); + $converted = $converter->convert("Text to convert"); + +=head1 DESCRIPTION + +The B<Text::Iconv> module provides a Perl interface to the iconv() +function as defined by the Single UNIX Specification. + +The convert() method converts the encoding of characters in the input +string from the I<fromcode> codeset to the I<tocode> codeset, and +returns the result. + +Settings of I<fromcode> and I<tocode> and their permitted combinations +are implementation-dependent. Valid values are specified in the +system documentation; the iconv(1) utility should also provide a B<-l> +option that lists all supported codesets. + +=head2 Utility methods + +B<Text::Iconv> objects also provide the following methods: + +retval() returns the return value of the underlying iconv() function +for the last conversion; according to the Single UNIX Specification, +this value indicates "the number of non-identical conversions +performed." Note, however, that iconv implementations vary widely in +the interpretation of this specification. + +This method can be called after calling convert(), e.g.: + + $result = $converter->convert("lorem ipsum dolor sit amet"); + $retval = $converter->retval; + +When called before the first call to convert(), or if an error occured +during the conversion, retval() returns B<undef>. + +get_attr(): This method is only available with GNU libiconv, otherwise +it throws an exception. The get_attr() method allows you to query +various attributes which influence the behavior of convert(). The +currently supported attributes are I<trivialp>, I<transliterate>, and +I<discard_ilseq>, e.g.: + + $state = $converter->get_attr("transliterate"); + +See iconvctl(3) for details. To ensure portability to other iconv +implementations you should first check for the availability of this +method using B<eval {}>, e.g.: + + eval { $conv->get_attr("trivialp") }; + if ($@) + { + # get_attr() is not available + } + else + { + # get_attr() is available + } + +This method should be considered experimental. + +set_attr(): This method is only available with GNU libiconv, otherwise +it throws an exception. The set_attr() method allows you to set +various attributes which influence the behavior of convert(). The +currently supported attributes are I<transliterate> and +I<discard_ilseq>, e.g.: + + $state = $converter->set_attr("transliterate"); + +See iconvctl(3) for details. To ensure portability to other iconv +implementations you should first check for the availability of this +method using B<eval {}>, cf. the description of set_attr() above. + +This method should be considered experimental. + +=head1 ERRORS + +If the conversion can't be initialized an exception is raised (using +croak()). + +=head2 Handling of conversion errors + +I<Text::Iconv> provides a class attribute B<raise_error> and a +corresponding class method for setting and getting its value. The +handling of errors during conversion depends on the setting of this +attribute. If B<raise_error> is set to a true value, an exception is +raised; otherwise, the convert() method only returns B<undef>. By +default B<raise_error> is false. Example usage: + + Text::Iconv->raise_error(1); # Conversion errors raise exceptions + Text::Iconv->raise_error(0); # Conversion errors return undef + $a = Text::Iconv->raise_error(); # Get current setting + +=head2 Per-object handling of conversion errors + +As an experimental feature, I<Text::Iconv> also provides an instance +attribute B<raise_error> and a corresponding method for setting and +getting its value. If B<raise_error> is B<undef>, the class-wide +settings apply. If B<raise_error> is 1 or 0 (true or false), the +object settings override the class-wide settings. + +Consult L<iconv(3)> for details on errors that might occur. + +=head2 Conversion of B<undef> + +Converting B<undef>, e.g., + + $converted = $converter->convert(undef); + +always returns B<undef>. This is not considered an error. + +=head1 NOTES + +The supported codesets, their names, the supported conversions, and +the quality of the conversions are all system-dependent. + +=head1 AUTHOR + +Michael Piotrowski <mxp@dynalabs.de> + +=head1 SEE ALSO + +iconv(1), iconv(3) + +=cut diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.bs b/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.bs new file mode 100644 index 0000000..e69de29 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.bs diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.so b/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.so Binary files differnew file mode 100644 index 0000000..72645c0 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.so diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.bs b/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.bs new file mode 100644 index 0000000..e69de29 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.bs diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.so b/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.so Binary files differnew file mode 100644 index 0000000..45266b5 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.so diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.bs b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.bs new file mode 100644 index 0000000..e69de29 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.bs diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.so b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.so Binary files differnew file mode 100644 index 0000000..2e39019 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.so diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/autosplit.ix b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/autosplit.ix new file mode 100644 index 0000000..1caf1ae --- /dev/null +++ b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/autosplit.ix @@ -0,0 +1,3 @@ +# Index created by AutoSplit for blib/lib/Text/Iconv.pm +# (file acts as timestamp) +1; diff --git a/beagle/debian-rfs/usr/lib/pt_chown b/beagle/debian-rfs/usr/lib/pt_chown Binary files differnew file mode 100755 index 0000000..b38fdd1 --- /dev/null +++ b/beagle/debian-rfs/usr/lib/pt_chown diff --git a/beagle/debian-rfs/usr/lib/python2.4/site-packages/debconf.py b/beagle/debian-rfs/usr/lib/python2.4/site-packages/debconf.py new file mode 100644 index 0000000..b046c5c --- /dev/null +++ b/beagle/debian-rfs/usr/lib/python2.4/site-packages/debconf.py @@ -0,0 +1,184 @@ +# Copyright: +# Moshe Zadka (c) 2002 +# Canonical Ltd. (c) 2005 (DebconfCommunicator) +# +# 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. +# +# THIS SOFTWARE IS PROVIDED BY AUTHORS 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 AUTHORS 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. + +import sys, os +import errno +import re +try: + import subprocess + using_subprocess = True +except ImportError: + import popen2 + using_subprocess = False +import fcntl + +class DebconfError(Exception): + pass + +LOW, MEDIUM, HIGH, CRITICAL = 'low', 'medium', 'high', 'critical' + +class Debconf: + + def __init__(self, title=None, read=None, write=None): + for command in ('capb set reset title input beginblock endblock go get' + ' register unregister subst fset fget previous_module' + ' visible purge metaget exist version settitle' + ' info progress data').split(): + self.setCommand(command) + self.read = read or sys.stdin + self.write = write or sys.stdout + sys.stdout = sys.stderr + self.setUp(title) + + def setUp(self, title): + self.version = self.version(2) + if self.version[:2] != '2.': + raise DebconfError(256, "wrong version: %s" % self.version) + self.capabilities = self.capb().split() + if title: + self.title(title) + + def setCommand(self, command): + setattr(self, command, + lambda *args, **kw: self.command(command, *args, **kw)) + + def command(self, command, *params): + command = command.upper() + self.write.write("%s %s\n" % (command, ' '.join(map(str, params)))) + self.write.flush() + + while True: + try: + resp = self.read.readline().rstrip('\n') + break + except IOError, e: + if e.errno == errno.EINTR: + continue + else: + raise + + if ' ' in resp: + status, data = resp.split(' ', 1) + else: + status, data = resp, '' + status = int(status) + if status == 0: + return data + elif status == 1: # unescaped data + unescaped = '' + for chunk in re.split(r'(\\.)', data): + if chunk.startswith('\\') and len(chunk) == 2: + if chunk[1] == 'n': + unescaped += '\n' + else: + unescaped += chunk[1] + else: + unescaped += chunk + return unescaped + else: + raise DebconfError(status, data) + + def stop(self): + self.write.write('STOP\n') + self.write.flush() + + def forceInput(self, priority, question): + try: + self.input(priority, question) + return 1 + except DebconfError, e: + if e.args[0] != 30: + raise + return 0 + + def getBoolean(self, question): + result = self.get(question) + return result == 'true' + + def getString(self, question): + return self.get(question) + + +class DebconfCommunicator(Debconf, object): + def __init__(self, owner, title=None, cloexec=False): + args = ['debconf-communicate', '-fnoninteractive', owner] + if using_subprocess: + self.dccomm = subprocess.Popen(args, stdin=subprocess.PIPE, stdout=subprocess.PIPE, close_fds=True) + read = self.dccomm.stdout + write = self.dccomm.stdin + else: + self.dccomm = popen2.Popen3(args) + read = self.dccomm.fromchild + write = self.dccomm.tochild + super(DebconfCommunicator, self).__init__(title=title, + read=read, + write=write) + if cloexec: + fcntl.fcntl(self.read.fileno(), fcntl.F_SETFD, fcntl.FD_CLOEXEC) + fcntl.fcntl(self.write.fileno(), fcntl.F_SETFD, fcntl.FD_CLOEXEC) + + def shutdown(self): + if self.dccomm is not None: + if using_subprocess: + self.dccomm.stdin.close() + self.dccomm.stdout.close() + else: + self.dccomm.tochild.close() + self.dccomm.fromchild.close() + self.dccomm.wait() + self.dccomm = None + + # Don't rely on this; call .shutdown() explicitly. + def __del__(self): + try: + self.shutdown() + except AttributeError: + pass + + +if ('DEBCONF_USE_CDEBCONF' in os.environ and + os.environ['DEBCONF_USE_CDEBCONF'] != ''): + _frontEndProgram = '/usr/lib/cdebconf/debconf' +else: + _frontEndProgram = '/usr/share/debconf/frontend' + +def runFrontEnd(): + if 'DEBIAN_HAS_FRONTEND' not in os.environ: + os.environ['PERL_DL_NONLAZY']='1' + os.execv(_frontEndProgram, [_frontEndProgram, sys.executable]+sys.argv) + + +if __name__ == '__main__': + runFrontEnd() + db = Debconf() + db.forceInput(CRITICAL, 'bsdmainutils/calendar_lib_is_not_empty') + db.go() + less = db.getBoolean('less/add_mime_handler') + aptlc = db.getString('apt-listchanges/email-address') + db.stop() + print db.version + print db.capabilities + print less + print aptlc diff --git a/beagle/debian-rfs/usr/lib/python2.5/site-packages/debconf.py b/beagle/debian-rfs/usr/lib/python2.5/site-packages/debconf.py new file mode 100644 index 0000000..b046c5c --- /dev/null +++ b/beagle/debian-rfs/usr/lib/python2.5/site-packages/debconf.py @@ -0,0 +1,184 @@ +# Copyright: +# Moshe Zadka (c) 2002 +# Canonical Ltd. (c) 2005 (DebconfCommunicator) +# +# 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. +# +# THIS SOFTWARE IS PROVIDED BY AUTHORS 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 AUTHORS 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. + +import sys, os +import errno +import re +try: + import subprocess + using_subprocess = True +except ImportError: + import popen2 + using_subprocess = False +import fcntl + +class DebconfError(Exception): + pass + +LOW, MEDIUM, HIGH, CRITICAL = 'low', 'medium', 'high', 'critical' + +class Debconf: + + def __init__(self, title=None, read=None, write=None): + for command in ('capb set reset title input beginblock endblock go get' + ' register unregister subst fset fget previous_module' + ' visible purge metaget exist version settitle' + ' info progress data').split(): + self.setCommand(command) + self.read = read or sys.stdin + self.write = write or sys.stdout + sys.stdout = sys.stderr + self.setUp(title) + + def setUp(self, title): + self.version = self.version(2) + if self.version[:2] != '2.': + raise DebconfError(256, "wrong version: %s" % self.version) + self.capabilities = self.capb().split() + if title: + self.title(title) + + def setCommand(self, command): + setattr(self, command, + lambda *args, **kw: self.command(command, *args, **kw)) + + def command(self, command, *params): + command = command.upper() + self.write.write("%s %s\n" % (command, ' '.join(map(str, params)))) + self.write.flush() + + while True: + try: + resp = self.read.readline().rstrip('\n') + break + except IOError, e: + if e.errno == errno.EINTR: + continue + else: + raise + + if ' ' in resp: + status, data = resp.split(' ', 1) + else: + status, data = resp, '' + status = int(status) + if status == 0: + return data + elif status == 1: # unescaped data + unescaped = '' + for chunk in re.split(r'(\\.)', data): + if chunk.startswith('\\') and len(chunk) == 2: + if chunk[1] == 'n': + unescaped += '\n' + else: + unescaped += chunk[1] + else: + unescaped += chunk + return unescaped + else: + raise DebconfError(status, data) + + def stop(self): + self.write.write('STOP\n') + self.write.flush() + + def forceInput(self, priority, question): + try: + self.input(priority, question) + return 1 + except DebconfError, e: + if e.args[0] != 30: + raise + return 0 + + def getBoolean(self, question): + result = self.get(question) + return result == 'true' + + def getString(self, question): + return self.get(question) + + +class DebconfCommunicator(Debconf, object): + def __init__(self, owner, title=None, cloexec=False): + args = ['debconf-communicate', '-fnoninteractive', owner] + if using_subprocess: + self.dccomm = subprocess.Popen(args, stdin=subprocess.PIPE, stdout=subprocess.PIPE, close_fds=True) + read = self.dccomm.stdout + write = self.dccomm.stdin + else: + self.dccomm = popen2.Popen3(args) + read = self.dccomm.fromchild + write = self.dccomm.tochild + super(DebconfCommunicator, self).__init__(title=title, + read=read, + write=write) + if cloexec: + fcntl.fcntl(self.read.fileno(), fcntl.F_SETFD, fcntl.FD_CLOEXEC) + fcntl.fcntl(self.write.fileno(), fcntl.F_SETFD, fcntl.FD_CLOEXEC) + + def shutdown(self): + if self.dccomm is not None: + if using_subprocess: + self.dccomm.stdin.close() + self.dccomm.stdout.close() + else: + self.dccomm.tochild.close() + self.dccomm.fromchild.close() + self.dccomm.wait() + self.dccomm = None + + # Don't rely on this; call .shutdown() explicitly. + def __del__(self): + try: + self.shutdown() + except AttributeError: + pass + + +if ('DEBCONF_USE_CDEBCONF' in os.environ and + os.environ['DEBCONF_USE_CDEBCONF'] != ''): + _frontEndProgram = '/usr/lib/cdebconf/debconf' +else: + _frontEndProgram = '/usr/share/debconf/frontend' + +def runFrontEnd(): + if 'DEBIAN_HAS_FRONTEND' not in os.environ: + os.environ['PERL_DL_NONLAZY']='1' + os.execv(_frontEndProgram, [_frontEndProgram, sys.executable]+sys.argv) + + +if __name__ == '__main__': + runFrontEnd() + db = Debconf() + db.forceInput(CRITICAL, 'bsdmainutils/calendar_lib_is_not_empty') + db.go() + less = db.getBoolean('less/add_mime_handler') + aptlc = db.getString('apt-listchanges/email-address') + db.stop() + print db.version + print db.capabilities + print less + print aptlc diff --git a/beagle/debian-rfs/usr/lib/python2.6/dist-packages/debconf.py b/beagle/debian-rfs/usr/lib/python2.6/dist-packages/debconf.py new file mode 100644 index 0000000..b046c5c --- /dev/null +++ b/beagle/debian-rfs/usr/lib/python2.6/dist-packages/debconf.py @@ -0,0 +1,184 @@ +# Copyright: +# Moshe Zadka (c) 2002 +# Canonical Ltd. (c) 2005 (DebconfCommunicator) +# +# 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. +# +# THIS SOFTWARE IS PROVIDED BY AUTHORS 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 AUTHORS 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. + +import sys, os +import errno +import re +try: + import subprocess + using_subprocess = True +except ImportError: + import popen2 + using_subprocess = False +import fcntl + +class DebconfError(Exception): + pass + +LOW, MEDIUM, HIGH, CRITICAL = 'low', 'medium', 'high', 'critical' + +class Debconf: + + def __init__(self, title=None, read=None, write=None): + for command in ('capb set reset title input beginblock endblock go get' + ' register unregister subst fset fget previous_module' + ' visible purge metaget exist version settitle' + ' info progress data').split(): + self.setCommand(command) + self.read = read or sys.stdin + self.write = write or sys.stdout + sys.stdout = sys.stderr + self.setUp(title) + + def setUp(self, title): + self.version = self.version(2) + if self.version[:2] != '2.': + raise DebconfError(256, "wrong version: %s" % self.version) + self.capabilities = self.capb().split() + if title: + self.title(title) + + def setCommand(self, command): + setattr(self, command, + lambda *args, **kw: self.command(command, *args, **kw)) + + def command(self, command, *params): + command = command.upper() + self.write.write("%s %s\n" % (command, ' '.join(map(str, params)))) + self.write.flush() + + while True: + try: + resp = self.read.readline().rstrip('\n') + break + except IOError, e: + if e.errno == errno.EINTR: + continue + else: + raise + + if ' ' in resp: + status, data = resp.split(' ', 1) + else: + status, data = resp, '' + status = int(status) + if status == 0: + return data + elif status == 1: # unescaped data + unescaped = '' + for chunk in re.split(r'(\\.)', data): + if chunk.startswith('\\') and len(chunk) == 2: + if chunk[1] == 'n': + unescaped += '\n' + else: + unescaped += chunk[1] + else: + unescaped += chunk + return unescaped + else: + raise DebconfError(status, data) + + def stop(self): + self.write.write('STOP\n') + self.write.flush() + + def forceInput(self, priority, question): + try: + self.input(priority, question) + return 1 + except DebconfError, e: + if e.args[0] != 30: + raise + return 0 + + def getBoolean(self, question): + result = self.get(question) + return result == 'true' + + def getString(self, question): + return self.get(question) + + +class DebconfCommunicator(Debconf, object): + def __init__(self, owner, title=None, cloexec=False): + args = ['debconf-communicate', '-fnoninteractive', owner] + if using_subprocess: + self.dccomm = subprocess.Popen(args, stdin=subprocess.PIPE, stdout=subprocess.PIPE, close_fds=True) + read = self.dccomm.stdout + write = self.dccomm.stdin + else: + self.dccomm = popen2.Popen3(args) + read = self.dccomm.fromchild + write = self.dccomm.tochild + super(DebconfCommunicator, self).__init__(title=title, + read=read, + write=write) + if cloexec: + fcntl.fcntl(self.read.fileno(), fcntl.F_SETFD, fcntl.FD_CLOEXEC) + fcntl.fcntl(self.write.fileno(), fcntl.F_SETFD, fcntl.FD_CLOEXEC) + + def shutdown(self): + if self.dccomm is not None: + if using_subprocess: + self.dccomm.stdin.close() + self.dccomm.stdout.close() + else: + self.dccomm.tochild.close() + self.dccomm.fromchild.close() + self.dccomm.wait() + self.dccomm = None + + # Don't rely on this; call .shutdown() explicitly. + def __del__(self): + try: + self.shutdown() + except AttributeError: + pass + + +if ('DEBCONF_USE_CDEBCONF' in os.environ and + os.environ['DEBCONF_USE_CDEBCONF'] != ''): + _frontEndProgram = '/usr/lib/cdebconf/debconf' +else: + _frontEndProgram = '/usr/share/debconf/frontend' + +def runFrontEnd(): + if 'DEBIAN_HAS_FRONTEND' not in os.environ: + os.environ['PERL_DL_NONLAZY']='1' + os.execv(_frontEndProgram, [_frontEndProgram, sys.executable]+sys.argv) + + +if __name__ == '__main__': + runFrontEnd() + db = Debconf() + db.forceInput(CRITICAL, 'bsdmainutils/calendar_lib_is_not_empty') + db.go() + less = db.getBoolean('less/add_mime_handler') + aptlc = db.getString('apt-listchanges/email-address') + db.stop() + print db.version + print db.capabilities + print less + print aptlc diff --git a/beagle/debian-rfs/usr/sbin/add-shell b/beagle/debian-rfs/usr/sbin/add-shell new file mode 100755 index 0000000..f7a4a55 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/add-shell @@ -0,0 +1,40 @@ +#!/bin/sh -e + +if test $# -eq 0 +then + echo usage: $0 shellname [shellname ...] + exit 1 +fi + +file=/etc/shells +# I want this to be GUARANTEED to be on the same filesystem as $file +tmpfile=${file}.tmp + +set -o noclobber + +trap "rm -f $tmpfile" EXIT + +if ! cat $file > $tmpfile +then + cat 1>&2 <<EOF +Either another instance of $0 is running, or it was previously interrupted. +Please examine ${tmpfile} to see if it should be moved onto ${file}. +EOF + exit 1 +fi + +for i +do + if ! grep -q "^${i}$" $tmpfile + then + echo $i >> $tmpfile + fi +done + +chmod --reference=$file $tmpfile +chown --reference=$file $tmpfile + +mv $tmpfile $file + +trap "" EXIT +exit 0 diff --git a/beagle/debian-rfs/usr/sbin/chgpasswd b/beagle/debian-rfs/usr/sbin/chgpasswd Binary files differnew file mode 100755 index 0000000..d261758 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/chgpasswd diff --git a/beagle/debian-rfs/usr/sbin/chpasswd b/beagle/debian-rfs/usr/sbin/chpasswd Binary files differnew file mode 100755 index 0000000..cf9ca2d --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/chpasswd diff --git a/beagle/debian-rfs/usr/sbin/chroot b/beagle/debian-rfs/usr/sbin/chroot Binary files differnew file mode 100755 index 0000000..8e51cd4 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/chroot diff --git a/beagle/debian-rfs/usr/sbin/cpgr b/beagle/debian-rfs/usr/sbin/cpgr new file mode 120000 index 0000000..d41955f --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/cpgr @@ -0,0 +1 @@ +cppw
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/sbin/cppw b/beagle/debian-rfs/usr/sbin/cppw Binary files differnew file mode 100755 index 0000000..27d81e0 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/cppw diff --git a/beagle/debian-rfs/usr/sbin/cytune b/beagle/debian-rfs/usr/sbin/cytune Binary files differnew file mode 100755 index 0000000..ff5d99a --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/cytune diff --git a/beagle/debian-rfs/usr/sbin/dpkg-divert b/beagle/debian-rfs/usr/sbin/dpkg-divert new file mode 120000 index 0000000..7668cac --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/dpkg-divert @@ -0,0 +1 @@ +../bin/dpkg-divert
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/sbin/dpkg-preconfigure b/beagle/debian-rfs/usr/sbin/dpkg-preconfigure new file mode 100755 index 0000000..0a86b9a --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/dpkg-preconfigure @@ -0,0 +1,147 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + + +BEGIN { + eval qq{ + use strict; + use FileHandle; + use Debconf::Log qw(:all); + use Debconf::Db; + use Debconf::Template; + use Debconf::Config; + use Debconf::AutoSelect qw(:all); + use Debconf::Gettext; + }; + if ($@) { + print STDERR "debconf: Perl may be unconfigured ($@) -- aborting\n"; + exit 0; + } +} + +Debconf::Db->load; + +my $apt=0; +Debconf::Config->getopt( +qq{Usage: dpkg-preconfigure [options] [debs] + --apt Apt mode.}, + "apt" => \$apt, +); + +$|=1; + +my @debs=@ARGV; +@ARGV=(); + +my $have_tty=1; + +if ($apt) { + while (<>) { + chomp; + push @debs, $_ if length $_; + } + + exit unless @debs; + + $have_tty=0 unless open (STDIN, "/dev/tty"); +} +elsif (! @debs) { + print STDERR sprintf("dpkg-preconfigure: ".gettext("must specify some debs to preconfigure")), "\n"; + exit(1); +} + +if (! -x "/usr/bin/apt-extracttemplates") { + warn gettext("delaying package configuration, since apt-utils is not installed"); + exit; +} + +my $frontend=make_frontend(); + +if (! $have_tty && $frontend->need_tty) { + print STDERR sprintf("dpkg-preconfigure: ".gettext("unable to re-open stdin: %s"), $!)."\n"; + exit 0; +} + +my ($package, $version, $template, $config); +unless (open(INFO, "-|")) { + my $command_max=20000; # LINUX SPECIFIC!! + my $static_len=length("apt-extracttemplates"); + my $len=$static_len; + my @collect; + if ($apt && @debs > 30) { + STDERR->autoflush(1); + } + foreach my $deb (@debs) { + $len += length($deb) + 1; + if ($len < $command_max && @collect < 30) { + push @collect, $deb; + } + else { + if (system("apt-extracttemplates", @collect) != 0) { + print STDERR sprintf("debconf: ".gettext("apt-extracttemplates failed: %s")."\n",$!); + } + if ($apt && @debs > 30) { + $progress += @collect; + printf STDERR "\r".gettext("Extracting templates from packages: %d%%"), $progress * 100 / @debs; + } + + @collect=($deb); + $len=$static_len + length($deb) + 1; + } + } + if (system("apt-extracttemplates", @collect) != 0) { + print STDERR sprintf("debconf: ".gettext("apt-extracttemplates failed: %s")."\n",$!); + } + if ($apt && @debs > 30) { + $progress += @collect; + printf STDERR "\r".gettext("Extracting templates from packages: %d%%")."\n", $progress * 100 / @debs; + } + exit; +} +my @buffer=<INFO>; +if ($apt && @buffer) { + print gettext("Preconfiguring packages ...\n"); +} +foreach my $line (@buffer) { + ($package, $version, $template, $config)=split /\s/, $line; + + if (defined $template && length $template) { + eval q{ + Debconf::Template->load($template, $package) + }; + unlink $template; + if ($@) { + print STDERR "$package ".sprintf(gettext("template parse error: %s"), $@)."\n"; + unlink $config; + next; + } + } +} + +foreach my $line (@buffer) { + ($package, $version, $template, $config)=split /\s/, $line; + + if (defined $config && length $config && -e $config) { + debug user => sprintf("preconfiguring %s (%s)",$package,$version); + chmod(0755, $config) or + die sprintf(gettext("debconf: can't chmod: %s"), $!); + $frontend->default_title($package); + $frontend->info(undef); + my $confmodule=make_confmodule($config, 'configure', $version); + $confmodule->owner($package); + 1 while ($confmodule->communicate); + if ($confmodule->exitcode > 0) { + print STDERR sprintf( + gettext("%s failed to preconfigure, with exit status %s"), + $package, $confmodule->exitcode)."\n"; + } + unlink $config; + } +} + +$frontend->shutdown; + +Debconf::Db->save; + + diff --git a/beagle/debian-rfs/usr/sbin/dpkg-reconfigure b/beagle/debian-rfs/usr/sbin/dpkg-reconfigure new file mode 100755 index 0000000..e63684f --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/dpkg-reconfigure @@ -0,0 +1,159 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + + +my $infodir="/var/lib/dpkg/info"; + +use strict; +use Debconf::Db; +use Debconf::Gettext; +use Debconf::Template; +use Debconf::Config; +use Debconf::AutoSelect qw(:all); +use Debconf::Log qw(:all); + +Debconf::Config->priority('low'); + +my $unseen_only=0; +my $all=0; +my $force=0; +my $default_priority=0; +my $reload=1; +Debconf::Config->getopt( +gettext(qq{Usage: dpkg-reconfigure [options] packages + -a, --all Reconfigure all packages. + -u, --unseen-only Show only not yet seen questions. + --default-priority Use default priority instead of low. + --force Force reconfiguration of broken packages. + --no-reload Do not reload templates. (Use with caution.)}), + "all|a" => \$all, + "unseen-only|u" => \$unseen_only, + "default-priority" => \$default_priority, + "force" => \$force, + "reload!" => \$reload, +); + +if ($> != 0) { + print STDERR sprintf(gettext("%s must be run as root"), $0)."\n"; + exit 1; +} + +Debconf::Db->load; + +if ($default_priority) { + Debconf::Config->priority(Debconf::Question->get('debconf/priority')->value); +} + +if (lc Debconf::Config->frontend eq 'noninteractive' && + ! Debconf::Config->frontend_forced) { + Debconf::Config->frontend('dialog'); +} + +my $frontend=make_frontend(); + +unless ($unseen_only) { + Debconf::Config->reshow(1); +} + +my @packages; +if ($all) { + @packages=allpackages(); + exit unless @packages; +} +else { + @packages=@ARGV; + if (! @packages) { + print STDERR "$0: ".gettext("please specify a package to reconfigure")."\n"; + exit 1; + } +} + +$ENV{DEBCONF_RECONFIGURE}=1; + +foreach my $pkg (@packages) { + $frontend->default_title($pkg); + $frontend->info(undef); + + $_=`dpkg --status $pkg`; + my ($version)=m/Version: (.*)\n/; + my ($status)=m/Status: (.*)\n/; + if (! $force) { + if (! defined $status || $status =~ m/not-installed$/) { + print STDERR "$0: ".sprintf(gettext("%s is not installed"), $pkg)."\n"; + exit 1; + } + if ($status !~ m/ ok installed$/) { + print STDERR "$0: ".sprintf(gettext("%s is broken or not fully installed"), $pkg)."\n"; + exit 1; + } + } + + if ($reload) { + Debconf::Template->load("$infodir/$pkg.templates", $pkg) + if -e "$infodir/$pkg.templates"; + } + + foreach my $info (['prerm', 'upgrade', $version], + ['config', 'reconfigure', $version], + ['postinst', 'configure', $version]) { + my $script=shift @$info; + next unless -x "$infodir/$pkg.$script"; + + my $is_confmodule=''; + + if ($script ne 'config') { + open (IN, "<$infodir/$pkg.$script"); + while (<IN>) { + if (/confmodule/i) { + $is_confmodule=1; + last; + } + } + close IN; + } + + if ($script eq 'config' || $is_confmodule) { + my $confmodule=make_confmodule( + "$infodir/$pkg.$script", @$info); + + $confmodule->owner($pkg); + + 1 while ($confmodule->communicate); + + exit $confmodule->exitcode if $confmodule->exitcode > 0; + } + else { + Debconf::Db->save; + + delete $ENV{DEBIAN_HAS_FRONTEND}; + my $ret=system("$infodir/$pkg.$script", @$info); + if (int($ret / 256) != 0) { + exit int($ret / 256); + } + $ENV{DEBIAN_HAS_FRONTEND}=1; + + Debconf::Db->load; + } + } +} + +$frontend->shutdown; + +Debconf::Db->save; + +sub allpackages { + my @ret; + local $/="\n\n"; + + open (STATUS, "</var/lib/dpkg/status") + || die sprintf(gettext("Cannot read status file: %s"), $!); + while (<STATUS>) { + push @ret, $1 + if m/Status:\s*.*\sinstalled\n/ && m/Package:\s*(.*)\n/; + } + close STATUS; + + return sort @ret; +} + diff --git a/beagle/debian-rfs/usr/sbin/dpkg-statoverride b/beagle/debian-rfs/usr/sbin/dpkg-statoverride new file mode 120000 index 0000000..d1bbaa0 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/dpkg-statoverride @@ -0,0 +1 @@ +../bin/dpkg-statoverride
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/sbin/e2freefrag b/beagle/debian-rfs/usr/sbin/e2freefrag Binary files differnew file mode 100755 index 0000000..112cbd2 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/e2freefrag diff --git a/beagle/debian-rfs/usr/sbin/fdformat b/beagle/debian-rfs/usr/sbin/fdformat Binary files differnew file mode 100755 index 0000000..9bf81ce --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/fdformat diff --git a/beagle/debian-rfs/usr/sbin/filefrag b/beagle/debian-rfs/usr/sbin/filefrag Binary files differnew file mode 100755 index 0000000..7224cc1 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/filefrag diff --git a/beagle/debian-rfs/usr/sbin/groupadd b/beagle/debian-rfs/usr/sbin/groupadd Binary files differnew file mode 100755 index 0000000..9783a89 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/groupadd diff --git a/beagle/debian-rfs/usr/sbin/groupdel b/beagle/debian-rfs/usr/sbin/groupdel Binary files differnew file mode 100755 index 0000000..e71f295 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/groupdel diff --git a/beagle/debian-rfs/usr/sbin/groupmod b/beagle/debian-rfs/usr/sbin/groupmod Binary files differnew file mode 100755 index 0000000..7699b63 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/groupmod diff --git a/beagle/debian-rfs/usr/sbin/grpck b/beagle/debian-rfs/usr/sbin/grpck Binary files differnew file mode 100755 index 0000000..9c2930d --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/grpck diff --git a/beagle/debian-rfs/usr/sbin/grpconv b/beagle/debian-rfs/usr/sbin/grpconv Binary files differnew file mode 100755 index 0000000..e037b30 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/grpconv diff --git a/beagle/debian-rfs/usr/sbin/grpunconv b/beagle/debian-rfs/usr/sbin/grpunconv Binary files differnew file mode 100755 index 0000000..f2e020c --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/grpunconv diff --git a/beagle/debian-rfs/usr/sbin/iconvconfig b/beagle/debian-rfs/usr/sbin/iconvconfig Binary files differnew file mode 100755 index 0000000..fd20548 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/iconvconfig diff --git a/beagle/debian-rfs/usr/sbin/install-info b/beagle/debian-rfs/usr/sbin/install-info Binary files differnew file mode 100755 index 0000000..6f13a86 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/install-info diff --git a/beagle/debian-rfs/usr/sbin/invoke-rc.d b/beagle/debian-rfs/usr/sbin/invoke-rc.d new file mode 100755 index 0000000..e5887ee --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/invoke-rc.d @@ -0,0 +1,464 @@ +#!/bin/sh +# +# invoke-rc.d.sysvinit - Executes initscript actions +# +# SysVinit /etc/rc?.d version for Debian's sysvinit package +# +# Copyright (C) 2000,2001 Henrique de Moraes Holschuh <hmh@debian.org> +# +# 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 St, Fifth Floor, Boston, MA 02110-1301, USA. + +# Constants +RUNLEVEL=/sbin/runlevel +POLICYHELPER=/usr/sbin/policy-rc.d +INITDPREFIX=/etc/init.d/ +RCDPREFIX=/etc/rc + +# Options +BEQUIET= +MODE= +ACTION= +FALLBACK= +NOFALLBACK= +FORCE= +RETRY= +RETURNFAILURE= +RC= + +# Shell options +set +e + +dohelp () { + # + # outputs help and usage + # +cat <<EOF + +invoke-rc.d, Debian/SysVinit (/etc/rc?.d) initscript subsystem. +Copyright (c) 2000,2001 Henrique de Moraes Holschuh <hmh@debian.org> + +Usage: + invoke-rc.d [options] <basename> <action> [extra parameters] + + basename - Initscript ID, as per update-rc.d(8) + action - Initscript action. Known actions are: + start, [force-]stop, restart, + [force-]reload, status + WARNING: not all initscripts implement all of the above actions. + + extra parameters are passed as is to the initscript, following + the action (first initscript parameter). + +Options: + --quiet + Quiet mode, no error messages are generated. + --force + Try to run the initscript regardless of policy and subsystem + non-fatal errors. + --try-anyway + Try to run init script even if a non-fatal error is found. + --disclose-deny + Return status code 101 instead of status code 0 if + initscript action is denied by local policy rules or + runlevel constrains. + --query + Returns one of status codes 100-106, does not run + the initscript. Implies --disclose-deny and --no-fallback. + --no-fallback + Ignores any fallback action requests by the policy layer. + Warning: this is usually a very *bad* idea for any actions + other than "start". + --help + Outputs help message to stdout + +EOF +} + +printerror () { + # + # prints an error message + # $* - error message + # +if test x${BEQUIET} = x ; then + echo `basename $0`: "$*" >&2 +fi +} + +formataction () { + # + # formats a list in $* into $printaction + # for human-friendly printing to stderr + # and sets $naction to action or actions + # +printaction=`echo $* | sed 's/ /, /g'` +if test $# -eq 1 ; then + naction=action +else + naction=actions +fi +} + +querypolicy () { + # + # queries policy database + # returns: $RC = 104 - ok, run + # $RC = 101 - ok, do not run + # other - exit with status $RC, maybe run if $RETRY + # initial status of $RC is taken into account. + # + +policyaction="${ACTION}" +if test x${RC} = "x101" ; then + if test "${ACTION}" = "start" || test "${ACTION}" = "restart" ; then + policyaction="(${ACTION})" + fi +fi + +if test "x${POLICYHELPER}" != x && test -x "${POLICYHELPER}" ; then + FALLBACK=`${POLICYHELPER} ${BEQUIET} ${INITSCRIPTID} "${policyaction}" ${RL}` + RC=$? + formataction ${ACTION} + case ${RC} in + 0) RC=104 + ;; + 1) RC=105 + ;; + 101) if test x${FORCE} != x ; then + printerror Overriding policy-rc.d denied execution of ${printaction}. + RC=104 + else + printerror policy-rc.d denied execution of ${printaction}. + fi + ;; + esac + if test x${MODE} != xquery ; then + case ${RC} in + 105) printerror policy-rc.d query returned \"behaviour undefined\", + printerror assuming \"${printaction}\" is allowed. + RC=104 + ;; + 106) formataction ${FALLBACK} + if test x${FORCE} = x ; then + if test x${NOFALLBACK} = x ; then + ACTION="${FALLBACK}" + printerror executing ${naction} \"${printaction}\" instead due to policy-rc.d request. + RC=104 + else + printerror ignoring policy-rc.d fallback request: ${printaction}. + RC=101 + fi + else + printerror ignoring policy-rc.d fallback request: ${printaction}. + RC=104 + fi + ;; + esac + fi + case ${RC} in + 100|101|102|103|104|105|106) ;; + *) printerror WARNING: policy-rc.d returned unexpected error status ${RC}, 102 used instead. + RC=102 + ;; + esac +else + if test x${RC} = x ; then + RC=104 + fi +fi +return +} + +verifyparameter () { + # + # Verifies if $1 is not null, and $# = 1 + # +if test $# -eq 0 ; then + printerror syntax error: invalid empty parameter + exit 103 +elif test $# -ne 1 ; then + printerror syntax error: embedded blanks are not allowed in \"$*\" + exit 103 +fi +return +} + +## +## main +## + +## Verifies command line arguments + +if test $# -eq 0 ; then + printerror syntax error: missing required parameter, --help assumed + dohelp + exit 103 +fi + +state=I +while test $# -gt 0 && test ${state} != III ; do + case "$1" in + --help) dohelp + exit 0 + ;; + --quiet) BEQUIET=--quiet + ;; + --force) FORCE=yes + RETRY=yes + ;; + --try-anyway) + RETRY=yes + ;; + --disclose-deny) + RETURNFAILURE=yes + ;; + --query) MODE=query + RETURNFAILURE=yes + ;; + --no-fallback) + NOFALLBACK=yes + ;; + --*) printerror syntax error: unknown option \"$1\" + exit 103 + ;; + *) case ${state} in + I) verifyparameter $1 + INITSCRIPTID=$1 + ;; + II) verifyparameter $1 + ACTION=$1 + ;; + esac + state=${state}I + ;; + esac + shift +done + +if test ${state} != III ; then + printerror syntax error: missing required parameter + exit 103 +fi + +#NOTE: It may not be obvious, but "$@" from this point on must expand +#to the extra initscript parameters, except inside functions. + +## sanity checks and just-in-case warnings. +case ${ACTION} in + start|stop|force-stop|restart|reload|force-reload|status) + ;; + *) + if test "x${POLICYHELPER}" != x && test -x "${POLICYHELPER}" ; then + printerror action ${ACTION} is unknown, but proceeding anyway. + fi + ;; +esac + +## Verifies if the given initscript ID is known +## For sysvinit, this error is critical +if test ! -f "${INITDPREFIX}${INITSCRIPTID}" ; then + printerror unknown initscript, ${INITDPREFIX}${INITSCRIPTID} not found. + exit 100 +fi + +## Queries sysvinit for the current runlevel +RL=`${RUNLEVEL} | sed 's/.*\ //'` +if test ! $? ; then + printerror "could not determine current runlevel" + if test x${RETRY} = x ; then + exit 102 + fi + RL= +fi + +## Running ${RUNLEVEL} to get current runlevel do not work in the boot +## runlevel (scripts in /etc/rcS.d/), as /var/run/utmp contain +## runlevel 0 or 6 (written at shutdown) at that point. +if test x${RL} = x0 || test x${RL} = x6 ; then + if ps -fp 1 | grep -q 'init boot' ; then + RL=S + fi +fi + +## Handles shutdown sequences VERY safely +## i.e.: forget about policy, and do all we can to run the script. +## BTW, why the heck are we being run in a shutdown runlevel?! +if test x${RL} = x0 || test x${RL} = x6 ; then + FORCE=yes + RETRY=yes + POLICYHELPER= + BEQUIET= + printerror "-----------------------------------------------------" + printerror "WARNING: 'invoke-rc.d ${INITSCRIPTID} ${ACTION}' called" + printerror "during shutdown sequence." + printerror "enabling safe mode: initscript policy layer disabled" + printerror "-----------------------------------------------------" +fi + +## Verifies the existance of proper S??initscriptID and K??initscriptID +## *links* in the proper /etc/rc?.d/ directory +verifyrclink () { + # + # verifies if parameters are non-dangling symlinks + # all parameters are verified + # + doexit= + while test $# -gt 0 ; do + if test ! -L "$1" ; then + printerror not a symlink: $1 + doexit=102 + fi + if test ! -f "$1" ; then + printerror dangling symlink: $1 + doexit=102 + fi + shift + done + if test x${doexit} != x && test x${RETRY} = x; then + exit ${doexit} + fi + return 0 +} + +# we do handle multiple links per runlevel +# but we don't handle embedded blanks in link names :-( +if test x${RL} != x ; then + SLINK=`ls -d -Q ${RCDPREFIX}${RL}.d/S[0-9][0-9]${INITSCRIPTID} 2>/dev/null | xargs` + KLINK=`ls -d -Q ${RCDPREFIX}${RL}.d/K[0-9][0-9]${INITSCRIPTID} 2>/dev/null | xargs` + SSLINK=`ls -d -Q ${RCDPREFIX}S.d/S[0-9][0-9]${INITSCRIPTID} 2>/dev/null | xargs` + + verifyrclink ${SLINK} ${KLINK} ${SSLINK} +fi + +testexec () { + # + # returns true if any of the parameters is + # executable (after following links) + # + while test $# -gt 0 ; do + if test -x "$1" ; then + return 0 + fi + shift + done + return 1 +} + +RC= + +### +### LOCAL INITSCRIPT POLICY: Enforce need of a start entry +### in either runlevel S or current runlevel to allow start +### or restart. +### +case ${ACTION} in + start|restart) + if testexec ${SLINK} ; then + RC=104 + elif testexec ${KLINK} ; then + RC=101 + elif testexec ${SSLINK} ; then + RC=104 + fi + ;; +esac + +# test if /etc/init.d/initscript is actually executable +if testexec "${INITDPREFIX}${INITSCRIPTID}" ; then + if test x${RC} = x && test x${MODE} = xquery ; then + RC=105 + fi + + # call policy layer + querypolicy + case ${RC} in + 101|104) + ;; + *) if test x${MODE} != xquery ; then + printerror policy-rc.d returned error status ${RC} + if test x${RETRY} = x ; then + exit ${RC} + else + RC=102 + fi + fi + ;; + esac +else + ### + ### LOCAL INITSCRIPT POLICY: non-executable initscript; deny exec. + ### (this is common sense, actually :^P ) + ### + RC=101 +fi + +## Handles --query +if test x${MODE} = xquery ; then + exit ${RC} +fi + + +setechoactions () { + if test $# -gt 1 ; then + echoaction=true + else + echoaction= + fi +} +getnextaction () { + saction=$1 + shift + ACTION="$@" +} + +## Executes initscript +## note that $ACTION is a space-separated list of actions +## to be attempted in order until one suceeds. +if test x${FORCE} != x || test ${RC} -eq 104 ; then + if testexec "${INITDPREFIX}${INITSCRIPTID}" ; then + RC=102 + setechoactions ${ACTION} + while test ! -z "${ACTION}" ; do + getnextaction ${ACTION} + if test ! -z ${echoaction} ; then + printerror executing initscript action \"${saction}\"... + fi + + "${INITDPREFIX}${INITSCRIPTID}" "${saction}" "$@" && exit 0 + RC=$? + + if test ! -z "${ACTION}" ; then + printerror action \"${saction}\" failed, trying next action... + fi + done + printerror initscript ${INITSCRIPTID}, action \"${saction}\" failed. + exit ${RC} + fi + exit 102 +fi + +## Handles --disclose-deny and denied "status" action (bug #381497) +if test ${RC} -eq 101 && test x${RETURNFAILURE} = x ; then + if test "x${ACTION%% *}" = "xstatus"; then + printerror emulating initscript action \"status\", returning \"unknown\" + RC=4 + else + RC=0 + fi +else + formataction ${ACTION} + printerror initscript ${naction} \"${printaction}\" not executed. +fi + +exit ${RC} diff --git a/beagle/debian-rfs/usr/sbin/ldattach b/beagle/debian-rfs/usr/sbin/ldattach Binary files differnew file mode 100755 index 0000000..b676705 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/ldattach diff --git a/beagle/debian-rfs/usr/sbin/mklost+found b/beagle/debian-rfs/usr/sbin/mklost+found Binary files differnew file mode 100755 index 0000000..bbd671d --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/mklost+found diff --git a/beagle/debian-rfs/usr/sbin/newusers b/beagle/debian-rfs/usr/sbin/newusers Binary files differnew file mode 100755 index 0000000..a91875a --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/newusers diff --git a/beagle/debian-rfs/usr/sbin/nologin b/beagle/debian-rfs/usr/sbin/nologin Binary files differnew file mode 100755 index 0000000..4abb9b9 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/nologin diff --git a/beagle/debian-rfs/usr/sbin/pam-auth-update b/beagle/debian-rfs/usr/sbin/pam-auth-update new file mode 100755 index 0000000..7010cdc --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/pam-auth-update @@ -0,0 +1,697 @@ +#!/usr/bin/perl -w + +# pam-auth-update: update /etc/pam.d/common-* from /usr/share/pam-configs +# +# Update the /etc/pam.d/common-* files based on the per-package profiles +# provided in /usr/share/pam-configs/ taking into consideration user's +# preferences (as determined via debconf prompting). +# +# Written by Steve Langasek <steve.langasek@canonical.com> +# +# Copyright (C) 2008 Canonical Ltd. +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of version 3 of the GNU General Public License as +# published by the Free Software Foundation. +# +# # 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 St, Fifth Floor, Boston, MA 02110-1301, +# USA. + +use strict; +use Debconf::Client::ConfModule ':all'; +use IPC::Open2 'open2'; + +version('2.0'); +my $capb=capb('backup escape'); + +my $inputdir = '/usr/share/pam-configs'; +my $template = 'libpam-runtime/profiles'; +my $errtemplate = 'libpam-runtime/conflicts'; +my $overridetemplate = 'libpam-runtime/override'; +my $blanktemplate = 'libpam-runtime/no_profiles_chosen'; +my $confdir = '/etc/pam.d'; +my $savedir = '/var/lib/pam'; +my (%profiles, @sorted, @enabled, @conflicts, @new, %removals); +my $force = 0; +my $package = 0; +my $priority = 'high'; +my %md5sums = ( + 'auth' => ['8d4fe17e66ba25de16a117035d1396aa'], + 'account' => ['3c0c362eaf3421848b679d63fd48c3fa'], + 'password' => [ + '50fce2113dfda83ac8bdd5a6e706caec', + '4bd7610f2e85f8ddaef79c7db7cb49eb', + '9ba753d0824276b44bcadfee1f87b6bc', + ], + 'session' => [ + '240fb92986c885b327cdb21dd641da8c', + '4a25673e8b36f1805219027d3be02cd2', + ], + 'session-noninteractive' => [ + 'ad2b78ce1498dd637ef36469430b6ac6', + ], +); + +opendir(DIR, $inputdir) || die "could not open config directory: $!"; +while (my $profile = readdir(DIR)) { + next if ($profile eq '.' || $profile eq '..'); + %{$profiles{$profile}} = parse_pam_profile($inputdir . '/' . $profile); +} +closedir DIR; + +# use a '--force' arg to specify that /etc/pam.d should be overwritten; +# used only on upgrades where the postinst has already determined that the +# checksums match. Module packages other than libpam-runtime itself must +# NEVER use this option! Document with big skullses and crossboneses! It +# needs to be exposed for libpam-runtime because that's the package that +# decides whether we have a pristine config to be converted, and knows +# whether the version being upgraded from is one for which the conversion +# should be done. + +while ($#ARGV >= 0) { + my $opt = shift; + if ($opt eq '--force') { + $force = 1; + } elsif ($opt eq '--package') { + $package = 1; + } elsif ($opt eq '--remove') { + while ($#ARGV >= 0) { + last if ($ARGV[0] =~ /^--/); + $removals{shift @ARGV} = 1; + } + # --remove implies --package + $package = 1 if (keys(%removals)); + } +} + +$priority = 'medium' if ($package); + +x_loadtemplatefile('/var/lib/dpkg/info/libpam-runtime.templates','libpam-runtime'); + +# always sort by priority, so we have consistency and don't have to +# shuffle later +@sorted = sort { $profiles{$b}->{'Priority'} <=> $profiles{$a}->{'Priority'} + || $b cmp $a } + keys(%profiles); +# If we're being called for package removal, filter out those options here +@sorted = grep { !$removals{$_} } @sorted; + +subst($template, 'profile_names', join(', ',@sorted)); +subst($template, 'profiles', + join(', ', map { $profiles{$_}->{'Name'} } @sorted)); + +my $diff = diff_profiles($confdir,$savedir); + +if ($diff) { + @enabled = grep { !$removals{$_} } @{$diff->{'mods'}}; +} else { + @enabled = split(/, /,get($template)); +} + +# find out what we've seen, so we can ignore those defaults +my %seen; +if (-e $savedir . '/seen') { + open(SEEN,$savedir . '/seen'); + while (<SEEN>) { + chomp; + $seen{$_} = 1; + } + close(SEEN); +} + +# filter out any options that are no longer available for any reason +@enabled = grep { $profiles{$_} } @enabled; + +# an empty module set is an error, so in that case grab all the defaults +if (!@enabled) { + %seen = (); + $priority = 'high' unless ($force); +} + +# add any previously-unseen configs +push(@enabled, + grep { $profiles{$_}->{'Default'} eq 'yes' && !$seen{$_} } @sorted); +@enabled = sort { $profiles{$b}->{'Priority'} <=> $profiles{$a}->{'Priority'} + || $b cmp $a } + @enabled; +my $prev = ''; +@enabled = grep { $_ ne $prev && (($prev) = $_) } @enabled; + +# Do we have any new options to show? If not, we shouldn't reprompt the +# user, at any priority level, unless explicitly called. +@new = grep { !$seen{$_} } @sorted; + +# if diff_profiles() fails, and we weren't passed a 'force' argument +# (because this isn't an upgrade from an old version, or the checksum +# didn't match, or we're being called by some other module package), prompt +# the user whether to override. If the user declines (the default), we +# never again manage this config unless manually called with '--force'. +if (!$diff && !$force) { + input('high',$overridetemplate); + go(); + $force = 1 if (get($overridetemplate) eq 'true'); +} + +if (!$diff && !$force) { + print STDERR <<EOF; + +pam-auth-update: Local modifications to /etc/pam.d/common-*, not updating. +pam-auth-update: Run pam-auth-update --force to override. + +EOF + exit; +} + +umask(0022); + +do { + @conflicts = (); + + if (@new || !$package) { + fset($template,'seen','false'); + } + set($template,join(', ', @enabled)); + + input($priority,$template); + go(); + + @enabled = split(/, /, get($template)); + + # in case of conflicts, automatically unset the lower priority + # item of each pair + foreach my $elem (@enabled) + { + for (my $i=$#enabled; $i >= 0; $i--) + { + my $conflict = $enabled[$i]; + if ($profiles{$elem}->{'Conflicts'}->{$conflict}) { + splice(@enabled,$i,1); + my $desc = $profiles{$elem}->{'Name'} + . ', ' . $profiles{$conflict}->{'Name'}; + push(@conflicts,$desc); + } + } + } + if (@conflicts) { + subst($errtemplate, 'conflicts', join("\\n", @conflicts)); + input('high',$errtemplate); + } + set($template, join(', ', @enabled)); + if (!@enabled) { + input('high',$blanktemplate); + # we can only end up here by user error, but give them another + # shot at selecting a correct config anyway. + fset($template,'seen','false'); + } +} while (@conflicts || !@enabled); + +# the decision has been made about what configs to use, so even if +# something fails after this, we shouldn't go munging the default +# options again. Save the list of known configs to /var/lib/pam. +open(SEEN,"> $savedir/seen"); +for my $i (@sorted) { + print SEEN "$i\n"; +} +close(SEEN); + +# @enabled now contains our list of profiles to use for piecing together +# a config +# we have: +# - templates into which we insert the specialness +# - magic comments denoting the beginning and end of our managed block; +# looking at only the functional config lines would potentially let us +# handle more cases, at the expense of much greater complexity, so +# pass on this at least for the first round +# - a representation of the autogenerated config stored in /var/lib/pam, +# that we can diff against in order to account for changed options or +# manually dropped modules +# - a hash describing the local modifications the user has made to the +# config; these are always preserved unless manually overridden with +# the --force option + +write_profiles(\%profiles, \@enabled, $confdir, $savedir, $diff, $force); + + +# take a single line from a stock config, and merge it with the +# information about local admin edits +sub merge_one_line +{ + my ($line,$diff,$count) = @_; + my (@opts,$modline); + + my ($adds,$removes); + + $line =~ /^((\[[^]]+\]|\w+)\s+\S+)\s*(.*)/; + + @opts = split(/\s+/,$3); + $modline = $1; + $modline =~ s/end/$count/g; + if ($diff) { + my $mod = $modline; + $mod =~ s/(\[[^0-9]*)[0-9]+(.*\])/$1$2/g; + $adds = \%{$diff->{'add'}{$mod}}; + $removes = \%{$diff->{'remove'}{$mod}}; + } else { + $adds = $removes = undef; + } + + for (my $i = 0; $i <= $#opts; $i++) { + if ($adds->{$opts[$i]}) { + delete $adds->{$opts[$i]}; + } + if ($removes->{$opts[$i]}) { + splice(@opts,$i,1); + $i--; + } + } + return $modline . " " . join(' ',@opts,sort keys(%{$adds})) . "\n"; +} + +# return the lines for a given config name, type, and position in the stack +sub lines_for_module_and_type +{ + my ($profiles, $mod, $type, $modpos) = @_; + if ($modpos == 0 && $profiles->{$mod}{$type . '-Initial'}) { + return $profiles->{$mod}{$type . '-Initial'}; + } + return $profiles->{$mod}{$type}; +} + +# create a single PAM config from the indicated template and selections, +# writing to a new file +sub create_from_template +{ + my($template,$dest,$profiles,$enabled,$diff,$type) = @_; + my $state = 0; + my $uctype = ucfirst($type); + $type =~ s/-noninteractive//; + + open(INPUT,$template) || return 0; + open(OUTPUT,">$dest") || return 0; + + while (<INPUT>) { + if ($state == 1) { + if (/^# here's the fallback if no module succeeds/) { + print OUTPUT; + $state++; + } + next; + } + if ($state == 3) { + if (/^# end of pam-auth-update config/) { + print OUTPUT; + $state++; + } + next; + } + + print OUTPUT; + + my ($pattern,$val); + if ($state == 0) { + $pattern = '^# here are the per-package modules \(the "Primary" block\)'; + $val = 'Primary'; + } elsif ($state == 2) { + $pattern = '^# and here are more per-package modules \(the "Additional" block\)'; + $val = 'Additional'; + } else { + next; + } + + if (/$pattern/) { + my $i = 0; + my $count = 0; + # first we need to get a count of lines that we're + # going to output, so we can fix up the jumps correctly + for my $mod (@{$enabled}) { + my $output; + next if (!$profiles->{$mod}{$uctype . '-Type'}); + next if $profiles->{$mod}{$uctype . '-Type'} ne $val; + $output = lines_for_module_and_type($profiles, $mod, $uctype, $i++); + # bypasses a perl warning about @_, sigh + my @tmparr = split("\n+",$output); + $count += @tmparr; + } + + # in case anything tries to jump in the 'additional' + # block, let's try not to jump off the stack... + $count-- if ($val eq 'Additional'); + + # no primary block, so output a stock pam_permit line + # to keep the stack intact + if ($val eq 'Primary' && $count == 0) + { + print OUTPUT "$type\t[default=1]\t\t\tpam_permit.so\n"; + } + + $i = 0; + for my $mod (@{$enabled}) { + my $output; + my @output; + next if (!$profiles->{$mod}{$uctype . '-Type'}); + next if $profiles->{$mod}{$uctype . '-Type'} ne $val; + $output = lines_for_module_and_type($profiles, $mod, $uctype, $i++); + for my $line (split("\n",$output)) { + $line = merge_one_line($line,$diff, + $count); + print OUTPUT "$type\t$line"; + $count--; + } + } + $state++; + } + } + close(INPUT); + close(OUTPUT); + + if ($state < 4) { + unlink($dest); + return 0; + } + return 1; +} + +# take a template file, strip out everything between the markers, and +# return the md5sum of the remaining contents. Used for testing for +# local modifications of the boilerplate. +sub get_template_md5sum +{ + my($template) = @_; + my $state = 0; + + open(INPUT,$template) || return ''; + my($md5sum_fd,$output_fd); + my $pid = open2($md5sum_fd, $output_fd, 'md5sum'); + return '' if (!$pid); + + while (<INPUT>) { + if ($state == 1) { + if (/^# here's the fallback if no module succeeds/) { + print $output_fd $_; + $state++; + } + next; + } + if ($state == 3) { + if (/^# end of pam-auth-update config/) { + print $output_fd $_; + $state++; + } + next; + } + + print $output_fd $_; + + my ($pattern,$val); + if ($state == 0) { + $pattern = '^# here are the per-package modules \(the "Primary" block\)'; + } elsif ($state == 2) { + $pattern = '^# and here are more per-package modules \(the "Additional" block\)'; + } else { + next; + } + + if (/$pattern/) { + $state++; + } + } + close(INPUT); + close($output_fd); + my $md5sum = <$md5sum_fd>; + close($md5sum_fd); + waitpid $pid, 0; + + $md5sum = (split(/\s+/,$md5sum))[0]; + return $md5sum; +} + +# merge a set of module declarations into a set of new config files, +# using the information returned from diff_profiles(). +sub write_profiles +{ + my($profiles,$enabled,$confdir,$savedir,$diff,$force) = @_; + + if (! -d $savedir) { + mkdir($savedir); + } + + # because we can't atomically replace both /var/lib/pam/$foo and + # /etc/pam.d/common-$foo at the same time, take steps to make this + # somewhat robust + for my $type ('auth','account','password','session', + 'session-noninteractive') + { + my $target = $confdir . '/common-' . $type; + my $template = $target; + my $dest = $template . '.pam-new'; + + my $diff = $diff; + if ($diff) { + $diff = \%{$diff->{$type}}; + } + + # Detect if the template is unmodified, and if so, use + # the version from /usr/share. Depends on knowing the + # md5sums of the originals. + my $md5sum = get_template_md5sum($template); + for my $i (@{$md5sums{$type}}) { + if ($md5sum eq $i) { + $template = '/usr/share/pam/common-' . $type; + last; + } + } + + # first, write out the new config + if (!create_from_template($template,$dest,$profiles,$enabled, + $diff,$type)) + { + if (!$force) { + return 0; + } + $template = '/usr/share/pam/common-' . $type; + if (!create_from_template($template,$dest,$profiles, + $enabled,$diff,$type)) + { + return 0; + } + } + + # then write out the saved config + if (!open(OUTPUT, "> $savedir/$type.new")) { + unlink($dest); + return 0; + } + my $i = 0; + my $uctype = ucfirst($type); + for my $mod (@{$enabled}) { + my $output; + next if (!$profiles->{$mod}{$uctype . '-Type'}); + next if ($profiles->{$mod}{$uctype . '-Type'} eq 'Additional'); + + $output = lines_for_module_and_type($profiles, $mod, $uctype, $i++); + if ($output) { + print OUTPUT "Module: $mod\n"; + print OUTPUT $output . "\n"; + } + } + + # no primary block, so output a stock pam_permit line + if ($i == 0) + { + print OUTPUT "Module: null\n"; + print OUTPUT "[default=1]\t\t\tpam_permit.so\n"; + } + + $i = 0; + for my $mod (@{$enabled}) { + my $output; + next if (!$profiles->{$mod}{$uctype . '-Type'}); + next if ($profiles->{$mod}{$uctype . '-Type'} eq 'Primary'); + + $output = lines_for_module_and_type($profiles, $mod, $uctype, $i++); + if ($output) { + print OUTPUT "Module: $mod\n"; + print OUTPUT $output . "\n"; + } + } + + close(OUTPUT); + + # then do the renames, back-to-back + # we have to use system because File::Copy is in + # perl-modules, not perl-base + if (-e "$target" && $force) { + system('cp','-f',$target,$target . '.pam-old'); + } + rename($dest,$target); + rename("$savedir/$type.new","$savedir/$type"); + } + + # at the end of a successful write, reset the 'seen' flag and the + # value of the debconf override question. + fset($overridetemplate,'seen','false'); + set($overridetemplate,'false'); +} + +# reconcile the current config in /etc/pam.d with the saved ones in +# /var/lib/pam; returns a hash of profile names and the corresponding +# options that should be added/removed relative to the stock config. +# returns false if any of the markers are missing that permit a merge, +# or on any other failure. +sub diff_profiles +{ + my ($sourcedir,$savedir) = @_; + my (%diff); + + @{$diff{'mods'}} = (); + # Load the saved config from /var/lib/pam, then iterate through all + # lines in the current config that are in the managed block. + # If anything fails here, just return immediately since we then + # have nothing to merge; instead, the caller will decide later + # whether to force an overwrite. + for my $type ('auth','account','password','session', + 'session-noninteractive') + { + my (@saved,$modname); + + open(SAVED,$savedir . '/' . $type) || return 0; + while (<SAVED>) { + if (/^Module: (.*)/) { + $modname = $1; + next; + } + chomp; + # trim out the destination of any jumps; this saves + # us from having to re-parse everything just to fix + # up the jump lengths, when changes to these will + # already show up as inconsistencies elsewhere + s/(\[[^0-9]*)[0-9]+(.*\])/$1$2/g; + s/(\[.*)end(.*\])/$1$2/g; + my (@temp) = ($modname,$_); + push(@saved,\@temp); + } + close(SAVED); + + my $state = 0; + my (@prev_opts,$curmod); + my $realtype = $type; + $realtype =~ s/-noninteractive//; + + open(CURRENT,$sourcedir . '/common-' . $type) || return 0; + while (<CURRENT>) { + if ($state == 0) { + $state = 1 + if (/^# here are the per-package modules \(the "Primary" block\)/); + next; + } + if ($state == 1) { + s/^$realtype\s+//; + if (/^# here's the fallback if no module succeeds/) { + $state = 2; + next; + } + } + if ($state == 2) { + $state = 3 + if (/^# and here are more per-package modules \(the "Additional" block\)/); + next; + } + if ($state == 3) { + last if (/^# end of pam-auth-update config/); + s/^$realtype\s+//; + } + + my $found = 0; + my $curopts; + while (!$found && $#saved >= 0) { + my $line; + ($modname,$line) = @{$saved[0]}; + shift(@saved); + $line =~ /^((\[[^]]+\]|\w+)\s+\S+)\s*(.*)/; + @prev_opts = split(/\s+/,$3); + $curmod = $1; + # FIXME: the key isn't derived from the config + # name, so collisions are possible if more + # than one config references the same module + + $_ =~ s/(\[[^0-9]*)[0-9]+(.*\])/$1$2/g; + # check if this is a match for the current line + if ($_ =~ /^\Q$curmod\E\s*(.*)$/) { + $found = 1; + $curopts = $1; + push(@{$diff{'mods'}},$modname); + } + } + + # there's a line in the live config that doesn't + # correspond to anything from the saved config. + # treat this as a failure; it's very error-prone + # to decide what to do with an added line that + # didn't come from a package. + return 0 if (!$found); + + for my $opt (split(/\s+/,$curopts)) { + my $found = 0; + for (my $i = 0; $i <= $#prev_opts; $i++) { + if ($prev_opts[$i] eq $opt) { + $found = 1; + splice(@prev_opts,$i,1); + } + } + $diff{$type}{'add'}{$curmod}{$opt} = 1 if (!$found); + } + for my $opt (@prev_opts) { + $diff{$type}{'remove'}{$curmod}{$opt} = 1; + } + } + close(CURRENT); + + # we couldn't parse the config, so the merge fails + return 0 if ($state < 3); + } + return \%diff; +} + +# simple function to parse a provided config file, in pseudo-RFC822 +# format, +sub parse_pam_profile +{ + my ($profile) = $_[0]; + my $fieldname; + my %profile; + open(PROFILE, $profile) || die "could not read profile $profile: $!"; + while (<PROFILE>) { + if (/^(\S+):\s+(.*)$/) { + $fieldname = $1; + # compatibility with the first implementation round; + # "Auth-Final" is now just called "Auth" + $fieldname =~ s/-Final$//; + if ($fieldname eq 'Conflicts') { + foreach my $elem (split(/, /, $2)) { + $profile{'Conflicts'}->{$elem} = 1; + } + } else { + $profile{$fieldname} = $2; + } + } else { + chomp; + s/^\s+//; + $profile{$fieldname} .= "\n$_"; + $profile{$fieldname} =~ s/^[\n\s]+//; + } + } + close(PROFILE); + if (!defined($profile{'Session-Interactive-Only'})) { + $profile{'Session-noninteractive-Type'} = $profile{'Session-Type'}; + $profile{'Session-noninteractive'} = $profile{'Session'}; + $profile{'Session-noninteractive-Initial'} = $profile{'Session-Initial'}; + } + return %profile; +} diff --git a/beagle/debian-rfs/usr/sbin/pam_getenv b/beagle/debian-rfs/usr/sbin/pam_getenv new file mode 100755 index 0000000..2abddca --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/pam_getenv @@ -0,0 +1,123 @@ +#!/usr/bin/perl -w + +=head1 NAME + +pam_getenv - get environment variables from /etc/environment + +=head1 SYNOPSIS + +pam_getenv B<[-l] [-s]> I<env_var> + +=head1 DESCRIPTION + +This tool will print out the value of I<env_var> from F</etc/environment>. It will attempt to expand environment variable references in the definition of I<env_var> but will fail if PAM items are expanded. + +The B<-l> option indicates the script should return an environment variable related to default locale information. + +The B<-s> option indicates that the script should return an +system default environment variable. + +Currently neither the B<-l> or B<-s> options do anything. They are +included because future versions of Debian may have a separate +repository for the initial environment used by init scripts and for +system locale information. These options will allow this script to be +a stable interface even in that environment. + +=cut + +# Copyright 2004 by Sam Hartman +# This script may be copied under the terms of the GNU GPL +# version 2, or at your option any later version. + +use strict; +use vars qw(*CONFIGFILE *ENVFILE); + +sub read_line($) { + my $fh = shift; + my $line; + local $_; + line: while (<$fh>) { + chomp; + s/^\s+//; +s/\#.*$//; + next if $_ eq ""; + if (s/\\\s*$//) { + $line .= $_; + next line; + } + + $line .= $_; + last; + } + $line; + +} + + +sub parse_line($) { + my $var; + my (%x, @x); + local $_ = shift; + return undef unless defined $_ and s/(\S+)\s//; + $var->{Name} = $1; + s/^\s*//; + @x = split(/=([^"\s]\S*|"[^"]*")\s*/, $_); + unless (scalar(@x)%2 == 0) { + push @x, undef; + } + %x = @x; + @{$var}{"Default", "Override"} = + @x{"DEFAULT", "OVERRIDE"}; + $var; +} + +sub expand_val($) { + my ($val) = @_; +return undef unless $val; + die "Cannot handle PAM items\n" if /(?<!\\)\@/; + $val =~ s/(?<!\\)\${([^}]+)}/$ENV{$1}||""/eg; + return $val; +} + +my $lookup; + +while ($_ = shift) { + next if $_ eq "-s"; + next if $_ eq "-l"; + $lookup = $_; + last; +} +unless (defined $lookup) { + die "Usage: pam_getenv [-l] [-s] env_var\n"; +} + +my %allvars; + +open (CONFIGFILE, "/etc/security/pam_env.conf") + or die "Cannot open environment file: $!\n"; + +while (my $var = parse_line(read_line(\*CONFIGFILE))) { + my $val; + unless ($val = expand_val($var->{Override})) { + $val = expand_val($var->{Default}); + } + $allvars{$var->{Name}} = $val; +} + +if (open (ENVFILE, "/etc/environment")) { + while (my $line = read_line(\*ENVFILE)) { + $line =~ s/^export //; + $line =~ /(.*?)=(.+)/ or next; + my ($var, $val) = ($1, $2); + # This is bizarre logic (" and ' match each other, quotes are only + # significant at the start and end of the string, and the trailing quote + # may be omitted), but it's what pam_env does. + $val =~ s/^["'](.*?)["']?$/$1/; + $allvars{$var} = $val; + } +} + +if (exists $allvars{$lookup}) { + print $allvars{$lookup}, "\n"; + exit(0); +} diff --git a/beagle/debian-rfs/usr/sbin/pwck b/beagle/debian-rfs/usr/sbin/pwck Binary files differnew file mode 100755 index 0000000..bd6b918 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/pwck diff --git a/beagle/debian-rfs/usr/sbin/pwconv b/beagle/debian-rfs/usr/sbin/pwconv Binary files differnew file mode 100755 index 0000000..abd3964 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/pwconv diff --git a/beagle/debian-rfs/usr/sbin/pwunconv b/beagle/debian-rfs/usr/sbin/pwunconv Binary files differnew file mode 100755 index 0000000..15d9163 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/pwunconv diff --git a/beagle/debian-rfs/usr/sbin/ramsize b/beagle/debian-rfs/usr/sbin/ramsize new file mode 120000 index 0000000..f9af812 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/ramsize @@ -0,0 +1 @@ +rdev
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/sbin/rdev b/beagle/debian-rfs/usr/sbin/rdev Binary files differnew file mode 100755 index 0000000..4b12bab --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/rdev diff --git a/beagle/debian-rfs/usr/sbin/readprofile b/beagle/debian-rfs/usr/sbin/readprofile Binary files differnew file mode 100755 index 0000000..51466f3 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/readprofile diff --git a/beagle/debian-rfs/usr/sbin/remove-shell b/beagle/debian-rfs/usr/sbin/remove-shell new file mode 100755 index 0000000..1e6b739 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/remove-shell @@ -0,0 +1,40 @@ +#!/bin/sh -e + +if test $# -eq 0 +then + echo usage: $0 shellname '[shellname ...]' 1>&2 + exit 1 +fi + +file=/etc/shells +# I want this to be GUARANTEED to be on the same filesystem as $file +tmpfile=${file}.tmp +otmpfile=${file}.tmp2 + +set -o noclobber + +trap "rm -f $tmpfile $otmpfile" EXIT + +if ! cat $file > $tmpfile +then + cat 1>&2 <<EOF +Either another instance of $0 is running, or it was previously interrupted. +Please examine ${tmpfile} to see if it should be moved onto ${file}. +EOF + exit 1 +fi + +# this is supposed to be reliable, not pretty +for i +do + grep -v "^${i}$" $tmpfile > $otmpfile || true + mv $otmpfile $tmpfile +done + +chmod --reference=$file $tmpfile +chown --reference=$file $tmpfile + +mv $tmpfile $file + +trap "" EXIT +exit 0 diff --git a/beagle/debian-rfs/usr/sbin/rmt-tar b/beagle/debian-rfs/usr/sbin/rmt-tar Binary files differnew file mode 100755 index 0000000..ec79931 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/rmt-tar diff --git a/beagle/debian-rfs/usr/sbin/rootflags b/beagle/debian-rfs/usr/sbin/rootflags new file mode 120000 index 0000000..f9af812 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/rootflags @@ -0,0 +1 @@ +rdev
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/sbin/rtcwake b/beagle/debian-rfs/usr/sbin/rtcwake Binary files differnew file mode 100755 index 0000000..ca25674 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/rtcwake diff --git a/beagle/debian-rfs/usr/sbin/service b/beagle/debian-rfs/usr/sbin/service new file mode 100755 index 0000000..752dfe2 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/service @@ -0,0 +1,138 @@ +#!/bin/sh + +########################################################################### +# /usr/bin/service +# +# A convenient wrapper for the /etc/init.d init scripts. +# +# This script is a modified version of the /sbin/service utility found on +# Red Hat/Fedora systems (licensed GPLv2+). +# +# Copyright (C) 2006 Red Hat, Inc. All rights reserved. +# Copyright (C) 2008 Canonical Ltd. +# * August 2008 - Dustin Kirkland <kirkland@canonical.com> +# +# 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +# On Debian GNU/Linux systems, the complete text of the GNU General +# Public License can be found in `/usr/share/common-licenses/GPL-2'. +########################################################################### + + +is_ignored_file() { + case "$1" in + skeleton | README | *.dpkg-dist | *.dpkg-old | rc | rcS | single | reboot | bootclean.sh) + return 0 + ;; + esac + return 1 +} + +VERSION="`basename $0` ver. 0.91-ubuntu1" +USAGE="Usage: `basename $0` < option > | --status-all | \ +[ service_name [ command | --full-restart ] ]" +SERVICE= +ACTION= +SERVICEDIR="/etc/init.d" +OPTIONS= + +if [ $# -eq 0 ]; then + echo "${USAGE}" >&2 + exit 1 +fi + +cd / +while [ $# -gt 0 ]; do + case "${1}" in + --help | -h | --h* ) + echo "${USAGE}" >&2 + exit 0 + ;; + --version | -V ) + echo "${VERSION}" >&2 + exit 0 + ;; + *) + if [ -z "${SERVICE}" -a $# -eq 1 -a "${1}" = "--status-all" ]; then + cd ${SERVICEDIR} + for SERVICE in * ; do + case "${SERVICE}" in + functions | halt | killall | single| linuxconf| kudzu) + ;; + *) + if ! is_ignored_file "${SERVICE}" \ + && [ -x "${SERVICEDIR}/${SERVICE}" ]; then + if ! grep -qs "\Wstatus)" "$SERVICE"; then + #printf " %s %-60s %s\n" "[?]" "$SERVICE:" "unknown" 1>&2 + echo " [ ? ] $SERVICE" 1>&2 + continue + else + out=$(env -i LANG="$LANG" PATH="$PATH" TERM="$TERM" "$SERVICEDIR/$SERVICE" status 2>&1) + if [ "$?" = "0" -a -n "$out" ]; then + #printf " %s %-60s %s\n" "[+]" "$SERVICE:" "running" + echo " [ + ] $SERVICE" + continue + else + #printf " %s %-60s %s\n" "[-]" "$SERVICE:" "NOT running" + echo " [ - ] $SERVICE" + continue + fi + fi + #env -i LANG="$LANG" PATH="$PATH" TERM="$TERM" "$SERVICEDIR/$SERVICE" status + fi + ;; + esac + done + exit 0 + elif [ $# -eq 2 -a "${2}" = "--full-restart" ]; then + SERVICE="${1}" + if [ -x "${SERVICEDIR}/${SERVICE}" ]; then + env -i LANG="$LANG" PATH="$PATH" TERM="$TERM" "$SERVICEDIR/$SERVICE" stop + env -i LANG="$LANG" PATH="$PATH" TERM="$TERM" "$SERVICEDIR/$SERVICE" start + exit $? + fi + elif [ -z "${SERVICE}" ]; then + SERVICE="${1}" + elif [ -z "${ACTION}" ]; then + ACTION="${1}" + else + OPTIONS="${OPTIONS} ${1}" + fi + shift + ;; + esac +done + +if [ -r "/etc/init/${SERVICE}.conf" ]; then + # Upstart configuration exists for this job + case "${ACTION}" in + start|stop|restart|status|reload) + # Action is a valid upstart action + exec ${ACTION} ${SERVICE} ${OPTIONS} + ;; + force-reload) + # Upstart just uses reload for force-reload + exec reload ${SERVICE} ${OPTIONS} + ;; + esac +fi + +# Otherwise, use the traditional sysvinit +if [ -x "${SERVICEDIR}/${SERVICE}" ]; then + exec env -i LANG="$LANG" PATH="$PATH" TERM="$TERM" "$SERVICEDIR/$SERVICE" ${ACTION} ${OPTIONS} +else + echo "${SERVICE}: unrecognized service" >&2 + exit 1 +fi diff --git a/beagle/debian-rfs/usr/sbin/tunelp b/beagle/debian-rfs/usr/sbin/tunelp Binary files differnew file mode 100755 index 0000000..f27042e --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/tunelp diff --git a/beagle/debian-rfs/usr/sbin/tzconfig b/beagle/debian-rfs/usr/sbin/tzconfig new file mode 100755 index 0000000..73a53c0 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/tzconfig @@ -0,0 +1,3 @@ +#!/bin/sh +echo "WARNING: the tzconfig command is deprecated, please use:" +echo " dpkg-reconfigure tzdata" diff --git a/beagle/debian-rfs/usr/sbin/update-alternatives b/beagle/debian-rfs/usr/sbin/update-alternatives new file mode 120000 index 0000000..499c0c0 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/update-alternatives @@ -0,0 +1 @@ +../bin/update-alternatives
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/sbin/update-bootsystem-insserv b/beagle/debian-rfs/usr/sbin/update-bootsystem-insserv new file mode 100755 index 0000000..5b20a17 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/update-bootsystem-insserv @@ -0,0 +1,24 @@ +#!/bin/sh +# +# Author: Petter Reinholdtsen +# Date: 2009-08-04 +# +# Transition script only to be used by sysv-rc version 2.87dsf-2 if +# insserv is upgraded without sysv-rc being upgraded too. + +set -e + +case "$1" in + enable|'') + exit 0 + ;; + check) + exit 1 + ;; + *) + echo "error: Unknown argument '$1'" + exit 1 + ;; +esac + +exit 0 diff --git a/beagle/debian-rfs/usr/sbin/update-passwd b/beagle/debian-rfs/usr/sbin/update-passwd Binary files differnew file mode 100755 index 0000000..917c2f1 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/update-passwd diff --git a/beagle/debian-rfs/usr/sbin/update-rc.d b/beagle/debian-rfs/usr/sbin/update-rc.d new file mode 100755 index 0000000..96bb41f --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/update-rc.d @@ -0,0 +1,591 @@ +#! /usr/bin/perl +# +# update-rc.d Update the links in /etc/rc[0-9S].d/ +# + +use strict; +use warnings; + +my $initd = "/etc/init.d"; +my $etcd = "/etc/rc"; +my $notreally = 0; + +# Save last action to this directory +my $archive = "/var/lib/update-rc.d"; + +# Print usage message and die. + +sub usage { + print STDERR "update-rc.d: error: @_\n" if ($#_ >= 0); + print STDERR <<EOF; +usage: update-rc.d [-n] [-f] <basename> remove + update-rc.d [-n] <basename> defaults [NN | SS KK] + update-rc.d [-n] <basename> start|stop NN runlvl [runlvl] [...] . + update-rc.d [-n] <basename> disable|enable [S|2|3|4|5] + -n: not really + -f: force + +The disable|enable API is not stable and might change in the future. +EOF + exit (1); +} + +# Dependency based boot sequencing is the default, but upgraded +# systems might keep the legacy ordering until the sysadm choose to +# migrate to the new ordering method. +if ( ! -f "/etc/init.d/.legacy-bootordering" ) { + info("using dependency based boot sequencing"); + exit insserv_updatercd(@ARGV); +} + +# Check out options. +my $force; + +my @orig_argv = @ARGV; + +while($#ARGV >= 0 && ($_ = $ARGV[0]) =~ /^-/) { + shift @ARGV; + if (/^-n$/) { $notreally++; next } + if (/^-f$/) { $force++; next } + if (/^-h|--help$/) { &usage; } + &usage("unknown option"); +} + +sub save_last_action { + my ($script, @arguments) = @_; + + return if $notreally; + + open(FILE, ">", "$archive/${script}.new") || die "unable to write to $archive/${script}.new"; + print FILE join(" ","update-rc.d",@arguments), "\n"; + close(FILE); + rename "$archive/${script}.new", "$archive/${script}"; +} + +sub remove_last_action { + my ($script) = @_; + unlink "$archive/$script"; +} + +# Action. + +&usage() if ($#ARGV < 1); +my $bn = shift @ARGV; + +unless ($bn =~ m/[a-zA-Z0-9+.-]+/) { + print STDERR "update-rc.d: illegal character in name '$bn'\n"; + exit (1); +} + +if ($ARGV[0] ne 'remove') { + if (! -f "$initd/$bn") { + print STDERR "update-rc.d: $initd/$bn: file does not exist\n"; + exit (1); + } + &parse_lsb_header("$initd/$bn"); + &cmp_args_with_defaults($bn, $ARGV[0], @ARGV); +} elsif (-f "$initd/$bn") { + if (!$force) { + printf STDERR "update-rc.d: $initd/$bn exists during rc.d purge (use -f to force)\n"; + exit (1); + } +} + +my @startlinks; +my @stoplinks; + +$_ = $ARGV[0]; +if (/^remove$/) { &checklinks ("remove"); remove_last_action($bn); } +elsif (/^defaults$/) { &defaults (@ARGV); &makelinks; save_last_action($bn, @orig_argv); } +elsif (/^(start|stop)$/) { &startstop (@ARGV); &makelinks; save_last_action($bn, @orig_argv); } +elsif (/^(dis|en)able$/) { &toggle (@ARGV); &makelinks; save_last_action($bn, @orig_argv); } +else { &usage; } + +exit (0); + +sub info { + print STDOUT "update-rc.d: @_\n"; +} + +sub warning { + print STDERR "update-rc.d: warning: @_\n"; +} + +sub error { + print STDERR "update-rc.d: error: @_\n"; + exit (1); +} + +sub error_code { + my $rc = shift; + print STDERR "update-rc.d: error: @_\n"; + exit ($rc); +} + +# Check if there are links in /etc/rc[0-9S].d/ +# Remove if the first argument is "remove" and the links +# point to $bn. + +sub is_link () { + my ($op, $fn, $bn) = @_; + if (! -l $fn) { + warning "$fn is not a symbolic link\n"; + return 0; + } else { + my $linkdst = readlink ($fn); + if (! defined $linkdst) { + die ("update-rc.d: error reading symbolic link: $!\n"); + } + if (($linkdst ne "../init.d/$bn") && ($linkdst ne "$initd/$bn")) { + warning "$fn is not a link to ../init.d/$bn or $initd/$bn\n"; + return 0; + } + } + return 1; +} + +sub checklinks { + my ($i, $found, $fn, $islnk); + + print " Removing any system startup links for $initd/$bn ...\n" + if (defined $_[0] && $_[0] eq 'remove'); + + $found = 0; + + foreach $i (0..9, 'S') { + unless (chdir ("$etcd$i.d")) { + next if ($i =~ m/^[789S]$/); + die("update-rc.d: chdir $etcd$i.d: $!\n"); + } + opendir(DIR, "."); + my $saveBN=$bn; + $saveBN =~ s/\+/\\+/g; + foreach $_ (readdir(DIR)) { + next unless (/^[SK]\d\d$saveBN$/); + $fn = "$etcd$i.d/$_"; + $found = 1; + $islnk = &is_link ($_[0], $fn, $bn); + next unless (defined $_[0] and $_[0] eq 'remove'); + if (! $islnk) { + print " $fn is not a link to ../init.d/$bn; not removing\n"; + next; + } + print " $etcd$i.d/$_\n"; + next if ($notreally); + unlink ("$etcd$i.d/$_") || + die("update-rc.d: unlink: $!\n"); + } + closedir(DIR); + } + $found; +} + +sub parse_lsb_header { + my $initdscript = shift; + my %lsbinfo; + my $lsbheaders = "Provides|Required-Start|Required-Stop|Default-Start|Default-Stop"; + open(INIT, "<$initdscript") || die "error: unable to read $initdscript"; + while (<INIT>) { + chomp; + $lsbinfo{'found'} = 1 if (m/^\#\#\# BEGIN INIT INFO\s*$/); + last if (m/\#\#\# END INIT INFO\s*$/); + if (m/^\# ($lsbheaders):\s*(\S?.*)$/i) { + $lsbinfo{lc($1)} = $2; + } + } + close(INIT); + + # Check that all the required headers are present + if (!$lsbinfo{found}) { + printf STDERR "update-rc.d: warning: $initdscript missing LSB information\n"; + printf STDERR "update-rc.d: see <http://wiki.debian.org/LSBInitScripts>\n"; + } else { + for my $key (split(/\|/, lc($lsbheaders))) { + if (!exists $lsbinfo{$key}) { + warning "$initdscript missing LSB keyword '$key'\n"; + } + } + } +} + + +# Process the arguments after the "enable" or "disable" keyword. + +sub toggle { + my @argv = @_; + my ($action, %lvls, @start, @stop, @xstartlinks); + + if (!&checklinks) { + print " System start/stop links for $initd/$bn do not exist.\n"; + exit (0); + } + + $action = $argv[0]; + if ($#argv > 1) { + while ($#argv > 0 && shift @argv) { + if ($argv[0] =~ /^[S2-5]$/) { + $lvls{$argv[0]}++; + } else { + &usage ("expected 'S' '2' '3' '4' or '5'"); + } + } + } else { + $lvls{$_}++ for ('S', '2', '3', '4', '5'); + } + + push(@start, glob($etcd . '[2-5S].d/[KS][0-9][0-9]' . $bn)); + + foreach (@start) { + my $islink = &is_link (undef, $_, $bn); + next if !$islink; + + next unless my ($lvl, $sk, $seq) = m/^$etcd([2-5S])\.d\/([SK])([0-9]{2})$bn$/; + $startlinks[$lvl] = $sk . $seq; + + if ($action eq 'disable' and $sk eq 'S' and $lvls{$lvl}) { + $xstartlinks[$lvl] = 'K' . sprintf "%02d", (100 - $seq); + } elsif ($action eq 'enable' and $sk eq 'K' and $lvls{$lvl}) { + $xstartlinks[$lvl] = 'S' . sprintf "%02d", -($seq - 100); + } else { + $xstartlinks[$lvl] = $sk . $seq; + } + } + + push(@stop, glob($etcd . '[016].d/[KS][0-9][0-9]' . $bn)); + + foreach (@stop) { + my $islink = &is_link (undef, $_, $bn); + next if !$islink; + + next unless my ($lvl, $sk, $seq) = m/^$etcd([016])\.d\/([SK])([0-9]{2})$bn$/; + $stoplinks[$lvl] = $sk . $seq; + } + + if ($action eq 'disable') { + print " Disabling system startup links for $initd/$bn ...\n"; + } elsif ($action eq 'enable') { + print " Enabling system startup links for $initd/$bn ...\n"; + } + + &checklinks ("remove"); + @startlinks = @xstartlinks; + + 1; +} + +# Process the arguments after the "defaults" keyword. + +sub defaults { + my @argv = @_; + my ($start, $stop) = (20, 20); + + &usage ("defaults takes only one or two codenumbers") if ($#argv > 2); + $start = $stop = $argv[1] if ($#argv >= 1); + $stop = $argv[2] if ($#argv >= 2); + &usage ("codenumber must be a number between 0 and 99") + if ($start !~ /^\d\d?$/ || $stop !~ /^\d\d?$/); + + $start = sprintf("%02d", $start); + $stop = sprintf("%02d", $stop); + + $stoplinks[$_] = "K$stop" for (0, 1, 6); + $startlinks[$_] = "S$start" for (2, 3, 4, 5); + + 1; +} + +# Process the arguments after the start or stop keyword. + +sub startstop { + my @argv = @_; + my($letter, $NN, $level); + + while ($#argv >= 0) { + if ($argv[0] eq 'start') { $letter = 'S'; } + elsif ($argv[0] eq 'stop') { $letter = 'K'; } + else { + &usage("expected start|stop"); + } + + if ($argv[1] !~ /^\d\d?$/) { + &usage("expected NN after $argv[0]"); + } + $NN = sprintf("%02d", $argv[1]); + + if ($argv[-1] ne '.') { + &usage("start|stop arguments not terminated by \".\""); + } + + shift @argv; shift @argv; + $level = shift @argv; + do { + if ($level !~ m/^[0-9S]$/) { + &usage( + "expected runlevel [0-9S] (did you forget \".\" ?)"); + } + if (! -d "$etcd$level.d") { + print STDERR + "update-rc.d: $etcd$level.d: no such directory\n"; + exit(1); + } + $level = 99 if ($level eq 'S'); + $startlinks[$level] = "$letter$NN" if ($letter eq 'S'); + $stoplinks[$level] = "$letter$NN" if ($letter eq 'K'); + } while (($level = shift @argv) ne '.'); + } + 1; +} + +# Create the links. + +sub makelinks { + my($t, $i); + my @links; + + if (&checklinks) { + print " System start/stop links for $initd/$bn already exist.\n"; + return 0; + } + print " Adding system startup for $initd/$bn ...\n"; + + # nice unreadable perl mess :) + + for($t = 0; $t < 2; $t++) { + @links = $t ? @startlinks : @stoplinks; + for($i = 0; $i <= $#links; $i++) { + my $lvl = $i; + $lvl = 'S' if ($i == 99); + next if (!defined $links[$i] or $links[$i] eq ''); + print " $etcd$lvl.d/$links[$i]$bn -> ../init.d/$bn\n"; + next if ($notreally); + symlink("../init.d/$bn", "$etcd$lvl.d/$links[$i]$bn") + || die("update-rc.d: symlink: $!\n"); + } + } + + 1; +} + +## Dependency based +sub insserv_updatercd { + my @args = @_; + my @opts; + my $scriptname; + my $action; + my $notreally = 0; + + my @orig_argv = @args; + + while($#args >= 0 && ($_ = $args[0]) =~ /^-/) { + shift @args; + if (/^-n$/) { push(@opts, $_); $notreally++; next } + if (/^-f$/) { push(@opts, $_); next } + if (/^-h|--help$/) { &usage; } + usage("unknown option"); + } + + usage("not enough arguments") if ($#args < 1); + + $scriptname = shift @args; + $action = shift @args; + if ("remove" eq $action) { + if ( -f "/etc/init.d/$scriptname" ) { + my $rc = system("insserv", @opts, "-r", $scriptname) >> 8; + if (0 == $rc && !$notreally) { + remove_last_action($scriptname); + } + error_code($rc, "insserv rejected the script header") if $rc; + exit $rc; + } else { + # insserv removes all dangling symlinks, no need to tell it + # what to look for. + my $rc = system("insserv", @opts) >> 8; + if (0 == $rc && !$notreally) { + remove_last_action($scriptname); + } + error_code($rc, "insserv rejected the script header") if $rc; + exit $rc; + } + } elsif ("defaults" eq $action || "start" eq $action || + "stop" eq $action) { + # All start/stop/defaults arguments are discarded so emit a + # message if arguments have been given and are in conflict + # with Default-Start/Default-Stop values of LSB comment. + cmp_args_with_defaults($scriptname, $action, @args); + + if ( -f "/etc/init.d/$scriptname" ) { + my $rc = system("insserv", @opts, $scriptname) >> 8; + if (0 == $rc && !$notreally) { + save_last_action($scriptname, @orig_argv); + } + error_code($rc, "insserv rejected the script header") if $rc; + exit $rc; + } else { + error("initscript does not exist: /etc/init.d/$scriptname"); + } + } elsif ("disable" eq $action || "enable" eq $action) { + insserv_toggle($notreally, $action, $scriptname, @args); + # Call insserv to resequence modified links + my $rc = system("insserv", @opts, $scriptname) >> 8; + if (0 == $rc && !$notreally) { + save_last_action($scriptname, @orig_argv); + } + error_code($rc, "insserv rejected the script header") if $rc; + exit $rc; + } else { + usage(); + } +} + +sub parse_def_start_stop { + my $script = shift; + my (%lsb, @def_start_lvls, @def_stop_lvls); + + open my $fh, '<', $script or error("unable to read $script"); + while (<$fh>) { + chomp; + if (m/^### BEGIN INIT INFO$/) { + $lsb{'begin'}++; + } + elsif (m/^### END INIT INFO$/) { + $lsb{'end'}++; + last; + } + elsif ($lsb{'begin'} and not $lsb{'end'}) { + if (m/^# Default-Start:\s*(\S?.*)$/) { + @def_start_lvls = split(' ', $1); + } + if (m/^# Default-Stop:\s*(\S?.*)$/) { + @def_stop_lvls = split(' ', $1); + } + } + } + close($fh); + + return (\@def_start_lvls, \@def_stop_lvls); +} + +sub lsb_header_for_script { + my $name = shift; + + foreach my $file ("/etc/insserv/overrides/$name", "/etc/init.d/$name", + "/usr/share/insserv/overrides/$name") { + return $file if -s $file; + } + + error("cannot find a LSB script for $name"); +} + +sub cmp_args_with_defaults { + my ($name, $act) = (shift, shift); + my ($lsb_start_ref, $lsb_stop_ref, $arg_str, $lsb_str); + my (@arg_start_lvls, @arg_stop_lvls, @lsb_start_lvls, @lsb_stop_lvls); + + ($lsb_start_ref, $lsb_stop_ref) = parse_def_start_stop("/etc/init.d/$name"); + @lsb_start_lvls = @$lsb_start_ref; + @lsb_stop_lvls = @$lsb_stop_ref; + return if (!@lsb_start_lvls and !@lsb_stop_lvls); + + if ($act eq 'defaults') { + @arg_start_lvls = (2, 3, 4, 5); + @arg_stop_lvls = (0, 1, 6); + } elsif ($act eq 'start' or $act eq 'stop') { + my $start = $act eq 'start' ? 1 : 0; + my $stop = $act eq 'stop' ? 1 : 0; + + # The legacy part of this program passes arguments starting with + # "start|stop NN x y z ." but the insserv part gives argument list + # starting with sequence number (ie. strips off leading "start|stop") + # Start processing arguments immediately after the first seq number. + my $argi = $_[0] eq $act ? 2 : 1; + + while (defined $_[$argi]) { + my $arg = $_[$argi]; + + # Runlevels 0 and 6 are always stop runlevels + if ($arg eq 0 or $arg eq 6) { + $start = 0; $stop = 1; + } elsif ($arg eq 'start') { + $start = 1; $stop = 0; $argi++; next; + } elsif ($arg eq 'stop') { + $start = 0; $stop = 1; $argi++; next; + } elsif ($arg eq '.') { + next; + } + push(@arg_start_lvls, $arg) if $start; + push(@arg_stop_lvls, $arg) if $stop; + } continue { + $argi++; + } + } + + if ($#arg_start_lvls != $#lsb_start_lvls or + join("\0", sort @arg_start_lvls) ne join("\0", sort @lsb_start_lvls)) { + $arg_str = @arg_start_lvls ? "@arg_start_lvls" : "none"; + $lsb_str = @lsb_start_lvls ? "@lsb_start_lvls" : "none"; + warning "$name start runlevel arguments ($arg_str) do not match", + "LSB Default-Start values ($lsb_str)"; + } + if ($#arg_stop_lvls != $#lsb_stop_lvls or + join("\0", sort @arg_stop_lvls) ne join("\0", sort @lsb_stop_lvls)) { + $arg_str = @arg_stop_lvls ? "@arg_stop_lvls" : "none"; + $lsb_str = @lsb_stop_lvls ? "@lsb_stop_lvls" : "none"; + warning "$name stop runlevel arguments ($arg_str) do not match", + "LSB Default-Stop values ($lsb_str)"; + } +} + +sub insserv_toggle { + my ($dryrun, $act, $name) = (shift, shift, shift); + my (@toggle_lvls, $start_lvls, $stop_lvls, @symlinks); + my $lsb_header = lsb_header_for_script($name); + + # Extra arguments to disable|enable action are runlevels. If none + # given parse LSB info for Default-Start value. + if ($#_ >= 0) { + @toggle_lvls = @_; + } else { + ($start_lvls, $stop_lvls) = parse_def_start_stop($lsb_header); + @toggle_lvls = @$start_lvls; + if ($#toggle_lvls < 0) { + error("$name Default-Start contains no runlevels, aborting."); + } + } + + # Find symlinks in rc.d directories. Refuse to modify links in runlevels + # not used for normal system start sequence. + for my $lvl (@toggle_lvls) { + if ($lvl !~ /^[S2345]$/) { + warning("$act action will have no effect on runlevel $lvl"); + next; + } + push(@symlinks, $_) for glob("/etc/rc$lvl.d/[SK][0-9][0-9]$name"); + } + + if (!@symlinks) { + error("no runlevel symlinks to modify, aborting!"); + } + + # Toggle S/K bit of script symlink. + for my $cur_lnk (@symlinks) { + my $sk; + my @new_lnk = split(//, $cur_lnk); + + if ("disable" eq $act) { + $sk = rindex($cur_lnk, '/S') + 1; + next if $sk < 1; + $new_lnk[$sk] = 'K'; + } else { + $sk = rindex($cur_lnk, '/K') + 1; + next if $sk < 1; + $new_lnk[$sk] = 'S'; + } + + if ($dryrun) { + printf("rename(%s, %s)\n", $cur_lnk, join('', @new_lnk)); + next; + } + + rename($cur_lnk, join('', @new_lnk)) or error($!); + } +} diff --git a/beagle/debian-rfs/usr/sbin/update-rc.d-insserv b/beagle/debian-rfs/usr/sbin/update-rc.d-insserv new file mode 100755 index 0000000..1853251 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/update-rc.d-insserv @@ -0,0 +1,593 @@ +#! /usr/bin/perl +# +# update-rc.d Update the links in /etc/rc[0-9S].d/ +# + +use strict; +use warnings; + +my $initd = "/etc/init.d"; +my $etcd = "/etc/rc"; +my $notreally = 0; + +# Save last action to this directory +my $archive = "/var/lib/update-rc.d"; + +# Print usage message and die. + +sub usage { + print STDERR "update-rc.d: error: @_\n" if ($#_ >= 0); + print STDERR <<EOF; +usage: update-rc.d [-n] [-f] <basename> remove + update-rc.d [-n] <basename> defaults [NN | SS KK] + update-rc.d [-n] <basename> start|stop NN runlvl [runlvl] [...] . + update-rc.d [-n] <basename> disable|enable [S|2|3|4|5] + -n: not really + -f: force + +The disable|enable API is not stable and might change in the future. +EOF + exit (1); +} + +# Dependency based boot sequencing is the default, but upgraded +# systems might keep the legacy ordering until the sysadm choose to +# migrate to the new ordering method. sysv-rc version 2.87dsf-2 will +# remove /var/lib/insserv/using-insserv and this divert, thus transfering +# the responsibility for dependency based update-rc.d to sysv-rc. +if ( -f "/var/lib/insserv/using-insserv" && ! -f "/etc/init.d/.legacy-bootordering" ) { + info("using dependency based boot sequencing"); + exit insserv_updatercd(@ARGV); +} + +# Check out options. +my $force; + +my @orig_argv = @ARGV; + +while($#ARGV >= 0 && ($_ = $ARGV[0]) =~ /^-/) { + shift @ARGV; + if (/^-n$/) { $notreally++; next } + if (/^-f$/) { $force++; next } + if (/^-h|--help$/) { &usage; } + &usage("unknown option"); +} + +sub save_last_action { + my ($script, @arguments) = @_; + + return if $notreally; + + open(FILE, ">", "$archive/${script}.new") || die "unable to write to $archive/${script}.new"; + print FILE join(" ","update-rc.d",@arguments), "\n"; + close(FILE); + rename "$archive/${script}.new", "$archive/${script}"; +} + +sub remove_last_action { + my ($script) = @_; + unlink "$archive/$script"; +} + +# Action. + +&usage() if ($#ARGV < 1); +my $bn = shift @ARGV; + +unless ($bn =~ m/[a-zA-Z0-9+.-]+/) { + print STDERR "update-rc.d: illegal character in name '$bn'\n"; + exit (1); +} + +if ($ARGV[0] ne 'remove') { + if (! -f "$initd/$bn") { + print STDERR "update-rc.d: $initd/$bn: file does not exist\n"; + exit (1); + } + &parse_lsb_header("$initd/$bn"); + &cmp_args_with_defaults($bn, $ARGV[0], @ARGV); +} elsif (-f "$initd/$bn") { + if (!$force) { + printf STDERR "update-rc.d: $initd/$bn exists during rc.d purge (use -f to force)\n"; + exit (1); + } +} + +my @startlinks; +my @stoplinks; + +$_ = $ARGV[0]; +if (/^remove$/) { &checklinks ("remove"); remove_last_action($bn); } +elsif (/^defaults$/) { &defaults (@ARGV); &makelinks; save_last_action($bn, @orig_argv); } +elsif (/^(start|stop)$/) { &startstop (@ARGV); &makelinks; save_last_action($bn, @orig_argv); } +elsif (/^(dis|en)able$/) { &toggle (@ARGV); &makelinks; save_last_action($bn, @orig_argv); } +else { &usage; } + +exit (0); + +sub info { + print STDOUT "update-rc.d: @_\n"; +} + +sub warning { + print STDERR "update-rc.d: warning: @_\n"; +} + +sub error { + print STDERR "update-rc.d: error: @_\n"; + exit (1); +} + +sub error_code { + my $rc = shift; + print STDERR "update-rc.d: error: @_\n"; + exit ($rc); +} + +# Check if there are links in /etc/rc[0-9S].d/ +# Remove if the first argument is "remove" and the links +# point to $bn. + +sub is_link () { + my ($op, $fn, $bn) = @_; + if (! -l $fn) { + warning "$fn is not a symbolic link\n"; + return 0; + } else { + my $linkdst = readlink ($fn); + if (! defined $linkdst) { + die ("update-rc.d: error reading symbolic link: $!\n"); + } + if (($linkdst ne "../init.d/$bn") && ($linkdst ne "$initd/$bn")) { + warning "$fn is not a link to ../init.d/$bn or $initd/$bn\n"; + return 0; + } + } + return 1; +} + +sub checklinks { + my ($i, $found, $fn, $islnk); + + print " Removing any system startup links for $initd/$bn ...\n" + if (defined $_[0] && $_[0] eq 'remove'); + + $found = 0; + + foreach $i (0..9, 'S') { + unless (chdir ("$etcd$i.d")) { + next if ($i =~ m/^[789S]$/); + die("update-rc.d: chdir $etcd$i.d: $!\n"); + } + opendir(DIR, "."); + my $saveBN=$bn; + $saveBN =~ s/\+/\\+/g; + foreach $_ (readdir(DIR)) { + next unless (/^[SK]\d\d$saveBN$/); + $fn = "$etcd$i.d/$_"; + $found = 1; + $islnk = &is_link ($_[0], $fn, $bn); + next unless (defined $_[0] and $_[0] eq 'remove'); + if (! $islnk) { + print " $fn is not a link to ../init.d/$bn; not removing\n"; + next; + } + print " $etcd$i.d/$_\n"; + next if ($notreally); + unlink ("$etcd$i.d/$_") || + die("update-rc.d: unlink: $!\n"); + } + closedir(DIR); + } + $found; +} + +sub parse_lsb_header { + my $initdscript = shift; + my %lsbinfo; + my $lsbheaders = "Provides|Required-Start|Required-Stop|Default-Start|Default-Stop"; + open(INIT, "<$initdscript") || die "error: unable to read $initdscript"; + while (<INIT>) { + chomp; + $lsbinfo{'found'} = 1 if (m/^\#\#\# BEGIN INIT INFO\s*$/); + last if (m/\#\#\# END INIT INFO\s*$/); + if (m/^\# ($lsbheaders):\s*(\S?.*)$/i) { + $lsbinfo{lc($1)} = $2; + } + } + close(INIT); + + # Check that all the required headers are present + if (!$lsbinfo{found}) { + printf STDERR "update-rc.d: warning: $initdscript missing LSB information\n"; + printf STDERR "update-rc.d: see <http://wiki.debian.org/LSBInitScripts>\n"; + } else { + for my $key (split(/\|/, lc($lsbheaders))) { + if (!exists $lsbinfo{$key}) { + warning "$initdscript missing LSB keyword '$key'\n"; + } + } + } +} + + +# Process the arguments after the "enable" or "disable" keyword. + +sub toggle { + my @argv = @_; + my ($action, %lvls, @start, @stop, @xstartlinks); + + if (!&checklinks) { + print " System start/stop links for $initd/$bn do not exist.\n"; + exit (0); + } + + $action = $argv[0]; + if ($#argv > 1) { + while ($#argv > 0 && shift @argv) { + if ($argv[0] =~ /^[S2-5]$/) { + $lvls{$argv[0]}++; + } else { + &usage ("expected 'S' '2' '3' '4' or '5'"); + } + } + } else { + $lvls{$_}++ for ('S', '2', '3', '4', '5'); + } + + push(@start, glob($etcd . '[2-5S].d/[KS][0-9][0-9]' . $bn)); + + foreach (@start) { + my $islink = &is_link (undef, $_, $bn); + next if !$islink; + + next unless my ($lvl, $sk, $seq) = m/^$etcd([2-5S])\.d\/([SK])([0-9]{2})$bn$/; + $startlinks[$lvl] = $sk . $seq; + + if ($action eq 'disable' and $sk eq 'S' and $lvls{$lvl}) { + $xstartlinks[$lvl] = 'K' . sprintf "%02d", (100 - $seq); + } elsif ($action eq 'enable' and $sk eq 'K' and $lvls{$lvl}) { + $xstartlinks[$lvl] = 'S' . sprintf "%02d", -($seq - 100); + } else { + $xstartlinks[$lvl] = $sk . $seq; + } + } + + push(@stop, glob($etcd . '[016].d/[KS][0-9][0-9]' . $bn)); + + foreach (@stop) { + my $islink = &is_link (undef, $_, $bn); + next if !$islink; + + next unless my ($lvl, $sk, $seq) = m/^$etcd([016])\.d\/([SK])([0-9]{2})$bn$/; + $stoplinks[$lvl] = $sk . $seq; + } + + if ($action eq 'disable') { + print " Disabling system startup links for $initd/$bn ...\n"; + } elsif ($action eq 'enable') { + print " Enabling system startup links for $initd/$bn ...\n"; + } + + &checklinks ("remove"); + @startlinks = @xstartlinks; + + 1; +} + +# Process the arguments after the "defaults" keyword. + +sub defaults { + my @argv = @_; + my ($start, $stop) = (20, 20); + + &usage ("defaults takes only one or two codenumbers") if ($#argv > 2); + $start = $stop = $argv[1] if ($#argv >= 1); + $stop = $argv[2] if ($#argv >= 2); + &usage ("codenumber must be a number between 0 and 99") + if ($start !~ /^\d\d?$/ || $stop !~ /^\d\d?$/); + + $start = sprintf("%02d", $start); + $stop = sprintf("%02d", $stop); + + $stoplinks[$_] = "K$stop" for (0, 1, 6); + $startlinks[$_] = "S$start" for (2, 3, 4, 5); + + 1; +} + +# Process the arguments after the start or stop keyword. + +sub startstop { + my @argv = @_; + my($letter, $NN, $level); + + while ($#argv >= 0) { + if ($argv[0] eq 'start') { $letter = 'S'; } + elsif ($argv[0] eq 'stop') { $letter = 'K'; } + else { + &usage("expected start|stop"); + } + + if ($argv[1] !~ /^\d\d?$/) { + &usage("expected NN after $argv[0]"); + } + $NN = sprintf("%02d", $argv[1]); + + if ($argv[-1] ne '.') { + &usage("start|stop arguments not terminated by \".\""); + } + + shift @argv; shift @argv; + $level = shift @argv; + do { + if ($level !~ m/^[0-9S]$/) { + &usage( + "expected runlevel [0-9S] (did you forget \".\" ?)"); + } + if (! -d "$etcd$level.d") { + print STDERR + "update-rc.d: $etcd$level.d: no such directory\n"; + exit(1); + } + $level = 99 if ($level eq 'S'); + $startlinks[$level] = "$letter$NN" if ($letter eq 'S'); + $stoplinks[$level] = "$letter$NN" if ($letter eq 'K'); + } while (($level = shift @argv) ne '.'); + } + 1; +} + +# Create the links. + +sub makelinks { + my($t, $i); + my @links; + + if (&checklinks) { + print " System start/stop links for $initd/$bn already exist.\n"; + return 0; + } + print " Adding system startup for $initd/$bn ...\n"; + + # nice unreadable perl mess :) + + for($t = 0; $t < 2; $t++) { + @links = $t ? @startlinks : @stoplinks; + for($i = 0; $i <= $#links; $i++) { + my $lvl = $i; + $lvl = 'S' if ($i == 99); + next if (!defined $links[$i] or $links[$i] eq ''); + print " $etcd$lvl.d/$links[$i]$bn -> ../init.d/$bn\n"; + next if ($notreally); + symlink("../init.d/$bn", "$etcd$lvl.d/$links[$i]$bn") + || die("update-rc.d: symlink: $!\n"); + } + } + + 1; +} + +## Dependency based +sub insserv_updatercd { + my @args = @_; + my @opts; + my $scriptname; + my $action; + my $notreally = 0; + + my @orig_argv = @args; + + while($#args >= 0 && ($_ = $args[0]) =~ /^-/) { + shift @args; + if (/^-n$/) { push(@opts, $_); $notreally++; next } + if (/^-f$/) { push(@opts, $_); next } + if (/^-h|--help$/) { &usage; } + usage("unknown option"); + } + + usage("not enough arguments") if ($#args < 1); + + $scriptname = shift @args; + $action = shift @args; + if ("remove" eq $action) { + if ( -f "/etc/init.d/$scriptname" ) { + my $rc = system("insserv", @opts, "-r", $scriptname) >> 8; + if (0 == $rc && !$notreally) { + remove_last_action($scriptname); + } + error_code($rc, "insserv rejected the script header") if $rc; + exit $rc; + } else { + # insserv removes all dangling symlinks, no need to tell it + # what to look for. + my $rc = system("insserv", @opts) >> 8; + if (0 == $rc && !$notreally) { + remove_last_action($scriptname); + } + error_code($rc, "insserv rejected the script header") if $rc; + exit $rc; + } + } elsif ("defaults" eq $action || "start" eq $action || + "stop" eq $action) { + # All start/stop/defaults arguments are discarded so emit a + # message if arguments have been given and are in conflict + # with Default-Start/Default-Stop values of LSB comment. + cmp_args_with_defaults($scriptname, $action, @args); + + if ( -f "/etc/init.d/$scriptname" ) { + my $rc = system("insserv", @opts, $scriptname) >> 8; + if (0 == $rc && !$notreally) { + save_last_action($scriptname, @orig_argv); + } + error_code($rc, "insserv rejected the script header") if $rc; + exit $rc; + } else { + error("initscript does not exist: /etc/init.d/$scriptname"); + } + } elsif ("disable" eq $action || "enable" eq $action) { + insserv_toggle($notreally, $action, $scriptname, @args); + # Call insserv to resequence modified links + my $rc = system("insserv", @opts, $scriptname) >> 8; + if (0 == $rc && !$notreally) { + save_last_action($scriptname, @orig_argv); + } + error_code($rc, "insserv rejected the script header") if $rc; + exit $rc; + } else { + usage(); + } +} + +sub parse_def_start_stop { + my $script = shift; + my (%lsb, @def_start_lvls, @def_stop_lvls); + + open my $fh, '<', $script or error("unable to read $script"); + while (<$fh>) { + chomp; + if (m/^### BEGIN INIT INFO$/) { + $lsb{'begin'}++; + } + elsif (m/^### END INIT INFO$/) { + $lsb{'end'}++; + last; + } + elsif ($lsb{'begin'} and not $lsb{'end'}) { + if (m/^# Default-Start:\s*(\S?.*)$/) { + @def_start_lvls = split(' ', $1); + } + if (m/^# Default-Stop:\s*(\S?.*)$/) { + @def_stop_lvls = split(' ', $1); + } + } + } + close($fh); + + return (\@def_start_lvls, \@def_stop_lvls); +} + +sub lsb_header_for_script { + my $name = shift; + + foreach my $file ("/etc/insserv/overrides/$name", "/etc/init.d/$name", + "/usr/share/insserv/overrides/$name") { + return $file if -s $file; + } + + error("cannot find a LSB script for $name"); +} + +sub cmp_args_with_defaults { + my ($name, $act) = (shift, shift); + my ($lsb_start_ref, $lsb_stop_ref, $arg_str, $lsb_str); + my (@arg_start_lvls, @arg_stop_lvls, @lsb_start_lvls, @lsb_stop_lvls); + + ($lsb_start_ref, $lsb_stop_ref) = parse_def_start_stop("/etc/init.d/$name"); + @lsb_start_lvls = @$lsb_start_ref; + @lsb_stop_lvls = @$lsb_stop_ref; + return if (!@lsb_start_lvls and !@lsb_stop_lvls); + + if ($act eq 'defaults') { + @arg_start_lvls = (2, 3, 4, 5); + @arg_stop_lvls = (0, 1, 6); + } elsif ($act eq 'start' or $act eq 'stop') { + my $start = $act eq 'start' ? 1 : 0; + my $stop = $act eq 'stop' ? 1 : 0; + + # The legacy part of this program passes arguments starting with + # "start|stop NN x y z ." but the insserv part gives argument list + # starting with sequence number (ie. strips off leading "start|stop") + # Start processing arguments immediately after the first seq number. + my $argi = $_[0] eq $act ? 2 : 1; + + while (defined $_[$argi]) { + my $arg = $_[$argi]; + + # Runlevels 0 and 6 are always stop runlevels + if ($arg eq 0 or $arg eq 6) { + $start = 0; $stop = 1; + } elsif ($arg eq 'start') { + $start = 1; $stop = 0; $argi++; next; + } elsif ($arg eq 'stop') { + $start = 0; $stop = 1; $argi++; next; + } elsif ($arg eq '.') { + next; + } + push(@arg_start_lvls, $arg) if $start; + push(@arg_stop_lvls, $arg) if $stop; + } continue { + $argi++; + } + } + + if ($#arg_start_lvls != $#lsb_start_lvls or + join("\0", sort @arg_start_lvls) ne join("\0", sort @lsb_start_lvls)) { + $arg_str = @arg_start_lvls ? "@arg_start_lvls" : "none"; + $lsb_str = @lsb_start_lvls ? "@lsb_start_lvls" : "none"; + warning "$name start runlevel arguments ($arg_str) do not match", + "LSB Default-Start values ($lsb_str)"; + } + if ($#arg_stop_lvls != $#lsb_stop_lvls or + join("\0", sort @arg_stop_lvls) ne join("\0", sort @lsb_stop_lvls)) { + $arg_str = @arg_stop_lvls ? "@arg_stop_lvls" : "none"; + $lsb_str = @lsb_stop_lvls ? "@lsb_stop_lvls" : "none"; + warning "$name stop runlevel arguments ($arg_str) do not match", + "LSB Default-Stop values ($lsb_str)"; + } +} + +sub insserv_toggle { + my ($dryrun, $act, $name) = (shift, shift, shift); + my (@toggle_lvls, $start_lvls, $stop_lvls, @symlinks); + my $lsb_header = lsb_header_for_script($name); + + # Extra arguments to disable|enable action are runlevels. If none + # given parse LSB info for Default-Start value. + if ($#_ >= 0) { + @toggle_lvls = @_; + } else { + ($start_lvls, $stop_lvls) = parse_def_start_stop($lsb_header); + @toggle_lvls = @$start_lvls; + if ($#toggle_lvls < 0) { + error("$name Default-Start contains no runlevels, aborting."); + } + } + + # Find symlinks in rc.d directories. Refuse to modify links in runlevels + # not used for normal system start sequence. + for my $lvl (@toggle_lvls) { + if ($lvl !~ /^[S2345]$/) { + warning("$act action will have no effect on runlevel $lvl"); + next; + } + push(@symlinks, $_) for glob("/etc/rc$lvl.d/[SK][0-9][0-9]$name"); + } + + if (!@symlinks) { + error("no runlevel symlinks to modify, aborting!"); + } + + # Toggle S/K bit of script symlink. + for my $cur_lnk (@symlinks) { + my $sk; + my @new_lnk = split(//, $cur_lnk); + + if ("disable" eq $act) { + $sk = rindex($cur_lnk, '/S') + 1; + next if $sk < 1; + $new_lnk[$sk] = 'K'; + } else { + $sk = rindex($cur_lnk, '/K') + 1; + next if $sk < 1; + $new_lnk[$sk] = 'S'; + } + + if ($dryrun) { + printf("rename(%s, %s)\n", $cur_lnk, join('', @new_lnk)); + next; + } + + rename($cur_lnk, join('', @new_lnk)) or error($!); + } +} diff --git a/beagle/debian-rfs/usr/sbin/useradd b/beagle/debian-rfs/usr/sbin/useradd Binary files differnew file mode 100755 index 0000000..6da55fb --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/useradd diff --git a/beagle/debian-rfs/usr/sbin/userdel b/beagle/debian-rfs/usr/sbin/userdel Binary files differnew file mode 100755 index 0000000..e41f7a1 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/userdel diff --git a/beagle/debian-rfs/usr/sbin/usermod b/beagle/debian-rfs/usr/sbin/usermod Binary files differnew file mode 100755 index 0000000..beda563 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/usermod diff --git a/beagle/debian-rfs/usr/sbin/vidmode b/beagle/debian-rfs/usr/sbin/vidmode new file mode 120000 index 0000000..f9af812 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/vidmode @@ -0,0 +1 @@ +rdev
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/sbin/vigr b/beagle/debian-rfs/usr/sbin/vigr new file mode 120000 index 0000000..95923b0 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/vigr @@ -0,0 +1 @@ +vipw
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/sbin/vipw b/beagle/debian-rfs/usr/sbin/vipw Binary files differnew file mode 100755 index 0000000..7e043f9 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/vipw diff --git a/beagle/debian-rfs/usr/sbin/zic b/beagle/debian-rfs/usr/sbin/zic Binary files differnew file mode 100755 index 0000000..f742b95 --- /dev/null +++ b/beagle/debian-rfs/usr/sbin/zic 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\ diff --git a/beagle/debian-rfs/var/lib/apt/lists/debootstrap.invalid_dists_squeeze_Release b/beagle/debian-rfs/var/lib/apt/lists/debootstrap.invalid_dists_squeeze_Release new file mode 100644 index 0000000..ce5e0c2 --- /dev/null +++ b/beagle/debian-rfs/var/lib/apt/lists/debootstrap.invalid_dists_squeeze_Release @@ -0,0 +1,849 @@ +Origin: Debian +Label: Debian +Suite: stable +Version: 6.0.1 +Codename: squeeze +Date: Sat, 19 Mar 2011 13:04:59 UTC +Architectures: amd64 armel i386 ia64 kfreebsd-amd64 kfreebsd-i386 mips mipsel powerpc s390 sparc +Components: main contrib non-free +Description: Debian 6.0.1 Released 19 March 2011 +MD5Sum: + 8264fdd416c6ddec130ae5d02d81e503 54352 Contents-udeb.gz + e65afb4c0bc22ba1954e36219288c975 16950152 Contents-sparc.gz + 374a524d16ab45c09e8c7b75ae44c261 16313305 Contents-kfreebsd-i386.gz + d49811dd5110a7c3bf6bdf9cd71d3592 718 Contents-udeb-nf.gz + d0f9d8d3c14832af0aff420147618e54 16824207 Contents-s390.gz + 89c6cb15c053e5d3ec8ee37e5f94e155 16879283 Contents-mipsel.gz + d6d0046456d7e33a87fdff790ffdb173 16303555 Contents-kfreebsd-amd64.gz + 188bff787895b4a830159e67f910e69e 17094181 Contents-powerpc.gz + 9feff301ed1d5ba39e5cfb7ecc50d8cc 16842196 Contents-mips.gz + 7f483ab6cae4e413e80153e829cf8a68 16877907 Contents-armel.gz + 8c5209bc0f7ff2b491c76aa9885f6d4b 16813756 Contents-ia64.gz + fab948d9082570412446713b10c15b0e 17515775 Contents-i386.gz + e29f34451a74fb7ba2720b1bb94465a7 17315215 Contents-amd64.gz + f8825adf30423ab9b92a4979208bb93f 9483 main/installer-amd64/20110106+b1/images/MD5SUMS + 371c5fa1ac61567195253886699489a4 9483 main/installer-amd64/20110106+squeeze1/images/MD5SUMS + 371c5fa1ac61567195253886699489a4 9483 main/installer-amd64/current/images/MD5SUMS + 5e4e41841c7406659c824718eedb13eb 31462284 main/binary-amd64/Packages + e20f8ec854ee0e2a6682a92a6e55a648 8602340 main/binary-amd64/Packages.gz + 3a4eeb9729e2454f79a0630a3d067028 6539759 main/binary-amd64/Packages.bz2 + 0abb927b8c5623d340aa802b6ef37380 96 main/binary-amd64/Release + c512e6d23bfc9600b9b1a2bcbfffe846 4410 main/installer-armel/20110106+b1/images/MD5SUMS + 88b0a2d0cda52cde63afb4f887edca03 4410 main/installer-armel/20110106+squeeze1/images/MD5SUMS + 88b0a2d0cda52cde63afb4f887edca03 4410 main/installer-armel/current/images/MD5SUMS + 8b8e08c556121eaec3b474afe0bf71e0 30805164 main/binary-armel/Packages + a35bf41655df84af68ddc3dc2ee68327 8439443 main/binary-armel/Packages.gz + 63a24dc117928612541ca54e3bf331db 6423586 main/binary-armel/Packages.bz2 + b146d25be8d730881f19f051a8df861b 96 main/binary-armel/Release + af9378ac3ac21efa3696bf2f65076cca 9617 main/installer-i386/20110106+b1/images/MD5SUMS + 62509a53ba74a82e64950f7c51aef091 9617 main/installer-i386/20110106+squeeze1/images/MD5SUMS + 62509a53ba74a82e64950f7c51aef091 9617 main/installer-i386/current/images/MD5SUMS + cac0190e5a6284c181a08866fe2693c3 31545354 main/binary-i386/Packages + 20da4df36ed05a608a064cd5329a12e2 8632935 main/binary-i386/Packages.gz + 684f2c675f2179d438f928d29a23f5f6 6567502 main/binary-i386/Packages.bz2 + b8c7e6e2bababa3ce9be1bf7e7a15abc 95 main/binary-i386/Release + 750bfe157581ae17ba57a29e6762ae0d 985 main/installer-ia64/20110106+b1/images/MD5SUMS + 82e50437ef6a8ebffd2d81a52c4176a3 985 main/installer-ia64/20110106+squeeze1/images/MD5SUMS + 82e50437ef6a8ebffd2d81a52c4176a3 985 main/installer-ia64/current/images/MD5SUMS + ad2f594c1a5ee7a4753b6da98d6f96c4 30465785 main/binary-ia64/Packages + a6a6f00fcdf2cf6ab745c0c650e92dee 8400483 main/binary-ia64/Packages.gz + 8a55d15a2c75e7176991e81d45d31433 6379120 main/binary-ia64/Packages.bz2 + 9cfdc2d0c19aa55871e01c971e475486 95 main/binary-ia64/Release + ad55a334f37b10b0bb04cda716f9d8ad 804 main/installer-mips/20110106+b1/images/MD5SUMS + 4420d3152371c7f3f154b223f43656f7 804 main/installer-mips/20110106+squeeze1/images/MD5SUMS + 4420d3152371c7f3f154b223f43656f7 804 main/installer-mips/current/images/MD5SUMS + 406ac0138dd3f73a04e8d4c822ab4552 30644666 main/binary-mips/Packages + 1e55fe7e53e5476d8298355dbe697e52 8417199 main/binary-mips/Packages.gz + de4645d81cefc9947bc714cbb324edae 6406774 main/binary-mips/Packages.bz2 + 39cabffce919b32522bdadbee7e060ca 95 main/binary-mips/Release + d7d1edcabd7f06ba1799e5ac94cfb430 985 main/installer-mipsel/20110106+b1/images/MD5SUMS + 199385de5a59090ea1d03f254d1bc91d 985 main/installer-mipsel/20110106+squeeze1/images/MD5SUMS + 199385de5a59090ea1d03f254d1bc91d 985 main/installer-mipsel/current/images/MD5SUMS + 64097a4a5636893316032831fa226159 30760044 main/binary-mipsel/Packages + d10f4926def7a3f71c899f403dd1f2b0 8437838 main/binary-mipsel/Packages.gz + 1ec3f3fd91cfff7d8d3857af88b52ab0 6418945 main/binary-mipsel/Packages.bz2 + c8b1804be69b847c456068ffda58ed88 97 main/binary-mipsel/Release + 80eafee84887d8ad736274adfb2003ec 2128 main/installer-powerpc/20110106+b1/images/MD5SUMS + af1940264f38e98baeaccfef926eef05 2128 main/installer-powerpc/20110106+squeeze1/images/MD5SUMS + af1940264f38e98baeaccfef926eef05 2128 main/installer-powerpc/current/images/MD5SUMS + 6c127900ddbaaf822bdff9fbe6ac5375 31214853 main/binary-powerpc/Packages + 9c01df36dc365d9fc7d38d185656a4da 8531488 main/binary-powerpc/Packages.gz + 69f22a719f3d666d8bfd75fdb0e51c17 6489869 main/binary-powerpc/Packages.bz2 + 34b11479e1f480bee3210eb3c34b21aa 98 main/binary-powerpc/Release + f7343e89e33f5e16d2807252cc9b9a90 549 main/installer-s390/20110106+b1/images/MD5SUMS + eca76221bca40d00dc1e23e76bb61f1f 549 main/installer-s390/20110106+squeeze1/images/MD5SUMS + eca76221bca40d00dc1e23e76bb61f1f 549 main/installer-s390/current/images/MD5SUMS + c17dac34e612c0bbf276ccb179e42aa5 30735599 main/binary-s390/Packages + c74a46ae6fdb41456557ad1a7f33b952 8439638 main/binary-s390/Packages.gz + e27e3917cd09c13501cac6b0102bf045 6419308 main/binary-s390/Packages.bz2 + 74c4318d94369fb8628f3e6e17ca2f45 95 main/binary-s390/Release + 829ed8dabc88458390b27af9ab34e715 359 main/installer-sparc/20110106+b1/images/MD5SUMS + 653752b5d4a6b62c5c5c7ac44ff975da 359 main/installer-sparc/20110106+squeeze1/images/MD5SUMS + 653752b5d4a6b62c5c5c7ac44ff975da 359 main/installer-sparc/current/images/MD5SUMS + f44278f2d8927853ba05402193bb2ae9 30960315 main/binary-sparc/Packages + 71c85556d3c9762a3e384c90587eb5b9 8473499 main/binary-sparc/Packages.gz + 0f6d685f9724dfcb046b3459107957bf 6447577 main/binary-sparc/Packages.bz2 + de216dbf8495a12e0eca7e78837b000b 96 main/binary-sparc/Release + a90205ddf689f54e06c7895628a9a7e3 934 main/installer-kfreebsd-i386/20110106+b1/images/MD5SUMS + 01ba46712ba98642492498dadd1ac372 934 main/installer-kfreebsd-i386/20110106+squeeze1/images/MD5SUMS + 01ba46712ba98642492498dadd1ac372 934 main/installer-kfreebsd-i386/current/images/MD5SUMS + a04ab4207e97e208114a7319aadbe5d4 29093588 main/binary-kfreebsd-i386/Packages + 4f8f70628b16a2daf3a23dcf72b592d1 7920733 main/binary-kfreebsd-i386/Packages.gz + 34e336b04d6cd95a84dbbd6cdf3d8289 6019421 main/binary-kfreebsd-i386/Packages.bz2 + c374ac9569828e2c5685d0f894d702b6 104 main/binary-kfreebsd-i386/Release + 0f06382e570c10df867fde3762c58035 940 main/installer-kfreebsd-amd64/20110106+b1/images/MD5SUMS + ee2f3692a6887528fa8349f149a98f19 940 main/installer-kfreebsd-amd64/20110106+squeeze1/images/MD5SUMS + ee2f3692a6887528fa8349f149a98f19 940 main/installer-kfreebsd-amd64/current/images/MD5SUMS + 6f010b9358eb810fb834a8ca6bcbf68d 29122359 main/binary-kfreebsd-amd64/Packages + 16452c88ea67e3f14f511269d1917bc6 7919464 main/binary-kfreebsd-amd64/Packages.gz + 01e560855e393c5b4222e2c05bf3555f 6018314 main/binary-kfreebsd-amd64/Packages.bz2 + 4880426b3e0fcd789b1c24845fa28ee4 105 main/binary-kfreebsd-amd64/Release + e33effa93ffd89804c2135e5697449d6 16218066 main/source/Sources + 658a9dfbc1ec3295480da7fdd1531da6 4823131 main/source/Sources.gz + 8d7969497c285044399d39dcea1e554d 3720563 main/source/Sources.bz2 + a9c4b73792547a2936b809c27e2c76a8 97 main/source/Release + bd94a5c635abc37270f39838b435dcb8 2232 main/i18n/Index + 8275907c75a6baa17d02ee34e4754b4d 201315 contrib/binary-amd64/Packages + 6b82ba3a7204b8666ecbad9f4b11141a 64063 contrib/binary-amd64/Packages.gz + a8512d70c3314d85e0cd89c9ffdf383f 52970 contrib/binary-amd64/Packages.bz2 + e41f448d769a7ed7066fbbc03caf6cf8 99 contrib/binary-amd64/Release + ebf80d0d7d56a00126f55f684d772009 168432 contrib/binary-armel/Packages + eebc2fd2ee49eecc2c53676445495b98 54072 contrib/binary-armel/Packages.gz + 0ab30e6df96647c8f126777c0b514574 45074 contrib/binary-armel/Packages.bz2 + 5cb9426bee0c50b66200546d67dcee0d 99 contrib/binary-armel/Release + ce85ee6d69bcf402ec622a6e80de5a26 206512 contrib/binary-i386/Packages + 3bfff70585b31775adf2d25a9938cce8 65573 contrib/binary-i386/Packages.gz + d5f0110a25d26306a00b5e3be765b179 54085 contrib/binary-i386/Packages.bz2 + 5235f7d39086e7490c71d33faf5f0fe2 98 contrib/binary-i386/Release + 5553ed45729bd69bcadb6cff3a14a602 169450 contrib/binary-ia64/Packages + badd2c9f74c75e1f8128f3ff136df50d 54388 contrib/binary-ia64/Packages.gz + 08e094c2c0582af7da63d8e4cba31c66 45417 contrib/binary-ia64/Packages.bz2 + 2ed9f1d366997a39fe8e57a4561d934c 98 contrib/binary-ia64/Release + f71ba2e59139d9a047e32065fd09945f 167802 contrib/binary-mips/Packages + 661c93da55af4b1e0a0076bef3b43f77 53413 contrib/binary-mips/Packages.gz + 9ee9d49cf969743a091f7ebc7d963b90 45069 contrib/binary-mips/Packages.bz2 + 4dc69db00b6409c861a769499e48c5ae 98 contrib/binary-mips/Release + b7f0310da0f734b133df6a33c88bcf96 169394 contrib/binary-mipsel/Packages + c94034ce6b9604bc34921bbb52c4fd68 54202 contrib/binary-mipsel/Packages.gz + b4dfa9d5d225c61bbcb6e76ffb907970 45363 contrib/binary-mipsel/Packages.bz2 + 3ae7e0fddd49fce81642260fc9cef98f 100 contrib/binary-mipsel/Release + 8b77742456dc72cd6679100949acb89e 165750 contrib/binary-powerpc/Packages + fe8433da82466ab5ab711599121a69a3 52957 contrib/binary-powerpc/Packages.gz + 0e35064dde4f9847f9d6c9d79cdbc31f 44768 contrib/binary-powerpc/Packages.bz2 + 80e40ccfc38622bf496bcdd1a3f2f7b8 101 contrib/binary-powerpc/Release + e95155fc19f93f2873ebbb46041cbeb4 164864 contrib/binary-s390/Packages + 9d7038eed134b85e210655008d007fa5 52477 contrib/binary-s390/Packages.gz + 05e1c9ef7f3bafffb2bb715e562c8387 44385 contrib/binary-s390/Packages.bz2 + 005c2ea0f353f634b210751e32157c35 98 contrib/binary-s390/Release + 703c070b61abf21723b83536bc5b3938 166642 contrib/binary-sparc/Packages + 9bfc1782bb401a2a982a501aa56d8739 53113 contrib/binary-sparc/Packages.gz + c9f4ae1f694e638eced1d8bab9c3c50b 44815 contrib/binary-sparc/Packages.bz2 + 1ba948b3fb6d7bfe6c8ea46542dc6ad8 99 contrib/binary-sparc/Release + fe220d7dfa9e92e42afcc63ff8dff0cf 150458 contrib/binary-kfreebsd-i386/Packages + 33c83d4ee05e5ca14a195e9ca13dddce 48468 contrib/binary-kfreebsd-i386/Packages.gz + 353ceb6483ca061195bf2857ee8165ee 40859 contrib/binary-kfreebsd-i386/Packages.bz2 + 67e8a1de99c1c794e0e6b0b08e06b009 107 contrib/binary-kfreebsd-i386/Release + 81f7e84b0f7dca87a828056bcc4477a7 149521 contrib/binary-kfreebsd-amd64/Packages + d040c63d90b5c0073b7370de83f2185b 48638 contrib/binary-kfreebsd-amd64/Packages.gz + 530fe0260ffdd8f861d4d5e8147bb804 40672 contrib/binary-kfreebsd-amd64/Packages.bz2 + 67ffe79271fdf999afd78867bf950a96 108 contrib/binary-kfreebsd-amd64/Release + b2ad5fa8f841565378e5e4c0c8240dcb 127612 contrib/source/Sources + 72f9445dba3f4a7c9601e6f64413e0e9 40021 contrib/source/Sources.gz + 586a1c770be750091214d1fa0c8627b5 33875 contrib/source/Sources.bz2 + 48b93ff4da5341cecc155eb8208658ab 100 contrib/source/Release + 4a16b9956913036d1d8ef3d4373bc91d 450574 non-free/binary-amd64/Packages + b7e6c19499637ecf2bc0c5a3c395e167 123922 non-free/binary-amd64/Packages.gz + 4dd22e68fb166d5ecfadfb0827e73e9a 102150 non-free/binary-amd64/Packages.bz2 + 012d48eb269bf430544ee2d79e84522c 100 non-free/binary-amd64/Release + 19e8aa5bde47a64a8439313837269da4 333674 non-free/binary-armel/Packages + 04009133f373ab393add3db043c77872 100648 non-free/binary-armel/Packages.gz + 5cc44a5398799254ef4388dae119702f 83041 non-free/binary-armel/Packages.bz2 + 21c58f676b1641f9b59d436a67f2fa33 100 non-free/binary-armel/Release + f5d043857a3012a0628c967909d3ca53 465534 non-free/binary-i386/Packages + b623ab29cec00dc9b6d135f41a81e749 130976 non-free/binary-i386/Packages.gz + a51b44d6a646253c3d5edd8f5f6e301a 107779 non-free/binary-i386/Packages.bz2 + eb99bf4dae42640d5e50f92edc60d88c 99 non-free/binary-i386/Release + 3ecd6a2686a45e60a3de265dacbec831 338204 non-free/binary-ia64/Packages + ead429faa2366acce55a1664b09a4c00 101555 non-free/binary-ia64/Packages.gz + 9d33bbdf44020ee786277fcd9cd9d84a 84272 non-free/binary-ia64/Packages.bz2 + b2d650e10374d46db9d1416094f3aa6a 99 non-free/binary-ia64/Release + 54e544a7553e5bbb6db645b23033df3f 334662 non-free/binary-mips/Packages + b4e280cd3b77b1dbab04e8b02ae1ebdd 100785 non-free/binary-mips/Packages.gz + 7b390ff17559d8d8fc5b16d3dc688287 83692 non-free/binary-mips/Packages.bz2 + 2ce6a4bed9c61ecba3203693c49a9a52 99 non-free/binary-mips/Release + 61a31dadd9d0daea15163af95f555e80 331214 non-free/binary-mipsel/Packages + 28f59bda40c64bcf1f6d0bcbee9368a3 99519 non-free/binary-mipsel/Packages.gz + 3b799e142701dc6a9989893eeab3574f 82594 non-free/binary-mipsel/Packages.bz2 + fdfea429b175bbb125a10b8e61fc56c3 101 non-free/binary-mipsel/Release + 06ca480ef9e6098039b1eea8e35e222b 341385 non-free/binary-powerpc/Packages + 4e38000d83c22a5cfb37832123905790 102985 non-free/binary-powerpc/Packages.gz + b3581b889e596fc31b614927e7bc191f 85235 non-free/binary-powerpc/Packages.bz2 + 1723c481b880045662005d3d89f0fcb9 102 non-free/binary-powerpc/Release + b07f880005625b2fcf75afbcf8224907 330570 non-free/binary-s390/Packages + 6bed450f97fe198517db644e04c0b871 99569 non-free/binary-s390/Packages.gz + b9d003781a11adf21206402cf71a82ff 82572 non-free/binary-s390/Packages.bz2 + 1e37a896837543187cbfc1e0bb510feb 99 non-free/binary-s390/Release + 7c37e79457e34d652f584ff2523136da 342149 non-free/binary-sparc/Packages + ee6173a4b470e60969b3928089694e34 103088 non-free/binary-sparc/Packages.gz + 4b31792665339d14776439e2d68ad8ed 84992 non-free/binary-sparc/Packages.bz2 + 46831dcaea26680fd8ace93c4dfe3054 100 non-free/binary-sparc/Release + f9b2c708374ee918ef215beb80955a10 261413 non-free/binary-kfreebsd-i386/Packages + 48bf6bb1eb37002b3109cac98d37fff2 77510 non-free/binary-kfreebsd-i386/Packages.gz + 9134ee95c9d275d4750caf912a2619ee 65036 non-free/binary-kfreebsd-i386/Packages.bz2 + 97f4b2988aa5273afcdee6c1b8ba6b7e 108 non-free/binary-kfreebsd-i386/Release + a4dcbacb3f885c9c6e4ac384f651141f 261417 non-free/binary-kfreebsd-amd64/Packages + ddac189668c0aa231439433f0396f7be 77556 non-free/binary-kfreebsd-amd64/Packages.gz + 304cc6c77e263554350902d711761d02 65029 non-free/binary-kfreebsd-amd64/Packages.bz2 + 7e44d296690bd2880e4645e5dfc5e0e2 109 non-free/binary-kfreebsd-amd64/Release + 71963bd02a1852eaa63919bb72215115 237802 non-free/source/Sources + 14f45e46d9cfa0df54ce5d72e452ebce 74352 non-free/source/Sources.gz + 4966f7a7ee8b5d8235d322378b09a2f5 61666 non-free/source/Sources.bz2 + 73ba782d17fe83d9416d85f2d6c8880a 101 non-free/source/Release + 0abb927b8c5623d340aa802b6ef37380 96 main/debian-installer/binary-amd64/Release + 48fff6e3c1c9bc5232ff3ea058851d50 238045 main/debian-installer/binary-amd64/Packages + 791f10aa4ee31c173de9ffc581fa0120 65242 main/debian-installer/binary-amd64/Packages.gz + 91bcb3c4139a157abeee81c6d13d7330 51080 main/debian-installer/binary-amd64/Packages.bz2 + b146d25be8d730881f19f051a8df861b 96 main/debian-installer/binary-armel/Release + ece04a74137ca260599bf6862c5f07ca 304019 main/debian-installer/binary-armel/Packages + 5d3b17238db082d216633dc665c948e8 75648 main/debian-installer/binary-armel/Packages.gz + 72cad45b6c56d32b4e55ca42ccd51735 58942 main/debian-installer/binary-armel/Packages.bz2 + b8c7e6e2bababa3ce9be1bf7e7a15abc 95 main/debian-installer/binary-i386/Release + 0243cbb96bbfcfd150ed893c1810a4f8 286772 main/debian-installer/binary-i386/Packages + 4ff206401bacbd7ec61517789b91369d 73233 main/debian-installer/binary-i386/Packages.gz + e8a01e1056b4b1ab85ecb6db6a922fda 57370 main/debian-installer/binary-i386/Packages.bz2 + 9cfdc2d0c19aa55871e01c971e475486 95 main/debian-installer/binary-ia64/Release + a5e7b67e5a9504a479bb1e565810e2eb 224155 main/debian-installer/binary-ia64/Packages + 06d67a82f79ad6a99ce9c91a400a0a82 62857 main/debian-installer/binary-ia64/Packages.gz + 7f45c0f2b8a134627feab1c8cb4c66b2 49172 main/debian-installer/binary-ia64/Packages.bz2 + 39cabffce919b32522bdadbee7e060ca 95 main/debian-installer/binary-mips/Release + eb87fd87f85005ee3fbbd07fd9deb5ae 255197 main/debian-installer/binary-mips/Packages + b8512949d648220bb5e79124bd24118f 67535 main/debian-installer/binary-mips/Packages.gz + c2af9f307ed825807b047cdd53d94616 52992 main/debian-installer/binary-mips/Packages.bz2 + c8b1804be69b847c456068ffda58ed88 97 main/debian-installer/binary-mipsel/Release + 0d2bf466094be136ca497fa3660dd449 244295 main/debian-installer/binary-mipsel/Packages + 499a063419dc827477e96b0c525e722b 65777 main/debian-installer/binary-mipsel/Packages.gz + bde65bd92c9107ba916a1334a6e1c539 51482 main/debian-installer/binary-mipsel/Packages.bz2 + 34b11479e1f480bee3210eb3c34b21aa 98 main/debian-installer/binary-powerpc/Release + 4112a3c566738916fe92c34aecc613e7 273465 main/debian-installer/binary-powerpc/Packages + 473e818d56524c5249693a7aaf250765 71233 main/debian-installer/binary-powerpc/Packages.gz + 4dd40ab4fa357e20c1559eb08a8df420 55515 main/debian-installer/binary-powerpc/Packages.bz2 + 74c4318d94369fb8628f3e6e17ca2f45 95 main/debian-installer/binary-s390/Release + 914288d6e2b68c11d540be8a3aaf70d4 197785 main/debian-installer/binary-s390/Packages + ade5a4ac8cbc5ee7c247b578c03638d8 57285 main/debian-installer/binary-s390/Packages.gz + 7f91e7db6fda780e9e62a1b2c0ad61c7 45457 main/debian-installer/binary-s390/Packages.bz2 + de216dbf8495a12e0eca7e78837b000b 96 main/debian-installer/binary-sparc/Release + 9c005ea968fad377b643da941dfe665b 209884 main/debian-installer/binary-sparc/Packages + 6d0cd4e7a83d6ae91d0f41fabe086618 59579 main/debian-installer/binary-sparc/Packages.gz + f8b3da760c722052de1f295810132282 46954 main/debian-installer/binary-sparc/Packages.bz2 + c374ac9569828e2c5685d0f894d702b6 104 main/debian-installer/binary-kfreebsd-i386/Release + 2fc56b852efd8cdf552927d288cdc257 190536 main/debian-installer/binary-kfreebsd-i386/Packages + b5a989132d7819c7699688c95612da6a 53117 main/debian-installer/binary-kfreebsd-i386/Packages.gz + 85b67b19e60f36f1d6f11f095453ce35 41926 main/debian-installer/binary-kfreebsd-i386/Packages.bz2 + 4880426b3e0fcd789b1c24845fa28ee4 105 main/debian-installer/binary-kfreebsd-amd64/Release + d54884895db64c42a40bb8296983319c 191828 main/debian-installer/binary-kfreebsd-amd64/Packages + ec1ea829346dcf9b80db3eb6118156c8 53009 main/debian-installer/binary-kfreebsd-amd64/Packages.gz + 2ae5a70a3c8910bc6a72a215c6919467 42056 main/debian-installer/binary-kfreebsd-amd64/Packages.bz2 + 012d48eb269bf430544ee2d79e84522c 100 non-free/debian-installer/binary-amd64/Release + d41d8cd98f00b204e9800998ecf8427e 0 non-free/debian-installer/binary-amd64/Packages + 4a4dd3598707603b3f76a2378a4504aa 20 non-free/debian-installer/binary-amd64/Packages.gz + 4059d198768f9f8dc9372dc1c54bc3c3 14 non-free/debian-installer/binary-amd64/Packages.bz2 + 21c58f676b1641f9b59d436a67f2fa33 100 non-free/debian-installer/binary-armel/Release + d41d8cd98f00b204e9800998ecf8427e 0 non-free/debian-installer/binary-armel/Packages + 4a4dd3598707603b3f76a2378a4504aa 20 non-free/debian-installer/binary-armel/Packages.gz + 4059d198768f9f8dc9372dc1c54bc3c3 14 non-free/debian-installer/binary-armel/Packages.bz2 + eb99bf4dae42640d5e50f92edc60d88c 99 non-free/debian-installer/binary-i386/Release + d41d8cd98f00b204e9800998ecf8427e 0 non-free/debian-installer/binary-i386/Packages + 4a4dd3598707603b3f76a2378a4504aa 20 non-free/debian-installer/binary-i386/Packages.gz + 4059d198768f9f8dc9372dc1c54bc3c3 14 non-free/debian-installer/binary-i386/Packages.bz2 + b2d650e10374d46db9d1416094f3aa6a 99 non-free/debian-installer/binary-ia64/Release + d41d8cd98f00b204e9800998ecf8427e 0 non-free/debian-installer/binary-ia64/Packages + 4a4dd3598707603b3f76a2378a4504aa 20 non-free/debian-installer/binary-ia64/Packages.gz + 4059d198768f9f8dc9372dc1c54bc3c3 14 non-free/debian-installer/binary-ia64/Packages.bz2 + 2ce6a4bed9c61ecba3203693c49a9a52 99 non-free/debian-installer/binary-mips/Release + d41d8cd98f00b204e9800998ecf8427e 0 non-free/debian-installer/binary-mips/Packages + 4a4dd3598707603b3f76a2378a4504aa 20 non-free/debian-installer/binary-mips/Packages.gz + 4059d198768f9f8dc9372dc1c54bc3c3 14 non-free/debian-installer/binary-mips/Packages.bz2 + fdfea429b175bbb125a10b8e61fc56c3 101 non-free/debian-installer/binary-mipsel/Release + d41d8cd98f00b204e9800998ecf8427e 0 non-free/debian-installer/binary-mipsel/Packages + 4a4dd3598707603b3f76a2378a4504aa 20 non-free/debian-installer/binary-mipsel/Packages.gz + 4059d198768f9f8dc9372dc1c54bc3c3 14 non-free/debian-installer/binary-mipsel/Packages.bz2 + 1723c481b880045662005d3d89f0fcb9 102 non-free/debian-installer/binary-powerpc/Release + d41d8cd98f00b204e9800998ecf8427e 0 non-free/debian-installer/binary-powerpc/Packages + 4a4dd3598707603b3f76a2378a4504aa 20 non-free/debian-installer/binary-powerpc/Packages.gz + 4059d198768f9f8dc9372dc1c54bc3c3 14 non-free/debian-installer/binary-powerpc/Packages.bz2 + 1e37a896837543187cbfc1e0bb510feb 99 non-free/debian-installer/binary-s390/Release + d41d8cd98f00b204e9800998ecf8427e 0 non-free/debian-installer/binary-s390/Packages + 4a4dd3598707603b3f76a2378a4504aa 20 non-free/debian-installer/binary-s390/Packages.gz + 4059d198768f9f8dc9372dc1c54bc3c3 14 non-free/debian-installer/binary-s390/Packages.bz2 + 46831dcaea26680fd8ace93c4dfe3054 100 non-free/debian-installer/binary-sparc/Release + d41d8cd98f00b204e9800998ecf8427e 0 non-free/debian-installer/binary-sparc/Packages + 4a4dd3598707603b3f76a2378a4504aa 20 non-free/debian-installer/binary-sparc/Packages.gz + 4059d198768f9f8dc9372dc1c54bc3c3 14 non-free/debian-installer/binary-sparc/Packages.bz2 + 97f4b2988aa5273afcdee6c1b8ba6b7e 108 non-free/debian-installer/binary-kfreebsd-i386/Release + d41d8cd98f00b204e9800998ecf8427e 0 non-free/debian-installer/binary-kfreebsd-i386/Packages + 4a4dd3598707603b3f76a2378a4504aa 20 non-free/debian-installer/binary-kfreebsd-i386/Packages.gz + 4059d198768f9f8dc9372dc1c54bc3c3 14 non-free/debian-installer/binary-kfreebsd-i386/Packages.bz2 + 7e44d296690bd2880e4645e5dfc5e0e2 109 non-free/debian-installer/binary-kfreebsd-amd64/Release + d41d8cd98f00b204e9800998ecf8427e 0 non-free/debian-installer/binary-kfreebsd-amd64/Packages + 4a4dd3598707603b3f76a2378a4504aa 20 non-free/debian-installer/binary-kfreebsd-amd64/Packages.gz + 4059d198768f9f8dc9372dc1c54bc3c3 14 non-free/debian-installer/binary-kfreebsd-amd64/Packages.bz2 +SHA1: + 3efc6d718ef4fa1bcf6eca07246cb8382bf7a53a 54352 Contents-udeb.gz + 352320423dc4b20da5f9cffafe1c9ba5d7b6bab7 16950152 Contents-sparc.gz + 4a7d96f9d3a9f41c22bbb95d959dfe1a280bec93 16313305 Contents-kfreebsd-i386.gz + 208ffc9232a28a7a76b47cf59f5156b5a2481ff2 718 Contents-udeb-nf.gz + a04405bfb8d0962244babf8e1d5f30eb37c9a5d5 16824207 Contents-s390.gz + f7ee6809ebdde124b98e0a4cac7246ddc6ee00bb 16879283 Contents-mipsel.gz + 9048e9c04749fa88c65217e83cf3442be0e8cae5 16303555 Contents-kfreebsd-amd64.gz + 6d2485788869ff14da228ae9d2fbdbceb670e4d6 17094181 Contents-powerpc.gz + 3c95234de5dd08938c6c0d285c9c4a1d144fe138 16842196 Contents-mips.gz + 8b0e461d330bfca4579c465b061ef874d70bc6f4 16877907 Contents-armel.gz + 91c91e05d449638c080ee67a48e060841c6a7e7f 16813756 Contents-ia64.gz + 2fb7879f9dd121bddeb88e23ced84c231ba4f6f9 17515775 Contents-i386.gz + ad213d3909be626050020fa90065cb1f2ee847f9 17315215 Contents-amd64.gz + 5175d81b3c1b9a4458d42f710d2d4621a9cb0f50 9483 main/installer-amd64/20110106+b1/images/MD5SUMS + 0ce92e58bba3cc5363a86dc310a09125bc3e17ce 9483 main/installer-amd64/20110106+squeeze1/images/MD5SUMS + 0ce92e58bba3cc5363a86dc310a09125bc3e17ce 9483 main/installer-amd64/current/images/MD5SUMS + a3bb30fd4ad7f0975eff096d465d2cec1c1ae950 31462284 main/binary-amd64/Packages + 677f3769ca6946a9d6c22f78604dacd8e21a7423 8602340 main/binary-amd64/Packages.gz + 7cab9468331f59870494889d8d65adecea740ed1 6539759 main/binary-amd64/Packages.bz2 + 2d0a0c5bb2fde2d4f264e5b0c853ea63b0c82bc2 96 main/binary-amd64/Release + c5c166ff3608b5e1e28df2c3be13acc1f0cdc1ab 4410 main/installer-armel/20110106+b1/images/MD5SUMS + 180b9df2934c3ef82d312d2ce313513457a1dc9b 4410 main/installer-armel/20110106+squeeze1/images/MD5SUMS + 180b9df2934c3ef82d312d2ce313513457a1dc9b 4410 main/installer-armel/current/images/MD5SUMS + 69ab60a547699d3dbf939476a279bdf8853cf6d3 30805164 main/binary-armel/Packages + 99f73d20f7e0e0cb9d887c4f97c8f7ca426676fd 8439443 main/binary-armel/Packages.gz + 7935876689b7f76c4c8139b0b81ef8062c70250f 6423586 main/binary-armel/Packages.bz2 + 26b134e23071486140908151d63f00434960db86 96 main/binary-armel/Release + d9a1df74028ab4fc6ed13207ef8ef9cc7cc67e46 9617 main/installer-i386/20110106+b1/images/MD5SUMS + 6847418ace67fe3d99c4d8fb3dd8c1a814ab7d79 9617 main/installer-i386/20110106+squeeze1/images/MD5SUMS + 6847418ace67fe3d99c4d8fb3dd8c1a814ab7d79 9617 main/installer-i386/current/images/MD5SUMS + 1f5ac4b252642fa488313c8a74f6610356561fbf 31545354 main/binary-i386/Packages + a6b4b62fae93aae014c72f13645e010f1496b7e7 8632935 main/binary-i386/Packages.gz + 981fda7ab16757275525d175cd253135d6edd6e0 6567502 main/binary-i386/Packages.bz2 + 603035e04c29bd33dd1397c698a5508c559121c6 95 main/binary-i386/Release + 58ee0cf9d16c5c1ee4f799d34160ba5b62d918ef 985 main/installer-ia64/20110106+b1/images/MD5SUMS + b41fc3e5ee1c4e9b1f363c2dcc4754e4f51edc95 985 main/installer-ia64/20110106+squeeze1/images/MD5SUMS + b41fc3e5ee1c4e9b1f363c2dcc4754e4f51edc95 985 main/installer-ia64/current/images/MD5SUMS + ca3541207845e37830b21d5508adc510f71a56fb 30465785 main/binary-ia64/Packages + 3c051104e55f982540087785d8b2a92515eadc02 8400483 main/binary-ia64/Packages.gz + 8d1d31523b178c385704c17ef7a46dbd4813af00 6379120 main/binary-ia64/Packages.bz2 + 080d51af8b18473bc07e874925eb1c599490fe55 95 main/binary-ia64/Release + 9c752c41c6f528ffbdc2dab8966eb86862f9b517 804 main/installer-mips/20110106+b1/images/MD5SUMS + 297dd613e984061b6eba87a7d12f2a38ceb41c42 804 main/installer-mips/20110106+squeeze1/images/MD5SUMS + 297dd613e984061b6eba87a7d12f2a38ceb41c42 804 main/installer-mips/current/images/MD5SUMS + 32e917fdb602fcd9d0b5539a44b30bf562663a04 30644666 main/binary-mips/Packages + 5f27fa29f824b66aedb9e9fd2731edc88a42d2b1 8417199 main/binary-mips/Packages.gz + a2909665c04e762d4728b59cde0cf20c29f980e9 6406774 main/binary-mips/Packages.bz2 + 0378cee77f89736b293df877a4f563c4661918aa 95 main/binary-mips/Release + 0706b90e6fe89137023b0b709af0f4fc59dedcf3 985 main/installer-mipsel/20110106+b1/images/MD5SUMS + d73139ffb39d78ddb1544a978babb593ee9bdff5 985 main/installer-mipsel/20110106+squeeze1/images/MD5SUMS + d73139ffb39d78ddb1544a978babb593ee9bdff5 985 main/installer-mipsel/current/images/MD5SUMS + 52f2691f5bd735251b21927a811a6a7a0ba3e5d6 30760044 main/binary-mipsel/Packages + 00c5161d6ddbf3d86a1cf7fad02cf49394d0b408 8437838 main/binary-mipsel/Packages.gz + d6cce4c8d32d5ee7c126ff9f349c93224d5f9301 6418945 main/binary-mipsel/Packages.bz2 + 8a721c9d55d1a5c21239b55c88442058c42abd5a 97 main/binary-mipsel/Release + b788d508c6a4887dd15f4a72b830c92b5a42bb66 2128 main/installer-powerpc/20110106+b1/images/MD5SUMS + f7d3eef6e730469cd4c064bfe290b68c216d08f8 2128 main/installer-powerpc/20110106+squeeze1/images/MD5SUMS + f7d3eef6e730469cd4c064bfe290b68c216d08f8 2128 main/installer-powerpc/current/images/MD5SUMS + 25b35343bdb9cf9be38a3107a7569d10525a92e3 31214853 main/binary-powerpc/Packages + 311cd0797ead3bfa09c0c7def99412e5d06cc2ad 8531488 main/binary-powerpc/Packages.gz + 769651465199e5237d45b15ff5c3254d121187ef 6489869 main/binary-powerpc/Packages.bz2 + 8669bb279935753dd68cac2685b623ca071ac9d5 98 main/binary-powerpc/Release + d72c5a0997e71c47abd7d845f98e40b981ccd3f2 549 main/installer-s390/20110106+b1/images/MD5SUMS + 2190185095ff797a1ecb44316efaf3d6a134cb9a 549 main/installer-s390/20110106+squeeze1/images/MD5SUMS + 2190185095ff797a1ecb44316efaf3d6a134cb9a 549 main/installer-s390/current/images/MD5SUMS + 8d840409add94e64a18c9fbb24edf228d938b3cb 30735599 main/binary-s390/Packages + 0bc08845e4144b1dec36029913f96942ddea7f97 8439638 main/binary-s390/Packages.gz + ab2e1ab75df4921634fd34e580602abb0d4b917c 6419308 main/binary-s390/Packages.bz2 + 3aa9b411393321ffa114275ea459b1e02a7276f5 95 main/binary-s390/Release + de444e615f65ae88bc6f035a87d77d26a3035874 359 main/installer-sparc/20110106+b1/images/MD5SUMS + 7b7b7b2309a22f11c262ed1e7dfd3d8db2059693 359 main/installer-sparc/20110106+squeeze1/images/MD5SUMS + 7b7b7b2309a22f11c262ed1e7dfd3d8db2059693 359 main/installer-sparc/current/images/MD5SUMS + 65ae17dda993e6ba2955385dab3c3818306d88a9 30960315 main/binary-sparc/Packages + a73d5e6baaa1457b1f72c9c77a9a522cd5383fd2 8473499 main/binary-sparc/Packages.gz + aefec9adf5cee94fe6bc67b9852f4db657078e8c 6447577 main/binary-sparc/Packages.bz2 + ec52b73c6d5b53eeb1141b9f6b32ff098d2b5d38 96 main/binary-sparc/Release + 69559f8d850871b85d5bebca8c7e3779c1219d3b 934 main/installer-kfreebsd-i386/20110106+b1/images/MD5SUMS + bc1acdb0448cdf88681ead439add1e2cdae5ebda 934 main/installer-kfreebsd-i386/20110106+squeeze1/images/MD5SUMS + bc1acdb0448cdf88681ead439add1e2cdae5ebda 934 main/installer-kfreebsd-i386/current/images/MD5SUMS + 1dbdc8a1486c807322e7d8807ac57b52316aaba4 29093588 main/binary-kfreebsd-i386/Packages + bd33f3496f513d668e5e17bb5d0ccb9fc90c0aa1 7920733 main/binary-kfreebsd-i386/Packages.gz + 71bca4948a34f171398cf121d1fa97b987ba0999 6019421 main/binary-kfreebsd-i386/Packages.bz2 + 077ae5a1e6992d7902124c77a484b677f1f53b3c 104 main/binary-kfreebsd-i386/Release + ea5eb0d5b9b86ddcc95a7c6f658810c8943b0dd2 940 main/installer-kfreebsd-amd64/20110106+b1/images/MD5SUMS + 89cde757dce8027cb9f5ddb5bca4d1702a049ae3 940 main/installer-kfreebsd-amd64/20110106+squeeze1/images/MD5SUMS + 89cde757dce8027cb9f5ddb5bca4d1702a049ae3 940 main/installer-kfreebsd-amd64/current/images/MD5SUMS + 745a4d3c3b2c86f386a7f6202479dea17567c898 29122359 main/binary-kfreebsd-amd64/Packages + 3e2b4aa9f09eb7f3047d8a7d15e63ee6595bad5e 7919464 main/binary-kfreebsd-amd64/Packages.gz + 649c78171ae7447559c57af571795e62249acdec 6018314 main/binary-kfreebsd-amd64/Packages.bz2 + 24fe6ca4312220e7a3c6d18e5b70eb1b3efa7684 105 main/binary-kfreebsd-amd64/Release + 2240f795b74460ad4e765943967332670c0f0fa3 16218066 main/source/Sources + d5a93d43b8afd89e9736b80ad86892ec653e1f64 4823131 main/source/Sources.gz + fc41c3c8e81ab9dc5f2065179ac60cd6fd240ef5 3720563 main/source/Sources.bz2 + ebaea0271adb383a98535a160006d3d9a2aeb33a 97 main/source/Release + 01d8802d3f99aa21b05ac7e1dc3f06feb757480b 2232 main/i18n/Index + 9101080199544fae7a00616bf21ab899f447f91b 201315 contrib/binary-amd64/Packages + 0bf41f8f34e3e130a17121210b8d246c016ffd51 64063 contrib/binary-amd64/Packages.gz + befebbd29f2bd33d17d82e6a4dd42d857565c275 52970 contrib/binary-amd64/Packages.bz2 + 2673648b7258d3b522a10c251149139fcd5e474f 99 contrib/binary-amd64/Release + 108d765f0933c974211a2344a8257272f6a1a1eb 168432 contrib/binary-armel/Packages + 794e4fc4af46d8493ab0bbe8815aa5e8ee85353a 54072 contrib/binary-armel/Packages.gz + 51b0979cc204d402a8e52459cef0712c450a135f 45074 contrib/binary-armel/Packages.bz2 + 66749b17052bd005bec639f6a43e098883080f47 99 contrib/binary-armel/Release + 5b2cc0fa0357874de6ef38166a9c8fd0c9b6caf0 206512 contrib/binary-i386/Packages + 11233bb30324a13677f2f4678ca3e78ad61b84dd 65573 contrib/binary-i386/Packages.gz + 24f69c56b97bd1c6eabe529d9488816db055d26b 54085 contrib/binary-i386/Packages.bz2 + 3a7bea14fe63d468c03f2f140fbed3635a6a120b 98 contrib/binary-i386/Release + cacf156ea4b25d37ea844730b0e70f0f5f8cdf11 169450 contrib/binary-ia64/Packages + a677e91be2633fde8f800ecf83af667aa284cac0 54388 contrib/binary-ia64/Packages.gz + 8f483884690c4cecdfefb7f1e06d227a732513fe 45417 contrib/binary-ia64/Packages.bz2 + cb46a2d0c329b043eaed4ba4e41f48d36d4f09f6 98 contrib/binary-ia64/Release + cae24f5ece4b4a37e5cd0e32084c9a8e006e9f7d 167802 contrib/binary-mips/Packages + ad5d25eb1f8e62153eed5a5e1ad46c475b15313c 53413 contrib/binary-mips/Packages.gz + 5eac254f8a5c3c5e33b1d8a09766f0b495f427d3 45069 contrib/binary-mips/Packages.bz2 + c15700ec97e22bca329395d904de0f8a16abb6f6 98 contrib/binary-mips/Release + 9f09019e56eb4e76442f8cdc4a5288e55c60ca49 169394 contrib/binary-mipsel/Packages + d7750ecd4f19c4c8233b10058e7673ffe8ccc503 54202 contrib/binary-mipsel/Packages.gz + a9bd54cc4317d7409a03142db235bd7ca3fb5445 45363 contrib/binary-mipsel/Packages.bz2 + 3a8476cad6263067432f82f4af96d1e527fb0611 100 contrib/binary-mipsel/Release + d0c985e4b1bf374a7fbcc880e78ff9e613893326 165750 contrib/binary-powerpc/Packages + 7ae5f65c938ebbaf8017ed8b667c04efd25b8a59 52957 contrib/binary-powerpc/Packages.gz + 2b08aa305bb82419c612aaab12a3c43d7eadec8f 44768 contrib/binary-powerpc/Packages.bz2 + 965c5dcce3cc411cd2101e225c26a12a78e88760 101 contrib/binary-powerpc/Release + e55c78d3e78e52e90af38bfd8e9beb487aa9a2d9 164864 contrib/binary-s390/Packages + 101e5b17a96c205db00def4bf849240034d1cebb 52477 contrib/binary-s390/Packages.gz + ac776dd50b676228d4b91f152e4feb77a253c03d 44385 contrib/binary-s390/Packages.bz2 + 03e4996368c8f798da995fc6ac4265ebf0a186ce 98 contrib/binary-s390/Release + 9f6f7cbc85cd30f8653d4c30a16242d087574abd 166642 contrib/binary-sparc/Packages + c61be3afa555a7da86593c226fcf2c417309dbdd 53113 contrib/binary-sparc/Packages.gz + e98d0543db1793496526eb7403dbc3d3b258f06c 44815 contrib/binary-sparc/Packages.bz2 + b73be8ac9f6ff56f50658d1fb3dab622e7010f53 99 contrib/binary-sparc/Release + d552908db02298f1449c20b6c3fa502e08dfe964 150458 contrib/binary-kfreebsd-i386/Packages + a6f07fbde4b814bf8d25a1ab99439ef368d8bde0 48468 contrib/binary-kfreebsd-i386/Packages.gz + 4da5a6cdc143e588d6ca85ba98ddda6bcbdc81c1 40859 contrib/binary-kfreebsd-i386/Packages.bz2 + 4e7c0e27d9049d1c3cb91c0db16edbacfd830326 107 contrib/binary-kfreebsd-i386/Release + 9f645b5e2279c36b24b04f55d45a9b627e862b27 149521 contrib/binary-kfreebsd-amd64/Packages + eb29c9b90ff0074a774e76d035b2418aca7f80e2 48638 contrib/binary-kfreebsd-amd64/Packages.gz + 67b904c206784a7868c93ff1fbfb419d6f3ee70b 40672 contrib/binary-kfreebsd-amd64/Packages.bz2 + fdcc4b2c3d2a0d87409824ae6d7cac85abc1fc0d 108 contrib/binary-kfreebsd-amd64/Release + 70239c007b5fc44c43a57307d68c19be23d1bda0 127612 contrib/source/Sources + 68c5e3100bef140d2bcb1083e39bc6887758bcad 40021 contrib/source/Sources.gz + cb288f036651ad99995d207e478039d896ad76a7 33875 contrib/source/Sources.bz2 + 14033aa9d3ef1b4d0311156438b88291f28054c7 100 contrib/source/Release + 705acfb8422e04debd1b61f63af0a7271ca5d5c5 450574 non-free/binary-amd64/Packages + b2ee8060fb9cf13fd83095ac4fd4b10999b6f825 123922 non-free/binary-amd64/Packages.gz + d09c55c4ca7072b5fb8d7e5824c9cbb9d4d3e85c 102150 non-free/binary-amd64/Packages.bz2 + c8a5a02e7dbc3aa1308f75c989e0f04895579f9a 100 non-free/binary-amd64/Release + 83615997df31832c9fa8f3e8454662bbac7ed3b8 333674 non-free/binary-armel/Packages + 355ffad2b6fee23fdccae774c208bee71230562c 100648 non-free/binary-armel/Packages.gz + dd174294276830c829f0de421cdcb2c8b88bd3d6 83041 non-free/binary-armel/Packages.bz2 + 87ffe3747120bbafbd51b60613d5f86c12e908f4 100 non-free/binary-armel/Release + 831e775b570a99116d5c00d51207dbe24ceb5607 465534 non-free/binary-i386/Packages + c64ff353a93df8818e000019acc8214f3c669bf6 130976 non-free/binary-i386/Packages.gz + 30a6f4a6a5d883ddca65482cf6114fdf6d34805e 107779 non-free/binary-i386/Packages.bz2 + 1b9330e39ee5d2ef1b97b361e16b7b7e15ec2c33 99 non-free/binary-i386/Release + 0d1389dacca3f15faf89924c8dd4bd4e80ddd874 338204 non-free/binary-ia64/Packages + 3e0c33faf7eb27c5e517755b28f87bc242b7d48c 101555 non-free/binary-ia64/Packages.gz + c3a854a8fe15b537a3963546016f6ed1f62ed924 84272 non-free/binary-ia64/Packages.bz2 + 05484d5f5204bf8a2c2fad8b7f2f81644f69bbda 99 non-free/binary-ia64/Release + c8b368388c5ea6cdada180d2cb9ed484b70b764b 334662 non-free/binary-mips/Packages + 56811a6c4aeb859620be148cf3019fbbfafe6bdc 100785 non-free/binary-mips/Packages.gz + 3f66538dca507056ea67d17a30dd1985f952b4b3 83692 non-free/binary-mips/Packages.bz2 + fb87a2dca1ada33eaa37c836d96db47a7b5acdee 99 non-free/binary-mips/Release + cd930cdfe193c22ea39629bcc7cfe0a17552d50c 331214 non-free/binary-mipsel/Packages + b0fead76a93221885bee823ba272eacfd8ff99db 99519 non-free/binary-mipsel/Packages.gz + 0f456681ac27b92b49266ad2384d6b6e86a59996 82594 non-free/binary-mipsel/Packages.bz2 + b2dc706b80461c7571c3d406c23715171c98ccd1 101 non-free/binary-mipsel/Release + c724885fc73e085a9e5e92265e90f39fa2def3a8 341385 non-free/binary-powerpc/Packages + 7aa4d96e960e3e752ac6f0fcb6f30d75422e82a8 102985 non-free/binary-powerpc/Packages.gz + bd8124a4b07758d5bf69c00ed0498d219422657b 85235 non-free/binary-powerpc/Packages.bz2 + 1965e3e25a3147ccf4f1843d368231fe2aa1314c 102 non-free/binary-powerpc/Release + c793f2f2bc61ba5605a7e316fe8e04ef917a746e 330570 non-free/binary-s390/Packages + d59910636e525c87236b0e99639228121bfe83a4 99569 non-free/binary-s390/Packages.gz + 8629ead7daeda477894336f00349c6ddd381304c 82572 non-free/binary-s390/Packages.bz2 + ddbde3e86968c777cbf1ba00de37ea7016418c56 99 non-free/binary-s390/Release + 683eda4ea04d00f32af25ca5baa1292a2147c512 342149 non-free/binary-sparc/Packages + bef47501e779d2dd36b3a7c210c54d7c5a0a761b 103088 non-free/binary-sparc/Packages.gz + d2d1d7a439b8d8c90001c7c8f4b0cbb99c435f1f 84992 non-free/binary-sparc/Packages.bz2 + aad3fd77d4b0ed30209d0428c3e06437f6d9cb17 100 non-free/binary-sparc/Release + 319b2068eff1955a1bb91a37ff1c273c6d8992f8 261413 non-free/binary-kfreebsd-i386/Packages + 0724210bc7ee1077b6f4b99a40837c8306fa4c5c 77510 non-free/binary-kfreebsd-i386/Packages.gz + d5d57f9e915783a3e3db8362ecf374f33d688736 65036 non-free/binary-kfreebsd-i386/Packages.bz2 + 346ad9fde0f053eb9f885faaf6942fd448d0ac8d 108 non-free/binary-kfreebsd-i386/Release + dd0bbba112af2adef4222b85c1702cd74b0207a6 261417 non-free/binary-kfreebsd-amd64/Packages + a50090ee2b94a2631ad6b5f0cd518a1c1d129063 77556 non-free/binary-kfreebsd-amd64/Packages.gz + 616753c42720d323070625dc8c46cba1ae28bd56 65029 non-free/binary-kfreebsd-amd64/Packages.bz2 + b1abe949fa1f749f349cefd0a45be7da1577cd3a 109 non-free/binary-kfreebsd-amd64/Release + d997cefc9dd85bce525e6716f34e78214eda0ccf 237802 non-free/source/Sources + 1afaa3f68db5343b02f2997af8560863f182f9c8 74352 non-free/source/Sources.gz + 770c7f29fdf27fc7701b246061ac797c15f5cbd2 61666 non-free/source/Sources.bz2 + 6974f61c7f4490394aa3b41e58582d1bc2fbe4e1 101 non-free/source/Release + 2d0a0c5bb2fde2d4f264e5b0c853ea63b0c82bc2 96 main/debian-installer/binary-amd64/Release + 15c4d032cf6eeb9a13f19d27dc4f13a710ccb20f 238045 main/debian-installer/binary-amd64/Packages + 81de77301aea1319227e997bc27a9db6985836cb 65242 main/debian-installer/binary-amd64/Packages.gz + 96a22475178007a7a28ca5666625235981e987a2 51080 main/debian-installer/binary-amd64/Packages.bz2 + 26b134e23071486140908151d63f00434960db86 96 main/debian-installer/binary-armel/Release + 8b2946f1e074a9045a28bcfb316c7cc9a96f65b1 304019 main/debian-installer/binary-armel/Packages + fb35cbe6c49b81be38b1bb4e87f56b1f2e9a7b05 75648 main/debian-installer/binary-armel/Packages.gz + e284b29cc4a650487551228337cd101cfc5d1efa 58942 main/debian-installer/binary-armel/Packages.bz2 + 603035e04c29bd33dd1397c698a5508c559121c6 95 main/debian-installer/binary-i386/Release + 0bbff4d5e340b39ce2dac07b7ee0d22dad97492a 286772 main/debian-installer/binary-i386/Packages + 0678e99a85dfa003a313436a469b1ac484a55257 73233 main/debian-installer/binary-i386/Packages.gz + 9c5cef518d7dca81ad3863b5f5ee053fc7635470 57370 main/debian-installer/binary-i386/Packages.bz2 + 080d51af8b18473bc07e874925eb1c599490fe55 95 main/debian-installer/binary-ia64/Release + f5772135ef71b1c57b7c127de1c818fd12882184 224155 main/debian-installer/binary-ia64/Packages + 660b01ac743d1386a49d7c2ed3e4a220675bc044 62857 main/debian-installer/binary-ia64/Packages.gz + 975027ba735a8ba2d80b4a587882a308a14af735 49172 main/debian-installer/binary-ia64/Packages.bz2 + 0378cee77f89736b293df877a4f563c4661918aa 95 main/debian-installer/binary-mips/Release + aab4e17ea0808660a5c131a7dee7cc26329705a6 255197 main/debian-installer/binary-mips/Packages + 2a6aa80ca185e45eb5872b390012b2149bdce63e 67535 main/debian-installer/binary-mips/Packages.gz + 6a059b5cea493fce4c9ae276567f7ae1b037d65d 52992 main/debian-installer/binary-mips/Packages.bz2 + 8a721c9d55d1a5c21239b55c88442058c42abd5a 97 main/debian-installer/binary-mipsel/Release + 36ea5d45e9f90b386b39723b2f2ea00487bb8390 244295 main/debian-installer/binary-mipsel/Packages + 1e36d175001ae724a280959fecf961d3d858eeae 65777 main/debian-installer/binary-mipsel/Packages.gz + ff1a85d6a954233b761c732f4b2dc2bf8245d093 51482 main/debian-installer/binary-mipsel/Packages.bz2 + 8669bb279935753dd68cac2685b623ca071ac9d5 98 main/debian-installer/binary-powerpc/Release + 3f7408d3edd2fe3ae6e27c40713c8b23ed8d571c 273465 main/debian-installer/binary-powerpc/Packages + c6b9bad040c3dc1228ede0c062c9c369a2d42208 71233 main/debian-installer/binary-powerpc/Packages.gz + 2b56e6dcb01132d65bf4e1fa2ea05998a0771625 55515 main/debian-installer/binary-powerpc/Packages.bz2 + 3aa9b411393321ffa114275ea459b1e02a7276f5 95 main/debian-installer/binary-s390/Release + ed998f5a4024bbcca05ac4f20f5e04e75e60afd5 197785 main/debian-installer/binary-s390/Packages + c4500973f18cf6be9790f6bc031dc8c544ca13d8 57285 main/debian-installer/binary-s390/Packages.gz + f7975ba3b54fcb3b297bb839842c0d14c34b8bdf 45457 main/debian-installer/binary-s390/Packages.bz2 + ec52b73c6d5b53eeb1141b9f6b32ff098d2b5d38 96 main/debian-installer/binary-sparc/Release + b3e926061b2f76746d40ccda78ef64fc464310b0 209884 main/debian-installer/binary-sparc/Packages + 858ef3ccd7c0b71e8209d8c0bfd9c3a852935037 59579 main/debian-installer/binary-sparc/Packages.gz + 2ef583aa6a7f1a51b2d9b072080c2dddd239a1be 46954 main/debian-installer/binary-sparc/Packages.bz2 + 077ae5a1e6992d7902124c77a484b677f1f53b3c 104 main/debian-installer/binary-kfreebsd-i386/Release + 48e5a520af15e6fe8c191fa72e7b57c50f2df0a0 190536 main/debian-installer/binary-kfreebsd-i386/Packages + 47c64ad05e6bbb32c0de52e57cae01d5af4fab8f 53117 main/debian-installer/binary-kfreebsd-i386/Packages.gz + e72709866e95bb9b4bc38f7dee1ea27af7062f6c 41926 main/debian-installer/binary-kfreebsd-i386/Packages.bz2 + 24fe6ca4312220e7a3c6d18e5b70eb1b3efa7684 105 main/debian-installer/binary-kfreebsd-amd64/Release + dd758410ee7da34e46e7a4e7120af9dc304105da 191828 main/debian-installer/binary-kfreebsd-amd64/Packages + 98bd176344dda69812c1c0d5e91f905a1be6ae4d 53009 main/debian-installer/binary-kfreebsd-amd64/Packages.gz + df1ad86d100d513e4b8c546724a8f64a9b59fcf8 42056 main/debian-installer/binary-kfreebsd-amd64/Packages.bz2 + c8a5a02e7dbc3aa1308f75c989e0f04895579f9a 100 non-free/debian-installer/binary-amd64/Release + da39a3ee5e6b4b0d3255bfef95601890afd80709 0 non-free/debian-installer/binary-amd64/Packages + a0fddd5458378c1bf3c10dd2f5c060d1347741ed 20 non-free/debian-installer/binary-amd64/Packages.gz + 64a543afbb5f4bf728636bdcbbe7a2ed0804adc2 14 non-free/debian-installer/binary-amd64/Packages.bz2 + 87ffe3747120bbafbd51b60613d5f86c12e908f4 100 non-free/debian-installer/binary-armel/Release + da39a3ee5e6b4b0d3255bfef95601890afd80709 0 non-free/debian-installer/binary-armel/Packages + a0fddd5458378c1bf3c10dd2f5c060d1347741ed 20 non-free/debian-installer/binary-armel/Packages.gz + 64a543afbb5f4bf728636bdcbbe7a2ed0804adc2 14 non-free/debian-installer/binary-armel/Packages.bz2 + 1b9330e39ee5d2ef1b97b361e16b7b7e15ec2c33 99 non-free/debian-installer/binary-i386/Release + da39a3ee5e6b4b0d3255bfef95601890afd80709 0 non-free/debian-installer/binary-i386/Packages + a0fddd5458378c1bf3c10dd2f5c060d1347741ed 20 non-free/debian-installer/binary-i386/Packages.gz + 64a543afbb5f4bf728636bdcbbe7a2ed0804adc2 14 non-free/debian-installer/binary-i386/Packages.bz2 + 05484d5f5204bf8a2c2fad8b7f2f81644f69bbda 99 non-free/debian-installer/binary-ia64/Release + da39a3ee5e6b4b0d3255bfef95601890afd80709 0 non-free/debian-installer/binary-ia64/Packages + a0fddd5458378c1bf3c10dd2f5c060d1347741ed 20 non-free/debian-installer/binary-ia64/Packages.gz + 64a543afbb5f4bf728636bdcbbe7a2ed0804adc2 14 non-free/debian-installer/binary-ia64/Packages.bz2 + fb87a2dca1ada33eaa37c836d96db47a7b5acdee 99 non-free/debian-installer/binary-mips/Release + da39a3ee5e6b4b0d3255bfef95601890afd80709 0 non-free/debian-installer/binary-mips/Packages + a0fddd5458378c1bf3c10dd2f5c060d1347741ed 20 non-free/debian-installer/binary-mips/Packages.gz + 64a543afbb5f4bf728636bdcbbe7a2ed0804adc2 14 non-free/debian-installer/binary-mips/Packages.bz2 + b2dc706b80461c7571c3d406c23715171c98ccd1 101 non-free/debian-installer/binary-mipsel/Release + da39a3ee5e6b4b0d3255bfef95601890afd80709 0 non-free/debian-installer/binary-mipsel/Packages + a0fddd5458378c1bf3c10dd2f5c060d1347741ed 20 non-free/debian-installer/binary-mipsel/Packages.gz + 64a543afbb5f4bf728636bdcbbe7a2ed0804adc2 14 non-free/debian-installer/binary-mipsel/Packages.bz2 + 1965e3e25a3147ccf4f1843d368231fe2aa1314c 102 non-free/debian-installer/binary-powerpc/Release + da39a3ee5e6b4b0d3255bfef95601890afd80709 0 non-free/debian-installer/binary-powerpc/Packages + a0fddd5458378c1bf3c10dd2f5c060d1347741ed 20 non-free/debian-installer/binary-powerpc/Packages.gz + 64a543afbb5f4bf728636bdcbbe7a2ed0804adc2 14 non-free/debian-installer/binary-powerpc/Packages.bz2 + ddbde3e86968c777cbf1ba00de37ea7016418c56 99 non-free/debian-installer/binary-s390/Release + da39a3ee5e6b4b0d3255bfef95601890afd80709 0 non-free/debian-installer/binary-s390/Packages + a0fddd5458378c1bf3c10dd2f5c060d1347741ed 20 non-free/debian-installer/binary-s390/Packages.gz + 64a543afbb5f4bf728636bdcbbe7a2ed0804adc2 14 non-free/debian-installer/binary-s390/Packages.bz2 + aad3fd77d4b0ed30209d0428c3e06437f6d9cb17 100 non-free/debian-installer/binary-sparc/Release + da39a3ee5e6b4b0d3255bfef95601890afd80709 0 non-free/debian-installer/binary-sparc/Packages + a0fddd5458378c1bf3c10dd2f5c060d1347741ed 20 non-free/debian-installer/binary-sparc/Packages.gz + 64a543afbb5f4bf728636bdcbbe7a2ed0804adc2 14 non-free/debian-installer/binary-sparc/Packages.bz2 + 346ad9fde0f053eb9f885faaf6942fd448d0ac8d 108 non-free/debian-installer/binary-kfreebsd-i386/Release + da39a3ee5e6b4b0d3255bfef95601890afd80709 0 non-free/debian-installer/binary-kfreebsd-i386/Packages + a0fddd5458378c1bf3c10dd2f5c060d1347741ed 20 non-free/debian-installer/binary-kfreebsd-i386/Packages.gz + 64a543afbb5f4bf728636bdcbbe7a2ed0804adc2 14 non-free/debian-installer/binary-kfreebsd-i386/Packages.bz2 + b1abe949fa1f749f349cefd0a45be7da1577cd3a 109 non-free/debian-installer/binary-kfreebsd-amd64/Release + da39a3ee5e6b4b0d3255bfef95601890afd80709 0 non-free/debian-installer/binary-kfreebsd-amd64/Packages + a0fddd5458378c1bf3c10dd2f5c060d1347741ed 20 non-free/debian-installer/binary-kfreebsd-amd64/Packages.gz + 64a543afbb5f4bf728636bdcbbe7a2ed0804adc2 14 non-free/debian-installer/binary-kfreebsd-amd64/Packages.bz2 +SHA256: + c3478c20e3632ea76908bf1067f9244cc0dc4b4704558d8c72ee20627b37a13e 54352 Contents-udeb.gz + 08d8f2e5d8768209eca844a3e45b24e30c34ba55efe01b31e9e94c6ca343c50f 16950152 Contents-sparc.gz + 6dccd0df384c6e06458711545a58a6355f98332870d33987bd8f2045e54a02eb 16313305 Contents-kfreebsd-i386.gz + dc31e414555860c63a560b6432db440e6800e06b2aed363dfd886c3e4c6143fe 718 Contents-udeb-nf.gz + 9b68c381a51f623ee9ecea6b0292175a825d168b7223de469c5d396c602d7348 16824207 Contents-s390.gz + 0b4b8efca9ced505d7c8bacaa4ef309029ca6cd5bc929403b71dc1d494ddd0ad 16879283 Contents-mipsel.gz + 917d46770e799692a135ba10f041cb9a9d5b43ac1b70d39ad17ff91b6f94f56e 16303555 Contents-kfreebsd-amd64.gz + 9b5573d8e1c64eeb8692de59a55701ca7b0c170081b8fe4b4e20db636a8e4755 17094181 Contents-powerpc.gz + 321e0fa93b6a23124584363fd07befc63fd32e09c0f33eb548562a28cb920568 16842196 Contents-mips.gz + 949b710c48e39b4a1ffdff7e6521045222d00bdfff795400c18095a4b59e4de9 16877907 Contents-armel.gz + 7597340a2ce3fef8509c523ae4c82ef9047d553932c1b076475c2b2be1de7e65 16813756 Contents-ia64.gz + bacb0da8bb5f4d729bb043b1702e1d27c7ffdfadfaf593142f56e98274ab1c8a 17515775 Contents-i386.gz + ed55d4d207b62b706d70a9327edef5a7535c9f2afb248920039ba9a8d53af285 17315215 Contents-amd64.gz + aa55e79db44279f961d68a21c3e58b6a03a3c09dccd2eea3760fbdd9c173c977 9483 main/installer-amd64/20110106+b1/images/MD5SUMS + d6b569551768d64340953a1aeb4aacda186b2f01ca7f4661c7d2be7a4a9e6e60 9483 main/installer-amd64/20110106+squeeze1/images/MD5SUMS + d6b569551768d64340953a1aeb4aacda186b2f01ca7f4661c7d2be7a4a9e6e60 9483 main/installer-amd64/current/images/MD5SUMS + db8a48f99ae4607a3b27be85ad150e639499cb527ddc87fb04eed89c92507f2a 31462284 main/binary-amd64/Packages + c2dbc25a4fe3d46687d33b9b802318b306e8967e2bc16f728dba9750fe1e8c2b 8602340 main/binary-amd64/Packages.gz + 4a59fb61460b1ca69edff19d9671064bb57d95dbc42437cb7e1c6c6cafadc67f 6539759 main/binary-amd64/Packages.bz2 + ec9d94821e8e1901c77da0547c2fb468006d426bd7d97896c1ea96ad89f2e5fc 96 main/binary-amd64/Release + d89b54b624d0f596c1bb8a44381965ed60197c2cc6b2b30f1a80b20246d53711 4410 main/installer-armel/20110106+b1/images/MD5SUMS + d4493e0ec86e2f940df23e2c1df86d94f3e3ee39f00a33d20ee2feb8fefc4cd0 4410 main/installer-armel/20110106+squeeze1/images/MD5SUMS + d4493e0ec86e2f940df23e2c1df86d94f3e3ee39f00a33d20ee2feb8fefc4cd0 4410 main/installer-armel/current/images/MD5SUMS + 2c539c52864b3232117f0b06e3d0d0e0faa0ccb6798a19d5109085f4f6b6a7f2 30805164 main/binary-armel/Packages + 0295bb291de5d0d8b011fa810a1e7c7d30bfb660f39d858554a2d236cc094a96 8439443 main/binary-armel/Packages.gz + f0ddb422c157cf70aa3116bb878fd3428e2cec6bdd4d9e8a70e1e5e76b88e06f 6423586 main/binary-armel/Packages.bz2 + dd73061c83c50e443bd3029ac49aa31641dd8fd72366b412b21222645a696284 96 main/binary-armel/Release + 1bc9a5c8b26c790ea845a8b7bca664fda632537a803f1f4ba1fb29487b5579d9 9617 main/installer-i386/20110106+b1/images/MD5SUMS + f5dda49f865a69de937d532524ebb10a84aa340bf959c5c8a41407ab2ed66d92 9617 main/installer-i386/20110106+squeeze1/images/MD5SUMS + f5dda49f865a69de937d532524ebb10a84aa340bf959c5c8a41407ab2ed66d92 9617 main/installer-i386/current/images/MD5SUMS + fe4955541c90bf63d37fa21e6fda3bbe3debff80d34d56fdbd6fecd26e94af6d 31545354 main/binary-i386/Packages + 4299376a9d47be555b59fecfe02a7fe343f020f1cca012fd696292660af82589 8632935 main/binary-i386/Packages.gz + 3294383b1c9eed5af725fd4fad87c9110e315fa9b72c2fb6e422cebd8ecfb98a 6567502 main/binary-i386/Packages.bz2 + d5a8d478ea7656bfb2233cbf2e56737eac3dc8c086f0e02fa3f2538baa26d65d 95 main/binary-i386/Release + 1579a30eb105bab5133f38baa5accbb639e8420c56471f5e24ebec63fda702a3 985 main/installer-ia64/20110106+b1/images/MD5SUMS + d331ff0e2a17aa3189b741e7f3ca393f1734766b9c5bc7cae538bc6668aa2ee0 985 main/installer-ia64/20110106+squeeze1/images/MD5SUMS + d331ff0e2a17aa3189b741e7f3ca393f1734766b9c5bc7cae538bc6668aa2ee0 985 main/installer-ia64/current/images/MD5SUMS + 48525c459df3aa6bf8150791b67da64e8fb648a4d6cefbf88fca5214bac35c0d 30465785 main/binary-ia64/Packages + 407b0b2e3466af6bdac421f25142a0972b857b999ed6877987c696c4d35d3062 8400483 main/binary-ia64/Packages.gz + 09dd2bf3825f17e7ffeb8b299d63757f2c23086f481681ea2c79e033381990b1 6379120 main/binary-ia64/Packages.bz2 + c69d67239842b644567d352060b0f12866237c75b431790b907ac6d77e146e33 95 main/binary-ia64/Release + d16ae8345c5ad97cb557b5996b0b01e0307c024e71d625301b18bbdc126ea846 804 main/installer-mips/20110106+b1/images/MD5SUMS + 992d957d484a16ebf458ea600a2c50c32d57cb506b6b97842188662db98f08fc 804 main/installer-mips/20110106+squeeze1/images/MD5SUMS + 992d957d484a16ebf458ea600a2c50c32d57cb506b6b97842188662db98f08fc 804 main/installer-mips/current/images/MD5SUMS + 5a169d2e2517c6f38ecea75d484ba8d306cb8b40a0615c607174ce153bdf78f3 30644666 main/binary-mips/Packages + 7a50fae31308482c455abbc9cf95a7a8bfe38cf16ee150b72c043d7534d16143 8417199 main/binary-mips/Packages.gz + 99af4582ffca24416f794d34341f9f7fd3b04737d20e3c6ccb071862eb99b517 6406774 main/binary-mips/Packages.bz2 + c2b2c37900ca7d07331f0f2f00ec5a9d34ef6143f9ee61d5ce78787e707425b5 95 main/binary-mips/Release + b6f797f92ee52f02447b0d02683dbf11e635db885b8b525239c9d0f4ffff8370 985 main/installer-mipsel/20110106+b1/images/MD5SUMS + 407f6ee81ec57ada370595fb9cece3eeed270f53d8eb9aba4b2af09dc24aacb3 985 main/installer-mipsel/20110106+squeeze1/images/MD5SUMS + 407f6ee81ec57ada370595fb9cece3eeed270f53d8eb9aba4b2af09dc24aacb3 985 main/installer-mipsel/current/images/MD5SUMS + df4cc77c6cee4a68f017e78e0c5009b389aed293a68b57036882961ffb8464f8 30760044 main/binary-mipsel/Packages + 3c1cf46a7a91037c91413d816fcd8c7c67f8614857ce82fbe4140994a8613111 8437838 main/binary-mipsel/Packages.gz + c06b43b8960c70e9aacc15bf4717b30bd85d40f4020f8b992c08872021cfb5a2 6418945 main/binary-mipsel/Packages.bz2 + 745c0e40c9401620d1530586e479affd39ed472b0a59a9df81c3a2fa42f495aa 97 main/binary-mipsel/Release + 2b3499abaeba5dc03f7249700774228fc136df33142991655b7eab23a7432b97 2128 main/installer-powerpc/20110106+b1/images/MD5SUMS + 616d40e7058d8e63df4d02ba77b7a4abe9630cc1afa0edc01fc70406948c61a3 2128 main/installer-powerpc/20110106+squeeze1/images/MD5SUMS + 616d40e7058d8e63df4d02ba77b7a4abe9630cc1afa0edc01fc70406948c61a3 2128 main/installer-powerpc/current/images/MD5SUMS + 8356f8b99f775088f75a8b68b4ea3955b3c6f183c3f52ffcbd85e7f499bdf277 31214853 main/binary-powerpc/Packages + db31a6d4cbd59f4cf39dbbab78a40086a041e45681ddd80b8ec17a849b006ec7 8531488 main/binary-powerpc/Packages.gz + 04928253dd3078c5cbc4d1bd195598ff33ef8c30543e9e130753642707efa317 6489869 main/binary-powerpc/Packages.bz2 + baf2ef522544e333a3c80d925618672f6148be6a9203dec3d81be061e2a9a6e4 98 main/binary-powerpc/Release + 6a9617be7e82ec209ea9aafa294c6f281921c3803a95ec7f3d8b045627d96d23 549 main/installer-s390/20110106+b1/images/MD5SUMS + 2d819a9c15f682dd5c7ccd731b68287116524cdde45009ffa5eab8e1e48ee6d8 549 main/installer-s390/20110106+squeeze1/images/MD5SUMS + 2d819a9c15f682dd5c7ccd731b68287116524cdde45009ffa5eab8e1e48ee6d8 549 main/installer-s390/current/images/MD5SUMS + bdbfc6655bf02b71e32125e090fe5ca9f277de4084dba83645a498fb21f30aaf 30735599 main/binary-s390/Packages + 141b81028f473777fbb7aea191efa9164075a9471c9b132d804ed4bd49cfd63f 8439638 main/binary-s390/Packages.gz + 3f97d2695bcf4dc40e2ba96836ca2e09aba78992b68075eb9fdca5ec2b8c2f2a 6419308 main/binary-s390/Packages.bz2 + 745abc20ead19bf42bef69879ec4dd95ad6326703314f1d7a4ca08b6a38ba9b4 95 main/binary-s390/Release + 265e740b5c956f86793101b84d6655ac9ae7cb4c5870de66711ffbc80a71d5fb 359 main/installer-sparc/20110106+b1/images/MD5SUMS + 18b65c2682679cd8fdd78be4d19435156fec5e0cebfb8cb1527ce90dc9b89dc3 359 main/installer-sparc/20110106+squeeze1/images/MD5SUMS + 18b65c2682679cd8fdd78be4d19435156fec5e0cebfb8cb1527ce90dc9b89dc3 359 main/installer-sparc/current/images/MD5SUMS + e7129e4e02ad2b8b80dcc73d02ea72cc4b469019bed31619b7ad0b8d8a30a9ce 30960315 main/binary-sparc/Packages + ab75fb8bed3fffe15129eed0e8c5ddb6f2a0dd24f7aff622c8664c2ff34f35de 8473499 main/binary-sparc/Packages.gz + d491d3b131ea7dd488c6517742167ada081338cde461cd532544a33ee7605461 6447577 main/binary-sparc/Packages.bz2 + 134cf67dda7837219bc97e27870cc9b072c62f5d2faa515b617a3e3b3118f32e 96 main/binary-sparc/Release + ebc76a6b76fca61060a69ce9b521b1794af87ef8c35a11238f528d79de67e97b 934 main/installer-kfreebsd-i386/20110106+b1/images/MD5SUMS + 9211e1a57bf539c8252fc3eea46614ff7a1760ddfc764741a0cc6edd9d97fe0f 934 main/installer-kfreebsd-i386/20110106+squeeze1/images/MD5SUMS + 9211e1a57bf539c8252fc3eea46614ff7a1760ddfc764741a0cc6edd9d97fe0f 934 main/installer-kfreebsd-i386/current/images/MD5SUMS + 69f3c3d639ad71ee987e7cf9d64dbbd824707da1989bb7f60992315ec25fc3db 29093588 main/binary-kfreebsd-i386/Packages + c00cdb2d1245ef14012398adc4187225549606dfd1015011f984d7a97039063a 7920733 main/binary-kfreebsd-i386/Packages.gz + 4007c6713e57950bbd83fa6b37942396962b7048b8f58a2d628af33f279b6e99 6019421 main/binary-kfreebsd-i386/Packages.bz2 + 6021eff8c705e5dbce595043f11cbb195887638429b6d4f4c5ea0a698ff56a42 104 main/binary-kfreebsd-i386/Release + ba520e92508ceb6a05dfa201f3c2943c502ec7cd8bb9a126d16efc0e33d1a345 940 main/installer-kfreebsd-amd64/20110106+b1/images/MD5SUMS + 7c929a4a87189a74356cddee33506ff268e8282cd9e356ed91add2a8ddc3f1c9 940 main/installer-kfreebsd-amd64/20110106+squeeze1/images/MD5SUMS + 7c929a4a87189a74356cddee33506ff268e8282cd9e356ed91add2a8ddc3f1c9 940 main/installer-kfreebsd-amd64/current/images/MD5SUMS + cfb2fd8930bef75db73232dc004e3dcc8a43048c96f850793255cfc7c4124b32 29122359 main/binary-kfreebsd-amd64/Packages + 43fccf04838182226ddacf3a2770427c006ccd5f26c67a9b1a0cc53ecf802d02 7919464 main/binary-kfreebsd-amd64/Packages.gz + c2ee458f45c560d8fcaafe223bae62f59bea13f168f7d8b7b2a31eee30e5f3ab 6018314 main/binary-kfreebsd-amd64/Packages.bz2 + 0c95428106bc35bcb4c982224e93dd312e1aaf0fc55e201eca66eb24172ba85e 105 main/binary-kfreebsd-amd64/Release + 5e8f7342e8635ed1f984625aa65c6ebb570961dd8c0d68723e6f35eca9a82fc9 16218066 main/source/Sources + 9bc5a333344c3ff10130d652b1c37390f3c4a1806d683c36fa9b4e555320e96a 4823131 main/source/Sources.gz + cf82d04412ec7c8a146d768343c246a0848f8762aaa09dba2b57274200c8686f 3720563 main/source/Sources.bz2 + 449c92bb59aab2de431128aa0a917f7787f68b228dfba2265bf12774d7e7ea7e 97 main/source/Release + 26931ee71085c9e3573f6c0f26a3dd0721b80b084412a1a3458e676a352f6d63 2232 main/i18n/Index + 4ccd5caed5d15ba9966c99ea28b38de8c2be12a34eefcad78245e1bb3b8d42ee 201315 contrib/binary-amd64/Packages + 406ccdf533adb897c77a4ef95b76544d0e2d526738dbd9c09632b31cd7dd41ea 64063 contrib/binary-amd64/Packages.gz + f3aed602a8eda854d1f4a3502ac2d77c77f5f754ef3e107f01d9e3cdff0fb738 52970 contrib/binary-amd64/Packages.bz2 + 83be69d23eaf982c13abe17ba5df1d3c61373f679fefa581ccbdaad10cc4c547 99 contrib/binary-amd64/Release + 87ba4005e0a7edead0351989fdccfd2f1b38bc010ee808e26436eda303f1343f 168432 contrib/binary-armel/Packages + ea46669f8c2a23e1ccabc3be680b0b30732f11e9a27183219a0aa55c7fabf16f 54072 contrib/binary-armel/Packages.gz + f2ee39593250de44047d57d6c8ef546cfea3717a444ba72faffea03643294396 45074 contrib/binary-armel/Packages.bz2 + 3b015c17cb7bedbfafe4a6fc17775ae2bfcb3f85b98933cc637c48342e9e9672 99 contrib/binary-armel/Release + bc53c37eba65d574480c1bc8fca8161b05f4328a622a7e714338ba0cf52a9357 206512 contrib/binary-i386/Packages + 2f33641b7a79e4dbde1eab4a34e9f49c282995cbf900827ad3bdcbdead0f2bdb 65573 contrib/binary-i386/Packages.gz + a38c660d785f9716dea63d3ceff6706f4730c0d40bb443feabedb92526d1a9ce 54085 contrib/binary-i386/Packages.bz2 + 298537a9d7558bc6341c8fcc77877ea67d510978c714f32d723f7a4052436c17 98 contrib/binary-i386/Release + 3a1c40b3039d80bfd963099913bcde1321207e682ada4d88f67c65dc1395e7ec 169450 contrib/binary-ia64/Packages + 5d8f1b10624315ae053e94cb7d3bb5654008c5575a66e279eefc08a79208e56c 54388 contrib/binary-ia64/Packages.gz + ee3e5116e0d94fec0a9b42935d050e2523174286075056c5b0cd38a84d49be9d 45417 contrib/binary-ia64/Packages.bz2 + aa02e5aa85b2a2b7c7a0d9179dfdbfeaebb5cb01e8d96280214e99f64a756ebb 98 contrib/binary-ia64/Release + 007df62d771f9dae139950a2f53f0cb5423cbf729f5ae30c6d6ff6f690ede817 167802 contrib/binary-mips/Packages + 0591b10b992dd5594017de808cbeefea1e11d18f096ea581b13768ecc21928b4 53413 contrib/binary-mips/Packages.gz + 64e4190bd560f1a033bbd30fd7058f59fe857d852fe15ab120d14ad9f99e1e58 45069 contrib/binary-mips/Packages.bz2 + cde1bc801ac42995c3f1f7d0795c2712d6544a5d9c625d55d037ae192c8c0230 98 contrib/binary-mips/Release + 1e8cdd6b4bff6e49fba62e95ed47da068ee49c95aecbb5cfda32eab76cfd86d1 169394 contrib/binary-mipsel/Packages + 9fa8076693f298656193dba5315624ffe7213418b9582b5cf5c19d4e05907d0f 54202 contrib/binary-mipsel/Packages.gz + bf7eaeda4a32f33fe916a37520254e6f37cd5bcc727b264f565daf6c7da11f5a 45363 contrib/binary-mipsel/Packages.bz2 + d9c008d05a61665be32a36fc85b242607dc619049427e417bb37952f53c3d4e6 100 contrib/binary-mipsel/Release + df831ab5299fc7632cc3385002d3070abaf74b0e71b7b0f6a026642a90aae174 165750 contrib/binary-powerpc/Packages + cbece18de426873ed67fc3421613e27f111df5c238baa1ffc968f60dc3086ae5 52957 contrib/binary-powerpc/Packages.gz + fc58fde85dea091df2b13bb2e3b6878783876bac24abf2923610dd7154a0646f 44768 contrib/binary-powerpc/Packages.bz2 + 65094b0ef37f1a585d2c2d342519ab787aa598aad66156283266db05681abe51 101 contrib/binary-powerpc/Release + a8ecb9e101918c3e8322837640f5baacb9c0ff77c903e2efcb0b6d3901033858 164864 contrib/binary-s390/Packages + 4e899fe1a29d29c52b6662485171e8e86f40dcd9bdf49ec70cf7a5f880b35dd1 52477 contrib/binary-s390/Packages.gz + 20edbc5efc703b34158b685e91128295bc6255a7421557cd053f8b449c5b7a1d 44385 contrib/binary-s390/Packages.bz2 + bd75ff7786bae77bc5f21c756fa6b82754603611118b5e5ff5e0e68597a28f20 98 contrib/binary-s390/Release + db66e4ff9e8d9960f80d73d3aa5200e65c7dc22cb81ca4370e0ad4b591b633ee 166642 contrib/binary-sparc/Packages + 7cd50b0d01c53496d59036ea597e557e9845c5f4f713ddce23c45447853a9384 53113 contrib/binary-sparc/Packages.gz + 7e0c1d150c0ca800ec23bbcef96d06008d5d8197e917ac9cb58d7686875f0e12 44815 contrib/binary-sparc/Packages.bz2 + 1e047cdc94234a1eef268ca96419d7590164ae5fb3fc6bc4ce08fcdd7db20601 99 contrib/binary-sparc/Release + 2dcd679635eb296802fafd68af160cf2f62f870deefef55982a29aad0d296632 150458 contrib/binary-kfreebsd-i386/Packages + a3913afc72e4fc68ac15a4bc28632fb41efa24fb3c1ffaac9be0fa6253f8e4f5 48468 contrib/binary-kfreebsd-i386/Packages.gz + 54b6f9814e5dce25161b2a21df701d29d661d26d2532af84776e507ae03ce0e8 40859 contrib/binary-kfreebsd-i386/Packages.bz2 + 41c778ef4327a2ef7549c58b7be35f760001ccd3fb4f4396b4c286d8aacee721 107 contrib/binary-kfreebsd-i386/Release + ee0674bab0a76b4f42f61158ba420425a5dbe0660032588a1c942476934da79c 149521 contrib/binary-kfreebsd-amd64/Packages + 76bce55e736d2a9067d1f9e5b5e25ea6e63856e027469b66983141708f078a67 48638 contrib/binary-kfreebsd-amd64/Packages.gz + bb40557071bc8f603b703c2700bfba236cf5d4a16aa0e55dac121d1e1266dd1f 40672 contrib/binary-kfreebsd-amd64/Packages.bz2 + e3ed482c10ea6a87343ef833c5fb09f700e6a294b2dbc29872ea3ab1e15ef8d4 108 contrib/binary-kfreebsd-amd64/Release + f9486051d056b74d33fea09761f1bc076544cb04c286d53cb8237bdab2b35113 127612 contrib/source/Sources + 5fcb159872916dcb6a3f917dd70979f1c82d6de43acbd99c2bc8cd602f7beb0a 40021 contrib/source/Sources.gz + d9e007442d9198a19d1d82ca9b57a0299f3be158244f7d77e296df0255b0b6bd 33875 contrib/source/Sources.bz2 + 02a952e997425cdb1272e4dacd729f00d748aa2951769291ef6e8f3e550ffe61 100 contrib/source/Release + 9c39463467b1bb94da107220d202733c1cefe937d6bb8aa848cf3ea7c7b1557b 450574 non-free/binary-amd64/Packages + dbdce5bb7180c792bbf74a3635ec73b595e0ae5057eafe6efeeba300c74dbfcc 123922 non-free/binary-amd64/Packages.gz + d90b538531122c638e71a6c3398e2966e1f3c7adbb7361747fb6303910f6abdc 102150 non-free/binary-amd64/Packages.bz2 + cb0bff6473937fbaa8053fcff3f2d7a40820dd92d3208a6740eb3d891be76356 100 non-free/binary-amd64/Release + 8b13a0516d02be6efacc791bff84f1ca00f86aa7a37ddf82e71f505644df1d62 333674 non-free/binary-armel/Packages + 0a8bf503db57565e55d911b6e4d6764d3a952997f31357f412e647dc627a9d55 100648 non-free/binary-armel/Packages.gz + 7c2d2d15e0d95260da3b33c34dceba9340f2f0360cc854a36d7a4f2d6508c6fe 83041 non-free/binary-armel/Packages.bz2 + ab37d77c14dbb4eaf4be8827eaa9f60a07812caea787c5453d8e9c3dbb4e1296 100 non-free/binary-armel/Release + c35b222c7e48496f4ead040bd74968bbe14eb61629860228c366110ad614c67b 465534 non-free/binary-i386/Packages + 70b5602966a4aac32cb9748a0bb9cc96bdf41b5cb4ca65952c12a2c00ee6523e 130976 non-free/binary-i386/Packages.gz + 8357d1f74faf1d29d806fae15d0822ff22f22c22478b59370424771a73f73a4b 107779 non-free/binary-i386/Packages.bz2 + 29a017d1c48a51d841e38d160d4148f009a8102ebe6a630bbf8ed38dbe920915 99 non-free/binary-i386/Release + f359ed56c6ffc24e47f991623b91b20d474cc84f71aaedf1227e9fa2e4433136 338204 non-free/binary-ia64/Packages + 7c65ca81d783340252e7973471bc31557691333a7f2e5e37dadef018863f45f2 101555 non-free/binary-ia64/Packages.gz + d21a0ef078d8bfae4b711201b3005fc3f0453c02a1712d04ba2610f3373336e4 84272 non-free/binary-ia64/Packages.bz2 + 4b407b5d9b9d61e162a049105bd0cc3d4f5c3d265b56b46dcba2a4a8cfc61258 99 non-free/binary-ia64/Release + ac2451e3af6dadfa7713f721249b6bae11b5cbfd138c8b07e72e90ba5f1d1745 334662 non-free/binary-mips/Packages + 94776b1b81148716e80b1b6dfa45d67dfdcdb04731da9bca59baec170ad581ef 100785 non-free/binary-mips/Packages.gz + 8d7879c804838ef3d0cb90b8acca322f1571e599d69f643929b181e7955f9ebb 83692 non-free/binary-mips/Packages.bz2 + c396ce0c5d366015ae47fedfeede8ef74396338c78151608e4d2280533de3009 99 non-free/binary-mips/Release + c8a5fc9507f14b5ef1e464b319f54e3ebb3acf9f503a283aa347f7370faa44bb 331214 non-free/binary-mipsel/Packages + dab0000610f24fabcf0a41efcb42861999bc0dd0d1788cdf416ef10eeea3c47e 99519 non-free/binary-mipsel/Packages.gz + e7ba693780c22c936e8be827a27e9805885995a5514494824f1eb40bc4818f4a 82594 non-free/binary-mipsel/Packages.bz2 + aac8e64c9250e4878da7da6c177ba7956ae2f8b7c70246317cd49da205e3da4b 101 non-free/binary-mipsel/Release + 5bf39926eebface38d1a00e772d569f7791aa111ef48c60611662ca7e36ddec1 341385 non-free/binary-powerpc/Packages + 61d05b309a8616d0ff3ccc090bbefe491b48bb50b083e9bcd04cdc3a80d4e6b0 102985 non-free/binary-powerpc/Packages.gz + 551069b47355aa40934c071e7b3c868710835835ff635cb764214ca08ccc3358 85235 non-free/binary-powerpc/Packages.bz2 + 4ad613287bd40d33134311f9fb58bdf47afe798207276fa513126ed3359a6dfd 102 non-free/binary-powerpc/Release + 5a958c519d4d442bdf641b49c725100500932e6f0af69d1f6b8cbda3f7ee3177 330570 non-free/binary-s390/Packages + bcb15c8b8b7cf08ae3667623dcb484e2f60c5f78ca24ea2a6b22ce7a05966a00 99569 non-free/binary-s390/Packages.gz + c2889568af96ccf9f9d97c194fd2b09d3d4c1a939bf4f43255237df9dc2fe5c4 82572 non-free/binary-s390/Packages.bz2 + 5ee5f71702d1cc0dbb0b6ae92e2c39111e8394139ce96803526d634c7170b6d6 99 non-free/binary-s390/Release + 7a84e2c8a40c270d1169f65678f1308d73009b5b32558a32af5a15a8748088d2 342149 non-free/binary-sparc/Packages + ef51e30a3a90764e09efc092fd5479922020186e656e3aef48d762b729a4ced6 103088 non-free/binary-sparc/Packages.gz + 9a959dc832f44e5d345c4d7411095408b689c4db6fcb1389ca69e77dd86dd867 84992 non-free/binary-sparc/Packages.bz2 + af44efb6f06472d9f1ae2c8c11655d0cdd21bb3e556d05084f57680231b6eeae 100 non-free/binary-sparc/Release + 87171416e2b012cf8d79c0cdf1bd582d54e965907c6868f2476925ad30e70998 261413 non-free/binary-kfreebsd-i386/Packages + ea5d259e85b5930a220ae7c3183976d168a1ea7f52bf5ebcd2c1af7296636840 77510 non-free/binary-kfreebsd-i386/Packages.gz + 2caacb45d2d0b386a4ac7745ec8794d8fb54783fcbf548828ba697353e3d6001 65036 non-free/binary-kfreebsd-i386/Packages.bz2 + 8549821c9c642d20929e9439ab4258cc2020bad552d0420065e936974bbac777 108 non-free/binary-kfreebsd-i386/Release + 8927f1635357ba3f69ab5021ec05d4cf5d6c0c99859e5e79e17af78411b13674 261417 non-free/binary-kfreebsd-amd64/Packages + da6b374d214860a0cdfe5c2fd25ecc57c197bf0b6f1cbe349ccb9d35819ca82d 77556 non-free/binary-kfreebsd-amd64/Packages.gz + f754be04aabf186f7f65165c451731c601f7885fd3b38f6bb44faec0e6234f95 65029 non-free/binary-kfreebsd-amd64/Packages.bz2 + 828fa6f98d4dd14b9e650c9ac76854faa2f21f8734558c59a9d0fbf1973f753f 109 non-free/binary-kfreebsd-amd64/Release + 7898c625bd05f9b88ec6c4ddf258b2d184c05e21f34fa20f8c8ec45e3d40b79a 237802 non-free/source/Sources + 963f712d727d11f22d13ee56d08d02a5ac6ce26e8d7e485b265a6d25bcad4487 74352 non-free/source/Sources.gz + 363f7f9640a30bc4851cdf129bb9fa0775d8de1a4390143e03ff7d5ee5bd5192 61666 non-free/source/Sources.bz2 + c4083af5fc6b7f971f15ee310bdfba87b342e0e79f53f5f50dce9b77f2641de0 101 non-free/source/Release + ec9d94821e8e1901c77da0547c2fb468006d426bd7d97896c1ea96ad89f2e5fc 96 main/debian-installer/binary-amd64/Release + 7f3dc50a4e01064e202853bfcb80c3b9d7ac916b32210a1cc519c3aab09727bb 238045 main/debian-installer/binary-amd64/Packages + 87f681a7df886beb282b62c497cfce7caf16e0610cc0725b92752bb8fec19e1b 65242 main/debian-installer/binary-amd64/Packages.gz + 1324eb5cc21859f9a7e994399005e50efc32451bf8d42e0146ebcff2060918db 51080 main/debian-installer/binary-amd64/Packages.bz2 + dd73061c83c50e443bd3029ac49aa31641dd8fd72366b412b21222645a696284 96 main/debian-installer/binary-armel/Release + 008b442c0fc5f5916f541ffd90c053adfd9e587689e4b00083c2357e06d74a2d 304019 main/debian-installer/binary-armel/Packages + e20834fe59d4caecc94e4a6b18eab12dd2f9d13bbfc172504b0947e37df2d9cd 75648 main/debian-installer/binary-armel/Packages.gz + 64dd8afa75bf49f39c3c5e554b624a2dac50f09caad82b4248dcfb43dd3f3a25 58942 main/debian-installer/binary-armel/Packages.bz2 + d5a8d478ea7656bfb2233cbf2e56737eac3dc8c086f0e02fa3f2538baa26d65d 95 main/debian-installer/binary-i386/Release + 686914f9517d815f25f2f72008e8cb1403bc4aabc0470fac2a31161af86eba2a 286772 main/debian-installer/binary-i386/Packages + fe7a58ff9760f98598027fe24a291923bc45bbab3eee1dc5b0f6616a4498ae65 73233 main/debian-installer/binary-i386/Packages.gz + 6f32bf4be17595175f3ba80770e1782f3654abef2b170182c5e9c4303b839b28 57370 main/debian-installer/binary-i386/Packages.bz2 + c69d67239842b644567d352060b0f12866237c75b431790b907ac6d77e146e33 95 main/debian-installer/binary-ia64/Release + 7253e7850f5aed7408f31161aeb8a1154ef2a2ca729c054190f3784fe337bb8a 224155 main/debian-installer/binary-ia64/Packages + 9bba1a1427eda7f683782ffa0df6803cbdb0c85c30a694aae632a9fa96a2a24e 62857 main/debian-installer/binary-ia64/Packages.gz + 47b7327d366a573d3f2b0df2b95e0a7239abd0ebc0e66b5e3791cb83c5c21929 49172 main/debian-installer/binary-ia64/Packages.bz2 + c2b2c37900ca7d07331f0f2f00ec5a9d34ef6143f9ee61d5ce78787e707425b5 95 main/debian-installer/binary-mips/Release + 9b7042ab61bb4ba6ff7c92e8297d286aef4b3c459bc2956902fb76fa7032ebfe 255197 main/debian-installer/binary-mips/Packages + 15b5629bedbf6dff362e865e03d888ac61483a76ad604ace41d3891450d647ac 67535 main/debian-installer/binary-mips/Packages.gz + 5eb7fe2ca573d00b2212354ddfa8844060d690d37a516278cf664b59ab3d08e4 52992 main/debian-installer/binary-mips/Packages.bz2 + 745c0e40c9401620d1530586e479affd39ed472b0a59a9df81c3a2fa42f495aa 97 main/debian-installer/binary-mipsel/Release + f0bdc4ef1a476b867c1b441962a128b6991af2eee3407efdce591dabb21a8735 244295 main/debian-installer/binary-mipsel/Packages + e487d817801905714c4aa4283550c6a5761506e6b66dd214cb9d7fae873f08ec 65777 main/debian-installer/binary-mipsel/Packages.gz + e3bdc0e60cb5ba553570e3d42b48147d61ee5bea2d0b6cc73556bd6ef8310a8f 51482 main/debian-installer/binary-mipsel/Packages.bz2 + baf2ef522544e333a3c80d925618672f6148be6a9203dec3d81be061e2a9a6e4 98 main/debian-installer/binary-powerpc/Release + 53df0f4b0f98afdb71a90b641d06cfbf2d25afd2d49689bb7314cf8be567cc1d 273465 main/debian-installer/binary-powerpc/Packages + 4404cdab5054fe7a824530ad9c065e4a66af7c96b6c2014812317bc62e4abbf8 71233 main/debian-installer/binary-powerpc/Packages.gz + 4f67a483446be91460ea222d113b0b7e6861895239964e4219f88913eb1bf102 55515 main/debian-installer/binary-powerpc/Packages.bz2 + 745abc20ead19bf42bef69879ec4dd95ad6326703314f1d7a4ca08b6a38ba9b4 95 main/debian-installer/binary-s390/Release + 489b982f93b068aa811c87ebb8db4d282b20caf647c27719e074b4d35f3dae0c 197785 main/debian-installer/binary-s390/Packages + 906dcb697a54c3e75a1a2bf8312326cd049585dbf074f4bbf2d43ff3aa882920 57285 main/debian-installer/binary-s390/Packages.gz + 51bf839e80b1c316002ffe733f38d314e4a9ecbd799c27ef16c9ace925bebce4 45457 main/debian-installer/binary-s390/Packages.bz2 + 134cf67dda7837219bc97e27870cc9b072c62f5d2faa515b617a3e3b3118f32e 96 main/debian-installer/binary-sparc/Release + 8ca46f150fa367ecaecd8709b4e7ae0bc5082f3a24384d1675050435d4c2f40f 209884 main/debian-installer/binary-sparc/Packages + 1434f31660f1c9c6aff2d45d5845f80cbb4bce577403ccaf47246f842981b2bd 59579 main/debian-installer/binary-sparc/Packages.gz + e70341fc4d83acd8820e78faa451134dcb0ee90650c00dbefa03e384a01ccc7f 46954 main/debian-installer/binary-sparc/Packages.bz2 + 6021eff8c705e5dbce595043f11cbb195887638429b6d4f4c5ea0a698ff56a42 104 main/debian-installer/binary-kfreebsd-i386/Release + 23e996fd314c5b1074c125a6d3092a0c071b30b8e7bb183716d787568d051fa7 190536 main/debian-installer/binary-kfreebsd-i386/Packages + 188f326991df229181caea1be80d3372e2f747592e2c27245b2302797f08484c 53117 main/debian-installer/binary-kfreebsd-i386/Packages.gz + fb88d9b9f8941bbce8840a1edf290166c5f9346ff34d8a2fc9e1d939807b8566 41926 main/debian-installer/binary-kfreebsd-i386/Packages.bz2 + 0c95428106bc35bcb4c982224e93dd312e1aaf0fc55e201eca66eb24172ba85e 105 main/debian-installer/binary-kfreebsd-amd64/Release + 28b6e623e705b27560d800121fa77174d6617c5a4ee80d345abcdc542324b15b 191828 main/debian-installer/binary-kfreebsd-amd64/Packages + e0271066791cfc850c707923e3bae0594f70833045c91ba0f97327dc92a9c417 53009 main/debian-installer/binary-kfreebsd-amd64/Packages.gz + 7c50969de1dfb867085c0b4f1eedbbaea14f164c5d0267cce9dcc09b6d47e88a 42056 main/debian-installer/binary-kfreebsd-amd64/Packages.bz2 + cb0bff6473937fbaa8053fcff3f2d7a40820dd92d3208a6740eb3d891be76356 100 non-free/debian-installer/binary-amd64/Release + e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 0 non-free/debian-installer/binary-amd64/Packages + f61f27bd17de546264aa58f40f3aafaac7021e0ef69c17f6b1b4cd7664a037ec 20 non-free/debian-installer/binary-amd64/Packages.gz + d3dda84eb03b9738d118eb2be78e246106900493c0ae07819ad60815134a8058 14 non-free/debian-installer/binary-amd64/Packages.bz2 + ab37d77c14dbb4eaf4be8827eaa9f60a07812caea787c5453d8e9c3dbb4e1296 100 non-free/debian-installer/binary-armel/Release + e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 0 non-free/debian-installer/binary-armel/Packages + f61f27bd17de546264aa58f40f3aafaac7021e0ef69c17f6b1b4cd7664a037ec 20 non-free/debian-installer/binary-armel/Packages.gz + d3dda84eb03b9738d118eb2be78e246106900493c0ae07819ad60815134a8058 14 non-free/debian-installer/binary-armel/Packages.bz2 + 29a017d1c48a51d841e38d160d4148f009a8102ebe6a630bbf8ed38dbe920915 99 non-free/debian-installer/binary-i386/Release + e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 0 non-free/debian-installer/binary-i386/Packages + f61f27bd17de546264aa58f40f3aafaac7021e0ef69c17f6b1b4cd7664a037ec 20 non-free/debian-installer/binary-i386/Packages.gz + d3dda84eb03b9738d118eb2be78e246106900493c0ae07819ad60815134a8058 14 non-free/debian-installer/binary-i386/Packages.bz2 + 4b407b5d9b9d61e162a049105bd0cc3d4f5c3d265b56b46dcba2a4a8cfc61258 99 non-free/debian-installer/binary-ia64/Release + e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 0 non-free/debian-installer/binary-ia64/Packages + f61f27bd17de546264aa58f40f3aafaac7021e0ef69c17f6b1b4cd7664a037ec 20 non-free/debian-installer/binary-ia64/Packages.gz + d3dda84eb03b9738d118eb2be78e246106900493c0ae07819ad60815134a8058 14 non-free/debian-installer/binary-ia64/Packages.bz2 + c396ce0c5d366015ae47fedfeede8ef74396338c78151608e4d2280533de3009 99 non-free/debian-installer/binary-mips/Release + e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 0 non-free/debian-installer/binary-mips/Packages + f61f27bd17de546264aa58f40f3aafaac7021e0ef69c17f6b1b4cd7664a037ec 20 non-free/debian-installer/binary-mips/Packages.gz + d3dda84eb03b9738d118eb2be78e246106900493c0ae07819ad60815134a8058 14 non-free/debian-installer/binary-mips/Packages.bz2 + aac8e64c9250e4878da7da6c177ba7956ae2f8b7c70246317cd49da205e3da4b 101 non-free/debian-installer/binary-mipsel/Release + e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 0 non-free/debian-installer/binary-mipsel/Packages + f61f27bd17de546264aa58f40f3aafaac7021e0ef69c17f6b1b4cd7664a037ec 20 non-free/debian-installer/binary-mipsel/Packages.gz + d3dda84eb03b9738d118eb2be78e246106900493c0ae07819ad60815134a8058 14 non-free/debian-installer/binary-mipsel/Packages.bz2 + 4ad613287bd40d33134311f9fb58bdf47afe798207276fa513126ed3359a6dfd 102 non-free/debian-installer/binary-powerpc/Release + e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 0 non-free/debian-installer/binary-powerpc/Packages + f61f27bd17de546264aa58f40f3aafaac7021e0ef69c17f6b1b4cd7664a037ec 20 non-free/debian-installer/binary-powerpc/Packages.gz + d3dda84eb03b9738d118eb2be78e246106900493c0ae07819ad60815134a8058 14 non-free/debian-installer/binary-powerpc/Packages.bz2 + 5ee5f71702d1cc0dbb0b6ae92e2c39111e8394139ce96803526d634c7170b6d6 99 non-free/debian-installer/binary-s390/Release + e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 0 non-free/debian-installer/binary-s390/Packages + f61f27bd17de546264aa58f40f3aafaac7021e0ef69c17f6b1b4cd7664a037ec 20 non-free/debian-installer/binary-s390/Packages.gz + d3dda84eb03b9738d118eb2be78e246106900493c0ae07819ad60815134a8058 14 non-free/debian-installer/binary-s390/Packages.bz2 + af44efb6f06472d9f1ae2c8c11655d0cdd21bb3e556d05084f57680231b6eeae 100 non-free/debian-installer/binary-sparc/Release + e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 0 non-free/debian-installer/binary-sparc/Packages + f61f27bd17de546264aa58f40f3aafaac7021e0ef69c17f6b1b4cd7664a037ec 20 non-free/debian-installer/binary-sparc/Packages.gz + d3dda84eb03b9738d118eb2be78e246106900493c0ae07819ad60815134a8058 14 non-free/debian-installer/binary-sparc/Packages.bz2 + 8549821c9c642d20929e9439ab4258cc2020bad552d0420065e936974bbac777 108 non-free/debian-installer/binary-kfreebsd-i386/Release + e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 0 non-free/debian-installer/binary-kfreebsd-i386/Packages + f61f27bd17de546264aa58f40f3aafaac7021e0ef69c17f6b1b4cd7664a037ec 20 non-free/debian-installer/binary-kfreebsd-i386/Packages.gz + d3dda84eb03b9738d118eb2be78e246106900493c0ae07819ad60815134a8058 14 non-free/debian-installer/binary-kfreebsd-i386/Packages.bz2 + 828fa6f98d4dd14b9e650c9ac76854faa2f21f8734558c59a9d0fbf1973f753f 109 non-free/debian-installer/binary-kfreebsd-amd64/Release + e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 0 non-free/debian-installer/binary-kfreebsd-amd64/Packages + f61f27bd17de546264aa58f40f3aafaac7021e0ef69c17f6b1b4cd7664a037ec 20 non-free/debian-installer/binary-kfreebsd-amd64/Packages.gz + d3dda84eb03b9738d118eb2be78e246106900493c0ae07819ad60815134a8058 14 non-free/debian-installer/binary-kfreebsd-amd64/Packages.bz2 diff --git a/beagle/debian-rfs/var/lib/dpkg/available b/beagle/debian-rfs/var/lib/dpkg/available new file mode 100644 index 0000000..e69de29 --- /dev/null +++ b/beagle/debian-rfs/var/lib/dpkg/available diff --git a/beagle/debian-rfs/var/lib/dpkg/info/dpkg.list b/beagle/debian-rfs/var/lib/dpkg/info/dpkg.list new file mode 100644 index 0000000..e69de29 --- /dev/null +++ b/beagle/debian-rfs/var/lib/dpkg/info/dpkg.list diff --git a/beagle/debian-rfs/var/lib/dpkg/status b/beagle/debian-rfs/var/lib/dpkg/status new file mode 100644 index 0000000..a16559a --- /dev/null +++ b/beagle/debian-rfs/var/lib/dpkg/status @@ -0,0 +1,4 @@ +Package: dpkg +Version: 1.15.8.10 +Maintainer: unknown +Status: install ok installed |
