kêœL]~·:]~·:ÿÿÿby nameby named kê<°Õ‰¤[]~·:]~·:]~·:!!°w/[./lpp_nameó/¤4 R I freeware.perl.readline { freeware.perl.readline.rte 01.09.0000.0000 01 N U en_US GNU Readline Library Wrapper Module for Perl [ >0 { *prereq freeware.perl.rte 5.0.0.0 *prereq perl.rte 5.0.0.0 } *prereq freeware.gnu.readline.rte 4.1.0.0 % /usr 6 /usr/local 4 /usr/local/lib 2 /usr/local/lib/Term-ReadLine-Gnu-1.09 43 /usr/local/lib/Term-ReadLine-Gnu-1.09/eg 69 /usr/local/man /usr/lpp 2 /usr/lpp/freeware.perl.readline /usr/opt 2 /usr/opt/perl5 2 /usr/opt/perl5/lib 2 /usr/opt/perl5/lib/site_perl 2 /usr/opt/perl5/lib/site_perl/5.005 2 /usr/opt/perl5/lib/site_perl/5.005/aix 4 /usr/opt/perl5/lib/site_perl/5.005/aix/auto 2 /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term 2 /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine 2 /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu 332 /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/XS 1 /usr/opt/perl5/lib/site_perl/5.005/aix/Term 2 /usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine 80 /usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine/Gnu 23 INSTWORK 50 50 % freeware.perl.freeware.readline.rte 01.09.0001.0000 % % % ] } kê’-‰íAX~·:\~·:\~·:!!0?5./usr/lpp/freeware.perl.readlineó/íAkêE‰¤M\~·:\~·:\~·:!! :M./usr/lpp/freeware.perl.readline/liblpp.aó/¤ 19198 0 0 128 16188 0 1460 1732 0 985103959 0 0 644 29 freeware.perl.readline.rte.al` ./usr/local/lib/Term-ReadLine-Gnu-1.09/INSTALL ./usr/local/lib/Term-ReadLine-Gnu-1.09/README ./usr/local/lib/Term-ReadLine-Gnu-1.09/MANIFEST ./usr/local/lib/Term-ReadLine-Gnu-1.09/eg/ptksh+ ./usr/local/lib/Term-ReadLine-Gnu-1.09/eg/fileman ./usr/local/lib/Term-ReadLine-Gnu-1.09/eg/pftp ./usr/local/lib/Term-ReadLine-Gnu-1.09/eg/perlsh ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/Gnu.so ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/Gnu.bs ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/XS/autosplit.ix ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/.packlist ./usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine/Gnu.pm ./usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine/Gnu/XS.pm ./usr/local ./usr/local/lib ./usr/local/lib/Term-ReadLine-Gnu-1.09 ./usr/local/lib/Term-ReadLine-Gnu-1.09/eg ./usr/local/man ./usr/opt/perl5 ./usr/opt/perl5/lib ./usr/opt/perl5/lib/site_perl ./usr/opt/perl5/lib/site_perl/5.005 ./usr/opt/perl5/lib/site_perl/5.005/aix ./usr/opt/perl5/lib/site_perl/5.005/aix/auto ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/XS ./usr/opt/perl5/lib/site_perl/5.005/aix/Term ./usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine ./usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine/Gnu 1309 3192 128 966515948 0 0 644 36 freeware.perl.readline.rte.copyright` Term::ReadLine::Gnu --- GNU Readline Library Wrapper Module, version 1.09 Copyright (c) 2000 Hiroo Hayashi. All rights reserved. Plaese refer to the README file delivered in the directory /usr/local/lib/Term-ReadLine-Gnu-1.09 for complete details. The other files delivered in the same directory should also be read. Packaging is Copyright (C) 2000 BULL SA. This LPP shall not be redistributed commercially. Software, information and material distributed as freeware or shareware (hereinafter the "Materials") are provided "as is", without warranty of any kind. Bull and its suppliers disclaim all warranties whether 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 Materials is with you. Neither Bull nor its suppliers warrant that the functions contained in the Materials will meet your requirements or that the Materials will be error free. Bull and its suppliers shall in no event be liable for direct or indirect damage caused to the User or to third parties by use of the Materials, whether in an action of contract, negligence or other tortious action, arising out of or in connection with the use or performance of the Materials. 5435 8778 1732 985103963 0 0 644 36 freeware.perl.readline.rte.inventory` /usr/local/lib/Term-ReadLine-Gnu-1.09/INSTALL: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.readline.rte size = 7939 checksum = "52331 8 " /usr/local/lib/Term-ReadLine-Gnu-1.09/README: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.readline.rte size = 10538 checksum = "48387 11 " /usr/local/lib/Term-ReadLine-Gnu-1.09/MANIFEST: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.readline.rte size = 1025 checksum = "16361 2 " /usr/local/lib/Term-ReadLine-Gnu-1.09/eg/ptksh+: owner = root group = system mode = 755 type = FILE class = apply,inventory,freeware.perl.readline.rte size = 2958 checksum = "05059 3 " /usr/local/lib/Term-ReadLine-Gnu-1.09/eg/fileman: owner = root group = system mode = 555 type = FILE class = apply,inventory,freeware.perl.readline.rte size = 8475 checksum = "43255 9 " /usr/local/lib/Term-ReadLine-Gnu-1.09/eg/pftp: owner = root group = system mode = 555 type = FILE class = apply,inventory,freeware.perl.readline.rte size = 10350 checksum = "37600 11 " /usr/local/lib/Term-ReadLine-Gnu-1.09/eg/perlsh: owner = root group = system mode = 555 type = FILE class = apply,inventory,freeware.perl.readline.rte size = 11577 checksum = "27501 12 " /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/Gnu.so: owner = root group = system mode = 555 type = FILE class = apply,inventory,freeware.perl.readline.rte size = 167589 checksum = "55955 164 " /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/Gnu.bs: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.readline.rte size = 0 checksum = "00000 0 " /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/XS/autosplit.ix: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.readline.rte size = 99 checksum = "54725 1 " /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/.packlist: owner = root group = system mode = 644 type = FILE class = apply,inventory,freeware.perl.readline.rte size = 339 checksum = "11708 1 " /usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine/Gnu.pm: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.readline.rte size = 39506 checksum = "60745 39 " /usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine/Gnu/XS.pm: owner = root group = system mode = 444 type = FILE class = apply,inventory,freeware.perl.readline.rte size = 11327 checksum = "43902 12 " /usr/local: owner = bin group = bin mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/local/lib: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/local/lib/Term-ReadLine-Gnu-1.09: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/local/lib/Term-ReadLine-Gnu-1.09/eg: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/local/man: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/opt/perl5: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/opt/perl5/lib: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/opt/perl5/lib/site_perl: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/opt/perl5/lib/site_perl/5.005: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/opt/perl5/lib/site_perl/5.005/aix: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/opt/perl5/lib/site_perl/5.005/aix/auto: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/XS: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/opt/perl5/lib/site_perl/5.005/aix/Term: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte /usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine/Gnu: owner = root group = system mode = 755 type = DIRECTORY class = apply,inventory,freeware.perl.readline.rte 2595 11522 3192 966516306 0 0 755 33 freeware.perl.readline.rte.post_i` #!/usr/bin/ksh LANG=C VERBOSE=${VERBOSE:-"0"} # simple debug system appname="${0##*/}" # $(basename $0) # Pre- and Post install template scripts # Copyright (C) 2000 GROUPE BULL # all rights reserved. # # author: Ciaran Deignan (Ciaran.Deignan@bull.net) # started: July 1997, last modified July 2000 # version: 2.0 #------------------------------------------------------------------ # GLOBAL UTILITIES #------------------------------------------------------------------ # Debug message print function (v1.0 - July 1998) debug() { integer lev=$1 shift [ $VERBOSE -ge $lev ] && print -- "$@" >&2 return 0 } # error handler (v2.1 - July 1998): cmd() { debug 7 "CMD: execute '$@'" eval '"$@"' [ $? -ne 0 ] && debug 0 "$appname: CMD: error detected in '$@'" \ && exit 2 } typeset -xf cmd debug [ $VERBOSE -gt 9 ] && set -x #------------------------------------------------------------------ debug 2 "$appname: starting execution, params <$*>"; # Function to update the file /usr/local/info/dir # This function should be used if the LPP delivers files into # /usr/local/info # NOTE: the file /usr/local/info/dir should *never* be delivered directly... update_info_dir() { if ! [ -d /usr/local/info ] then debug 1 "No info directory found !" debug 1 "stopping" return 0 fi if type gen-dir-node >/dev/null 2>&1 then print "Updating info \"root\" file (/usr/local/info/dir)" cmd cd /usr/local/info [ -f dir ] && cmd mv dir dir.bak cmd gen-dir-node /usr/local/info/ > dir cmd chmod 444 dir fi } # Perl module update function... update_perllocal () { # the directory /usr/local/lib/perl5/ should exist, or might # ba a symbolic link to /usr/opt/perl5/lib.... if ! cd /usr/local/lib/perl5/. then print "Perl not installed correctly, can't find directory" print "/usr/local/lib/perl5" exit 1 fi if ! ls */aix/perllocal.pod > /dev/null 2>&1 then filename=$(ls -td 5.*/aix | line) if [ "$filename" = "" ] then cmd print "Perl not installed correctly, can't find \c" cmd print "directory /usr/local/lib/perl5/5.00*/aix" exit 3 fi filename="$filename/perllocal.pod" else filename=$(cmd ls -t */aix/perllocal.pod | line) fi # use a "hello-script" to add info to perllocal.pod.... cmd cat >>$filename < L =over 4 =item * C =item * C =item * C =item * C =back MODULEINFO } update_perllocal exit 0 3560 15228 8778 985103957 0 0 755 32 freeware.perl.readline.rte.pre_i` #!/usr/bin/ksh LANG=C VERBOSE=${VERBOSE:-"0"} # simple debug system appname="${0##*/}" # $(basename $0) # Pre- and Post install template scripts # Copyright (C) 2000 GROUPE BULL # all rights reserved. # # author: Ciaran Deignan (Ciaran.Deignan@bull.net) # started: July 1997, last modified July 2000 # version: 2.0 #------------------------------------------------------------------ # GLOBAL UTILITIES #------------------------------------------------------------------ # Debug message print function (v1.0 - July 1998) debug() { integer lev=$1 shift [ $VERBOSE -ge $lev ] && print -- "$@" >&2 return 0 } # error handler (v2.1 - July 1998): cmd() { debug 7 "CMD: execute '$@'" eval '"$@"' [ $? -ne 0 ] && debug 0 "$appname: CMD: error detected in '$@'" \ && exit 2 } typeset -xf cmd debug [ $VERBOSE -gt 9 ] && set -x #------------------------------------------------------------------ debug 2 "$appname: starting execution, params <$*>"; slibclean # Function to allow perl modules compiled for a "freeware" (/usr/local) # perl to be installed on top of an "IBM" (/usr/opt/perl5) perl. make_perl_f2i_links() { # Clean up historic symbolic links if there's any... [ -h /usr/opt/perl5/lib ] && rm /usr/opt/perl5/lib # Make /usr/local/lib/perl5 be a symbolic link to IBM perl lib dir. if [ ! -e /usr/local/lib/perl5 ] && [ -d /usr/opt/perl5/lib ] then [ -d /usr/local/lib ] || cmd mkdir -p /usr/local/lib cmd ln -s /usr/opt/perl5/lib /usr/local/lib/perl5 fi if [ ! -e /usr/local/bin/perl ] && [ -e /usr/opt/perl5/bin/perl ] then [ -d /usr/local/bin ] || cmd mkdir /usr/local/bin cmd ln -s /usr/opt/perl5/bin/perl /usr/local/bin/perl fi } # Function to allow perl modules compiled for an "IBM" (/usr/opt/perl5) # perl to be installed on top of a "freeware" (/usr/local) perl. make_perl_i2f_links() { # Clean up historic symbolic links if there's any... [ -h /usr/local/lib/perl5 ] && rm /usr/local/lib/perl5 # Make /usr/opt/perl5/lib be a symbolic link to standard perl lib dir. if [ ! -e /usr/opt/perl5/lib ] && [ -d /usr/local/lib/perl5 ] then [ -d /usr/opt/perl5 ] || cmd mkdir -p /usr/opt/perl5 cmd ln -s /usr/local/lib/perl5 /usr/opt/perl5/lib elif [ ! -e /usr/opt/perl5/lib/5.00503 ] # If "lib" directory already exists, just make 5.00503 link... then cmd cd /usr/local/lib/perl5 if [ -d 5.6.0 ] then cmd ln -s /usr/local/lib/perl5/5.6.0 /usr/opt/perl5/lib/5.00503 elif [ -d 5.6.1 ] then cmd ln -s /usr/local/lib/perl5/5.6.1 /usr/opt/perl5/lib/5.00503 fi fi if [ ! -e /usr/opt/perl5/bin/perl ] && [ -e /usr/local/bin/perl ] then [ -d /usr/opt/perl5/bin ] || cmd mkdir /usr/opt/perl5/bin cmd ln -s /usr/local/bin/perl /usr/opt/perl5/bin/perl fi } mkgrp_usr() { if [ $# -ne 2 ] then debug 0 "Missing module-name parameter in remove_perllocal" debug 0 "can't remove module info from perllocal." return 1 fi user="$1"; group="$2" # First create new group... if ! lsgroup $group >/dev/null then print "making group '$group'" if ! mkgroup $group then print "Can't make group '$group'" print "Stopping" exit 2 fi else print "Group $group exists" fi if ! lsuser $user >/dev/null then echo "making user $user" if ! mkuser account_locked=true gecos="Automatic account" \ pgrp=$group login=false rlogin=false su=false \ sugroups="" $user then echo "Can't create user '$user'" echo "Stopping" exit 2 fi else echo "User $user exists" fi } make_perl_i2f_links exit 0 814 16188 11522 985103961 0 0 644 31 freeware.perl.readline.rte.size` ./usr 6 ./usr/local 4 ./usr/local/lib 2 ./usr/local/lib/Term-ReadLine-Gnu-1.09 43 ./usr/local/lib/Term-ReadLine-Gnu-1.09/eg 69 ./usr/local/man ./usr/lpp 2 ./usr/lpp/freeware.perl.readline ./usr/opt 2 ./usr/opt/perl5 2 ./usr/opt/perl5/lib 2 ./usr/opt/perl5/lib/site_perl 2 ./usr/opt/perl5/lib/site_perl/5.005 2 ./usr/opt/perl5/lib/site_perl/5.005/aix 4 ./usr/opt/perl5/lib/site_perl/5.005/aix/auto 2 ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term 2 ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine 2 ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu 332 ./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/XS 1 ./usr/opt/perl5/lib/site_perl/5.005/aix/Term 2 ./usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine 80 ./usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine/Gnu 23 2859 19198 15228 966516342 0 0 700 35 freeware.perl.readline.rte.unpost_i` #!/usr/bin/ksh LANG=C VERBOSE=${VERBOSE:-"0"} # simple debug system appname="${0##*/}" # $(basename $0) # Pre- and Post install template scripts # Copyright (C) 2000 GROUPE BULL # all rights reserved. # # author: Ciaran Deignan (Ciaran.Deignan@bull.net) # started: July 1997, last modified July 2000 # version: 2.0 #------------------------------------------------------------------ # GLOBAL UTILITIES #------------------------------------------------------------------ # Debug message print function (v1.0 - July 1998) debug() { integer lev=$1 shift [ $VERBOSE -ge $lev ] && print -- "$@" >&2 return 0 } # error handler (v2.1 - July 1998): cmd() { debug 7 "CMD: execute '$@'" eval '"$@"' [ $? -ne 0 ] && debug 0 "$appname: CMD: error detected in '$@'" \ && print exit 2 } typeset -xf cmd debug [ $VERBOSE -gt 9 ] && set -x #------------------------------------------------------------------ debug 2 "$appname: starting execution, params <$*>"; # Function to update the file /usr/local/info/dir # This function should be used if the LPP delivers files into # /usr/local/info # NOTE: the file /usr/local/info/dir should *never* be delivered directly... update_info_dir() { if ! [ -d /usr/local/info ] then debug 1 "No info directory found !" debug 1 "stopping" return 0 fi if type gen-dir-node >/dev/null 2>&1 then print "Updating info \"root\" file (/usr/local/info/dir)" cmd cd /usr/local/info [ -f dir ] && cmd mv dir dir.bak cmd gen-dir-node /usr/local/info/ > dir cmd chmod 444 dir fi } # Perl module update function... remove_perllocal () { if [ $# -en 1 ] then debug 0 "Missing module-name parameter in remove_perllocal" debug 0 "can't remove module info from perllocal." return 0 fi modulename="$1" # the directory /usr/local/lib/perl5/ should exist, or might # ba a symbolic link to /usr/opt/perl5/lib.... if ! cd /usr/local/lib/perl5/. then print "Perl not installed correctly, can't find directory" print "/usr/local/lib/perl5" exit 1 fi if ! ls */aix/perllocal.pod > /dev/null 2>&1 then filename=$(ls -td 5.*/aix | line) if [ "$filename" = "" ] then cmd print "Perl not installed correctly, can't find \c" cmd print "directory /usr/local/lib/perl5/5.00*/aix" exit 3 fi filename="$filename/perllocal.pod" else filename=$(cmd ls -t */aix/perllocal.pod | line) fi # use a small perl script to remove the module info # (I hope this isn't too "wildcard"...) cmd perl -w -n -i.bak -e ' $line = $_; if (defined ($flag) && ($flag == 2)) { undef $flag ;} $flag=1 if $line =~ /^=head2\s+.*L<'"$modulename"'>/; print $line if !defined($flag); $flag=2 if $line =~ /^=back/;' $filename } #=head2 Thu Aug 17 14:41:30 2000: C L remove_perllocal "Term::ReadLine::Gnu" exit 0 399 0 16188 0 0 0 0 0 ` 7 128 1732 3192 8778 11522 15228 16188 freeware.perl.readline.rte.alfreeware.perl.readline.rte.copyrightfreeware.perl.readline.rte.inventoryfreeware.perl.readline.rte.post_ifreeware.perl.readline.rte.pre_ifreeware.perl.readline.rte.sizefreeware.perl.readline.rte.unpost_ikê˜‰$Y~·:úÞ›9ÜÔž:!!‘5./usr/local/lib/Term-ReadLine-Gnu-1.09/INSTALLó/$# $Id: INSTALL,v 1.18 1999-07-19 22:26:33+09 hayashi Exp $ 1. How to Install Term::ReadLine::Gnu See the section `3. Tips for Cygwin Environment' for Windows 98 and Windows NT. 1.1 Install GNU Readline library 2.1 or later and their header files. See the section `How to Install GNU Readline Library'. 1.2 Make and install % perl Makefile.PL [--prefix=...] [--includedir=...] [--libdir=...] % make % make test % make install If you have installed the GNU Readline Library (libreadline.{a,so} and readline/readline.h, etc.) on directories for which your perl is not configured to search (refer the value of ccflags and libpath in the output of `perl -V'), specify the paths as follows; % perl Makefile.PL --includedir=/mydir/include --libdir=/mydir/lib This example equivalent with the follows; % perl Makefile.PL --prefix=/mydir 1.3 Trouble Shooting If you have any troubles during using this module, please let me (hiroo.hayashi@computer.org) know them by E-Mail. It may help people who has same problem. I'm sorry that I cannot watch all articles on comp.lang.perl.modules. When you report me your trouble, send me the result of `perl -V' and which compiler you use to compile the GNU Readline Library (libreadline.a). 2. How to Install GNU Readline Library Now this module supports only GNU Readline Library 2.1, 2.2.1 and 4.0. (readline-2.[12].tar.gz, readline-4.0.tar.gz or libraries which are included in the GNU Bash version 2.0 or later) Executing `perl Makefile.PL` detects which version of the GNU Readline Library is already installed and warns you if you have the unsupported version. Note that some free Unix distribution and Cygwin32-b19 and b20 include the GNU Readline Library 2.0 which is not supported by this module. In the following example, the install prefix directory is `/usr/local/gnu'. If you install the library and header files in another directory, you must edit `LIBS' and/or `INC' section in Makefile.PL. You HAVE TO build the library as shared library on the following OSs; HPUX You DON'T HAVE TO and may build the library as shared library on the following OSs; GNU/Linux 2.x SunOS 4.x, 5.x AIX 4.1.x Cygwin 20.x # Please let me know on your experience on others OSs. If you want to build it as shared library, use readline-4.0 (or later). Type `make shared' instead of `make' to build shared library. Since the GNU Readline Library is 8 bit clean, I use Japanese characters without any patch. But I have to hit Backspace key twice to erase a Japanese character. If you want to handle Japanese characters better, check the following URL. ftp://ftp.yynet.tama.tokyo.jp/pub/misc/readline/ I've not tried it, but it should work with my module. 2.1. readline-4.0.tar.gz, readline-2.2.1.tar.gz readline-2.2.tar.gz has some bugs, so I strongly recommend you to use readline-2.2.1.tar.gz or later instead. 1. get and extract readline-XX.tar.gz 2. configure % ./configure --prefix=/usr/local/gnu 3. make and install % make install 2.2. readline-2.1.tar.gz 1. get and extract readline-2.1.tar.gz 2. add following patch; ======================================================================== *** Makefile.in.orig Wed Jun 4 00:29:31 1997 --- Makefile.in Sun Jul 13 23:31:09 1997 *************** *** 194,200 **** -test -n "$(RANLIB)" && -$(RANLIB) -t $(libdir)/libreadline.a -( if test -d doc ; then \ cd doc && \ ! ${MAKE} ${MFLAGS} infodir=$(infodir) INSTALL_DATA=$(INSTALL_DATA) $@; \ fi ) installdirs: $(srcdir)/support/mkdirs --- 194,200 ---- -test -n "$(RANLIB)" && -$(RANLIB) -t $(libdir)/libreadline.a -( if test -d doc ; then \ cd doc && \ ! ${MAKE} ${MFLAGS} infodir=$(infodir) INSTALL_DATA="$(INSTALL_DATA)" $@; \ fi ) installdirs: $(srcdir)/support/mkdirs ======================================================================== 3. configure % ./configure --prefix=/usr/local/gnu 4. make and install % make install 2.3. libreadline.a in bash-2.0.tar.gz # I reported this patch to Chet Ramey, the bash maintainer, but he # fixed Makefile.in as follows; # # $ grep -A2 ^install: bash-2.02/lib/readline/Makefile.in # install: # @echo "This version of the readline library should not be installed." # # Get readline-2.2.1.tar.gz and install it. The libreadline.a which is made when you make bash does not work as stand-alone library. You must make it without defining a CPP macro `SHELL'. 1. get and extract bash-2.0.tar.gz 2. add following patch (I reported this patch to bug-bash@prep.ai.mit.edu, so I hope this patch will not be required by the future releases.) ======================================================================== *** lib/readline/Makefile.in.orig Tue Nov 26 02:40:21 1996 --- lib/readline/Makefile.in Fri Dec 27 00:16:50 1996 *************** *** 4,9 **** --- 4,16 ---- # # #################################################################### + # Include some boilerplate Gnu makefile definitions. + prefix = @prefix@ + + exec_prefix = @exec_prefix@ + libdir = $(exec_prefix)/lib + includedir = @includedir@ + srcdir = @srcdir@ VPATH = .:@srcdir@ topdir = @top_srcdir@ *************** *** 108,114 **** done -${MV} $(libdir)/libreadline.a $(libdir)/libreadline.old ${INSTALL_DATA} libreadline.a $(libdir)/libreadline.a ! -test -n "$(RANLIB)" && $(RANLIB) -t $(bindir)/libreadline.a installdirs: $(topdir)/support/mkdirs $(SHELL) $(topdir)/support/mkdirs $(includedir) \ --- 115,121 ---- done -${MV} $(libdir)/libreadline.a $(libdir)/libreadline.old ${INSTALL_DATA} libreadline.a $(libdir)/libreadline.a ! -test -n "$(RANLIB)" && $(RANLIB) -t $(libdir)/libreadline.a installdirs: $(topdir)/support/mkdirs $(SHELL) $(topdir)/support/mkdirs $(includedir) \ ======================================================================== 3. configure % ./configure --prefix=/usr/local/gnu 4. change directory to the Readline Library directory % cd lib/readline 5. remove *.a and *.o, if you made libreadline.a for bash in the directory % make clean 6. make % make 7. install % make install 3. Tips for Cygwin Environment I could install Term::ReadLine::Gnu successfully on my kids' game launcher called Windows 98 with the following procedure. 3.1 Install Cygwin b20.1 Get full.exe from http://sourceware.cygnus.com/cygwin/ and execute it. 3.2 Install Perl Download dynamically-linked version perl from the following URL; http://cygutils.netpedia.net/ I downloaded the patch from this site and build perl by myself. If you have fast access to the Internet, it should be easier to download binary distribution. There is older static distribution on the site. Once I tried it but it required some hack. I recommend you to use the dynamically-linked version. 3.3 Install GNU Readline Library. The version of the GNU Readline Library included in Cygwin b20.1 is not supported Term::ReadLine::Gnu. But you can install up to date version with standard configuration process. readline-4.0.tar.gz has a bug on the Cygwin environment in history file access routine. Apply the following patch. All other tasks are same as installation on UNIX. --- histfile.c-dist Wed Sep 16 02:01:56 1998 +++ histfile.c Mon May 17 00:59:10 1999 @@ -158,7 +158,7 @@ #if 0 if (read (file, buffer, file_size) != file_size) #else - if (read (file, buffer, file_size) < 0) + if ((file_size = read (file, buffer, file_size)) < 0) #endif { error_and_exit: @@ -279,7 +279,7 @@ truncate to. */ if (i && ((file = open (filename, O_WRONLY|O_TRUNC|O_BINARY, 0600)) != -1)) { - write (file, buffer + i, file_size - i); + write (file, buffer + i, chars_read - i); #if defined (__BEOS__) /* BeOS ignores O_TRUNC. */ 3.4 Install Term::Readline::Gnu See section 1. EOF irs =kêJ‰$*)Y~·:úÞ›9ÜÔž:!!¯5*)./usr/local/lib/Term-ReadLine-Gnu-1.09/READMEó/$ -*- Indented-text -*- $Id: README,v 1.19 2000-04-04 02:56:07+09 hayashi Exp $ Term::ReadLine::Gnu --- GNU Readline Library Wrapper Module Copyright (c) 2000 Hiroo Hayashi. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Description: Term::ReadLine::Gnu (TRG) is an implementation of the interface to the GNU Readline Library. This module gives you input line editing facility, input history management facility, word completion facility, etc. It uses the real GNU Readline Library and has the interface with the almost all variables and functions which are documented in the GNU Readline/History Library. So you can program your custom editing function, your custom completion function, and so on with Perl. TRG may be useful for prototyping before programming with C. TRG is upper compatible with Term::ReadLine included in Perl distribution. Term::ReadLine uses TRG automatically when TRG is available. You can enjoy full line editing feature with Perl debugger which use Term::ReadLine with no patch. Ilya Zakharevich distributes his implementation, Term::ReadLine::Perl, which bases on Jeffrey Friedl's readline.pl. His module works very well, and is easy to install because it is written by only Perl. I am trying to make my module compatible with his. He gives useful advises for me. Unfortunately readline.pl simulated old GNU Readline library before TRG was born. For example, it was not 8 bit clean and it warns to the variables in ~/.inputrc which it did not know yet. We Japanese usually use 8 bit characters, so this was bad feature for me. I could make a patch for these problems but I had interest with C interface facility and dynamic loading facility of Perl, so I thought it was a good chance for me to study them. Then I made this module instead of fixing his module. Prerequisites: You must have GNU Readline Library Version 2.1 or later. See INSTALL for more detail. By a report GNU Readline Library may not work with perl with sfio. Since I do not have sfio library, I am not sure. How to build/install: See INSTALL. Bugs: There must be many bugs in both programs and documents (especially in English grammar). Comments and bug reports are very welcome. Author: Hiroo Hayashi Revision History: 1.09 2000-04-04 - Perl-5.6 now does not warn without `POLLUTE=1' during `perl Makefile.PL'. (Thanks to PPPort.) - change the default terminal escape sequence to stop underline. - support rl_already_prompted and rl_on_new_line_with_prompt() which are introduced by readline-4.1-beta. - support rl_fumap_names() and rl_last_func. - update documentation. 1.08 1999-12-30 - fix Makefile.PL to search libreadline.* correctly even if it is not included in the paths specified with the configuration variable `libpth'. - add dummy assignment to %ENV before $self->initialize() 1.07 1999-07-19 - search path for the GNU Readline Library is specified by command line argument instead of editing Makefile.PL. - fix bug of t/readline.t which warns for the GNU Readline version 2.1. - Makefile.PL now looks for shared libraries not only for static ones - add support for Cygwin b20.1 and HPUX (HPUX support may be incomplete.) - no change on Gnu.pm and Gnu.xs 1.06 1999-05-05 - fix a bug which causes segmentation fault when completion_matches() returns long list. - fix a bug which causes segmentation fault when perl subroutine returns a list of undef in attempted_completion_function_wrapper(). - disable Autosplit for AutoLoad.pm bug distributed with Perl 5.004 or earlier. - add check if perl is configured with sfio to Makefile.PL. 1.05 1999-04-04 - bug fix Term::ReadLine::Perl compatibility variable `completion_function' and function `rl_filename_list' are now compatible with Term::ReadLine::Perl. Completion code written for Term::ReadLine::Perl, e.g. perl5db.pl, works with this module. search text of list_completion is quoted - add support of new variables and functions introduced by GNU Readline Library Version 4.0 new variable rl_erase_empty_line rl_catch_signals rl_catch_sigwinch rl_pre_input_hook completion_display_matches_hook history_inhibit_expansion_function new function rl_display_match_list() rl_cleanup_after_signal() rl_free_line_state() rl_reset_after_signal() rl_resize_terminal() rl_set_signals() rl_clear_signals() - add support of variables and function which were not supported yet filename_quoting_function filename_dequoting_function char_is_quoted_p ignore_some_completions_function directory_completion_hook rl_get_all_function_names() - add support of functions which are specific to Term::ReadLine::Gnu display_readline_version() change_ornaments() shadow_redisplay() - rename some functions for the orthogonality rl_unbind_function_in_map to rl_unbind_function rl_unbind_command_in_map to rl_unbind_command - `make test' is executed non-interactively and comprehensively - sample code improvement eg/perlsh Perl symbol completion was rewritten and much more improved. SIGINT clears the current line add support \w (current working package) in the prompt string add support `afterinit' hook as Perl debugger. eg/pftp password input is now invisible. displaying of completion candidates are improved by using completion_display_matches_hook. - internal changes Perl code for Term::ReadLine::Gnu::XS package are moved into separate file Gnu/XS.pm and `AutoSplit'ed. replace operate_and_get_next() to one borrowed from bash. 1.04 1999-02-23 - fix a bug by which $if-$endif feature in ~/.inputrc was disabled. - works with GNU Readline Library version 4.0 in which some function names were changed. New functions, that are introduced in the new library, were not supported in this release. 1.03 1998-09-27 - fix a bug when prompt string includes non-printing characters and an input line is longer than terminal width. Constants, RL_PROMPT_START_IGNORE and RL_PROMPT_END_IGNORE, are incorporated from the GNU Readline Library to support this feature. - now works on a system which does not have /etc/termcap and has termcap compatible library, libncurses or libcurses. 1.02 1998-08-14 - fix a bug in Makefile.PL, which quoted a variable, $increadlinedir, with a pair of single quotes - this is an internal revision 1.01 1998-05-13 - support readline-2.2 add rl_unbind_function_in_map() and rl_unbind_command_in_map() Makefile.PL checks the version of the GNU Readline Library - define rl_save_prompt() and rl_restore_prompt() - document fix 'Changes' file is removed. It is merged into README file. fix a bug in a sample program of rl_completion_entry_function 1.00 1998-04-15 - the 1st major release - ornaments feature is now on by default as recent Term::ReadLine and Term::ReadLine::Perl - document fix remove description related to mymalloc - add ornaments-change function to t/readline.t which demonstrates rl_message(). 0.10 1998-03-31 - new functions/variables ornaments support newTTY() (not tested) max_input_history read_history() (an aliase of read_history_range()) unstifle_history() history_search_pos() history_list() history_tokenize() (Thank you, Tim Thomas) history_arg_extract() get_history_event() - new sample/test programs eg/fileman t/history.t - bug fix dynamic loading works on Solaris2.x (define xfree() locally) readline() calls add_history() only when MinLength > 0 Feature `addhistory' is renamed to `addHistory' since Term/ReadLine.pm is fixed. add NULL check for all sv_setpv() remove arguments 'pos' from history_search() - misc change my E-mail address 0.09 Mon Aug 25 00:33:29 1997 - add documentation about readline-2.1.tar.gz - add documentation about Solaris 2.5 with dynamic loading - bug fix fix for Digital Unix C compiler - add two sample programs eg/pftp An ftp client with the GNU Readline support eg/ptksh+ Simple perl/Tk shell which demonstrates the callback functions 0.08 Sun Apr 13 23:24:52 1997 - bug fix: AddHistory() accepts list again. - move perlsh into eg/. - add eg/ptksh+ which demonstrates the callback functions. Thank you Achim. - add eg/pftp: an ftp client which has much the GNU Readline support. - Author's Email address is changed. - internal functions, fetch_var() and store_var(), are removed. 0.07 Wed Mar 19 02:26:06 1997 - interface to internal function and variables are changed. New interface is compatible with new Term::ReadLine.pm which is distributed with Perl 5.003_92 and later. But it is not compatible with previous release. - add method interface to all internal function - add Attribs method to access internal variables - EXPORT_OK contains only some constant definitions - tkRunning support (new ReadLine.pm is required) - add document - bug fixes - XS bugs correspond to callback interface - fix _rl_store_function() and _rl_fetch_function() - fix prototype of append_history - use new _rl_store_rl_line_buffer() instead of reallocate rl_line_buffer. - etc. 0.06 Wed Feb 5 01:26:27 1997 - the first revision on CPAN - support for non ANSI C compiler - rename addhistory to AddHistory - checked by gcc -Wall - fix void_arg_func_wrapper() - add hook for rl_startup_hook in readline() - update documents 0.05 Sat Jan 25 00:06:56 1997 - Fix for Perl 5.002 and 5.003 escape from an strange Exporter's behavior remove white spaces in prototype add argument explicitly 0.04 Thu Jan 23 00:25:45 1997 - This revision supports readline-2.1 or later. readline-2.0 is not supported. - implement almost all GNU Readline/History Library variables and functions - use filehandle directly to access rl_instream and rl_outstream - define operate_and_get_next and bind to "\C-o" by default 0.03 Sun Nov 24 23:34:27 1996 - OS/2 support by Ilya Zakharevich - implement $rl_completer_word_break_characters - define HAVE_STRING_H by checking $Config{strings} - remove verbose prototypes on methods 0.02 Thu Nov 21 00:22:11 1996 - fix to install on SunOS 4.1.3, Solaris 2.3, AIX 4.1.3 0.01 Wed Nov 20 01:14:09 1996 - The 1st alpha release revision (tested on Linux 1.2.13) rses. kê)‰$Z~·:ûÞ›9ÜÔž:!!0F5./usr/local/lib/Term-ReadLine-Gnu-1.09/MANIFESTó/$Gnu.pm The GNU Readline extension Perl module Gnu.xs The GNU Readline extension external subroutines Gnu/XS.pm INSTALL Installtion instructions MANIFEST This list of files Makefile.PL The GNU Readline extension makefile writer README The Instructions eg/perlsh A powerful calculator eg/fileman A short completion example eg/pftp An ftp client with the GNU Readline support eg/ptksh+ Simple perl/Tk shell which demonstrates the callback functions ppport.h Perl/Pollution/Portability Version 1.0007 t/comptest/0123 A file for t/readline.t t/comptest/012345 A file for t/readline.t t/comptest/023456 A file for t/readline.t t/comptest/README A file for t/readline.t t/comptest/a_b A file for t/readline.t t/button.pl a test script for t/callback.t t/callback.t a test script for the GNU Readline callback function t/history.t a test script for the GNU History Library function t/inputrc A file for t/readline.t t/readline.t a test script for the GNU Readline extension typemap The GNU Readline extension interface types n() andkêFÙ&íŽZ~·:ûÞ›9ÜÔž:! ŸuŽ./usr/local/lib/Term-ReadLine-Gnu-1.09/eg/ptksh+ó/í#!/usr/local/bin/perl -w # # $Id: ptksh+,v 1.5 1997/04/01 17:15:34 ach Exp ach $ # # POD documentation after __END__ # This program is contributed by Achim Bohnet. It demonstrates how to # use the callback functions in the GNU Readline Library. This script # is essetially equivalent with executing the following lines in # `eg/perlsh'; # $PerlSh::term->tkRunning(1); # use Tk; # $mw = MainWindow->new(); # # Hiroo Hayashi require 5.003_92; use Tk; # Bug: Require script does not work with all possibilities of # missing/existing new MainWindow and MainLoop. Therefore # I have disabled it. # Mainloop in script would be the end. No readline :-( #require shift @ARGV if (@ARGV); package Tk::RL; use Tk; use Term::ReadLine; $name = 'ptksh+'; $mw = MainWindow->new() unless ($mw = Tk::Exists 'MainWindow'); $mw->title($name); $mw->iconname($name); $mw->protocol('WM_DELETE_WINDOW' => \&quit); ##### Gnu Readline Stuff ##### my $term = new Term::ReadLine $name; my $attribs = $term->Attribs; $term->callback_handler_install("$name> ", \&doline); $mw->fileevent(STDIN,'readable', $attribs->{callback_read_char}); sub quit { $mw->fileevent(STDIN,'readable',''); $term->callback_handler_remove(); $mw->destroy; } my $outstream = $attribs->{outstream}; sub doline { my $line = shift; if (defined $line) { if ($line =~ /^p\s(.*)$/) { $line = "print $1, \"!\\n\";"; } eval "{package main; $line }"; print $outstream "$@\n" if $@; $term->add_history($line) if $line ne ""; $attribs->{line_buffer} = ''; # needed for eval errors } else { quit() unless defined $line; } } # To test if Tk is not blocked: Tk::RL::tk_active sub tk_active { print STDERR "I'm working behing the scene\n"; $mw->after(1500,\&tk_active); } #$mw->after(1500,\&tk_active); package main; # be gentle if 'required' script defined $mw; $mw = $Tk::RL::mw if not defined $mw; MainLoop; print "\n"; __END__ =head1 NAME ptksh+ - Simple perl/Tk shell that uses the Gnu Readline features =head1 SYNOPSIS % ptksh+ ptksh+> $b=$mw->Button(-text=>'hello',-command=>sub{print STDERR 'hello'}) ptksh+> $b->pack; ptksh+> ... ptksh+> ^D % =head1 DESCRIPTION This (very) simple perl/Tk shell allows you to enter perl/Tk commands interactively. Additionally it supports command line editing and keeps a history of previously entered commands. It requires C to be installed. You can exit ptksh+ with ^D or using your Window Manager 'Close' item. =head1 SEE ALSO Term::Readline, Term::Readline::Gnu, Tk, perldebug =head1 AUTHOR Achim Bohnet >, URL:L Copyright (c) 1996-1997 Achim Bohnet. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut cekêÜ¦Ú&m!Z~·:ûÞ›9ÜÔž:!¸u!./usr/local/lib/Term-ReadLine-Gnu-1.09/eg/filemanó/m#!/usr/local/bin/perl # # $Id: fileman,v 1.1 1998-02-28 19:01:24+09 hayashi Exp $ # # This is a sample program of Term::ReadLine::Gnu perl module. The # origin is a C program in the GNU Readline Libarary manual Edition # 2.1, "2.5.4 A Short Completion Example". This program is under GPL. # # Copyright (C) 1989, 1991 Free Software Foundation, Inc. # Original C version # Copyright (C) 1998 Hiroo Hayashi # Perl version # fileman.c -- A tiny application which demonstrates how to use the # GNU Readline library. This application interactively allows users # to manipulate files and their modes. use strict; use Term::ReadLine; # A structure which contains information on the commands this program # can understand. my %commands = ('cd' => { func => \&com_cd, doc => "Change to directory DIR" }, 'delete' => { func => \&com_delete, doc => "Delete FILE" }, 'help' => { func => \&com_help, doc => "Display this text" }, '?' => { func => \&com_help, doc => "Synonym for `help'" }, 'list' => { func => \&com_list, doc => "List files in DIR" }, 'ls' => { func => \&com_list, doc => "Synonym for `list'" }, 'pwd' => { func => \&com_pwd, doc => "Print the current working directory" }, 'quit' => { func => \&com_quit, doc => "Quit using Fileman" }, 'rename' => { func => \&com_rename, doc => "Rename FILE to NEWNAME" }, 'stat' => { func => \&com_stat, doc => "Print out statistics on FILE" }, 'view' => { func => \&com_view, doc => "View the contents of FILE" }, ); # The name of this program, as taken from argv[0]. my $progname = $0; # When non-zero, this global means the user is done using this program. my $done = 0; my $term = initialize_readline(); # Bind our completer. $term->MinLine(0); ## disable implict call of add_history() # Loop reading and executing lines until the user quits. while ($done == 0) { my $line = $term->readline ("FileMan: "); last unless defined $line; # Remove leading and trailing whitespace from the line. Then, if # there is anything left, add it to the history list and execute # it. my $s = stripwhite($line); if ($s) { $term->AddHistory($s); ## normally this is done implictly execute_line($s); } } exit 0; # Execute a command line. sub execute_line { my $line = shift; my ($word, $arg) = split(' ', $line); my $command = find_command ($word); unless ($command) { printf STDERR "$word: No such command for FileMan.\n"; return (-1); } # Call the function. return (&{$command->{func}}($arg)); } # Look up NAME as the name of a command, and return a pointer to that # command. Return a NULL pointer if NAME isn't a command name. sub find_command { my $name = shift; return $commands{$name}; } # Strip whitespace from the start and end of STRING. Return a pointer # into STRING. sub stripwhite { my $string = shift; $string =~ s/^\s*//; $string =~ s/\s*$//; return $string; } #/* **************************************************************** */ #/* */ #/* Interface to Readline Completion */ #/* */ #/* **************************************************************** */ # Tell the GNU Readline library how to complete. We want to try to # complete on command names if this is the first word in the line, or # on filenames if not. sub initialize_readline { # Allow conditional parsing of the ~/.inputrc file. my $term = new Term::ReadLine 'FileMan'; # Tell the completer that we want a crack first. $term->Attribs->{attempted_completion_function} = \&fileman_completion; return $term; } # Attempt to complete on the contents of TEXT. START and END bound # the region of rl_line_buffer that contains the word to complete. # TEXT is the word to complete. We can use the entire contents of # rl_line_buffer in case we want to do some simple parsing. Return # the array of matches, or NULL if there aren't any. sub fileman_completion { my ($text, $line, $start, $end) = @_; my @matches = (); # If this word is at the start of the line, then it is a command # to complete. Otherwise it is the name of a file in the current # directory. @matches = $term->completion_matches ($text, \&command_generator) if ($start == 0); return @matches; } # Generator function for command completion. STATE lets us know # whether to start from scratch; without any state (i.e. STATE == 0), # then we start at the top of the list. ## Term::ReadLine::Gnu has list_completion_function similar with this ## function. I defined new one to be compared with original C version. { my $list_index; my @name; sub command_generator { my ($text, $state) = @_; # If this is a new word to complete, initialize now. This # includes saving the length of TEXT for efficiency, and # initializing the index variable to 0. unless ($state) { $list_index = 0; @name = keys(%commands); } # Return the next name which partially matches from the # command list. while ($list_index <= $#name) { $list_index++; return $name[$list_index - 1] if ($name[$list_index - 1] =~ /^$text/); } # If no names matched, then return NULL. return undef; } } #/* **************************************************************** */ #/* */ #/* FileMan Commands */ #/* */ #/* **************************************************************** */ # List the file(s) named in arg. sub com_list { my $arg = shift; return (system ("ls -FClg $arg")); } sub com_view { my $arg = shift; return 1 unless (valid_argument ("view", $arg)); return (system "more $arg"); } sub com_rename { too_dangerous ("rename"); return (1); } sub com_stat { my $arg = shift; return (1) unless valid_argument ("stat", $arg); my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks); unless (($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($arg)) { print STDERR "$arg: $!\n"; return (1); } printf("Statistics for \`$arg\':\n"); printf("%s has %d link%s, and is %d byte%s in length.\n", $arg, $nlink, ($nlink == 1) ? "" : "s", $size, ($size == 1) ? "" : "s"); printf("Inode Last Change at: %s\n", scalar localtime ($ctime)); printf(" Last access at: %s\n", scalar localtime ($atime)); printf(" Last modified at: %s\n", scalar localtime ($mtime)); return (0); } sub com_delete { too_dangerous("delete"); return (1); } # Print out help for ARG, or for all of the commands if ARG is not # present. sub com_help { my $arg = shift; my $printed = 0; if ($commands{$arg}) { printf ("%s\t\t%s.\n", $arg, $commands{$arg}->{doc}); $printed++; } unless ($printed) { print "No commands match \`$arg\'. Possibilties are:\n"; foreach (sort keys(%commands)) { # Print in six columns. if ($printed == 6) { $printed = 0; print "\n"; } print "$_\t"; $printed++; } print "\n" if ($printed); } return (0); } # Change to the directory ARG. sub com_cd { my $arg = shift; unless (chdir ($arg)) { print STDERR "$arg: $!\n"; return 1; } com_pwd(); return (0); } # Print out the current working directory. sub com_pwd { my $dir = $ENV{PWD} || `pwd`; unless ($dir) { print ("Error getting pwd: $dir\n"); return 1; } print ("Current directory is $dir\n"); return 0; } # The user wishes to quit using this program. Just set DONE non-zero. sub com_quit { $done = 1; 0; } # Function which tells you that you can't do this. sub too_dangerous { my $caller = shift; printf STDERR ("%s: Too dangerous for me to distribute. Write it yourself.\n", $caller); } # Return non-zero if ARG is a valid argument for CALLER, else print an # error message and return zero. sub valid_argument { my ($caller, $arg) = @_; if (! $arg) { printf STDERR ("%s: Argument required.\n", $caller); return (0); } return (1); } he cukê>³Û&mn(Z~·:ûÞ›9ÜÔž:!Üun(./usr/local/lib/Term-ReadLine-Gnu-1.09/eg/pftpaó/m#! /usr/local/bin/perl # # $Id: pftp,v 1.9 1999-03-20 02:46:02+09 hayashi Exp $ # # Copyright (c) 1997,1998,1999 Hiroo Hayashi. All Rights Reserved. # # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. =head1 NAME pftp - an ftp client with the GNU Readline support =head1 SYNOPSIS B [B<-u>] [B<-g>] [B<-M>] [B<-h>] [B<-d>] [I] =head1 DESCRIPTION This is an ftp client which has the GNU Readline support. It can complete not only local file name but also remote file name and host name to which login. This is a sample program of Perl Term::ReadLine::Gnu module. =cut use Term::ReadLine; use strict; use Net::Domain qw(hostdomain); # libnet use Net::FTP; # libnet-1.05 or later is recommended use File::Listing; # libwww (for parse_dir) use Getopt::Std; use Cwd; # for getcwd use vars qw($AUTOLOAD $opt_d $opt_u $opt_g $opt_M $opt_h); sub usage { print STDERR <<"EOM"; usage : $0 [-d] [-i] [-u] [-g] [-M] [-h] host -d : debug mode -i : interactive mode (not implemented) -u : disable autologin -g : turn off glob -M : show manual page -h : show this message EOM exit 0; } getopts('dugMh') or &usage; &man if $opt_M; &usage if $opt_h; # # setup Term::ReadLine::GNU # my $HOSTFILE = ($ENV{HOME} || (getpwuid($<))[7]) . "/.pftp_hosts"; my $term = Term::ReadLine->new('PFTP'); my $attribs = $term->Attribs; $term->ornaments('md,me,,'); # bold face prompt # # read hostname to which login # my $host; my @hosts = read_hosts($HOSTFILE); if (@ARGV) { $host = shift; } else { $attribs->{completion_word} = \@hosts; $attribs->{completion_append_character} = ''; $attribs->{completion_entry_function} = $attribs->{'list_completion_function'}; $host = $term->readline('hostname> '); $host =~ s/^\s+//; $host =~ s/\s+$//; $attribs->{completion_append_character} = ' '; $attribs->{completion_entry_function} = undef; } # # make ftp connection # my $ftp = Net::FTP->new($host, Debug => $opt_d); die "$0: cannot connect \`$host\'\n" unless $ftp; print STDERR $ftp->message; write_hosts($HOSTFILE, $host, @hosts); # # login # my $login = 'anonymous'; my $password = (getpwuid($<))[0] . '@' . hostdomain; if ($opt_u) { $login = $term->readline('login name> ', $login); # mask typed characters for password $attribs->{redisplay_function} = $attribs->{shadow_redisplay}; $password = $term->readline('password> ', $password); undef $attribs->{redisplay_function}; } $ftp->login($login, $password) or die "$0: cannot login: " . $ftp->message; print STDERR $ftp->message; $ftp->binary; # default binary print STDERR $ftp->message; my $pwd = $ftp->pwd; print STDERR $ftp->message; # # setup completion function # my @ftp_cmd_list = qw(cwd cd pwd ls dir get mget put mput lcd help); # completion_display_match_hook is supported by GNU Readline Library # 4.0 and later. Earlier versions ignore it. $attribs->{attempted_completion_function} = sub { my ($text, $line, $start, $end) = @_; if (substr($line, 0, $start) =~ /^\s*$/) { $attribs->{completion_word} = \@ftp_cmd_list; undef $attribs->{completion_display_matches_hook}; return $term->completion_matches($text, $attribs->{'list_completion_function'}); } elsif ($line =~ /^\s*(ls|dir|get|mget)\s/) { $attribs->{completion_display_matches_hook} = \&ftp_display_match_list; return $term->completion_matches($text, \&ftp_filename_completion_function); } elsif ($line =~ /^\s*(cd|cwd)\s/) { $attribs->{completion_display_matches_hook} = \&ftp_display_match_list; return $term->completion_matches($text, \&ftp_dirname_completion_function); } else { # put mput lcd undef $attribs->{completion_display_matches_hook}; return (); # local file name completion } }; # # Command loop # $SIG{INT} = 'IGNORE'; # ignore Control-C while (defined($_ = $term->readline("$login\@$host:$pwd> "))) { no strict 'refs'; next if /^\s*$/; my ($cmd, @args) = $term->history_tokenize($_); if ($cmd eq 'quit' || $cmd eq 'bye') { last; } my $func = "cmd_" . $cmd; &$func(@args); $attribs->{completion_append_character} = ' '; } $ftp->quit; print STDERR $ftp->message; exit (0); ######################################################################## # # complete remote filename # sub ftp_filename_completion_function ( $$ ) { my($text, $state) = @_; ftp_completion_function($text, $state, 0); } sub ftp_dirname_completion_function ( $$ ) { my($text, $state) = @_; ftp_completion_function($text, $state, 1); } { my ($i, $file, $dir, $fdir, $cw); sub ftp_completion_function ( $$$ ) { my($text, $state, $dironly) = @_; my $entry; unless ($state) { $i = 0; # clear counter at the first call ($dir, $file) = ($text =~ m|(.*/)?(.*)$|); $dir = '' unless defined $dir; # to piecify -w $fdir = ($dir =~ m|^/|) ? $dir : "$pwd/$dir"; # full path name $fdir =~ s|//|/|g; $attribs->{completion_append_character} = ' '; return undef unless defined ($cw = rdir($fdir)); } else { $i++; } for (; $i <= $#{$cw}; $i++) { if (($entry = $cw->[$i]) =~ /^$file/ && !($dironly && ($entry !~ m|/$|))) { $attribs->{completion_append_character} = '' if $entry =~ m|/$|; return ($dir . $entry); } } return undef; } } sub ftp_display_match_list { my($matches, $num_matches, $max_length) = @_; map { $_ =~ s|.*/([^/])|\1|; }(@{$matches}); $term->display_match_list($matches); $term->forced_update_display; } ######################################################################## sub AUTOLOAD { # tell a lie to Domain.pm goto &SYS_gethostname if $AUTOLOAD =~/SYS_gethostname$/; $AUTOLOAD =~ s/.*::cmd_//; warn "command \`$AUTOLOAD\' is not defined or not implemented.\n"; } my %rdir; sub rdir { # get remote dir info and save it in %rdir my $dir = shift; return $rdir{$dir} if defined $rdir{$dir}; my $d = $ftp->ls('-F', $dir); if ($d) { foreach (@{$d}) { s|.*/(.)|$1|; # remove directory name s/[*@]$//; } return $rdir{$dir} = $d; } else { return undef; } } sub cmd_cwd { if ($ftp->cwd(@_)) { $pwd = $ftp->pwd(); } else { print STDERR "cwd: cannot chdir to \`$_\'\n" } print STDERR $ftp->message; } # Why this does not work? #*cmd_cd = \&cmd_cwd; sub cmd_cd { &cmd_cwd; } sub cmd_pwd { $pwd = $ftp->pwd(); if ($pwd) { print STDERR "$pwd\n"; } else { print STDERR "pwd failed.\n"; } print STDERR $ftp->message; } sub cmd_ls { # strip ls option return &cmd_dir if $_[0] =~ /^-/ && shift =~ /l/; my $dir = shift || $pwd; my $d = rdir($dir); if (defined $d) { dump_list($d); } else { print STDERR "ls failed\n"; } print STDERR $ftp->message; } # from bash-2.0/lib/readline/complete.c:display_matches() # bash-4.0 and later has rl_display_match_list. Ignore it for compativility. sub dump_list { use integer; my @list = sort @{$_[0]}; my ($len, $max, $limit, $count, $i, $j, $l, $tmp); my $screenwidth = $ENV{COLUMNS} || 80; $max = 0; foreach (@list) { $len = length; $max = $len if $len > $max; } $max += 2; $limit = $screenwidth / $max; $limit-- if ($limit != 1 && ($limit * $max == $screenwidth)); $limit = 1 if $limit == 0; $count = (@list + ($limit - 1))/ $limit; for $i (0..$count - 1) { $l = $i; for $j (0..$limit - 1) { $tmp = $list[$l]; last if $l > @list || ! $tmp; print $tmp; print ' ' x ($max - length $tmp) if $j + 1 < $limit; $l += $count; } print "\n"; } } sub cmd_dir { # strip ls option shift if $_[0] =~ /^-/; my $dir = $ftp->dir('-F', @_); print STDERR $ftp->message; my @dir; if ($dir) { foreach (@{$dir}) { print STDERR "$_\n"; my $info = (parse_dir($_, '+0000'))[0]; # GMT next unless $info; # ignore if parse_dir() can not phase. next if $$info[0] =~ m|^\.\.?/$|; # ignore '.' and '..' $$info[0] =~ s|.*/(.)|$1|; # remove directory name $$info[0] =~ s/[*@]$//; push(@dir, $$info[0]); } $rdir{$pwd} = \@dir; } else { print STDERR "dir failed\n"; } } sub cmd_get { $ftp->get(@_); print STDERR $ftp->message; } sub cmd_mget { if ($opt_g) { foreach (@_) { $ftp->get($_); print STDERR $ftp->message; } } else { my $d = $ftp->ls(@_); print STDERR $ftp->message; foreach (sort @{$d}) { $ftp->get($_); print STDERR $ftp->message; } } } sub cmd_put { $ftp->put(@_); print STDERR $ftp->message; } sub cmd_mput { my $f; foreach $f (@_) { foreach ($opt_g ? $f : glob $f) { $ftp->put($_); print STDERR $ftp->message; } } } sub cmd_lcd { chdir $_[0] or warn "cannot chdir to $_[0]: $!\n"; printf STDERR "local current directory is \`%s\'\n", getcwd(); } sub cmd_help { print STDERR "@ftp_cmd_list\n"; } ################################################################ sub read_hosts { my $file = shift; return () unless -f $file; open(F, $file) or die "$0: cannot open file \`$file\'\n"; my @l = ; close(F); chomp @l; return @l; } sub write_hosts { my $file = shift; my $lastline = ''; open(F, ">$file") or die "$0: cannot open file \`$file\'\n"; foreach (sort @_) { print F ($_, "\n") if $_ ne $lastline; $lastline = $_; } close(F); } ################################################################ # show man page sub man { my $pager = $ENV{'PAGER'} || 'more'; exec "pod2man $0|nroff -man|$pager"; die "cannot exec pod2man, nroff, or $pager : $!\n"; } __END__ =pod =head1 OPTIONS =over 4 =item B<-u> disable autologin. =item B<-g> turn off glob. =item B<-h> show usage. =item B<-M> show thie manual. =item B<-d> debug mode. =item I remote host name. =back =head1 FILES =over 4 =item I<~/.pftp_hosts> This file contains the list of host names. These name are used for completing of remote host name. If the host name which you login is not contained in this file, it will be added automatically. =back =head1 AUTHOR Hiroo Hayashi =head1 BUGS Commands which the author does not know are not supported. =cut tpkê°ŠÜ&m9-Z~·:ûÞ›9ÜÔž:!äu9-./usr/local/lib/Term-ReadLine-Gnu-1.09/eg/perlshó/m#! /usr/local/bin/perl # # $Id: perlsh,v 1.23 2000-04-03 01:01:12+09 hayashi Exp $ # # Copyright (c) 2000 Hiroo Hayashi. All Rights Reserved. # # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. =head1 NAME perlsh - one-line perl evaluator with line editing function and variable name completion function =head1 SYNOPSIS perlsh =head1 DESCRIPTION This program reads input a line, and evaluates it by perl interpreter, and prints the result. If the result is a list value then each value of the list is printed line by line. This program can be used as a very strong calculator which has whole perl functions. This is a sample program Term::ReadLine::Gnu module. When you input a line, the line editing function of GNU Readline Library is available. Perl symbol name completion function is also available. =cut package PerlSh; use strict; use Term::ReadLine; use vars qw($PS1 $PS2 $HISTFILE $HISTSIZE $INPUTRC $STRICT $HOSTNAME $LOGNAME $CWP); #$PS1 = '$ '; $PS1='\w[\!]$ '; $PS2 = '> '; $HISTFILE = ($ENV{HOME} || ((getpwuid($<))[7])) . "/.perlsh_history"; $HISTSIZE = 256; $INPUTRC = ($ENV{HOME} || ((getpwuid($<))[7])) . "/.perlshrc"; $STRICT = 0; $HOSTNAME = $ENV{HOSTNAME}; $LOGNAME = $ENV{LOGNAME}; $CWP = 'main'; # current working package package main; if (-f $PerlSh::INPUTRC) { do $PerlSh::INPUTRC; } package PerlSh; use vars qw($term $attribs); # to access as `$PerlSh::term' from prompt $term = new Term::ReadLine 'PerlSh'; $attribs = $term->Attribs; $term->bind_key(ord "\cv", 'display-readline-version', 'emacs-ctlx'); $term->bind_key(ord "\cc", 'abort'); # not works yet FIXME!!! if (defined &main::afterinit) { package main; &afterinit; package PerlSh; } &toplevel; # never returns ######################################################################## sub toplevel { # disable implicit add_history() call $term->MinLine(undef); $term->stifle_history($HISTSIZE); if (-f $HISTFILE) { $term->ReadHistory($HISTFILE) or warn "perlsh: cannot read history file: $!\n"; } $attribs->{attempted_completion_function} = \&attempt_perl_completion; $attribs->{special_prefixes} = '$@%&'; $attribs->{completion_display_matches_hook} = \&perl_symbol_display_match_list; $SIG{INT} = sub { $term->modifying; $term->delete_text; $attribs->{point} = $attribs->{end} = 0; $term->redisplay; }; my ($strict, $command, @result); $strict = $STRICT ? '' : 'no strict;'; while (defined($command = &reader)) { @result = eval ("$strict package $CWP; $command"); use strict; if ($@) { print "Error: $@\n"; next; } printer (@result); $CWP = $1 if ($command =~ /^\s*package\s+([\w:]+)/); } &quit; } sub quit { $term->WriteHistory($HISTFILE) or warn "perlsh: cannot write history file: $!\n"; exit (0); } sub reader { my ($line, $command); $command = ''; while (1) { $line = $term->readline($command ? $PS2 : prompt($PS1)); return undef unless (defined $line); if ($line =~ /\\$/) { chop $line; $command = $command ? $command . " $line" : $line; } else { $command = $command ? $command . " $line" : $line; $term->addhistory($command) if (length($command) > 0); return $command; } } } sub printer { my (@res) = @_; my ($i); foreach $i (@res) { print "$i\n"; } } sub prompt { local($_) = @_; # if reference to a subroutine return the return value of it return &$_ if (ref($_) eq 'CODE'); # \h: hostname, \u: username, \w: package name, \!: history number s/\\h/$HOSTNAME/g; s/\\u/$LOGNAME/g; s/\\w/$CWP/g; s/\\!/$attribs->{history_base} + $attribs->{history_length}/eg; $_; } # # custom completion for Perl # sub perl_symbol_display_match_list ($$$) { my($matches, $num_matches, $max_length) = @_; map { $_ =~ s/^((\$#|[\@\$%&])?).*::(.+)/$3/; }(@{$matches}); $term->display_match_list($matches); $term->forced_update_display; } sub attempt_perl_completion ($$$$) { my ($text, $line, $start, $end) = @_; no strict qw(refs); if (substr($line, 0, $start) =~ m/\$([\w:]+)\s*(->)?\s*{\s*['"]?$/) { # $foo{key, $foo->{key $attribs->{completion_append_character} = '}'; return $term->completion_matches($text, \&perl_hash_key_completion_function); } elsif (substr($line, 0, $start) =~ m/\$([\w:]+)\s*->\s*['"]?$/) { # $foo->method $attribs->{completion_append_character} = ' '; return $term->completion_matches($text, \&perl_method_completion_function); } else { # Perl symbol completion $attribs->{completion_append_character} = ''; return $term->completion_matches($text, \&perl_symbol_completion_function); } } # static global variables for completion functions use vars qw($i @matches); sub perl_hash_key_completion_function ($$) { my($text, $state) = @_; if ($state) { $i++; } else { # the first call $i = 0; # clear index my ($var,$arrow) = (substr($attribs->{line_buffer}, 0, $attribs->{point} - length($text)) =~ m/\$([\w:]+)\s*(->)?\s*{\s*['"]?$/); # }); no strict qw(refs); $var = "${CWP}::$var" unless ($var =~ m/::/); if ($arrow) { my $hashref = eval "\$$var"; @matches = keys %$hashref; } else { @matches = keys %$var; } } for (; $i <= $#matches; $i++) { return $matches[$i] if ($matches[$i] =~ /^\Q$text/); } return undef; } sub _search_ISA ($) { my ($mypkg) = @_; no strict 'refs'; my $isa = "${mypkg}::ISA"; return $mypkg, map _search_ISA($_), @$isa; } sub perl_method_completion_function ($$) { my($text, $state) = @_; if ($state) { $i++; } else { # the first call my ($var, $pkg, $sym, $pk); $i = 0; # clear index $var = (substr($attribs->{line_buffer}, 0, $attribs->{point} - length($text)) =~ m/\$([\w:]+)\s*->\s*$/)[0]; $pkg = ref eval (($var =~ m/::/) ? "\$$var" : "\$${CWP}::$var"); no strict qw(refs); @matches = map { $pk = $_ . '::'; grep (/^\w+$/ && ($sym = "${pk}$_", defined *$sym{CODE}), keys %$pk); } _search_ISA($pkg); } for (; $i <= $#matches; $i++) { return $matches[$i] if ($matches[$i] =~ /^\Q$text/); } return undef; } # # Perl symbol name completion # { my ($prefix, %type, @keyword); sub perl_symbol_completion_function ($$) { my($text, $state) = @_; if ($state) { $i++; } else { # the first call my ($pre, $pkg, $sym); $i = 0; # clear index no strict qw(refs); ($prefix, $pre, $pkg) = ($text =~ m/^((\$#|[\@\$%&])?(.*::)?)/); @matches = grep /::$/, $pkg ? keys %$pkg : keys %::; $pkg = ($CWP eq 'main' ? '::' : $CWP . '::') unless $pkg; if ($pre) { # $foo, @foo, $#foo, %foo, &foo @matches = (@matches, grep (/^\w+$/ && ($sym = $pkg . $_, defined *$sym{$type{$pre}}), keys %$pkg)); } else { # foo @matches = (@matches, !$prefix && @keyword, grep (/^\w+$/ && ($sym = $pkg . $_, defined *$sym{CODE} || defined *$sym{FILEHANDLE} ), keys %$pkg)); } } my $entry; for (; $i <= $#matches; $i++) { $entry = $prefix . $matches[$i]; return $entry if ($entry =~ /^\Q$text/); } return undef; } BEGIN { %type = ('$' => 'SCALAR', '*' => 'SCALAR', '@' => 'ARRAY', '$#' => 'ARRAY', '%' => 'HASH', '&' => 'CODE'); # ' # from perl5.004_02 perlfunc @keyword = qw( chomp chop chr crypt hex index lc lcfirst length oct ord pack q qq reverse rindex sprintf substr tr uc ucfirst y m pos quotemeta s split study qr abs atan2 cos exp hex int log oct rand sin sqrt srand pop push shift splice unshift grep join map qw reverse sort unpack delete each exists keys values binmode close closedir dbmclose dbmopen die eof fileno flock format getc print printf read readdir rewinddir seek seekdir select syscall sysread sysseek syswrite tell telldir truncate warn write pack read syscall sysread syswrite unpack vec chdir chmod chown chroot fcntl glob ioctl link lstat mkdir open opendir readlink rename rmdir stat symlink umask unlink utime caller continue die do dump eval exit goto last next redo return sub wantarray caller import local my package use defined dump eval formline local my reset scalar undef wantarray alarm exec fork getpgrp getppid getpriority kill pipe qx setpgrp setpriority sleep system times wait waitpid do import no package require use bless dbmclose dbmopen package ref tie tied untie use accept bind connect getpeername getsockname getsockopt listen recv send setsockopt shutdown socket socketpair msgctl msgget msgrcv msgsnd semctl semget semop shmctl shmget shmread shmwrite endgrent endhostent endnetent endpwent getgrent getgrgid getgrnam getlogin getpwent getpwnam getpwuid setgrent setpwent endprotoent endservent gethostbyaddr gethostbyname gethostent getnetbyaddr getnetbyname getnetent getprotobyname getprotobynumber getprotoent getservbyname getservbyport getservent sethostent setnetent setprotoent setservent gmtime localtime time times abs bless chomp chr exists formline glob import lc lcfirst map my no prototype qx qw readline readpipe ref sub sysopen tie tied uc ucfirst untie use dbmclose dbmopen ); } } __END__ =pod Before invoking, this program reads F<~/.perlshrc> and evaluates the content of the file. When this program is terminated, the content of the history buffer is saved in a file F<~/.perlsh_history>, and it is read at next invoking. =head1 VARIABLES You can customize the behavior of C by setting following variables in F<~/.perlshrc>; =over 4 =item C<$PerlSh::PS1> The primary prompt string. The following backslash-escaped special characters can be used. \h: host name \u: user name \w: package name \!: history number The default value is `C<\w[\!]$ >'. =item C<$PerlSh::PS2> The secondary prompt string. The default value is `C >'. =item C<$PerlSh::HISTFILE> The name of the file to which the command history is saved. The default value is C<~/.perlsh_history>. =item C<$PerlSh::HISTSIZE> If not C, this is the maximum number of commands to remember in the history. The default value is 256. =item C<$PerlSh::STRICT> If true, restrict unsafe constructs. See C in perl man page. The default value is 0; =over =head1 FILES =over 4 =item F<~/.perlshrc> This file is eval-ed at initialization. If a subroutine C is defined in this file, it will be eval-ed after initialization. Here is a sample. # -*- mode: perl -*- # decimal to hexa sub h { map { sprintf("0x%x", $_ ) } @_;} sub tk { $t->tkRunning(1); use Tk; $mw = MainWindow->new(); } # for debugging Term::ReadLine::Gnu sub afterinit { *t = \$PerlSh::term; *a = \$PerlSh::attribs; } =item F<~/.perlsh_history> =item F<~/.inputrc> A initialization file for the GNU Readline Library. Refer its manual for details. =back =head1 SEE ALSO Term::ReadLine::Gnu GNU Readline Library Manual =head1 AUTHOR Hiroo Hayashi =cut # fromkêº¥Ïm¥ŽZ~·:]Û›9ÝÔž:!#•´¥Ž./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/Gnu.soó/mß9›Û]·*‰H0ÏD˜ÿÿÿÿ@|RE.textÏ@TBw .dataD˜Ð`žèm@.bssD˜D˜€.loader?Jø‚A€€L| ¦N€ ‚A€€L| ¦N€ b‹8 qŒA‚(|¦| "+| *M‚ |¤+|£*0 @‚ÿôN€ p‹=@!k9J}i¦|exA‚ ˆÄ,˜Å8„M‚ 8¥Bÿè€ä0¥ÿü|éP8})P},Pù@‚4…”å} P8})P},Pù@‚,„ä•|éP8})P},PùA‚ÿÐ})8ø})PyA‚ÿÄH})@ø})PyA‚ÿÌ}Cx8¥tæÿTç@>œå@‚ÿôN€ @ðstrcpyb‹8qŒA‚´|¦| +|à"*A‚H|…8@@@@†|AšL˜Hp|£+|ä*A‚$0|…8@@@|£+@†P@šD|ä*@‚ÿä|¦, TøA|¥0|ç0|…8@H|…8@|Æ0}0@@@†L˜A†A…8`ÿÿN€ 8`N€ 8`N€ 8cÿÿ8„ÿÿˆ£ˆÄ,|…0@A‚Œ£@†ŒÄ,|…0@KÿÿèA†A…8`ÿÿN€ 8`N€ 8`N€ @strcmp|fx|ƒ#x|Ä3x`````bT Ù‹@qŒ@¢|ƒ @M† A„|*|€@A…ŒpiA‚<8„ÿÿ8Ãÿÿ!)})¦ŒäœæBÿø|©(8„ÿý8Æÿýp¨T¥èþ|©¦Hp¨T¥èþ|©¦8„ÿü8Ãÿü„ä…$”æ•&BÿðM‚ } ¦8„8ÆŒäœæBÿøN€ |Ã*|ä*pÈA‚} ¦'ÿÿ&ÿÿBÿø|¨(p¨T¥èþ|©¦…'ÿü…Gÿü•&ÿü•FÿüBÿðM‚ } ¦'ÿÿ&ÿÿBÿøN€ |¡¦| $*| *N€ |„@@„}D(|ƒP@| ¦8 |¦T ÿa|dA„(| $*|£%*0„ Bÿô|¦| $*|£%*€aN€ |„(0„ÿà| $*|£%*Bÿô|€ |¦| $*|£%*€aN€ @Àbcopy€A| ¦€KkN€ @_ptrgl€b|¦¿!ÿä€£ƒâƒÂ€Ÿ€Å€8¥ÿü£TÅ:|£p|c”|¤*||pZ”8T:|dØ.”!ÿ ;€ƒ¢€tA‚ €c€@|dØ.€cƒ#H8@Hµq€A`y,A€€|`ÚƒCHd;D8}|¦+y| @@¤8`A‚0€…ˆ(€0A…p€+,LBÉLÙ3BA‚A†THl`¤€¢üÀ@Ÿ €0`ÿÿ|c,€A‚DH0@ž8`È$ü@‚H(H¥€A,€A‚€›7Œ|cè.H¥€A€X8!P}ˆ¦|ê»AÿèN€ "€à€¢|¦¿Aÿè€Åƒâƒ¢ƒÂ€æ8Æÿü€ŸÅ€Tæ:”!ÿ°|¤2||p|”|Åp|¥”8}#˜,€;…A†H£ €A€ŸWœ:|dâ€cDà.€€ƒtA‚ƒdHH£É€A`{H£E€A,›€Ÿ,+|dá.8}#ÔcdA„A˜8H£¹€A€€|á.€|âX8!P»Aÿè}ˆ¦Hœ€‚ø8`A‚Ü€º€T‡>|¦+y| @L¤A‚¼€…ˆ(€0A…€+,A™LÂ3‚A†”W` 6½€}7Œ/|ƒÐ@Hœ`¤€¢ücCÀ@Ÿ4€0`ÿÿ|c,W` 6½€}7Œ€‚/|ƒÐ@A‚ HX@ž,8`È$ü€@†$W` 6½€}7Œ€‚/HpH¢Ñ€A,W` 6½€}7Œ€‚/|ƒÐ@A‚HcDAš A†,H¢Å€A€}7€€7ˆHDcCH¢Ñ€A}7Œ€}7€€7ˆH$|ƒ @LÚ3‚A†H¢€A€}7€€7„cD€|cà.H¢a€A€|âX8!P»Aÿè}ˆ¦N€ "€ €¢|¦¿aÿì€ÅƒâƒbƒÂ€æ8Æÿü€ŸÅ€Tæ:”!ÿ°|¤2||p|”|Åp|¥”8{#,,€;¥A†H ]€A€ŸW½:|dè.€€ƒtA‚(€d|dy€Â,ƒ€¢ƒ†8{#dA‚dH(H¡€A|dy€Â,ƒ€¢ƒ†8{#dA‚,…| `¦@<¤A†,€…ˆ(€0A…ˆ€*€,LÂ3‚A•t@†p8€HÄ`¤€¢ücÃÀ@Ÿ0€0`ÿÿ|c,ƒ‚8€cÃ€¼7ÀƒÜ7ÌA‚ˆHD@ž8`È$ü€@†8€HhHo±€A,ƒ‚8€cÃ€¼7ÀƒÜ7ÌA‚Dƒ¥HoÙ€A|7Ì€‚Ì€aDHvU€A`y€|7ÌHvm€A“Ü7Ì€|7À“£H€aDHv)€A`y€;ÀcÝ,;ƒÿøc#A‚¸€,€A†$;½„,€A†;½„,€Kÿÿð€ÂLcƒc¥`d€||p|”|€è@„HpÕ€A`|,W :|;Yÿü8€@8€zHpÕ€AHpõ€A”|„zHl;Þ|žè8€A„ÿÔc|c#Hlqt€x8!p“Ÿ|¦}€ »!ÿäN€ "€|¦€‚¿¡ÿô€¤}€&ƒ¢€bƒâ€å8¥ÿü€¤€ÝTä:|"|„p|„”|0|p|•‘,€N”!ÿ ;Ä8cxA€@…Hl‰€A€WÞ:A‘8` H(|cð.€€ƒtA‚€dHHmA€AHt¹€AaDHlµ€A€¿€D|eñ.€|cð.HnÉ€A€|òd€h8!`|¦}€ »¡ÿôN€ €|¦€‚¿¡ÿô€¤ƒ¢€bƒâ€å8¥ÿü€Ý€¤Tä:”!ÿ |"|0|p|•|„p|„”8cD;ÄA‚Hk€AHt€AaDHkå€A€¿WÞ:€D|eñ.€|cð.Hmõ€A€|òh8!`»¡ÿô}ˆ¦N€ €¼|¦€‚¿¡ÿô€¤ƒ¢€bƒâ€å8¥ÿü€Ý€¤Tä:”!ÿ |"|0|p|•|„p|„”8c;ÄA‚Hjµ€AHsm€AaDHk€A€¿WÞ:€D|eñ.€|cð.Hm)€A€|òh8!`»¡ÿô}ˆ¦N€ €¼|¦€‚¿¡ÿô€¤ƒ¢€bƒâ€å8¥ÿü€Ý€¤Tä:”!ÿ°|"|0|p|•|„p|„”8cØ;ÄA‚Hié€AHrÉ€A€WÃ:|`8ÿüX8!P»¡ÿô}ˆ¦N€ €˜|¦€‚¿¡ÿô€¤ƒ¢€bƒâ€å8¥ÿü€Ý€¤Tä:”!ÿ°|"|0|p|•|„p|„”8c ;ÄA‚HiA€AHrI€A€WÃ:|`8ÿüX8!P»¡ÿô}ˆ¦N€ €˜|¦€‚¿¡ÿô€¤ƒ¢€bƒâ€å8¥ÿü€Ý€¤Tä:”!ÿ°|"|0|p|•|„p|„”8ch;ÄA‚Hh™€AHqÉ€A€WÃ:|`8ÿüX8!P»¡ÿô}ˆ¦N€ €˜|¦€‚¿¡ÿô€¤ƒ¢€bƒâ€å8¥ÿü€Ý€¤Tä:”!ÿ°|"|0|p|•|„p|„”8c,;ÄA‚Hgñ€AHqI€A€WÃ:|`8ÿüX8!P»¡ÿô}ˆ¦N€ €˜|¦€‚¿¡ÿô€¤ƒ¢€bƒâ€å8¥ÿü€Ý€¤Tä:”!ÿ°|"|0|p|•|„p|„”8cì;ÄA‚HgI€AHpÉ€A€WÃ:|`8ÿüX8!P»¡ÿô}ˆ¦N€ €˜|¦€‚¿¡ÿô€¤ƒ¢€bƒâ€å8¥ÿü€Ý€¤Tä:”!ÿ°|"|0|p|•|„p|„”8c´;ÄA‚Hf¡€AHpI€A€WÃ:|`8ÿüX8!P»¡ÿô}ˆ¦N€ €˜€‚|¦¿!ÿä€Äƒâƒ"ƒÂ€æ8Æÿü€¿Ä€Tæ:”!ÿ|…2||p|”|Äp|„”8yd,;¤A‚Heõ€A€¿€‚ÜW½:|eè.€€ÃtA‚0€|eè.€c€caD|…êƒ„Kÿª•€AH$He)€A€¿aD|…êƒ„Kÿªq€A;c€yŒ,A‚HoI€AccHoe€AyŒ`z€DceKÿ¬í`€yc„,|ƒà@A‚(A†8Hf•€AƒYŒ€‚cCHoA€AH(cƒHf™€AyƒYŒ€‚cCHo€A€|`ê8ÿüx8!p»!ÿä}ˆ¦N€ €”|¦€¢¾ÿÐ€Å}€&ƒâ€bƒÂ€æ8Æÿü€ŸÅ€Tå:|Ä*|¥p|¥”||pœ•‘.”!ÿ€;¥8c¸@@‘HdE€A€Ÿ,W½:Dè.|dê;€ÿÿA€@€c€€ƒtA‚ €d`|€;`ÿÿ|`êAtH Hdá€A`|€;`ÿÿ|`êAT€c€€ƒtA‚4€d`{€š€b€¿8c€„€T>( A‚\H4Hd€A`{€š€b€¿8c€„€T>( A‚(Hdy€A€ˆ„8!€|¦}€ »AÿèN€ |eè.€c€caHHm}€A|zy8T:A‚HHf €A*; :à`xc6: :ƒA˜€aHbÄ8 HmY€A`e€c8@€€ÃtTZA‚D,A‚€@€e€c€cHHb!€AHait€@|¨@@`:Ö|Ð@:”A€aHbÄ8 Kÿÿ|,W@:|x’ãc@€c\c„,A€cub¥HlÉ€AcA„|HaU;9|Ð@@ÿðcHaA€|`ê8ÿü„€ˆ8!€|¦}€ ºÿÐN€ „€ˆ8!€|¦}€ »AÿèN€ €|¦€‚¿¡ÿô€¤ƒ¢€bƒâ€å8¥ÿü€Ý€¤Tä:”!ÿ |"|0|p|•|„p|„”8c;ÄA‚HaE€AHl€AaDHa©€A€¿WÞ:€D|eñ.€|cð.Hc¹€A€|òh8!`»¡ÿô}ˆ¦N€ €¼|¦€‚¿¡ÿô€¤}€&ƒ¢€bƒâ€å8¥ÿü€¤€ÝTä:|"|„p|„”|0|p|•‘,€N”!ÿ ;Ä8cHA€@…H`e€AWÞ:€¿A‘8`H<€‚Ü|eð.€€ÃtA‚€|eð.€c€cHH_¡€AHk€AaDH`}€A€¿€D|eñ.€|cð.Hb‘€A€|òd€h8!`|¦}€ »¡ÿôN€ € |¦€‚¿¡ÿô€¤ƒ¢€bƒâ€å8¥ÿü€Ý€¤Tä:”!ÿ |"|0|p|•|„p|„”8c;ÄA‚H_I€AHjY€AaDH_€A€¿WÞ:€D|eñ.€|cð.Ha½€A€|òh8!`»¡ÿô}ˆ¦N€ €¼|¦€¢¿¡ÿô€Åƒâ€bƒ¢€æ8Æÿü€ŸÅ€Tæ:”!ÿ |¤2||p|”|Åp|¥”8cä,;ÅA‚H^y€A€ŸWÞ:|dð.€€ƒtA‚€dHH_=€AHi…€AaDH^±€A€¿€D|eñ.€|cð.H`Å€A€|òh8!`»¡ÿô}ˆ¦N€ €è|¦€¢¿¡ÿô€Åƒâ€bƒ¢€æ8Æÿü€ŸÅ€Tæ:”!ÿ |¤2||p|”|Åp|¥”8c´,;ÅA‚H]€A€ŸWÞ:|dð.H_í€A€c€c HhÅ€AaDH]É€A€¿€D|eñ.€|cð.H_Ý€A€|òh8!`»¡ÿô}ˆ¦N€ €Ø|¦€‚¿¡ÿô€¤ƒ¢€bƒâ€å8¥ÿü€Ý€¤Tä:”!ÿ |"|0|p|•|„p|„”8c„;ÄA‚H\€AHh%€AaDH]€A€¿WÞ:€D|eñ.€|cð.H_€A€|òh8!`»¡ÿô}ˆ¦N€ €¼|¦€‚¿ÿð€¤}€&ƒ‚€bƒâ€å8¥ÿü€¤€ÜTä:|"|„p|„”|0|p|•‘.M”!ÿ ;Ä8c€A€aDH<õaHH?€A€¿€H|eé.€|cè.H>Í€A€|êh8!`»ÿð}ˆ¦N€ €$€‚|¦¿ÿð€Äƒâƒ‚ƒÂ€æ8Æÿü€¿Ä€Tæ:”!ÿ |…2||p|”|Äp|„”8| ,;¤A‚H=á€A€¿€‚ÜW½:|eè.€€ÃtA‚€|eè.€c€cHH=)€AHMa€AaDH>€A€ß8œ(€¡D|fé.€|cè.H>5€A€|êh8!`»ÿð}ˆ¦N€ €€‚|¦¿aÿì€¤}€&ƒâƒÂ€Å8¥ÿü€€¤TÄ:‘|£"||p{•|„p|„”.ƒ¢”!ÿ ;„@@‘8} (H<Å€A€8Wœ:|cà.HKÕ€A€Ÿ,8} |A‚<|dà.€c€c€€ƒtA‚€daDHH=]€AaDHH<]€A€,; |`âA€@€c€€ƒtA‚ €d`}€8€ÿÿ|`âA`H H=€A`}€8€ÿÿ|`âA@€c€€ƒtA‚ €d`dc£aDKÿ…)€AH H<µ€A`dc£aDKÿ… €AaHH<€A€¿€H|eá.€|cà.H>1€A€|âd€h8!`|¦}€ »aÿìN€ €Ü|¦€‚¿¡ÿô€¤}€&ƒ¢€bƒâ€å8¥ÿü€¤€ÝTä:|"|„p|„”|0|p|•‘,€N”!ÿ ;Ä8cäA€@…H:Õ€AWÞ:€¿A‘8`H<€‚Ü|eð.€€ÃtA‚€|eð.€c€cHH:€AHJq€AaDH:í€A€¿€D|eñ.€|cð.H=€A€|òd€h8!`|¦}€ »¡ÿôN€ € |¦€‚¿¡ÿô€Äƒâ€bƒ¢€æ8Æÿü€¿Ä€Tæ:”!ÿ°|…2||p|”|Äp|„”8c¬,;ÄA‚H9µ€A€¿€‚ÜWÞ:|eð.€€ÃtA‚€|eð.€c€cHH8ý€AHI…€A€|`ò8ÿüX8!P»¡ÿô}ˆ¦N€ €Ø|¦€‚¿aÿì€Äƒâ}€&€b€æƒÂ8Æÿü€¿Ä€Tæ:|…2‘||Äp|„”|p|””!ÿ,.;¤8cLA€@‘H8½€A€¿ƒ‚ÜW½:|eè.c„€€ÃtA‚4€|eè.€c€c|¥êaD€e€€ÃtH,H7é€A€¿|¥êaDc„€e€€ÃtA‚4€€e€c€cƒ‚€aH8œø|`ê@8H$H7€Aƒ‚€aH8œø|`ê@HG5€A`{Hd€cHFù€A€,8||€êA‚<€d€c€c€€ƒtA‚€d`{HH8}€A`{HH7}€A8`€Dcf€¡HHG¥€AaLH7Ñ€A€¿€L|eé.€|cè.H9å€A€|êt€x8!p|¦}€ »aÿìN€ €$€b|¦¿aÿì€ƒƒâ}€&ƒÂ€Ä8„ÿü€€¿ƒTÄ:‘|e"||p|”|ƒp|c”.,ƒ¢”!ÿ;ƒA€@‘8}ìH6‰€A€¿€‚ÜWœ:|eà.€€ÃtA‚4€|eà.€c€caD|…â€d8¬HEe€AH(H5¹€A€¿aD|…â€d8¬HE=€A€,8}´|€âA‚<€d€c€c€€ƒtA‚€daHHH6Á€AaHHH5Á€A8Ô€|`â@,HDù€A`{8`€Dcf€¡HHEÍ€AH|€cHD¥€A€,8}Ü|€âA‚<€d€c€c€€ƒtA‚€d`{HH6)€A`{HH5)€A8`€Dcf€¡HHEQ€AaLH5}€A€¿€L|eá.€|cà.H7‘€A€|ât€x8!p|¦}€ »aÿìN€ €D€b|¦¿aÿì€ƒƒâ}€&ƒÂ€Ä8„ÿü€€¿ƒTÄ:‘|e"||p|”|ƒp|c”.,ƒ¢”!ÿ;ƒA€@‘8}dH45€A€¿€‚ÜWœ:|eà.€€ÃtA‚4€|eà.€c€caD|…â€d8|HC€AH(H3e€A€¿aD|…â€d8|HBé€A€,8}È|€âA‚<€d€c€c€€ƒtA‚€daHHH4m€AaHHH3m€A8ˆ€|`â@,HB¥€A`{8`€Dcf€¡HHCy€AH|€cHBQ€A€,8}|€âA‚<€d€c€c€€ƒtA‚€d`{HH3Õ€A`{HH2Õ€A8`€Dcf€¡HHBý€AaLH3)€A€¿€L|eá.€|cà.H5=€A€|ât€x8!p|¦}€ »aÿìN€ €D|¦€‚¿aÿì€Ä}€&ƒâ€bƒÂ€æ8Æÿü€¿Ä€Tæ:|…2‘||Äp|„”|p|•.”!ÿ ;¤8c@@‘H1å€A€¿€‚ÜW½:|eè.€€ÃtA‚4€|eè.€c€cƒ‚€aD8œX|`ê@8H$H1€Aƒ‚€aD8œX|`ê@H@½€A`{Hd€cH@€A€,8|`|€êA‚<€d€c€c€€ƒtA‚€d`{HH2€A`{HH1€Acd€aDHA]€AaHH1a€A€¿€H|eé.€|cè.H3u€A€|êd€h8!`|¦}€ »aÿìN€ €¸€‚|¦¿aÿì€¤}€&ƒâƒÂ€Å8¥ÿü€€¤TÅ:‘|ƒ*||p|•|¤p|„”.ƒ¢”!ÿ ;„@@‘8} ”H0€A€8(Wœ:|cà.H?-€A€Ÿ,8} ìA‚<|dà.€c€c€€ƒtA‚€daDHH0µ€AaDHH/µ€A84€|`â@$H>í€A`{cd€aDH@€AHt€cH>¡€A€,8}<|€âA‚<€d€c€c€€ƒtA‚€d`{HH0%€A`{HH/%€Acd€aDH?¥€AaHH/€A€¿€H|eá.€|cà.H1•€A€|âd€h8!`|¦}€ »aÿìN€ €Ð|¦€¢¿aÿì€Å}€&ƒâ€bƒÂ€æ8Æÿü€ŸÅ€Tæ:|¤2‘||Åp|¥”|p|•.”!ÿ ;¥8c H@@‘H.=€A€ŸW½:|dè.€€ƒtA‚$€dƒ‚€aD8œ|`ê@8H$H.é€Aƒ‚€aD8œ|`ê@H=)€A`{Hd€cH<í€A€,8||€êA‚<€d€c€c€€ƒtA‚€d`{HH.q€A`{HH-q€Acd€aDH>€AaHH-Í€A€¿€H|eé.€|cè.H/á€A€|êd€h8!`|¦}€ »aÿìN€ €¤€b|¦¿aÿì€£ƒâ}€&ƒÂ€Å8¥ÿü€€Ÿ£TÅ:‘|d*||p|”|£p|c”.,ƒ¢”!ÿ;ƒA€@‘8} ÐH,…€A€ŸWœ:|dà.€€£tA‚$€eaD|„â€d8ÔH;u€AH(H-1€A€ŸaD|„â€d8ÔH;M€A€,8} $|€âA‚<€d€c€c€€ƒtA‚€daHHH,Ñ€AaHHH+Ñ€A8à€|`â@(H; €A`{€aD€HceH<€AHx€cH:¹€A€,8}è|€âA‚<€d€c€c€€ƒtA‚€d`{HH,=€A`{HH+=€A€aD€HceH< €AaLH+•€A€¿€L|eá.€|cà.H-©€A€|ât€x8!p|¦}€ »aÿìN€ €(€‚|¦¿ÿð€Äƒâƒ‚ƒÂ€æ8Æÿü€¿Ä€Tæ:”!ÿ |…2||p|”|Äp|„”8| ˜,;¤A‚H*]€A€¿8œ°W½:|eè.H9m€A€Ÿ,8|¸A‚<|dè.€c€c€€ƒtA‚€daDHH*õ€AaDHH)õ€A€aDH:ñ€AaHH*U€A€¿€H|eé.€|cè.H*€A€|êh8!`»ÿð}ˆ¦N€ €(€‚|¦¿ÿð€Äƒâƒ‚ƒÂ€æ8Æÿü€¿Ä€Tæ:”!ÿ |…2||p|”|Äp|„”8| \,;¤A‚H)%€A€¿€‚ÜW½:|eè.€€ÃtA‚€|eè.€c€cHH(m€AH: €AaDH)I€A€ß8œ¨€¡D|fé.€|cè.H)y€A€|êh8!`»ÿð}ˆ¦N€ €€‚|¦¿ÿð€Äƒâƒ‚ƒÂ€æ8Æÿü€¿Ä€Tæ:”!ÿ |…2||p|”|Äp|„”8| (,;¤A‚H(€A€¿8œ|W½:|eè.H7%€A€Ÿ,8|„A‚<|dè.€c€c€€ƒtA‚€daDHH(€AaDHH'€A€aDH8ù€AH(€A€ß8œ €¡D|fé.€|cè.H(A€A€|êh8!`»ÿð}ˆ¦N€ €(€‚|¦¿ÿð€¤ƒÂƒ‚ƒâ€å8¥ÿü€Þ€¤Tä:”!ÿ |"|0|p|•|„p|„”8|ø;¤A‚H&á€AH6)€AaDH'E€A€ßW½:8œt€¡D|fé.€|cè.H'q€A€|êh8!`»ÿð}ˆ¦N€ €À€‚|¦¿ÿð€Äƒâƒ‚ƒÂ€æ8Æÿü€¿Ä€Tæ:”!ÿ |…2||p|”|Äp|„”8|À,;¤A‚H& €A€¿8œHW½:|eè.H5€A€Ÿ,8|PA‚<|dè.€c€c€€ƒtA‚€daDHH&¥€AaDHH%¥€A€aDH7€AH& €A€ß8œl€¡D|fé.€|cè.H&9€A€|êh8!`»ÿð}ˆ¦N€ €(€‚|¦¿ÿð€¤ƒÂƒ‚ƒâ€å8¥ÿü€Þ€¤Tä:”!ÿ |"|0|p|•|„p|„”8|Œ;¤A‚H$Ù€AH6y€AaDH%=€A€ßW½:8œ@€¡D|fé.€|cè.H%i€A€|êh8!`»ÿð}ˆ¦N€ €À€‚|¦¿ÿð€Äƒâƒ‚ƒÂ€æ8Æÿü€¿Ä€Tæ:”!ÿ |…2||p|”|Äp|„”8|T,;¤A‚H$€A€¿8œW½:|eè.H3€A€Ÿ,8|A‚<|dè.€c€c€€ƒtA‚€daDHH$€AaDHH#€A€aDH5a€AaHH#ý€A€ß8œ8€¡H|fé.€|cè.H$-€A€|êh8!`»ÿð}ˆ¦N€ €,€‚|¦¿ÿð€¤ƒÂƒ‚ƒâ€å8¥ÿü€Þ€¤Tä:”!ÿ |"|0|p|•|„p|„”8|;¤A‚H"Í€AH4½€AaDH#1€A€ßW½:8œ€¡D|fé.€|cè.H#]€A€|êh8!`»ÿð}ˆ¦N€ €À€b|¦¿!ÿä€ƒƒâ}€&ƒÂ€Ä8„ÿü€€¿ƒTÄ:‘|e"||p|”|ƒp|c”.,ƒ¢”!ÿ;ƒA€@‘8}tH!é€A€¿€‚ÜWœ:|eà.€€ÃtA‚0€|eà.€c€c|…â; ÿÿaDƒdAhH$H!€A€¿|…â; ÿÿaDƒdAD€d€€ƒtA‚$€d`y88}6ü| ¦„;@H4H"1€A`y88}6ü| ¦„;@HA‚,;Z„,BÿðA‚;Z„,A‚;Z,cc8€A€D8}¸H!õ€A€€|á.€|ât€x8!p|¦}€ »!ÿäN€ H"1€AW@8}{7€aDHa€›7c%H2€Aƒ{7H é€A€ßc¤ce|fá.€|cà.H!€A€|ât€x8!p|¦}€ »!ÿäN€ €<|¦€‚¿ÿð€¤}€&ƒ‚€bƒâ€å8¥ÿü€¤€ÜTä:|"|„p|„”|0|p|•‘,€N”!ÿ°;Ä8c8A€@…H€AWÞ:€¿A‘8`H<€‚Ü|eð.€€ÃtA‚€|eð.€c€cHHÙ€AH1‘€A`}Hµ€A€¿,c¤|eñ.€A‚|cð.Hi€Ac£HM€|òT€X8!P|¦}€ »ÿðN€ €0¿ÿð|¦ƒâ€‚ä`~€€ƒ¢8Ã”!ÿ°|†@ƒß@†H1€A€ß€‚€âL,cƒ€`d8 |à|p|”€||p|”,€A‚8A…H!‰€A`|8€cÃH!€AH!½€A8|H A…H!U€A`|8€b|€b8€€cH0}€AX8!P»ÿð}ˆ¦N€ €8 H| 8 Hd 8 HL 8 H4 8 H 8 H 8 Hì 8 HÔ 8 H¼ 8 H¤ 8 HŒ 8 Ht 8 H\ 8 HD 8 H, 8 H |¦€Âä¿ÿð”!ÿ ƒâ€ƒÂaDH€ƒž`½8Ã|@ß@‚H.e€A€ß€¢cƒ`dƒâL€8 |à|p|”€||p|•AHõ€A`|€aDH…€AH-€A|€;ücã|`d|p|•8 AH€A`€aHH=€AHå€A€W¤88¿¾|`"8€€c7H-½€A8`h8!`»ÿð}ˆ¦N€ €4¿Aÿè|¦ƒÂ`”!ÿ°ƒ¾H-™€Aƒ‚ôcƒH-±€A€‚äƒbƒBü€{€€š8c|@{œ@‚H-€A€{ƒb€¢8€Wà 6|Û€|è|p|”€f7ŒH,õ€Aƒþ,8{ A‚HE€A€8¿ÿü€€œ€Ã€c| ;àÿÿTÀ‡>| @Ÿƒã¾@H-€AH-5€AcãX8!P»Aÿè}ˆ¦N€ €|¦¿¡ÿôƒâ”!ÿ `~D¡Hƒ¿H- €AaL€aP8€,A‚@`Hõ€AH€A`d€aPH,õ€A€~;Þ8€,A‚XH$€‚H,Ñ€A€~;Þ8€,A‚4H€AH½€A`d€aPH,€A„~8€,@‚ÿÔ€bäƒÂ€€~8Ã|@Þ@‚H+M€A€Þ€¢c£`dƒÂL€8 |è|p|”€||p|•AHÝ€A`}€aLH€AH€A}€;½c£|`d|p|•8 AH•€A`}€aDH%€AHÍ€A}€;ÝcÃ|`d|p|•8 AHM€A`~€aHHÝ€AH…€A€‚~8€d8\8€H*e€Ah8!`»¡ÿô}ˆ¦N€ €8`Kÿü¨ |¦¿Aÿèƒâ”!ÿ`~ƒ¿DH*)€Aƒ‚ôcƒH*A€A€bäƒbƒBü€›€€z8Ä|†@Û|@†H)•€A€Û€‚ƒbL,c£€`d8 |è|p|”€||p|”,€A‚8A…H€A`}8€cÃH-€AHM€A;Ý}H A…Hå€A`};Ý€€cÃ8 `d||p|•AH€A`~€aDH=€AHå€Aƒ¢8~€}8<8€H(Å€Aƒß,ƒ8}ôA†H€A€‚€~;Þÿüd€€ƒtA‚$€d€€š“ßaH|„@…0H$H½€A€€š“ßaH|„@…H(½€AH(Ý€A€aHx8!p»Aÿè}ˆ¦N€ €¿!ÿä|¦ƒÂ`”!ÿƒ^H(€Aƒ¢ôc£H(1€Aƒ‚ü,ƒb8€€A‚$€,A‚H‰€AH©€A`{€bäƒ"€€y8Ã|@Ù@‚H'U€A€Ù€¢cC`d€âL€8 |Ð|p|”€||p|•AHå€A`zƒ"8“z8€€y8,H'€Aƒ^,8y¸A‚Ha€A€z€‚;:ÿüd€€ƒtA‚(€d€aD€‚Ü€»tccA‚@H(H€A€aD€‚Ü€»tccA‚€€{ƒcHHe€A`{cdƒ_cCKÿZ`,cCA‚HñccH€€|“>|@H&€AH&½€A€aDx8!p»!ÿä}ˆ¦N€ €|¦¾aÿÌ`€ƒÂ”!ÿ;€ƒ^,€A†;€H%å€Aƒ¢ôc£H%ý€A€‚äƒb‚bü€{€€“8c|ƒ@{@†H%Q€A€{€‚ƒbL8 €|Ð|p|”€€,ƒ||p|•A†@AcC`dHÕ€A`z€8€Hé€AH €A;:zH(cC`dAH™€A`z;:€€€8 ;_|,|p|”A‚h,Ac#`dHM€A`y€z8€Ha€AH€Ay€z;9H„z€8 |,ƒ|p|•@†ÿ¤“>€b8€€c8H$9€A,œ`|7|ÿÿ/Tc:;@; ÿÿƒA†@šxHdWd:ÿü:ø~ß"‚¢Ü@™L:Ÿ_.@Œ€‚Ü„wÿü€€£tt,†A†0A‚€€c€cHH•€AHÝvHcy“V|– ;{ÿÿ:Öÿü@…$€‚Ü„wÿü€€£tt,†KÿÿœW :,||à|™à8ƒÿü| ¦`ƒ@X@„H„B@0HA‚”;9„,BÿìA‚”;9„,A‚”;9W#:c<_./,œA†4@š@€Hu€“_€€s“|ƒ@…4H(€HI8€€s“|ƒ@…H"ù€AH#€Ax8!pºaÿÌ}ˆ¦N€ € |¦¿Aÿèƒâ”!ÿ`~ƒ¿DH"U€Aƒ‚ôcƒH"m€A€bäƒbƒBü€›€€z8Ä|†@Û|@†H!Á€A€Û€‚ƒbL,c£€`d8 |è|p|”€||p|”,€A‚8A…HE€A`}8€cÃHY€AHy€A;Ý}H A…H€A`};Ý€€cÃ8 `d||p|•AHÙ€A`~€aDHi€AH€Aƒ¢8~€}88€H ñ€Aƒß,ƒ8}„A†HA€A€‚€~;Þÿüd€€ƒtA‚$€d€€š“ßaH|„@…0H$Hé€A€€š“ßaH|„@…H é€AH! €A€aHx8!p»Aÿè}ˆ¦N€ €|¦¿Aÿèƒâ”!ÿ`~ƒ¿DH A€Aƒ‚ôcƒH Y€A€bäƒbƒBü€›€€z8Ä|†@Û|@†H€A€Û€‚ƒbL,c£€`d8 |è|p|”€||p|”,€A‚8A…H1€A`}8€cÃHE€AHe€A;Ý}H A…Hý€A`};Ý€€cÃ8 `d||p|•AHÅ€A`~€aDHU€AHý€Aƒ¢8~€}7ü8€HÝ€Aƒß,ƒ8}HA†H-€A€‚Ü€~;Þÿü€€£tt,†A†0A‚€€c€cH ÅHHm€AH µH8`€€š“ßaH|„@…HÉ€AHé€A€aHx8!p»Aÿè}ˆ¦N€ €|¦¿!ÿäƒâ”!ÿ`z`¾Dƒ¿H€Aƒ‚ôcƒH5€A€bäƒ"ƒbü€™€€{8Ä|†@Ù|@†H‰€A€Ù€‚ƒ"L,c£€`d8 |è|p|”€||p|”,€A‚8A…H €A`}8€cCH!€AHA€A;]}H A…H Ù€A`};]€€cC8 `d||p|•AH ¡€A`z€aDH1€AH Ù€Az€,ž;º|c£|p|•`d8 A†8AH Q€A`}8€cÃH e€AH …€A8}H AH €A`}8€b}ƒÂ8€€~7ìHE€Aƒ¿,ƒ8~A†H •€A€}€‚Ü;Ýÿü€€£tt,†A†0A‚€€c€cH-HHÕ€AHH8`€€›“ßaH|„@…H1€AHQ€A€aHx8!p»!ÿä}ˆ¦N€ €ˆ|¦¾aÿÌƒâ”!ÿ€`zD¡HƒH…€AƒÂôcÃH€A€bäƒ‚ƒ¢ü€œ€€}8Ä|†@Ü~@†Hñ€A€Ü€‚ƒ‚L,cc€`d8 |Ø|p|”€||p|”,€A‚8A…Hu€A`{8€cCH‰€AH©€A;[{H A…HA€A`{;[€€ƒb@8 €{||p|•,ƒA†@AcC`dH ù€A`z€{8€H €AH-€A;zzH(cC`dAH ½€A`z;z€€cc8 `d||p|•AH …€A`{€aDH€AH ½€A{€;›cƒ|`d|p|•8 AH =€A`|€aHH Í€AH u€A€¢|88€€e7ÜHU€A||y8;@ÿÿƒT:; @˜H ‘€A7ÿÿ`y:àW„:W:ÿü~ù!.L€:ÛA€œ‚¢Ü:™{~y€‚Ü„vÿü€€£tt/Aš0A‚€€c€cHH©€AHñsH’óA†c|“ ;ÿÿ:sÿüA„$€‚Ü„vÿü€€£tt/Kÿÿ˜,W@:|y8ƒÿü|šà|à`ƒ@\| ¦@„H„B@0HA‚”;Z„,BÿìA‚”;Z„,A‚”;ZWC:c\~ù./,œ@†0€yH‰€’ù€€}“|ƒ@…@H4c#@š€,€@†HM; €€}“|ƒ@…H€AH!€Ac#ˆ8!€ºaÿÌ}ˆ¦N€ € |¦¿Aÿèƒâ”!ÿ`~ƒ¿DHY€Aƒ‚ôcƒHq€A€bäƒbƒBü€›€€z8Ä|†@Û|@†HÅ€A€Û€‚ƒbL,c£€`d8 |è|p|”€||p|”,€A‚8A…HI€A`}8€cÃH]€AH}€A;Ý}H A…H€A`};Ý€€cÃ8 `d||p|•AHÝ€A`~€aDHm€AH€Aƒ¢8~€}7Ì8€Hõ€Aƒß,ƒ8}ÐA†HE€A€‚Ü€~;Þÿü€€£tt,†A†0A‚€€c€cHÝHH…€AHÍH8`€€š“ßaH|„@…Há€AH€A€aHx8!p»Aÿè}ˆ¦N€ €8`Kÿç 8`Kÿçˆ 8`Kÿçp 8`KÿçX |¦¿¡ÿô”!ÿ aD`¿KÿG €A8cH €AƒÂ`}8}€D€¾ˆ˜KÿG`,c£€žA‚ˆ˜h8!`»¡ÿô}ˆ¦N€ €||¦“áÿü`”!ÿÀHI€A8`€‚„€„€¤,A‚(€|ø@A‚0„¤,A‚€|ø@KÿÿèH8!@ƒáÿü}ˆ¦N€ €eKÿÿè €t“áÿü|¦”!ÿ°aDKÿEý€A;ãcãHý€AaH€DcåKÿH‘`€aHX8!Pƒáÿü}ˆ¦N€ €X,|¦”!ÿÀHA‚KÿEm€AH8!@}ˆ¦N€ 8!@N€ €4‚A€€L| ¦N€ ‚ A€€L| ¦N€ ‚$A€€L| ¦N€ ‚(A€€L| ¦N€ ‚0A€€L| ¦N€ ‚4A€€L| ¦N€ ‚àA€€L| ¦N€ ‚äA€€L| ¦N€ ‚ìA€€L| ¦N€ ‚ðA€€L| ¦N€ ‚ôA€€L| ¦N€ ‚A€€L| ¦N€ ‚A€€L| ¦N€ ‚A€€L| ¦N€ ‚ A€€L| ¦N€ ‚$A€€L| ¦N€ ‚(A€€L| ¦N€ ‚,A€€L| ¦N€ ‚0A€€L| ¦N€ ‚4A€€L| ¦N€ ‚8A€€L| ¦N€ ‚<A€€L| ¦N€ ‚DA€€L| ¦N€ ‚HA€€L| ¦N€ ‚PA€€L| ¦N€ ‚TA€€L| ¦N€ ‚XA€€L| ¦N€ ‚\A€€L| ¦N€ ‚`A€€L| ¦N€ ‚dA€€L| ¦N€ ‚hA€€L| ¦N€ ‚lA€€L| ¦N€ ‚pA€€L| ¦N€ ‚tA€€L| ¦N€ ‚xA€€L| ¦N€ ‚|A€€L| ¦N€ ‚€A€€L| ¦N€ ‚„A€€L| ¦N€ ‚ˆA€€L| ¦N€ ‚ŒA€€L| ¦N€ ‚A€€L| ¦N€ ‚”A€€L| ¦N€ ‚˜A€€L| ¦N€ ‚œA€€L| ¦N€ ‚ A€€L| ¦N€ ‚¤A€€L| ¦N€ ‚¨A€€L| ¦N€ ‚¬A€€L| ¦N€ ‚°A€€L| ¦N€ ‚´A€€L| ¦N€ ‚¸A€€L| ¦N€ ‚¼A€€L| ¦N€ ‚ÀA€€L| ¦N€ ‚ÄA€€L| ¦N€ ‚ÈA€€L| ¦N€ ‚ÐA€€L| ¦N€ ‚ÔA€€L| ¦N€ ‚ØA€€L| ¦N€ ‚ÜA€€L| ¦N€ ‚àA€€L| ¦N€ ‚äA€€L| ¦N€ ‚èA€€L| ¦N€ ‚ìA€€L| ¦N€ ‚ðA€€L| ¦N€ ‚ôA€€L| ¦N€ ‚øA€€L| ¦N€ ‚üA€€L| ¦N€ ‚A€€L| ¦N€ ‚A€€L| ¦N€ ‚A€€L| ¦N€ ‚A€€L| ¦N€ ‚A€€L| ¦N€ ‚A€€L| ¦N€ ‚A€€L| ¦N€ ‚ A€€L| ¦N€ ‚$A€€L| ¦N€ ‚(A€€L| ¦N€ ‚,A€€L| ¦N€ ‚4A€€L| ¦N€ ‚8A€€L| ¦N€ ‚<A€€L| ¦N€ ‚@A€€L| ¦N€ ‚DA€€L| ¦N€ ‚HA€€L| ¦N€ ‚LA€€L| ¦N€ ‚PA€€L| ¦N€ ‚TA€€L| ¦N€ ‚XA€€L| ¦N€ ‚\A€€L| ¦N€ ‚`A€€L| ¦N€ ‚dA€€L| ¦N€ ‚hA€€L| ¦N€ ‚lA€€L| ¦N€ ‚pA€€L| ¦N€ ‚tA€€L| ¦N€ ‚xA€€L| ¦N€ ‚|A€€L| ¦N€ ‚€A€€L| ¦N€ ‚ˆA€€L| ¦N€ ‚ŒA€€L| ¦N€ ‚A€€L| ¦N€ ‚”A€€L| ¦N€ ‚˜A€€L| ¦N€ ‚œA€€L| ¦N€ ‚ A€€L| ¦N€ ‚¤A€€L| ¦N€ ‚¨A€€L| ¦N€ ‚¬A€€L| ¦N€ ‚°A€€L| ¦N€ ‚´A€€L| ¦N€ ‚¸A€€L| ¦N€ ‚¼A€€L| ¦N€ ‚ÀA€€L| ¦N€ ‚ÄA€€L| ¦N€ ‚ÈA€€L| ¦N€ ‚ÌA€€L| ¦N€ ‚ÐA€€L| ¦N€ ‚ÔA€€L| ¦N€ ‚ØA€€L| ¦N€ ‚ÜA€€L| ¦N€ ‚àA€€L| ¦N€ ‚èA€€L| ¦N€ ‚ìA€€L| ¦N€ ‚ðA€€L| ¦N€ ‚øA€€L| ¦N€ ‚A€€L| ¦N€ ‚A€€L| ¦N€ ‚A€€L| ¦N€ ‚A€€L| ¦N€ ‚A€€L| ¦N€ FunctionPtrKeymapKeymapmap is not of type KeymapKeymapKeymapKeymapmap is not of type KeymapKeymapKeymapKeymapmap is not of type KeymapKeymapKeymapKeymapmap is not of type KeymapFunctionPtrKeymapmap is not of type KeymapKeymapmap is not of type KeymapFunctionPtrKeymapmap is not of type KeymapKeymapmap is not of type KeymapFunctionPtrKeymapmap is not of type KeymapKeymapkeymap is not of type KeymapKeymapmap is not of type KeymapKeymapmap is not of type KeymapFunctionPtrFunctionPtrFunctionPtrKeymapmap is not of type KeymapFunctionPtrKeymapFunctionPtrKeymapmap is not of type KeymapTerm::ReadLine::Gnu::Var+<&Term::ReadLine::Gnu::VarTerm::ReadLine::Gnu::Var+<&Term::ReadLine::Gnu::VarKeymapFunctionPtrGnu.c%s::%sXS_VERSION%s::%sVERSION1.09$::bootstrap parameter1.09;$$$;$$$$$$$$;$$;$$;$$;$$$;$$$;$$$;$$;$$;$$$$$;$$;$;$$$$$;$$$$;$$;$$;$$$$;$Term::ReadLine::Gnu::XS::ding$;$$$$;$$;$$$$$$$$$$$$$;$$;$$;$$;$$$;$$;$;$$$$;$$$$;$$$$$$$$$$$$$$$$$Gnu.xs:void_arg_func_wrapper: Internal error Gnu.xs:completion_entry_function_wrapper: Internal error Gnu.xs:filename_quoting_function_wrapper: Internal error Gnu.xs:filename_dequoting_function_wrapper: Internal error Gnu.xs:char_is_quoted_p_wrapper: Internal error Gnu.xs:directory_completion_hook_wrapper: Internal error Gnu.xs:history_inhibit_expansion_function_wrapper: Internal error Usage: Term::ReadLine::Gnu::XS::rl_readline(prompt = NULL)Usage: Term::ReadLine::Gnu::XS::rl_add_defun(name, fn, key = -1)Gnu.xs:rl_add_defun: custom function table is full. The maximum number of custum function is %d. Usage: Term::ReadLine::Gnu::XS::rl_make_bare_keymap()Usage: Term::ReadLine::Gnu::XS::_rl_copy_keymap(map)Usage: Term::ReadLine::Gnu::XS::rl_make_keymap()Usage: Term::ReadLine::Gnu::XS::_rl_discard_keymap(map)Usage: Term::ReadLine::Gnu::XS::rl_get_keymap()Usage: Term::ReadLine::Gnu::XS::_rl_set_keymap(map)Usage: Term::ReadLine::Gnu::XS::rl_get_keymap_by_name(name)Usage: Term::ReadLine::Gnu::XS::rl_get_keymap_name(map)Usage: Term::ReadLine::Gnu::XS::_rl_bind_key(key, function, map = rl_get_keymap())function is not of type FunctionPtrUsage: Term::ReadLine::Gnu::XS::_rl_unbind_key(key, map = rl_get_keymap())Usage: Term::ReadLine::Gnu::XS::_rl_unbind_function(function, map = rl_get_keymap())function is not of type FunctionPtrUsage: Term::ReadLine::Gnu::XS::_rl_unbind_command(command, map = rl_get_keymap())Usage: Term::ReadLine::Gnu::XS::_rl_generic_bind_function(keyseq, function, map = rl_get_keymap())function is not of type FunctionPtrUsage: Term::ReadLine::Gnu::XS::_rl_generic_bind_keymap(keyseq, keymap, map = rl_get_keymap())Usage: Term::ReadLine::Gnu::XS::_rl_generic_bind_macro(keyseq, macro, map = rl_get_keymap())Usage: Term::ReadLine::Gnu::XS::rl_parse_and_bind(line)Usage: Term::ReadLine::Gnu::XS::rl_read_init_file(filename = NULL)Usage: Term::ReadLine::Gnu::XS::_rl_call_function(function, count = 1, key = -1)function is not of type FunctionPtrUsage: Term::ReadLine::Gnu::XS::rl_named_function(name)Usage: Term::ReadLine::Gnu::XS::rl_get_function_name(function)function is not of type FunctionPtrUsage: Term::ReadLine::Gnu::XS::rl_function_of_keyseq(keyseq, map = rl_get_keymap())Gnu.xs:rl_function_of_keyseq: illegal type `%d' Usage: Term::ReadLine::Gnu::XS::_rl_invoking_keyseqs(function, map = rl_get_keymap())function is not of type FunctionPtrUsage: Term::ReadLine::Gnu::XS::rl_function_dumper(readable = 0)Usage: Term::ReadLine::Gnu::XS::rl_list_funmap_names()Usage: Term::ReadLine::Gnu::XS::rl_get_all_function_names()Usage: Term::ReadLine::Gnu::XS::rl_funmap_names()Usage: Term::ReadLine::Gnu::XS::rl_begin_undo_group()Usage: Term::ReadLine::Gnu::XS::rl_end_undo_group()Usage: Term::ReadLine::Gnu::XS::rl_add_undo(what, start, end, text)Usage: Term::ReadLine::Gnu::XS::free_undo_list()Usage: Term::ReadLine::Gnu::XS::rl_do_undo()Usage: Term::ReadLine::Gnu::XS::rl_modifying(start = 0, end = rl_end)Usage: Term::ReadLine::Gnu::XS::rl_redisplay()Usage: Term::ReadLine::Gnu::XS::rl_forced_update_display()Usage: Term::ReadLine::Gnu::XS::rl_on_new_line()Usage: Term::ReadLine::Gnu::XS::rl_on_new_line_with_prompt()Usage: Term::ReadLine::Gnu::XS::rl_reset_line_state()Usage: Term::ReadLine::Gnu::XS::_rl_message(text)Usage: Term::ReadLine::Gnu::XS::rl_clear_message()Usage: Term::ReadLine::Gnu::XS::rl_save_prompt()Usage: Term::ReadLine::Gnu::XS::rl_restore_prompt()Usage: Term::ReadLine::Gnu::XS::rl_insert_text(text)Usage: Term::ReadLine::Gnu::XS::rl_delete_text(start = 0, end = rl_end)Usage: Term::ReadLine::Gnu::XS::rl_copy_text(start = 0, end = rl_end)Usage: Term::ReadLine::Gnu::XS::rl_kill_text(start = 0, end = rl_end)Usage: Term::ReadLine::Gnu::XS::rl_read_key()Usage: Term::ReadLine::Gnu::XS::rl_getc(stream)Usage: Term::ReadLine::Gnu::XS::rl_stuff_char(c)Usage: Term::ReadLine::Gnu::XS::rl_initialize()Usage: Term::ReadLine::Gnu::XS::rl_reset_terminal(terminal_name = NULL)Usage: Term::ReadLine::Gnu::XS::ding()Usage: Term::ReadLine::Gnu::XS::rl_display_match_list(pmatches, plen = -1, pmax = -1)Gnu.xs:_rl_display_match_list: the 1st arguments must be a reference of an array Usage: Term::ReadLine::Gnu::XS::rl_callback_handler_install(prompt, lhandler)Usage: Term::ReadLine::Gnu::XS::rl_callback_read_char()Usage: Term::ReadLine::Gnu::XS::rl_callback_handler_remove()Usage: Term::ReadLine::Gnu::XS::rl_cleanup_after_signal()Usage: Term::ReadLine::Gnu::XS::rl_free_line_state()Usage: Term::ReadLine::Gnu::XS::rl_reset_after_signal()Usage: Term::ReadLine::Gnu::XS::rl_resize_terminal()Usage: Term::ReadLine::Gnu::XS::rl_set_signals()Usage: Term::ReadLine::Gnu::XS::rl_clear_signals()Usage: Term::ReadLine::Gnu::XS::rl_complete_internal(what_to_do = TAB)Usage: Term::ReadLine::Gnu::XS::completion_matches(text, fn = NULL)Usage: Term::ReadLine::Gnu::XS::filename_completion_function(text, state)Usage: Term::ReadLine::Gnu::XS::username_completion_function(text, state)Usage: Term::ReadLine::Gnu::XS::using_history()Usage: Term::ReadLine::Gnu::XS::add_history(string)Usage: Term::ReadLine::Gnu::XS::remove_history(which)Usage: Term::ReadLine::Gnu::XS::replace_history_entry(which, line)Usage: Term::ReadLine::Gnu::XS::clear_history()Usage: Term::ReadLine::Gnu::XS::stifle_history(i)Usage: Term::ReadLine::Gnu::XS::unstifle_history()Usage: Term::ReadLine::Gnu::XS::history_is_stifled()Usage: Term::ReadLine::Gnu::XS::where_history()Usage: Term::ReadLine::Gnu::XS::current_history()Usage: Term::ReadLine::Gnu::XS::history_get(offset)Usage: Term::ReadLine::Gnu::XS::history_total_bytes()Usage: Term::ReadLine::Gnu::XS::history_set_pos(pos)Usage: Term::ReadLine::Gnu::XS::previous_history()Usage: Term::ReadLine::Gnu::XS::next_history()Usage: Term::ReadLine::Gnu::XS::history_search(string, direction = -1)Usage: Term::ReadLine::Gnu::XS::history_search_prefix(string, direction = -1)Usage: Term::ReadLine::Gnu::XS::history_search_pos(string, direction = -1, pos = where_history())Usage: Term::ReadLine::Gnu::XS::read_history_range(filename = NULL, from = 0, to = -1)Usage: Term::ReadLine::Gnu::XS::write_history(filename = NULL)Usage: Term::ReadLine::Gnu::XS::append_history(nelements, filename = NULL)Usage: Term::ReadLine::Gnu::XS::history_truncate_file(filename = NULL, nlines = 0)Usage: Term::ReadLine::Gnu::XS::history_expand(line)Usage: Term::ReadLine::Gnu::XS::_history_arg_extract(line, first = 0 , last = DALLAR)Usage: Term::ReadLine::Gnu::XS::_get_history_event(string, cindex, qchar = 0)Usage: Term::ReadLine::Gnu::XS::history_tokenize(text)Usage: Term::ReadLine::Gnu::Var::_rl_store_str(pstr, id)Gnu.xs:_rl_store_str: Illegal `id' value: `%d'Gnu.xs:_rl_store_str: store to read only variableUsage: Term::ReadLine::Gnu::Var::_rl_store_rl_line_buffer(pstr)Usage: Term::ReadLine::Gnu::Var::_rl_fetch_str(id)Gnu.xs:_rl_fetch_str: Illegal `id' value: `%d'Usage: Term::ReadLine::Gnu::Var::_rl_store_int(pint, id)Gnu.xs:_rl_store_int: Illegal `id' value: `%d'Gnu.xs:_rl_store_int: store to read only variableUsage: Term::ReadLine::Gnu::Var::_rl_fetch_int(id)Gnu.xs:_rl_fetch_int: Illegal `id' value: `%d'Usage: Term::ReadLine::Gnu::Var::_rl_store_iostream(stream, id)Gnu.xs:_rl_store_iostream: Illegal `id' value: `%d'Usage: Term::ReadLine::Gnu::Var::_rl_fetch_iostream(id)Gnu.xs:_rl_fetch_iostream: Illegal `id' value: `%d'Usage: Term::ReadLine::Gnu::Var::_rl_fetch_keymap(id)Gnu.xs:_rl_fetch_keymap: Illegal `id' value: `%d'Usage: Term::ReadLine::Gnu::Var::_rl_store_function(fn, id)Gnu.xs:_rl_store_function: Illegal `id' value: `%d'Usage: Term::ReadLine::Gnu::Var::_rl_fetch_function(id)Gnu.xs:_rl_fetch_function: Illegal `id' value: `%d'Usage: Term::ReadLine::Gnu::Var::_rl_fetch_last_func()Usage: Term::ReadLine::Gnu::XS::tgetstr(id)%s object version %s does not match %s%s%s%s %_Term::ReadLine::Gnu::XS::rl_readlineTerm::ReadLine::Gnu::XS::rl_add_defunTerm::ReadLine::Gnu::XS::rl_make_bare_keymapTerm::ReadLine::Gnu::XS::_rl_copy_keymapTerm::ReadLine::Gnu::XS::rl_make_keymapTerm::ReadLine::Gnu::XS::_rl_discard_keymapTerm::ReadLine::Gnu::XS::rl_get_keymapTerm::ReadLine::Gnu::XS::_rl_set_keymapTerm::ReadLine::Gnu::XS::rl_get_keymap_by_nameTerm::ReadLine::Gnu::XS::rl_get_keymap_nameTerm::ReadLine::Gnu::XS::_rl_bind_keyTerm::ReadLine::Gnu::XS::_rl_unbind_keyTerm::ReadLine::Gnu::XS::_rl_unbind_functionTerm::ReadLine::Gnu::XS::_rl_unbind_commandTerm::ReadLine::Gnu::XS::_rl_generic_bind_functionTerm::ReadLine::Gnu::XS::_rl_generic_bind_keymapTerm::ReadLine::Gnu::XS::_rl_generic_bind_macroTerm::ReadLine::Gnu::XS::rl_parse_and_bindTerm::ReadLine::Gnu::XS::rl_read_init_fileTerm::ReadLine::Gnu::XS::_rl_call_functionTerm::ReadLine::Gnu::XS::rl_named_functionTerm::ReadLine::Gnu::XS::rl_get_function_nameTerm::ReadLine::Gnu::XS::rl_function_of_keyseqTerm::ReadLine::Gnu::XS::_rl_invoking_keyseqsTerm::ReadLine::Gnu::XS::rl_function_dumperTerm::ReadLine::Gnu::XS::rl_list_funmap_namesTerm::ReadLine::Gnu::XS::rl_get_all_function_namesTerm::ReadLine::Gnu::XS::rl_funmap_namesTerm::ReadLine::Gnu::XS::rl_begin_undo_groupTerm::ReadLine::Gnu::XS::rl_end_undo_groupTerm::ReadLine::Gnu::XS::rl_add_undoTerm::ReadLine::Gnu::XS::free_undo_listTerm::ReadLine::Gnu::XS::rl_do_undoTerm::ReadLine::Gnu::XS::rl_modifyingTerm::ReadLine::Gnu::XS::rl_redisplayTerm::ReadLine::Gnu::XS::rl_forced_update_displayTerm::ReadLine::Gnu::XS::rl_on_new_lineTerm::ReadLine::Gnu::XS::rl_on_new_line_with_promptTerm::ReadLine::Gnu::XS::rl_reset_line_stateTerm::ReadLine::Gnu::XS::_rl_messageTerm::ReadLine::Gnu::XS::rl_clear_messageTerm::ReadLine::Gnu::XS::rl_save_promptTerm::ReadLine::Gnu::XS::rl_restore_promptTerm::ReadLine::Gnu::XS::rl_insert_textTerm::ReadLine::Gnu::XS::rl_delete_textTerm::ReadLine::Gnu::XS::rl_copy_textTerm::ReadLine::Gnu::XS::rl_kill_textTerm::ReadLine::Gnu::XS::rl_read_keyTerm::ReadLine::Gnu::XS::rl_getcTerm::ReadLine::Gnu::XS::rl_stuff_charTerm::ReadLine::Gnu::XS::rl_initializeTerm::ReadLine::Gnu::XS::rl_reset_terminalTerm::ReadLine::Gnu::XS::rl_display_match_listTerm::ReadLine::Gnu::XS::rl_callback_handler_installTerm::ReadLine::Gnu::XS::rl_callback_read_charTerm::ReadLine::Gnu::XS::rl_callback_handler_removeTerm::ReadLine::Gnu::XS::rl_cleanup_after_signalTerm::ReadLine::Gnu::XS::rl_free_line_stateTerm::ReadLine::Gnu::XS::rl_reset_after_signalTerm::ReadLine::Gnu::XS::rl_resize_terminalTerm::ReadLine::Gnu::XS::rl_set_signalsTerm::ReadLine::Gnu::XS::rl_clear_signalsTerm::ReadLine::Gnu::XS::rl_complete_internalTerm::ReadLine::Gnu::XS::completion_matchesTerm::ReadLine::Gnu::XS::filename_completion_functionTerm::ReadLine::Gnu::XS::username_completion_functionTerm::ReadLine::Gnu::XS::using_historyTerm::ReadLine::Gnu::XS::add_historyTerm::ReadLine::Gnu::XS::remove_historyTerm::ReadLine::Gnu::XS::replace_history_entryTerm::ReadLine::Gnu::XS::clear_historyTerm::ReadLine::Gnu::XS::stifle_historyTerm::ReadLine::Gnu::XS::unstifle_historyTerm::ReadLine::Gnu::XS::history_is_stifledTerm::ReadLine::Gnu::XS::where_historyTerm::ReadLine::Gnu::XS::current_historyTerm::ReadLine::Gnu::XS::history_getTerm::ReadLine::Gnu::XS::history_total_bytesTerm::ReadLine::Gnu::XS::history_set_posTerm::ReadLine::Gnu::XS::previous_historyTerm::ReadLine::Gnu::XS::next_historyTerm::ReadLine::Gnu::XS::history_searchTerm::ReadLine::Gnu::XS::history_search_prefixTerm::ReadLine::Gnu::XS::history_search_posTerm::ReadLine::Gnu::XS::read_history_rangeTerm::ReadLine::Gnu::XS::write_historyTerm::ReadLine::Gnu::XS::append_historyTerm::ReadLine::Gnu::XS::history_truncate_fileTerm::ReadLine::Gnu::XS::history_expandTerm::ReadLine::Gnu::XS::_history_arg_extractTerm::ReadLine::Gnu::XS::_get_history_eventTerm::ReadLine::Gnu::XS::history_tokenizeTerm::ReadLine::Gnu::Var::_rl_store_strTerm::ReadLine::Gnu::Var::_rl_store_rl_line_bufferTerm::ReadLine::Gnu::Var::_rl_fetch_strTerm::ReadLine::Gnu::Var::_rl_store_intTerm::ReadLine::Gnu::Var::_rl_fetch_intTerm::ReadLine::Gnu::Var::_rl_store_iostreamTerm::ReadLine::Gnu::Var::_rl_fetch_iostreamTerm::ReadLine::Gnu::Var::_rl_fetch_keymapTerm::ReadLine::Gnu::Var::_rl_store_functionTerm::ReadLine::Gnu::Var::_rl_fetch_functionTerm::ReadLine::Gnu::Var::_rl_fetch_last_funcTerm::ReadLine::Gnu::XS::tgetstr:::(:4:@:L:X:d:p:|:ˆ:”: :¬:¸:Ä:Ð:Ü:è:ô;;;;$;0;<;H;T;`;l;xÈ@|žð@|žØ@|žÀ@|ž¨@|ž@|žx@|ž`@|žH@|ž0@|ž@|ž@|è@|Ð@|¸@| @|ˆ@|¸ð@|¸Ø@|¸À@|¸¨@|¶ˆ@|²X@|¹@|¯À@| @|«Œ@|§ì@|¥Ì@|£¸@|£ @|¡t@|›0@|˜ä@|˜@|–Ø@|–@|”Ð@|”@|’È@|‘¸@|€@|ŽH@|Œ”@|Š´@|ˆì@|†˜@|„D@|‚@|(@|ø@|~@||ü@|{È@|y @|v¤@|u¬@|u@|s°@|rh@|qœ@|pÐ@|o@|nh@|mœ@|kü@|kT@|jˆ@|i¼@|hð@|h$@|g@|fL@|e¤@|dü@|cð@|bP@|`°@|_@|^D@|]\@|\d@|[˜@|Zh@|Yœ@|VŒ@|Tè@|T@@|S˜@|Rð@|RH@|Q @|Pø@|P,@|O`@|ND@|K$@|I´@|HD@|Gœ@|F´@|E@|Cü@|CT@|B4@|Ah@|@œ@|?Ð@|>ô@|=ì@|= @|<(@|;L@|:p@|8ì@|7h@|5€@|3x@|2H@|0À@|/@|-¸@|+Ø@|)´@|(@|%¤@|$d@|#(@|!,@|è@|Ø@|ä@|€@|Ð@|à@|@|Ü@|œp@|;„;;œ;¨;´;À;Ì;Ø;ä;ð;ü<<< <,<8>>>$>0><>H>T>`>l>x>„>>œ>¨>´>À>Ì>Ø>ä>ð>ü??? ?,?8?D?P?\?h?t?€?Œ?˜?¤?°?¼?È?Ô?à?ì?ø@@@@(@4@@@L@X@dÏ;@pÉmo0Ç0ƒ@free@ strlen@ PL_Sv@PL_Xpv@@-@PL_na@@@P@_@m@{@‡@—@¤@ ´@ Â@ Ñ@ Þ@ í@ ù@ @ @ 2@ ?@ O@ \@ k@ z@ ‰@ –@ §@ ¹@ É@ Û@ ë@ ý@ @ @ )@ ;@ I@ Y@ p@ @ “@ £@ ³@ Ç@ ×@ ã@ ò@ @@!@4@L@[@j@@š@»@Ð@ê@ @@>@_@}@œ@»@Ý@@&@G@l@‚@ž@´@Ó@ø@@5@T@c@s@”@ª@¼@Ò@æ@ù@ @ @3@rl_getc@ H@ W@ h@ €@ Ÿ@ ´@ È@ Ü@ ñ@ @ %@ =@ Q@ c@ ~@ š@ ±@ Æ@ Õ@ å@ õ@ xmalloc@ @ @ 6@ L@ ]@ z@ ’@ °@ À@ Ñ@ ä@ @ @ 0@ G@ ding@ U@ p@ †@ —@ ¨@ ¼@ Ë@ ß@ ð@ ý@ @ &@ C@ U@ h@ |@ ’@ £@ ±@ ¿@ ×@ è@ ø@ @ @ /@ A@ W@ g@ |@ @ @ °@ È@ Ù@ é@ þ@ @ &@ :@ K@ \@ k@ readline@ x@ ‡@ ˜@ ¦@ »@ Ó@ í@ @ @"@3@G@rl_end@rl_point@rl_mark@l@rl_done@funmap@„@š@tgetstr@ ®: 77777 7(70787@7H7P7X7`7h7p7x7€[7ˆ7X7˜7 97¤c7¨7°;7´d7¸7ÀV7È7ÐL7Ø7àI7ä7è7ðM7ø8O88K88 R8(80Á888@]8H8PS8X8`Ã8lÂ8xÄ8„Æ8:8œT8¨U8´J8ÀF8ÌG8ØÅ8ä=8ð¿8üÀ9?9A9 >9,C98Z9D^9P_9\\9hD9t¾9€b9Œ`9˜a9¤Y9°P9¼N9ÈE9ÔH9àQ9ìB9ø@:::::: :(:,:4:8:@:D:L:P:X:\:d:h:p:t:|:€:ˆ:Œ:”:˜: :¤:¬:°:¸:¼:Ä:È:Ð:Ô:Ü:à:è:ì:ô:ø;;;;;;;$;(;0;4;<;@;H;L;T;X;`;d;l;p;x;|;„;ˆ;;”;œ; ;¨;¬;´;¸;À;Ä;Ì;Ð;Ø;Ü;ä;è;ð;ô;ü<<<<<< <$<,<0<8<<>>>>>>$>(>0>4><>@>H>L>T>X>`>d>l>p>x>|>„>ˆ>>”>œ> >¨>¬>´>¸>À>Ä>Ì>Ð>Ø>Ü>ä>è>ð>ô>ü?????? ?$?,?0?8?<?D?H?P?T?\?`?h?l?t?x?€?„?Œ??˜?œ?¤?¨?°?´?¼?À?È?Ì?Ô?Ø?à?ä?ì?ð?ø?ü@@@@@@ @(@,@4@8@@@D@L@P@X@\@d@h@p@t@|@€@„@ˆ @Œ@ @”@˜,@œ@ 7@¤@¨@¬!@°2@´@¸@¼@À@Ä@È@Ì@Ð@Ô@Ø@Ü@à@ä@è@ì@ð@ô@ø@üAAAAAAAAA A$A(A,A0A4A8A<A@ADAHALAPATAXA\A`AdAhAlApAtAxA|A€A„AˆAŒAA”A˜AœA A¤A¨A¬A°A´A¸A¼AÀAÄAÈAÌAÐAÔAØAÜAàAäAèAìAðAôAøAüBBBBBBBBB B$B(B,B0B4B8B<B@BDBHBLBPBTBX B\0B`ÊBdWBh3Bl*Bp5BtBxB|(B€4B„Bˆ BŒÉBÈB”<B˜8BœB B¤B¨B¬-B°)B´1B¸¯B¼DBÀyBÄ—BÈBÌ'BÐBÔ+BØ˜BÜBà™BäšBèBìžBðŸBô Bø¥BüCfCeC¡C¢C£C¤C›C–C ¦C$§C(¨C,©C0ªC4«C8œC<¬C@„CDgCHCL…CP/CT‡CXƒC\‚C`¼CdºCh¹Cl»Cp~CtCx$C|%C€C„€CˆCŒC†C”‰C˜½CœC ®C¤cC¨ˆC¬ÂC°³C´C¸ŒC¼CÀCÄ‘CÈ”CÌ’CÐ“CÔ•CØ}CÜŠCàdCä¶Cè´Cì·Cð¸CôŽCø‹CüzDÇDmDkD.DwDlDnDoD jD$iD(pD,qD0rD4sD8tD<hD@xDDvDH°DL±DP²DT|DXuD\µD`DdDh6Dl#DpDt&DxD|D€"D„DˆDŒDED”{/usr/local/lib:/usr/local/lib:/usr/lib:/liblibc.ashr.olibreadline.alibreadline.solibcurses.ashr42.o_system_configurationPL_markstack_maxPL_markstack_ptrPL_stack_base PL_stack_maxPL_stack_spPL_sv_undef PL_sv_yesPL_tmps_floorPL_tmps_ixPerl_av_fetchPerl_av_len Perl_av_pushPerl_croak Perl_do_open Perl_formPerl_free_tmpsPerl_gv_stashpvPerl_markstack_growPerl_newAVPerl_newGVgenPerl_newRV Perl_newSViv Perl_newSVpv Perl_newSVsvPerl_newXSPerl_pop_scopePerl_push_scopePerl_safefreePerl_safemallocPerl_save_intPerl_stack_growPerl_sv_2boolPerl_sv_2ioPerl_sv_2ivPerl_sv_2mortalPerl_sv_2pvPerl_sv_blessPerl_sv_derived_from Perl_sv_freePerl_sv_newmortalPerl_sv_setivPerl_sv_setpvPerl_sv_setref_pvPerl_sv_setsv Perl_warn perl_call_svperl_get_svrl_instreamrl_getc_functionrl_pending_inputrl_redisplay_function rl_outstream history_basehistory_comment_charhistory_expansion_charhistory_search_delimiter_charshistory_subst_charhistory_no_expand_chars!history_quotes_inhibit_expansionrl_line_bufferrl_completer_quote_charactersrl_filename_completion_desiredrl_filename_quoting_desiredrl_filename_quote_charactersrl_filename_quoting_function rl_ignore_completion_duplicates$rl_ignore_some_completions_function!rl_attempted_completion_functionrl_filename_dequoting_function#rl_completer_word_break_charactersrl_char_is_quoted_prl_basic_quote_charactersrl_special_prefixesrl_directory_completion_hook#rl_completion_display_matches_hookrl_completion_query_itemsrl_completion_append_characterrl_completion_entry_function rl_last_funcrl_event_hookrl_basic_word_break_charactersrl_erase_empty_linerl_startup_hookrl_already_promptedrl_pre_input_hookrl_catch_signalsrl_catch_sigwinchrl_terminal_namerl_readline_namerl_library_version rl_redisplayhistory_searchhistory_search_prefixfilename_completion_functionrl_get_keymap_namerl_parse_and_bindrl_read_init_filerl_function_dumperrl_invoking_keyseqs_in_maprl_list_funmap_namesrl_function_of_keyseqrl_named_functionrl_generic_bindrl_unbind_command_in_maprl_unbind_function_in_maprl_unbind_key_in_maprl_bind_key_in_map rl_add_defunrl_set_keymaprl_get_keymaprl_get_keymap_by_namerl_funmap_namesrl_initialize_funmaprl_make_bare_keymaprl_on_new_linerl_callback_handler_removerl_callback_read_charrl_callback_handler_installrl_initializerl_set_signalsrl_clear_signalsusername_completion_functioncompletion_matchesrl_display_match_listrl_complete_internalrl_read_keyrl_forced_update_displayrl_begin_undo_grouprl_delete_textrl_insert_textrl_end_undo_group rl_copy_textrl_restore_promptrl_save_promptrl_messagerl_reset_line_staterl_clear_messagerl_on_new_line_with_promptcurrent_historyhistory_tokenizeget_history_eventhistory_arg_extracthistory_expandhistory_getadd_historyhistory_truncate_fileappend_historywrite_historyread_history_range next_historyprevious_historyhistory_set_poshistory_total_byteswhere_historyhistory_is_stifledunstifle_historystifle_historyclear_historyreplace_history_entryremove_historyusing_historyhistory_search_posrl_stuff_charrl_extend_line_bufferrl_discard_keymaprl_make_keymaprl_copy_keymap rl_kill_textrl_do_undo rl_modifyingfree_undo_listrl_add_undorl_free_line_staterl_reset_after_signalrl_cleanup_after_signalrl_resize_terminalrl_reset_terminal rl_prompthistory_lengthmax_input_history#history_inhibit_expansion_functionrl_inhibit_completionrl_executing_keymaprl_binding_keymapboot_Term__ReadLine__Gnu’*”`¢b–€¥‚–À¨â–˜³Ê˜Úšâœ*žX™Œ™˜™Ä™Ð™™(¥™x™‚¨Œ ™˜%™¢®¬ ™¸%™Â°Ì ™Ø%™â²ì ™ø%™´ ™%™"¶, ™8%™B¸L ™X%™bºl ™x%™‚¼Œ ™˜%™¢¾¬ ™¸%™ÂÀÌ ™Ø%™âÂì ™ø%™Ä ™%™"Æ, ™8%™BÈL ™X%™bÊl ™x%™‚ÌŒ ™˜%™¢Î¬ ™¸%™ÂÐÌ ™Ø%™âÒì ™ø%™ Ô ™ %™ "Ö , ™ 8%™ BØ L ™ X%™ bÚ l ™ x%™ ‚Ü Œ ™ ˜%™ ¢Þ ¬ ™ ¸%™ Âà Ì ™ Ø%™ ââ ì ™ ø%™ ä ™ %™ "æ , ™ 8%™ Bè L ™ X%™ bê l ™ x%™ ‚ì Œ ™ ˜%™ ¢î ¬ ™ ¸%™ Âð Ì ™ Ø%™ âò ì ™ ø%™ô ™%™"ö, ™8%™BøL ™X%™búl ™x%™‚üŒ ™˜%™¢þ¬ ™¸%™ÂÌ ™Ø%™âì ™ø%™ ™%™", ™8%™BL ™X%™b l ™x%™‚Œ ™˜%™¢¬ ™¸%™ÂÌ ™Ø%™âì ™ø%™ ™ %™ " , ™ 8%™ B L ™ X%™ b l ™ x%™ ‚ Œ ™ ˜%™ ¢ ¬ ™ ¸%™ Â Ì ™ Ø%™ â" ì ™ ø%™$ ™%™"&, ™8%™B(L ™X%™b*l ™x%™‚,Œ ™˜%™¢.¬ ™¸%™Â0Ì ™Ø%™â2ì ™ø%™4 ™%™"6, ™8%™B8L ™X%™b:l ™x%™‚<Œ ™˜%™¢>¬ ™¸%™Â@Ì ™Ø%™âBì ™ø%™D ™%™"F, ™8%™BHL ™X%™bJl ™x%™‚LŒ ™˜%™¢N¬ ™¸%™ÂPÌ ™Ø%™âRì ™ø%™T ™%™"V, ™8%™BXL ™X%™bZl ™x%™‚\Œ ™˜%™¢^¬ ™¸%™Â`Ì ™Ø%™âbì ™ø%™d ™%™"f, ™8%™BhL ™X%™bjl ™x%™‚lŒ ™˜%™¢n¬ ™¸%™ÂpÌ ™Ø%™ârì ™ø%™t ™%™"v, ™8%™BxL ™X%™bzl ™x%™‚|Œ ™˜%™¢~â˜îšòžúœ@™N€„*™™¤*™Ì/™Ü%™˜&œ.ž2št™~†„*™¨4™â˜òšúžþœD™p9™|*™¬>™ÖŽ>|C™˜H™Ò˜âšêžîœ4™h9™t*™ >™ª–ÖŽFr–¦–°C™Ê–äH™M™(H™HH™‚˜’ššžžœä™šœ,9™:šBœT>™^–Œ*™¬4™æ˜öšþžœH™vž~ 9™žž¦ ¸>™Â–ð*™R™(W™>–H\™\a™lf™|H™Ú˜êšòžöœ<™Pk™Š Žžœ9™® ²žÀ>™Ê–*™R™8W™N–X\™la™|f™ŒH™ê˜úš ž œ L™ x9™ „*™ ¸>™ ôp™!.˜!>š!Fž!Jœ!™!Ô9™"9™"*™"@>™"J–"ˆ>™"’–"Øp™"ðp™#*˜#:š#Bž#Fœ#Œ™#¸9™#Ä*™#ø>™$,%™$j˜$vš$zž$‚œ$È™$Ö€%™%*™%0ý™%@u™%J²%X¬™%l%™%¦˜%¶š%¾ž%Âœ&™&€&d™&”9™& *™&Ð>™&Ú–'>™'–'€ý™'z™'´¬™'Ô%™(˜(š("œ(.ž(p™(Ž€(¸™(À™)¸),„™)T‰™)\Ž™)º˜)Æš)Òœ)îž*(™*F€*Œ™*¼9™*ü“™+9™+“™+&¸+P„™+j–+p‰™+xŽ™+˜™+˜Ž™+Þ˜+îš+òž+öœ,H™,V€, ™,ð9™-0™-<9™-P™-\*™-x%™-¾˜-Êš-Îœ-Úž.™.:€.d™.p¢™.z¸.¤„™.´˜™.¼Ž™.Ð‰™.ØŽ™/˜/.œ/2ž/6š/Œ™/º€/ü™08§™0D9™0T§™0`*™0|p™0Æ˜0Öš0Úž0Þœ10™1b€1p9™1‚€1Ä¬™1Ð™1à¬™1ì*™2p™2N˜2^œ2bž2fš2¼™2Ú€3™3±™3*™38p™3~˜3Žœ3’ž3–š3ì™4€4d™4´9™4ô¶™59™5¶™5 *™5<p™5†˜5–š5šž5žœ5ð™5þ€6H™6”9™6¬»™6àÀ™6ì9™7À™7*™7(p™7n˜7~š7‚ž7†œ7Ø™7æ€8,™8hÅ™8t9™8„Å™8*™8¬p™8ò˜9š9ž9 œ9\™9j€9°™9ìÊ™9ø9™:Ê™:*™:0p™:v˜:‚œ:†ž:Žš:Ð™:ØÏ™:ä*™;%™;R˜;^œ;bž;jš;¬™;´Ô™;À*™;ð%™<.˜<:š<>žš=€™=ˆÞ™=”*™=´p™=ò˜=þš>ž> œ>P™>|9™>„ã™>*™>¼%™>ú˜?œ? ž?š?T™?\è™?h*™?˜%™?Ö˜?âœ?æž?îš@0™@8»™@D*™@dp™@¢˜@®œ@²ž@ºš@ü™Aí™A*™A0p™An˜AzœA~žA†šAÈ™AÐò™AÜ*™Aüp™B:˜BFšBJžBRœB˜™BÐ÷™BÜ9™Bè÷™Bôò™C*™Cp™CZ˜CfœCjžCršC´™C¼ü™D˜DšDžDœD`™D–€D¬9™DÆ€Dð™E™E*™E<%™E–˜E¢šE¦žE®œEô™F 9™F(™F4*™F`%™Fº˜FÆšFÊžFÒœG™G&€GX™G`™G¢˜G®œG²žGºšGü™H™HJ˜HVšHZžHbœH¨™H¶€I™I49™ID™IP*™It%™Iº˜IÆšIÊžIÒœJ™J&€Jt™J¤9™J´™JÀ*™Jä%™K*˜K:šK>žKBœK”™K¢€Kì™LŽLzLšžLÐC™LÞžLøM™MøM™M$™M8™MŽ¸M´„™MÜ‰™MäŽ™NJ˜NZœN^žNbšN¸™Nð9™Nø)™O*™O p™Of˜OrœOvžO~šOÀ™OÈ.™OÔ*™Oôp™P2˜P>œPBžPJšPŒ™P”3™P *™PÀp™Pþ˜Q œQžQšQX™Q`8™Q¦˜Q²œQ¶žQ¾šR™R=™RN˜RZœR^žRfšR¨™R°B™Rö˜SœSžSšSP™SXG™Sž˜SªœS®žS¶šSø™TL™TF˜TRœTVžT^šT ™T¨Q™Tê˜TúšUžUœUL™UZ€U”ý™U ™U¸ý™UÐV™UÜ[™Uô¬™VH™V"V(`™V8M™VJVP`™V’˜V¢šV¦žVªœVü™WP9™WŽžW°9™WÂžWà>™Xe™X,z™X`j™X¨™Yo™Y¢˜Y®œY²žYºšYü™Zt™Z*™Z0p™Zn˜Z~œZ‚žZ†šZÜ™Zú€[(™[0y™[<*™[Xp™[ž˜[ªœ[®ž[¶š[ø™\~™\*™\,p™\j˜\vš\zž\‚œ\È™\ô9™\üƒ™]*™]$p™]b˜]nš]rž]zœ]À™]Ôk™]ä™]ð*™^p™^J˜^Vœ^Zž^bš^¤™^¬ˆ™^¸*™^Øp™_˜_&œ_*ž_.š_„™_¢*_Ö*_è9™_ú*`(™`49™`D™`P*™`lp™`¶˜`Æœ`Êž`Îša$™aB*av*aˆ9™aš*aÈ’™aÔ9™aä’™að*™b%™bV˜bfœbjžbnšbÄ™bâ*c*c(9™c:*ch—™ct9™c„—™c*™c¬p™cö˜dšdždœdT™db€d”™dœœ™d¨*™dÄp™e˜eœežeše\™ed¡™eª˜e¶œeºžeÂšf™f¦™fR˜f^œfbžfjšf¬™f´«™fÀ*™fàp™g˜g*šg.žg6œg|™gŠ€g¼™gÄ°™gÐ*™gìp™h*˜h6œh:žhBšh„™hŒµ™h˜*™h¸p™hö˜iœižišiP™iXº™id*™i„p™iÂ˜iÎœiÒžiÚšj™j$¿™j0*™jPp™jŽ˜jšœjžžj¦šjè™jðÄ™jü*™kp™kZ˜kfœkjžkršk´™k¼™l˜lœlžlšlp™lŽ*lÂ*lÔ9™læ*mÉ™m 9™m0É™m<*™mXp™m¢˜m®œm²žmºšmü™nÎ™n*™n0p™nn˜nzœn~žn†šnÈ™nÐÓ™o˜o"šo&žo.œot™o¸9™oè9™p€p49™pN€px™p”Ø™pÖ˜pâœpæžpîšq0™q8Ý™qD*™qdp™q¢˜q®œq²žqºšqü™râ™r*™r0p™rnžrzšr~œr‚˜r¼™rÌç™s¸s8„™s`‰™shŽ™s¶žsÂšsÆœsÊ˜t™tTtR¸tt„™t¤‰™t¬Ž™u ˜uœužu"šud™ulì™u²˜uÂœuÆžuÊšv ™vX9™v`ñ™v¦˜v¶švÂœvþžw™w4ö™wt9™w„™wœû™w°™wÀö™x9™x™x$™xj¸x„™x¸‰™xÀŽ™y&˜y2šy>œyZžy™y®€yÖžyð™yúžzû™z$ö™zh9™zx™zŒ™zœ*™z¦žzÐ>™{4™{ 4™{8%™{B¸{h„™{|˜™{„Ž™{Ê˜{Úš{âž{æœ|,™|Dö™|„9™|”™|¨*™|Ä%™|þ˜}š}ž}œ}`™}n€} ™}¨ ™}´*™}Ô4™~˜~"š~&œ~fž~|™~”ö™~Ô9™~ä™09™pµ™|9™µ™œ*™¸p™þ˜€œ€ž€š€l™€Š€€¸™€À™€Ì*™€èp™.˜:š>žFœŒ™š€Ì™Ô™‚˜‚"š‚*ž‚2œ‚„™‚’€‚à™ƒ"žƒ<™ƒFžƒ\û™ƒpö™ƒ´9™ƒÄ™ƒÜ™ƒè*™„p™„F˜„Vš„^œ„¢ž„¸™„Æ€…ö™…™…,ö™…p9™…€™…˜û™…´™…Äö™†9™†™†0™†<*™†Xp™†š˜†ªš†²œ†öž‡™‡€‡Xö™‡d™‡€ö™‡Ä9™‡Ô™‡ìû™ˆ™ˆö™ˆ\9™ˆl™ˆ„™ˆ*™ˆ¬p™ˆò˜‰š‰ž‰ œ‰\™‰j€‰šž‰´™‰¾ž‰Ôû™‰èö™Š,9™Š<™ŠL™ŠX*™Štp™Š¶˜ŠÊšŠÎœ‹ž‹$™‹<ö™‹|9™‹Œ™‹¤û™‹¸#™‹Èö™Œ9™Œ™Œ,#™Œ8*™ŒTp™Œš˜ŒªšŒ®žŒ²œ™.žH9™Ržhû™|ö™À9™Ð™à(™ì*™Žp™ŽJ˜ŽZšŽbœŽ¦žŽ¼™Žôö™9™ö™`9™p™ˆû™ -™°ö™ô9™™-™$*™@p™‚˜’ššžžœä™üö™‘<9™‘L™‘X2™‘d*™‘€%™‘º˜‘Êš‘Òž‘Öœ’™’*€’\™’d7™’p*™’4™’Ê˜’Úš’âž’æœ“,™“Dö™“„9™“”™“ <™“¨*™“È4™”˜”œ”ž”š”`™”hû™”t*™”˜4™”Ò˜”âš”êž”îœ•4™•Lö™•Œ9™•œ™•¨A™•°*™•Ð4™– ˜–œ–"ž–&š–h™–pF™–|*™– 4™–Ú˜–êš–òž–öœ—<™—Tö™—”9™—¤™—°K™—¼*™—Ü4™˜˜˜&œ˜.ž˜2š˜t™˜|P™˜ˆ*™˜¬4™˜æ˜˜öš˜þœ™Bž™X™™f€™¬™š9™šd>™šn–š M™šÄU™šÐ*™šð4™›6˜›Fœ›Jž›Nš›¤™›Â€›ð™›øZ™œ*™œ(%™œz˜œ~„œ’œœ¬_™œºšœ¾¸„™‰™Ž™4„™F–Rž\d™Ÿ„Ÿ˜Ÿ&œŸL_™ŸZšŸf¸Ÿ”„™Ÿ¤˜™Ÿ¬Ž™ŸÜ„™Ÿì˜™ŸôŽ™Ÿþž d™ Vœ hi™ rŒ xn™ ‚„ †˜ Š ¬_™ ºž ¾š äd™ ü™¡<s™¡Dx™¡~œ¡˜}™¡¼‰™¡ÄŽ™¡Ô‚™¡ö–¡ø‚™¢‰™¢Ž™¢,‚™¢F„¢J˜¢d_™¢rš¢~¸¢¬„™¢¼\™¢ÄŽ™¢ô„™£˜™£Ž™£<„™£L˜™£TŽ™£^ž£td™£Âœ£Øi™£âŒ£èn™£ò„£ö˜£ú¤_™¤*š¤.¸¤p„™¤„‰™¤ŒŽ™¤¤„™¤¶–¤Ü„™¤ì˜™¤ôŽ™¤þž¥d™¥,™¥6š¥t9™¥”s™¥œx™¥Öœ¥èi™¥òŒ¥øn™¦¦ –¦(‰™¦0Ž™¦>„¦B˜¦\_™¦jš¦v¸¦¤„™¦²ž¦Èd™¦à™¦îš§€§,9™§>€§d™§|¥™§´s™§¼x™¨œ¨i™¨&Œ¨,n™¨6„¨:˜¨>¨`_™¨nš¨r¸¨´„™¨È‰™¨ÐŽ™¨ð„™©–©<„™©P‰™©XŽ™©–ž© d™©æ€©þ€ª4™ªb€«Xs™«`x™«–œ«¬i™«¶Œ«¼n™«Æ„«Ê˜«Î«ð_™«þš¬¸¬D„™¬X‰™¬`Ž™¬x„™¬Š–¬°„™¬À˜™¬ÈŽ™¬Òž¬èd™™ šH9™hs™px™ªœÀi™ÊŒÐn™Ú„Þ˜â®_™®š®¸®X„™®l‰™®tŽ™®Œ„™®ž–®Ä„™®Ô˜™®ÜŽ™®æž®üd™¯™¯€¯\™¯ˆs™¯x™¯Êœ¯äi™¯îŒ¯ôn™¯þ„°˜°°(_™°6š°:¸°|„™°‰™°˜Ž™°°„™°Â–°è„™°ø˜™±Ž™±8„™±L‰™±TŽ™±l„™±~–±Šž±”d™±¬™±º€±ô™² s™²(x™²bœ²|i™²†Œ²Œn™²–„²š˜²ž²À_™²Îš²Ò¸³„™³(‰™³0Ž™³H„™³Z–³f²³„™³¤‰™³¬Ž™³Ì„™³Þ–´„™´˜™´Ž™´L„™´\˜™´dŽ™´nž´„d™´¨z™´Ú€´ê€µ ™µR€¶Ps™¶Xx™¶’œ¶¨i™¶²Œ¶¸n™¶Â„¶Æ˜¶Ê¶ì_™¶úš¶þ¸·@„™·T‰™·\Ž™·t„™·†–·¬„™·¼˜™·ÄŽ™·Îž·äd™·ü™¸€¸D™¸ps™¸xx™¹ ý™¹,z™¹6œ¹P¢™¹¨‡™¹¶Tº,ý™º<z™ºP¬™º”ø™ºÊ ºò¢»¤»B¦»jª»’¬»º‚»â„¼ ˆ¼2Š¼ZŒ¼‚’¼ª”¼Ò˜¼ú¢½"¤½J¦½r¨½šª½Â¬½ê®¾°¾:´¾b¶¾Šº¾²¼¾Ú¾¿À¿*Â¿RÄ¿zÆ¿¢È¿ÊÊ¿òÌÀÎÀBÐÀjÒÀ’ÔÀºÖÀâØÁ ÚÁ2ÜÁZÞÁ‚àÁªâÁÒäÁúæÂ"èÂJêÂrìÂšîÂÂðÂêòÃôÃ:öÃbúÃŠüÃ²þÃÚÄÄ*ÄRÄzÄ¢ ÄÊÄòÅÅBÅjÅ’ÅºÅâÆ Æ2 ÆZ"Æ‚$Æª&ÆÒ(Æú,Ç".ÇJ0Çr2Çš4ÇÂ6Çê8È:È:<Èb>ÈŠ@È²BÈÚDÉFÉ*HÉRJÉzLÉ¢NÉÊPÉòRÊVÊBXÊjZÊ’\Êº^Êâ`Ë bË2dËZfË‚hËªjËÒlËúnÌ"pÌJrÌrtÌšvÌÂxÌêzÍ|Í:~Íb€ÍŠ‚Í²†ÍÚˆÎŠÎ*ŽÎR’Îz”Î¢–ÎÊ˜Îòž7ÿ7ý7û7ù7 ÷7(õ70ó78ñ7@ï7Hí7Pë7Xé7`ç7hå7pã7xá7€L7ˆ7F7˜7 7¤\7¨7°7´^7¸7ÀB7È7Ð.7Ø7à(7ä7è7ð07ø 8488,8 8 :8(80888@P8H8P<8X8`8l8x8„"8 8œ>8¨@8´*8À"8Ì$8Ø 8ä8ð8ü999 9,98J9DR9PT9\N9h9t9€Z9ŒV9˜X9¤H9°69¼29È 9Ô&9à89ì9ø:¿::³::±: :(¯:,:4:8:@«:D:L©:P:X§:\:d¥:h:p£:t:|¡:€:ˆŸ:Œ:”:˜: ›:¤:¬™:°:¸—:¼:Ä•:È:ÐÓ:Ô:ÜÑ:à:èÏ:ì:ôÍ:ø;Ë;;É;;Õ;;$Ç;(;0Å;4;<Ã;@;HÁ;L;T¿;X;`½;d;l»;p;x¹;|;„‘;ˆ;;”;œ; ;¨‹;¬;´‰;¸;À‡;Ä;Ì…;Ð;Øƒ;Ü;ä;è;ð;ô;ü}<<{<<y<< w<$<,u<0<8s<<'>>%>>#>>$!>(>0>4><>@>H>L>T>X>`>d>l>p>x>|>„>ˆ>>”>œ > >¨>¬>´ >¸>À>Ä>Ì>Ð>Ø>Ü>ä>è>ðÿ>ô>üý??û??ù?? ÷?$?,õ?0?8ó?<?Dñ?H?Pï?T?\í?`?hë?l?té?x?€ç?„?Œå??˜ã?œ?¤á?¨?°ß?´?¼Ý?À?ÈÛ?Ì?ÔÙ?Ø?à×?ä?ìÕ?ð?øÓ?ü@Ñ@@Ï@@Í@ @(Ë@,@4É@8@@Ç@D@LÅ@P@XÃ@\@dÁ@h@p“@t@|@€@„@ˆ2@Œ6@:@”ß@˜x@œN@ Ž@¤J@¨!@¬b@°„@´#@¸%@¼'@À)@Ä+@È-@Ì/@Ð1@Ô3@Ø5@Ü7@à9@ä;@è=@ì?@ðA@ôC@øE@üGAIAKAMAOAQASAUAWA YA$[A(]A,_A0aA4cA8eA<gA@iADkAHmALoAPqATsAXuA\wA`yAd{Ah}AlApAtƒAx…A|‡A€‰A„‹AˆAŒA‘A”“A˜•Aœ—A ™A¤›A¨A¬ŸA°¡A´£A¸¥A¼§AÀ©AÄ«AÈAÌ¯AÐ±AÔ³AØµAÜ·Aà¹Aä»Aè½Aì¿AðÁAôÃAøÅAüÇBÉBËBÍBÏBÑBÓBÕB×B ÙB$ÛB(ÝB,ßB0áB4ãB8åB<çB@éBDëBHíBLïBPñBT>BX4B\€B`*BdDBh†BltBpŠBt.BxÝB|pB€ˆB„<Bˆ`BŒ(B&B”B˜BœXB LB¤ZB¨RB¬zB°rB´‚B¸ôB¼BÀˆBÄÄBÈ8BÌnBÐ^BÔvBØÆBÜ\BàÈBäÊBèÐBìÒBðÔBôÖBøàBüðCbC`CØCÚCÜCÞCÌCÂC âC$äC(æC,èC0êC4ìC8ÎC<îC@žCDdCHCL CP~CT¤CXœC\šC`Cd ChClCp’Ct”CxhC|jC€óC„–CˆFCŒDC¢C”¨C˜Cœ˜C òC¤\C¨¦C¬C°üC´´C¸®C¼°CÀ¶CÄ¸CÈ¾CÌºCÐ¼CÔÀCØCÜªCà^CäCèþCìCðCô²Cø¬CüŠD$DpDlD|D„DnDrDtD jD$hD(vD,xD0zD4|D8~D<fD@†DD‚DHöDLøDPúDTŽDX€D\D`0DdTDhŒDlfDp@DtlDxBD|PD€dD„VDˆHDŒ,D D”Œfree strlen &7H^kx¤ÃÖî<[w”±Ñõ5Xl†š·Úô0=Kj~Ž¢´Å×èùrl_getc ( > [ n € ’ ¥ À Õ ë ý & @ U h u ƒ ‘ xmalloc § · Ì à ï < J Y j ‡ š ° Å ding Ñ ê þ . ; M \ g { Œ § · È Ú î ý + : H [ h y ‰ « ¾ Ï Þ ì 2 @ V h w † “ readline ž « º Æ Ù ï , 6 E Wrl_endrl_pointrl_mark zrl_donefunmap ¤tgetstr PL_SvPL_Xpv ¶ ÇPL_na Ø æ ó ÿ#. < H U ` m w † – ª µ Ã Î Û è õ - = K [ i u ‘ « À Í ß í û % 2 TOC@|kfree@|kstrlen@€k@„k Ç@ˆk Ø@Œk ó@k_$STATIC@”k‘@˜km@œk 2@ kU@¤k >@¨kõ@¬kí@°k e@´k @¸k ¼@¼k ç@Àk@Äk?@Èkh@Ìk’@ÐkÃ@Ôkñ@Øk@ÜkC@àkr@äk @èkÕ@ìk@ðk:@ôkg@øk”@ükÁAkîAkAkOAkAkAkÝAkAk=A klA$k™A(kÀA,kêA0kA4k8A8k`A<k”A@k¾ADkôAHk#ALkJAPkvATk AXkÍA\k÷A`k!AdkIAhkqAlk˜Apk»AtkäAxk A|k:A€kZA„k‹AˆkÂAŒkóAk)A”k\A˜kŠAœk»A kéA¤kA¨k?A¬koA°kA´kÕA¸k A¼k6AÀk]AÄk‡AÈk¸AÌkáAÐkAÔk7AØkeAÜkŽAàk¹AäkàAèkAìk:AðkfAôkŽAøk¸AükéBkBkEBknBk˜BkÉBkóBk#BkQB k}B$k§B(kÜB,kB0k0B4kZB8k‰B<k¸B@kåBDkBHkCBLksBPkBTkPL_naBXkÍB\ktgetstrB`k0BdkûBhkuBlk BpkPL_XpvBtkBxk[B|k B€k ÿB„kèBˆk ¤BŒk Bk^B”kB˜kµBœk`B kÃB¤k†B¨kB¬kiB°kßB´k @B¸kB¼kxmallocBÀk·BÄk æBÈkKBÌkÛBÐkBÔkÈBØkÎBÜkÚBàkîBäkBèk+Bìk:BðkHBôkBøk Bük(CkCk[CkhCkyCk‰CkýCk§Ck«C k¾C$kÏC(kÞC,kìC0k C4k C8k C<kjC@k>CDk–CHk‡CLkÀCPk°CTkYCXkJC\k C`k ÙCdk ÆChk ïClkïCpk CtkCxk-C|k¸C€k C„k<Cˆk.CŒkšCkdingC”k C˜k<Cœk 2C krl_getcC¤kÅC¨krl_endC¬k †C°k.C´kþC¸k C¼k;CÀkMCÄk{CÈk\CÌkgCÐkŒCÔkàCØkÑCÜkCàk žCäk “Cèk «Cìk ºCðkCôkêCøk§CükfunmapDkÀDk’Dk«DkƒDk¥DkÕDkëDk€D knD$kýD(k D,k&D0k@D4kUD8k[D<k‘D@kuDDk VDHk hDLk wDPkÌDTkhDXkreadlineD\k ¶D`k–Ddk %DhkDlkDpk=Dtk#DxkwD|kD€kªD„kHDˆkPL_SvDŒkDk·D”k ¡ÿþùgstrcpy.s¤ÿþg.strcpy`)strcmp.s§ÿþg.strcmp€0)moveeq.s²ÿþg.bcopyÀ×).ovbcopyÀ¨._moveeqà¨.memcpyà¨.memmoveà¨ptrgl.s¹ÿþg._ptrgl˜k0._ptrgl˜³.$PTRGL˜³.fileõÿþgGnu.cÑëÈk¶ È ½ 2Ü ½ V ½ ‡à ½ ·Ð ½ ç€ ½!ä ½!EØ ½!uè ½! !, ½!Ë#( ½!ö$d ½",%¤ ½"W( ½"„)´ ½"³+Ø ½"ä-¸ ½#/ ½#A0À ½#l2H ½#–3x ½#Å5€ ½#ô7h ½$&8ì ½$Q:p ½$z;L ½$§<( ½$Ó= ½%=ì ½%+>ô ½%W?Ð ½%@œ ½%°Ah ½%ÝB4 ½&CT ½&2Cü ½&dE ½&F´ ½&·Gœ ½&áHD ½'I´ ½'SK$ ½'‚ND ½'³O` ½'àP, ½(Pø ½(:Q ½(lRH ½(›Rð ½(ÏS˜ ½)T@ ½)8Tè ½)pVŒ ½)¢Yœ ½)ÃZh ½)ñ[˜ ½*\d ½*E]\ ½*i^D ½*‘_ ½*º`° ½*ãbP ½+cð ½+9dü ½+ge¤ ½+’fL ½+¿g ½+çh$ ½,hð ½,Ni¼ ½,yjˆ ½,®kT ½,×kü ½-mœ ½-'nh ½-Ro ½-zpÐ ½-¨qœ ½-Ørh ½.s° ½.:u ½.ku¬ ½.šv¤ ½.Ëy ½.ý{È ½/.|ü ½/\~ ½/Šø ½/¸( ½/æ‚ ½0„D ½0M†˜ ½0ƒˆì ½0²Š´ ½0âŒ” ½1 ŽH ½16€ ½1e‘¸ ½1—’È ½1Â” ½1ì”Ð ½2– ½2F–Ø ½2r˜ ½2¢˜ä ½2Ë›0 ½2óœp k½.fw_15ˆ k½.fw_14 k½.fw_13¸ k½.fw_12Ð k½.fw_11è k½.fw_10ž k½.fw_09ž k½.fw_08ž0 k½.fw_07žH k½.fw_06ž` k½.fw_05žx k½.fw_04ž k½.fw_03ž¨ k½.fw_02žÀ k½.fw_01žØ k½.fw_00žð k½3 Ÿ k½3 L k½36¡t k½3_£ k½3w£¸ k½3£¥Ì k½3Æ§ì k½3ð«Œ k½4 k½4/¯À k½4R²X k½4y¶ˆ k½4œ¸¨ k½4¸¸À k½4Ï¸Ø k½4ã¸ð k½4ù¹ k½5¹” k½.dupstrº k½.xfreeº€ k½Ïk_$STATICk:fw_15:Äk fw_14:¸k fw_13:¬k fw_12: k fw_11:”k fw_10:ˆk fw_09:|k fw_08:pk fw_07:dk fw_06:Xk fw_05:Lk fw_04:@k fw_03:4k fw_02:(k fw_01:k fw_00:k 37;xk 3`;lk 3x;`k 3¤;Tk 3Ç;Hk 3ñ;<k 4;0k 40;$k 4ú;k 4S;k –;k 4:ôk 4¹:èk 4Ð:Ük 4ä:Ðk : >;„ e; ;œ ¼;¨ ç;´ ;À ?;Ì h;Ø ’;ä Ã;ð ñ;ü < C< r< <, Õ<8 ‹> Â> ó>$ )>0 \>< Š>H »>T é>` >l ?>x o>„ > Õ>œ >¨ 6>´ ]>À ‡>Ì ¸>Ø á>ä >ð 7>ü e? Ž? ¹? à?, ?8 :?D f?P Ž?\ ¸?h é?t ?€ E?Œ n?˜ ˜?¤ É?° ó?¼ #?È Q?Ô }?à §?ì Ü?ø @ 0@ Z@ ‰@( ¸@4 å@@ @L C@X s@d ¸@pk glink.súÿþg.freek(.freeöglink.sÿÿþg.strlen(k(.strlen(ûglink.sÿþg5"ÈØk(5"ÈØglink.s ÿþg.rl_getcÆ¨k(.rl_getcÆ¨glink.sÿþg50ºÈk(50ºÈ glink.sÿþg5=ºðk(5=ºðglink.sÿþg5H»k(5H»glink.sÿþg5U»@k(5U»@glink.s"ÿþg5a»hk(5a»hglink.s'ÿþg5m»k(5m»#glink.s,ÿþg5|»¸k(5|»¸(glink.s1ÿþg.tgetstr»àk(.tgetstr»à-glink.s6ÿþg5¼k(5¼2glink.s;ÿþg5¢¼0k(5¢¼07glink.s@ÿþg5¯¼Xk(5¯¼X<glink.sEÿþg5º¼€k(5º¼€Aglink.sJÿþg5É¼¨k(5É¼¨Fglink.sOÿþg5Ø¼Ðk(5Ø¼ÐKglink.sTÿþg5æ¼øk(5æ¼øPglink.sYÿþg5õ½ k(5õ½ Uglink.s^ÿþg6½Hk(6½HZglink.scÿþg6½pk(6½p_glink.shÿþg6 ½˜k(6 ½˜dglink.smÿþg6/½Àk(6/½Àiglink.srÿþg6<½èk(6<½ènglink.swÿþg6K¾k(6K¾sglink.s|ÿþg.xmalloc¾8k(.xmalloc¾8xglink.sÿþg6b¾`k(6b¾`}glink.s†ÿþg6t¾ˆk(6t¾ˆ‚glink.s‹ÿþg6…¾°k(6…¾°‡glink.sÿþg6“¾Øk(6“¾ØŒglink.s•ÿþg6¤¿k(6¤¿‘glink.sšÿþg6·¿(k(6·¿(–glink.sŸÿþg6Å¿Pk(6Å¿P›glink.s¤ÿþg6Ú¿xk(6Ú¿x glink.s©ÿþg6ê¿ k(6ê¿ ¥glink.s®ÿþg7¿Èk(7¿Èªglink.s³ÿþg7¿ðk(7¿ð¯glink.s¸ÿþg7 Àk(7 À´glink.s½ÿþg74À@k(74À@¹glink.sÂÿþg7CÀhk(7CÀh¾glink.sÇÿþg7WÀk(7WÀÃglink.sÌÿþg7nÀ¸k(7nÀ¸Èglink.sÑÿþg7~Ààk(7~ÀàÍglink.sÖÿþg7ŒÁk(7ŒÁÒglink.sÛÿþg7žÁ0k(7žÁ0×glink.sàÿþg7¯ÁXk(7¯ÁXÜglink.såÿþg7ÄÁ€k(7ÄÁ€áglink.sêÿþg7ÑÁ¨k(7ÑÁ¨æglink.sïÿþg7âÁÐk(7âÁÐëglink.sôÿþg7öÁøk(7öÁøðglink.sùÿþg8Â k(8Â õglink.sþÿþg8ÂHk(8ÂHúglink.sÿþg8'Âpk(8'Âpÿglink.sÿþg8>Â˜k(8>Â˜glink.s ÿþg8NÂÀk(8NÂÀ glink.sÿþg8[Âèk(8[Âèglink.sÿþg8jÃk(8jÃglink.sÿþg8ˆÃ8k(8ˆÃ8glink.s!ÿþg8¦Ã`k(8¦Ã`glink.s&ÿþg8ºÃˆk(8ºÃˆ"glink.s+ÿþg8ÈÃ°k(8ÈÃ°'glink.s0ÿþg8ÞÃØk(8ÞÃØ,glink.s5ÿþg8ðÄk(8ðÄ1glink.s:ÿþg9Ä(k(9Ä(6glink.s?ÿþg9ÄPk(9ÄP;glink.sDÿþg9+Äxk(9+Äx@glink.sIÿþg9?Ä k(9?Ä Eglink.sNÿþg9XÄÈk(9XÄÈJglink.sSÿþg9tÄðk(9tÄðOglink.sXÿþg9‹Åk(9‹ÅTglink.s]ÿþg9šÅ@k(9šÅ@Yglink.sbÿþg9«Åhk(9«Åh^glink.sgÿþg9ÈÅk(9ÈÅcglink.slÿþg9ÕÅ¸k(9ÕÅ¸hglink.sqÿþg9äÅàk(9äÅàmglink.svÿþg.dingÆk(.dingÆrglink.s{ÿþg9ûÆ0k(9ûÆ0wglink.s€ÿþg:ÆXk(:ÆX|glink.s…ÿþg:Æ€k(:Æ€glink.sŠÿþg:,ÆÐk(:,ÆÐ†glink.sÿþg:9Æøk(:9Æø‹glink.s”ÿþg:GÇ k(:GÇ glink.s™ÿþg:UÇHk(:UÇH•glink.sžÿþg:eÇpk(:eÇpšglink.s£ÿþg:uÇ˜k(:uÇ˜Ÿglink.s¨ÿþg:ˆÇÀk(:ˆÇÀ¤glink.sÿþg:˜Çèk(:˜Çè©glink.s²ÿþg:ªÈk(:ªÈ®glink.s·ÿþg:¶È8k(:¶È8³glink.s¼ÿþg:ËÈ`k(:ËÈ`¸glink.sÁÿþg:çÈˆk(:çÈˆ½glink.sÆÿþg:÷È°k(:÷È°Âglink.sËÿþg;Ék(;ÉÇglink.sÐÿþg;É(k(;É(Ìglink.sÕÿþg;+ÉPk(;+ÉPÑglink.sÚÿþg;;Éxk(;;ÉxÖglink.sßÿþg;HÉ k(;HÉ Ûglink.säÿþg;[ÉÈk(;[ÉÈàglink.séÿþg;pÉðk(;pÉðåglink.sîÿþg;Êk(;Êêglink.sóÿþg;—Ê@k(;—Ê@ïglink.søÿþg;«Êhk(;«Êhôglink.sýÿþg;ÁÊk(;ÁÊùglink.sÿþg;ÐÊ¸k(;ÐÊ¸þglink.sÿþg;ìÊàk(;ìÊàglink.sÿþg<Ëk(<Ëglink.sÿþg<Ë0k(<Ë0 glink.sÿþg<)ËXk(<)ËXglink.sÿþg<<Ë€k(<<Ë€glink.s ÿþgÿþg<×Ì˜k(<×Ì˜:glink.sCÿþg<æÌÀk(<æÌÀ?glink.sHÿþg<ùÌèk(<ùÌèDglink.sMÿþg= Ík(= ÍIglink.sRÿþg=Í8k(=Í8Nglink.sWÿþg=.Í`k(=.Í`Sglink.s\ÿþg=<Íˆk(=<ÍˆXglink.saÿþg=FÍ°k(=FÍ°]glink.sfÿþg=[ÍØk(=[ÍØbglink.skÿþg=iÎk(=iÎgglink.spÿþg=zÎ(k(=zÎ(lglink.suÿþg=‰ÎPk(=‰ÎPqglink.szÿþg=™Îxk(=™Îxvglink.sÿþg=©Î k(=©Î {glink.s„ÿþg=µÎÈk(=µÎÈ€glink.sÿÿÿÿÿþg=ÃÎðk(=ÃÎð…=Ù_system_configurationrl_instreamrl_getc_functionrl_pending_inputrl_redisplay_functionrl_outstreamhistory_basehistory_comment_charhistory_expansion_charhistory_search_delimiter_charshistory_subst_charhistory_no_expand_charshistory_quotes_inhibit_expansionrl_line_bufferrl_completer_quote_charactersrl_filename_completion_desiredrl_filename_quoting_desiredrl_filename_quote_charactersrl_filename_quoting_functionrl_ignore_completion_duplicatesrl_ignore_some_completions_functionrl_attempted_completion_functionrl_filename_dequoting_functionrl_completer_word_break_charactersrl_char_is_quoted_prl_basic_quote_charactersrl_special_prefixesrl_directory_completion_hookrl_completion_display_matches_hookrl_completion_query_itemsrl_completion_append_characterrl_completion_entry_functionrl_last_funcrl_event_hookrl_basic_word_break_charactersrl_erase_empty_linerl_startup_hookrl_already_promptedrl_pre_input_hookrl_catch_signalsrl_catch_sigwinchrl_terminal_namerl_readline_namerl_library_versionrl_redisplayhistory_searchhistory_search_prefixfilename_completion_functionrl_get_keymap_namerl_parse_and_bindrl_read_init_filerl_function_dumperrl_invoking_keyseqs_in_maprl_list_funmap_namesrl_function_of_keyseqrl_named_functionrl_generic_bindrl_unbind_command_in_maprl_unbind_function_in_maprl_unbind_key_in_maprl_bind_key_in_maprl_add_defunrl_set_keymaprl_get_keymaprl_get_keymap_by_namerl_funmap_namesrl_initialize_funmaprl_make_bare_keymaprl_on_new_linerl_callback_handler_removerl_callback_read_charrl_callback_handler_installrl_initializerl_set_signalsrl_clear_signalsusername_completion_functioncompletion_matchesrl_display_match_listrl_complete_internalrl_read_keyrl_forced_update_displayrl_begin_undo_grouprl_delete_textrl_insert_textrl_end_undo_grouprl_copy_textrl_restore_promptrl_save_promptrl_messagerl_reset_line_staterl_clear_messagerl_on_new_line_with_promptcurrent_historyhistory_tokenizeget_history_eventhistory_arg_extracthistory_expandhistory_getadd_historyhistory_truncate_fileappend_historywrite_historyread_history_rangenext_historyprevious_historyhistory_set_poshistory_total_byteswhere_historyhistory_is_stifledunstifle_historystifle_historyclear_historyreplace_history_entryremove_historyusing_historyhistory_search_posrl_stuff_charrl_extend_line_bufferrl_discard_keymaprl_make_keymaprl_copy_keymaprl_kill_textrl_do_undorl_modifyingfree_undo_listrl_add_undorl_free_line_staterl_reset_after_signalrl_cleanup_after_signalrl_resize_terminalrl_reset_terminalrl_prompthistory_lengthmax_input_historyhistory_inhibit_expansion_functionrl_inhibit_completionrl_executing_keymaprl_binding_keymapPL_markstack_maxPL_markstack_ptrPL_stack_basePL_stack_maxPL_stack_spPL_sv_undefPL_sv_yesPL_tmps_floorPL_tmps_ixPerl_av_fetchPerl_av_lenPerl_av_pushPerl_croakPerl_do_openPerl_formPerl_free_tmpsPerl_gv_stashpvPerl_markstack_growPerl_newAVPerl_newGVgenPerl_newRVPerl_newSVivPerl_newSVpvPerl_newSVsvPerl_newXSPerl_pop_scopePerl_push_scopePerl_safefreePerl_safemallocPerl_save_intPerl_stack_growPerl_sv_2boolPerl_sv_2ioPerl_sv_2ivPerl_sv_2mortalPerl_sv_2pvPerl_sv_blessPerl_sv_derived_fromPerl_sv_freePerl_sv_newmortalPerl_sv_setivPerl_sv_setpvPerl_sv_setref_pvPerl_sv_setsvPerl_warnperl_call_svperl_get_svXS_Term__ReadLine__Gnu__XS_rl_readlineXS_Term__ReadLine__Gnu__XS_rl_add_defunXS_Term__ReadLine__Gnu__XS_rl_make_bare_keymapXS_Term__ReadLine__Gnu__XS__rl_copy_keymapXS_Term__ReadLine__Gnu__XS_rl_make_keymapXS_Term__ReadLine__Gnu__XS__rl_discard_keymapXS_Term__ReadLine__Gnu__XS_rl_get_keymapXS_Term__ReadLine__Gnu__XS__rl_set_keymapXS_Term__ReadLine__Gnu__XS_rl_get_keymap_by_nameXS_Term__ReadLine__Gnu__XS_rl_get_keymap_nameXS_Term__ReadLine__Gnu__XS__rl_bind_keyXS_Term__ReadLine__Gnu__XS__rl_unbind_keyXS_Term__ReadLine__Gnu__XS__rl_unbind_functionXS_Term__ReadLine__Gnu__XS__rl_unbind_commandXS_Term__ReadLine__Gnu__XS__rl_generic_bind_functionXS_Term__ReadLine__Gnu__XS__rl_generic_bind_keymapXS_Term__ReadLine__Gnu__XS__rl_generic_bind_macroXS_Term__ReadLine__Gnu__XS_rl_parse_and_bindXS_Term__ReadLine__Gnu__XS_rl_read_init_fileXS_Term__ReadLine__Gnu__XS__rl_call_functionXS_Term__ReadLine__Gnu__XS_rl_named_functionXS_Term__ReadLine__Gnu__XS_rl_get_function_nameXS_Term__ReadLine__Gnu__XS_rl_function_of_keyseqXS_Term__ReadLine__Gnu__XS__rl_invoking_keyseqsXS_Term__ReadLine__Gnu__XS_rl_function_dumperXS_Term__ReadLine__Gnu__XS_rl_list_funmap_namesXS_Term__ReadLine__Gnu__XS_rl_get_all_function_namesXS_Term__ReadLine__Gnu__XS_rl_funmap_namesXS_Term__ReadLine__Gnu__XS_rl_begin_undo_groupXS_Term__ReadLine__Gnu__XS_rl_end_undo_groupXS_Term__ReadLine__Gnu__XS_rl_add_undoXS_Term__ReadLine__Gnu__XS_free_undo_listXS_Term__ReadLine__Gnu__XS_rl_do_undoXS_Term__ReadLine__Gnu__XS_rl_modifyingXS_Term__ReadLine__Gnu__XS_rl_redisplayXS_Term__ReadLine__Gnu__XS_rl_forced_update_displayXS_Term__ReadLine__Gnu__XS_rl_on_new_lineXS_Term__ReadLine__Gnu__XS_rl_on_new_line_with_promptXS_Term__ReadLine__Gnu__XS_rl_reset_line_stateXS_Term__ReadLine__Gnu__XS__rl_messageXS_Term__ReadLine__Gnu__XS_rl_clear_messageXS_Term__ReadLine__Gnu__XS_rl_save_promptXS_Term__ReadLine__Gnu__XS_rl_restore_promptXS_Term__ReadLine__Gnu__XS_rl_insert_textXS_Term__ReadLine__Gnu__XS_rl_delete_textXS_Term__ReadLine__Gnu__XS_rl_copy_textXS_Term__ReadLine__Gnu__XS_rl_kill_textXS_Term__ReadLine__Gnu__XS_rl_read_keyXS_Term__ReadLine__Gnu__XS_rl_getcXS_Term__ReadLine__Gnu__XS_rl_stuff_charXS_Term__ReadLine__Gnu__XS_rl_initializeXS_Term__ReadLine__Gnu__XS_rl_reset_terminalXS_Term__ReadLine__Gnu__XS_dingXS_Term__ReadLine__Gnu__XS_rl_display_match_listXS_Term__ReadLine__Gnu__XS_rl_callback_handler_installXS_Term__ReadLine__Gnu__XS_rl_callback_read_charXS_Term__ReadLine__Gnu__XS_rl_callback_handler_removeXS_Term__ReadLine__Gnu__XS_rl_cleanup_after_signalXS_Term__ReadLine__Gnu__XS_rl_free_line_stateXS_Term__ReadLine__Gnu__XS_rl_reset_after_signalXS_Term__ReadLine__Gnu__XS_rl_resize_terminalXS_Term__ReadLine__Gnu__XS_rl_set_signalsXS_Term__ReadLine__Gnu__XS_rl_clear_signalsXS_Term__ReadLine__Gnu__XS_rl_complete_internalXS_Term__ReadLine__Gnu__XS_completion_matchesXS_Term__ReadLine__Gnu__XS_filename_completion_functionXS_Term__ReadLine__Gnu__XS_username_completion_functionXS_Term__ReadLine__Gnu__XS_using_historyXS_Term__ReadLine__Gnu__XS_add_historyXS_Term__ReadLine__Gnu__XS_remove_historyXS_Term__ReadLine__Gnu__XS_replace_history_entryXS_Term__ReadLine__Gnu__XS_clear_historyXS_Term__ReadLine__Gnu__XS_stifle_historyXS_Term__ReadLine__Gnu__XS_unstifle_historyXS_Term__ReadLine__Gnu__XS_history_is_stifledXS_Term__ReadLine__Gnu__XS_where_historyXS_Term__ReadLine__Gnu__XS_current_historyXS_Term__ReadLine__Gnu__XS_history_getXS_Term__ReadLine__Gnu__XS_history_total_bytesXS_Term__ReadLine__Gnu__XS_history_set_posXS_Term__ReadLine__Gnu__XS_previous_historyXS_Term__ReadLine__Gnu__XS_next_historyXS_Term__ReadLine__Gnu__XS_history_searchXS_Term__ReadLine__Gnu__XS_history_search_prefixXS_Term__ReadLine__Gnu__XS_history_search_posXS_Term__ReadLine__Gnu__XS_read_history_rangeXS_Term__ReadLine__Gnu__XS_write_historyXS_Term__ReadLine__Gnu__XS_append_historyXS_Term__ReadLine__Gnu__XS_history_truncate_fileXS_Term__ReadLine__Gnu__XS_history_expandXS_Term__ReadLine__Gnu__XS__history_arg_extractXS_Term__ReadLine__Gnu__XS__get_history_eventXS_Term__ReadLine__Gnu__XS_history_tokenizeXS_Term__ReadLine__Gnu__Var__rl_store_strXS_Term__ReadLine__Gnu__Var__rl_store_rl_line_bufferXS_Term__ReadLine__Gnu__Var__rl_fetch_strXS_Term__ReadLine__Gnu__Var__rl_store_intXS_Term__ReadLine__Gnu__Var__rl_fetch_intXS_Term__ReadLine__Gnu__Var__rl_store_iostreamXS_Term__ReadLine__Gnu__Var__rl_fetch_iostreamXS_Term__ReadLine__Gnu__Var__rl_fetch_keymapXS_Term__ReadLine__Gnu__Var__rl_store_functionXS_Term__ReadLine__Gnu__Var__rl_fetch_functionXS_Term__ReadLine__Gnu__Var__rl_fetch_last_funcXS_Term__ReadLine__Gnu__XS_tgetstrcompletion_entry_function_wrappercallback_handler_wrapperThu Aug 17 14:31:34 2000 IBM C and C++ Compilers Version 3.6.6.3 --- .boot_Term__ReadLine__Gnu.XS_Term__ReadLine__Gnu__XS_tgetstr.XS_Term__ReadLine__Gnu__Var__rl_fetch_last_func.XS_Term__ReadLine__Gnu__Var__rl_fetch_function.XS_Term__ReadLine__Gnu__Var__rl_store_function.XS_Term__ReadLine__Gnu__Var__rl_fetch_keymap.XS_Term__ReadLine__Gnu__Var__rl_fetch_iostream.XS_Term__ReadLine__Gnu__Var__rl_store_iostream.XS_Term__ReadLine__Gnu__Var__rl_fetch_int.XS_Term__ReadLine__Gnu__Var__rl_store_int.XS_Term__ReadLine__Gnu__Var__rl_fetch_str.XS_Term__ReadLine__Gnu__Var__rl_store_rl_line_buffer.XS_Term__ReadLine__Gnu__Var__rl_store_str.XS_Term__ReadLine__Gnu__XS_history_tokenize.XS_Term__ReadLine__Gnu__XS__get_history_event.XS_Term__ReadLine__Gnu__XS__history_arg_extract.XS_Term__ReadLine__Gnu__XS_history_expand.XS_Term__ReadLine__Gnu__XS_history_truncate_file.XS_Term__ReadLine__Gnu__XS_append_history.XS_Term__ReadLine__Gnu__XS_write_history.XS_Term__ReadLine__Gnu__XS_read_history_range.XS_Term__ReadLine__Gnu__XS_history_search_pos.XS_Term__ReadLine__Gnu__XS_history_search_prefix.XS_Term__ReadLine__Gnu__XS_history_search.XS_Term__ReadLine__Gnu__XS_next_history.XS_Term__ReadLine__Gnu__XS_previous_history.XS_Term__ReadLine__Gnu__XS_history_set_pos.XS_Term__ReadLine__Gnu__XS_history_total_bytes.XS_Term__ReadLine__Gnu__XS_history_get.XS_Term__ReadLine__Gnu__XS_current_history.XS_Term__ReadLine__Gnu__XS_where_history.XS_Term__ReadLine__Gnu__XS_history_is_stifled.XS_Term__ReadLine__Gnu__XS_unstifle_history.XS_Term__ReadLine__Gnu__XS_stifle_history.XS_Term__ReadLine__Gnu__XS_clear_history.XS_Term__ReadLine__Gnu__XS_replace_history_entry.XS_Term__ReadLine__Gnu__XS_remove_history.XS_Term__ReadLine__Gnu__XS_add_history.XS_Term__ReadLine__Gnu__XS_using_history.XS_Term__ReadLine__Gnu__XS_username_completion_function.XS_Term__ReadLine__Gnu__XS_filename_completion_function.XS_Term__ReadLine__Gnu__XS_completion_matches.XS_Term__ReadLine__Gnu__XS_rl_complete_internal.XS_Term__ReadLine__Gnu__XS_rl_clear_signals.XS_Term__ReadLine__Gnu__XS_rl_set_signals.XS_Term__ReadLine__Gnu__XS_rl_resize_terminal.XS_Term__ReadLine__Gnu__XS_rl_reset_after_signal.XS_Term__ReadLine__Gnu__XS_rl_free_line_state.XS_Term__ReadLine__Gnu__XS_rl_cleanup_after_signal.XS_Term__ReadLine__Gnu__XS_rl_callback_handler_remove.XS_Term__ReadLine__Gnu__XS_rl_callback_read_char.XS_Term__ReadLine__Gnu__XS_rl_callback_handler_install.XS_Term__ReadLine__Gnu__XS_rl_display_match_list.XS_Term__ReadLine__Gnu__XS_ding.XS_Term__ReadLine__Gnu__XS_rl_reset_terminal.XS_Term__ReadLine__Gnu__XS_rl_initialize.XS_Term__ReadLine__Gnu__XS_rl_stuff_char.XS_Term__ReadLine__Gnu__XS_rl_getc.XS_Term__ReadLine__Gnu__XS_rl_read_key.XS_Term__ReadLine__Gnu__XS_rl_kill_text.XS_Term__ReadLine__Gnu__XS_rl_copy_text.XS_Term__ReadLine__Gnu__XS_rl_delete_text.XS_Term__ReadLine__Gnu__XS_rl_insert_text.XS_Term__ReadLine__Gnu__XS_rl_restore_prompt.XS_Term__ReadLine__Gnu__XS_rl_save_prompt.XS_Term__ReadLine__Gnu__XS_rl_clear_message.XS_Term__ReadLine__Gnu__XS__rl_message.XS_Term__ReadLine__Gnu__XS_rl_reset_line_state.XS_Term__ReadLine__Gnu__XS_rl_on_new_line_with_prompt.XS_Term__ReadLine__Gnu__XS_rl_on_new_line.XS_Term__ReadLine__Gnu__XS_rl_forced_update_display.XS_Term__ReadLine__Gnu__XS_rl_redisplay.XS_Term__ReadLine__Gnu__XS_rl_modifying.XS_Term__ReadLine__Gnu__XS_rl_do_undo.XS_Term__ReadLine__Gnu__XS_free_undo_list.XS_Term__ReadLine__Gnu__XS_rl_add_undo.XS_Term__ReadLine__Gnu__XS_rl_end_undo_group.XS_Term__ReadLine__Gnu__XS_rl_begin_undo_group.XS_Term__ReadLine__Gnu__XS_rl_funmap_names.XS_Term__ReadLine__Gnu__XS_rl_get_all_function_names.XS_Term__ReadLine__Gnu__XS_rl_list_funmap_names.XS_Term__ReadLine__Gnu__XS_rl_function_dumper.XS_Term__ReadLine__Gnu__XS__rl_invoking_keyseqs.XS_Term__ReadLine__Gnu__XS_rl_function_of_keyseq.XS_Term__ReadLine__Gnu__XS_rl_get_function_name.XS_Term__ReadLine__Gnu__XS_rl_named_function.XS_Term__ReadLine__Gnu__XS__rl_call_function.XS_Term__ReadLine__Gnu__XS_rl_read_init_file.XS_Term__ReadLine__Gnu__XS_rl_parse_and_bind.XS_Term__ReadLine__Gnu__XS__rl_generic_bind_macro.XS_Term__ReadLine__Gnu__XS__rl_generic_bind_keymap.XS_Term__ReadLine__Gnu__XS__rl_generic_bind_function.XS_Term__ReadLine__Gnu__XS__rl_unbind_command.XS_Term__ReadLine__Gnu__XS__rl_unbind_function.XS_Term__ReadLine__Gnu__XS__rl_unbind_key.XS_Term__ReadLine__Gnu__XS__rl_bind_key.XS_Term__ReadLine__Gnu__XS_rl_get_keymap_name.XS_Term__ReadLine__Gnu__XS_rl_get_keymap_by_name.XS_Term__ReadLine__Gnu__XS__rl_set_keymap.XS_Term__ReadLine__Gnu__XS_rl_get_keymap.XS_Term__ReadLine__Gnu__XS__rl_discard_keymap.XS_Term__ReadLine__Gnu__XS_rl_make_keymap.XS_Term__ReadLine__Gnu__XS__rl_copy_keymap.XS_Term__ReadLine__Gnu__XS_rl_make_bare_keymap.XS_Term__ReadLine__Gnu__XS_rl_add_defun.XS_Term__ReadLine__Gnu__XS_rl_readline.callback_handler_wrapper.function_wrapper.void_arg_func_wrapper.completion_display_matches_hook_wrapper.pre_input_hook_wrapper.history_inhibit_expansion_function_wrapper.directory_completion_hook_wrapper.ignore_some_completions_function_wrapper.char_is_quoted_p_wrapper.filename_dequoting_function_wrapper.filename_quoting_function_wrapper.attempted_completion_function_wrapper.completion_entry_function_wrapper.redisplay_function_wrapper.getc_function_wrapper.event_hook_wrapper.startup_hook_wrapper.rl_quote_filename.rl_get_function_name.rl_redisplay.Perl_sv_2pv.Perl_form.perl_get_sv.Perl_croak.Perl_newXS.Perl_sv_setpv.Perl_sv_newmortal.Perl_sv_setref_pv.Perl_sv_2iv.Perl_warn.Perl_sv_2bool.Perl_sv_setsv.Perl_newSVsv.Perl_newGVgen.Perl_do_open.Perl_newRV.Perl_gv_stashpv.Perl_sv_bless.Perl_sv_2io.Perl_sv_setiv.rl_extend_line_buffer.history_tokenize.Perl_stack_grow.Perl_newSVpv.Perl_sv_2mortal.get_history_event.Perl_newSViv.history_arg_extract.history_expand.history_truncate_file.append_history.write_history.read_history_range.where_history.history_search_pos.history_search_prefix.history_search.next_history.previous_history.history_set_pos.history_total_bytes.history_get.current_history.history_is_stifled.unstifle_history.stifle_history.clear_history.replace_history_entry.remove_history.add_history.using_history.username_completion_function.filename_completion_function.completion_matches.Perl_sv_free.rl_complete_internal.rl_clear_signals.rl_set_signals.rl_resize_terminal.rl_reset_after_signal.rl_free_line_state.rl_cleanup_after_signal.rl_callback_handler_remove.rl_callback_read_char.Perl_safefree.Perl_safemalloc.rl_callback_handler_install.Perl_av_len.Perl_av_fetch.rl_display_match_list.rl_reset_terminal.rl_initialize.rl_stuff_char.rl_read_key.rl_kill_text.rl_copy_text.rl_delete_text.rl_insert_text.rl_restore_prompt.rl_save_prompt.rl_clear_message.rl_message.rl_reset_line_state.rl_on_new_line_with_prompt.rl_on_new_line.rl_forced_update_display.rl_modifying.rl_do_undo.free_undo_list.rl_add_undo.rl_end_undo_group.rl_begin_undo_group.rl_funmap_names.rl_list_funmap_names.rl_function_dumper.Perl_sv_derived_from.rl_get_keymap.rl_invoking_keyseqs_in_map.rl_function_of_keyseq.rl_named_function.rl_read_init_file.rl_parse_and_bind.rl_generic_bind.rl_unbind_command_in_map.rl_unbind_function_in_map.rl_unbind_key_in_map.rl_bind_key_in_map.rl_get_keymap_name.rl_get_keymap_by_name.rl_set_keymap.rl_discard_keymap.rl_make_keymap.rl_copy_keymap.rl_make_bare_keymap.rl_add_defun.readline.Perl_markstack_grow.perl_call_sv.Perl_push_scope.Perl_save_int.Perl_free_tmps.Perl_pop_scope.Perl_newAV.Perl_av_push.rl_initialize_funmapXS_kê ÝÏ$Z~·:]Û›9ÝÔž:!./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/Gnu.bsó/$kêˆ!Ï$cZ~·:Û›9ÝÔž:!#0‚´c./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/XS/autosplit.ixó/$# Index created by AutoSplit for blib/lib/Term/ReadLine/Gnu/XS.pm # (file acts as timestamp) 1; dLinekê4Ò"Ï¤SZ~·:ØÝ›9ÝÔž:!#0ƒ´S./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/.packlistit.ixó/¤/usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine/Gnu.pm /usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine/Gnu/XS.pm /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/Gnu.bs /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/Gnu.so /usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/XS/autosplit.ix Term_kê¤%Ï$RšZ~·:nç8ÝÔž:!#î´Rš./usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine/Gnu.pmu/.ó/$# # Gnu.pm --- The GNU Readline/History Library wrapper module # # $Id: Gnu.pm,v 1.78 2000-04-03 00:57:51+09 hayashi Exp $ # # Copyright (c) 2000 Hiroo Hayashi. All rights reserved. # # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # # Some of documentation strings in this file are cited from the # GNU Readline/History Library Manual. package Term::ReadLine::Gnu; =head1 NAME Term::ReadLine::Gnu - Perl extension for the GNU Readline/History Library =head1 SYNOPSIS use Term::ReadLine; $term = new Term::ReadLine 'ProgramName'; while ( defined ($_ = $term->readline('prompt>')) ) { ... } =head1 DESCRIPTION =head2 Overview This is an implementation of Term::ReadLine using the GNU Readline/History Library. For basic functions object oriented interface is provided. These are described in the section L<"Standard Methods"|"Standard Methods"> and L<"C Functions"|"C Functions">. This package also has the interface with the almost all functions and variables which are documented in the GNU Readline/History Library Manual. They are documented in the section L<"C Functions"|"C Functions"> and L<"C Variables"|"C Variables"> briefly. For more detail of the GNU Readline/History Library, see 'GNU Readline Library Manual' and 'GNU History Library Manual'. The sample programs under C directory and test programs under C directory in the C distribution include many example of this module. =head2 Standard Methods These methods are standard methods defined by B. =cut use strict; use Carp; { use Exporter (); use DynaLoader; use vars qw($VERSION @ISA @EXPORT_OK); $VERSION = '1.09'; # Term::ReadLine::Gnu::AU makes a function in # `Term::ReadLine::Gnu::XS' as a method. @ISA = qw(Term::ReadLine::Gnu::AU Term::ReadLine::Stub Exporter DynaLoader); @EXPORT_OK = qw(RL_PROMPT_START_IGNORE RL_PROMPT_END_IGNORE NO_MATCH SINGLE_MATCH MULT_MATCH ISFUNC ISKMAP ISMACR UNDO_DELETE UNDO_INSERT UNDO_BEGIN UNDO_END); bootstrap Term::ReadLine::Gnu $VERSION; # DynaLoader } require Term::ReadLine::Gnu::XS; # Global Variables use vars qw(%Attribs %Features); %Attribs = ( MinLength => 1, do_expand => 0, completion_word => [], term_set => ['', '', '', ''], ); %Features = ( appname => 1, minline => 1, autohistory => 1, getHistory => 1, setHistory => 1, addHistory => 1, readHistory => 1, writeHistory => 1, preput => 1, attribs => 1, newTTY => 1, tkRunning => Term::ReadLine::Stub->Features->{'tkRunning'}, ornaments => Term::ReadLine::Stub->Features->{'ornaments'}, stiflehistory => 1, ); sub Attribs { \%Attribs; } sub Features { \%Features; } # # GNU Readline/History Library constant definition # These are included in @EXPORT_OK. # for non-printing characters in prompt string sub RL_PROMPT_START_IGNORE { "\001"; } sub RL_PROMPT_END_IGNORE { "\002"; } # for rl_filename_quoting_function sub NO_MATCH { 0; } sub SINGLE_MATCH { 1; } sub MULT_MATCH { 2; } # for rl_generic_bind, rl_function_of_keyseq sub ISFUNC { 0; } sub ISKMAP { 1; } sub ISMACR { 2; } # for rl_add_undo sub UNDO_DELETE { 0; } sub UNDO_INSERT { 1; } sub UNDO_BEGIN { 2; } sub UNDO_END { 3; } # # Methods Definition # =over 4 =item C returns the actual package that executes the commands. If you have installed this package, possible value is C. =cut sub ReadLine { 'Term::ReadLine::Gnu'; } =item C returns the handle for subsequent calls to following functions. Argument is the name of the application. Optionally can be followed by two arguments for C and C file handles. These arguments should be globs. =cut # The origin of this function is Term::ReadLine::Perl.pm by Ilya Zakharevich. sub new { my $this = shift; # Package my $class = ref($this) || $this; my $name = shift; my $self = \%Attribs; bless $self, $class; # set rl_readline_name before .inputrc is read in rl_initialize() $Attribs{readline_name} = $name; # some version of Perl cause segmentation fault, if XS module # calls setenv() before the 1st assignment to $ENV{}. $ENV{_TRL_DUMMY} = ''; # initialize the GNU Readline Library and termcap library $self->initialize(); # enable ornaments to be compatible with perl5.004_05(?) unless ($ENV{PERL_RL} and $ENV{PERL_RL} =~ /\bo\w*=0/) { local $^W = 0; # Term::ReadLine is not warning flag free # Without the next line Term::ReadLine::Stub::ornaments is used. # Why does Term::ReadLine::Gnu::AU selects it at first?!!! # If you know why this happens, please let me know. Thanks. undef &Term::ReadLine::Gnu::ornaments; $self->ornaments(1); } if (!@_) { my ($IN,$OUT) = $self->findConsole(); open(IN,"<$IN") || croak "Cannot open $IN for read"; open(OUT,">$OUT") || croak "Cannot open $OUT for write"; $Attribs{instream} = \*IN; $Attribs{outstream} = \*OUT; } else { $Attribs{instream} = shift; $Attribs{outstream} = shift; } $self; } sub DESTROY {} =item C gets an input line, with actual C support. Trailing newline is removed. Returns C on C. C is an optional argument meaning the initial value of input. The optional argument C is granted only if the value C is in C. C may include some escape sequences. Use C to begin a sequence of non-printing characters, and C to end of such a sequence. =cut # to peacify -w $Term::ReadLine::registered = $Term::ReadLine::registered; sub readline { # should be ReadLine my $self = shift; my ($prompt, $preput) = @_; # ornament support (now prompt only) # non-printing characters must be told to readline $prompt = RL_PROMPT_START_IGNORE . ${$Attribs{term_set}}[0] . RL_PROMPT_END_IGNORE . $prompt . RL_PROMPT_START_IGNORE . ${$Attribs{term_set}}[1] . RL_PROMPT_END_IGNORE; # `completion_function' support for compatibility with # Term:ReadLine::Perl. Prefer $completion_entry_function, since a # program which uses $completion_entry_function should know # Term::ReadLine::Gnu and have better completion function using # the variable. $Attribs{completion_entry_function} = $Attribs{_trp_completion_function} if (!defined $Attribs{completion_entry_function} && defined $Attribs{completion_function}); # TkRunning support if (not $Term::ReadLine::registered and $Term::ReadLine::toloop and defined &Tk::DoOneEvent) { $self->register_Tk; $Attribs{getc_function} = $Attribs{Tk_getc}; } # call readline() my $line; if (defined $preput) { my $saved_startup_hook = $Attribs{startup_hook}; $Attribs{startup_hook} = sub { $self->rl_insert_text($preput); &$saved_startup_hook if defined $saved_startup_hook; }; $line = $self->rl_readline($prompt); $Attribs{startup_hook} = $saved_startup_hook; } else { $line = $self->rl_readline($prompt); } return undef unless defined $line; # history expansion if ($Attribs{do_expand}) { my $result; ($result, $line) = $self->history_expand($line); my $outstream = $Attribs{outstream}; print $outstream "$line\n" if ($result); # return without adding line into history if ($result < 0 || $result == 2) { return ''; # don't return `undef' which means EOF. } } # add to history buffer $self->add_history($line) if (defined $self->{MinLength} && $self->{MinLength} > 0 && length($line) >= $self->{MinLength}); return $line; } =item C adds the lines to the history of input, from where it can be used if the actual C is present. =cut use vars '*addhistory'; *addhistory = \&AddHistory; # for backward compatibility sub AddHistory { my $self = shift; foreach (@_) { $self->add_history($_); } } =item C, C return the file handles for input and output or C if C input and output cannot be used for Perl. =cut sub IN { $Attribs{instream}; } sub OUT { $Attribs{outstream}; } =item C If argument C is specified, it is an advice on minimal size of line to be included into history. C means do not include anything into history. Returns the old value. =cut sub MinLine { my $self = shift; my $old_minlength = $self->{MinLength}; $self->{MinLength} = shift; $old_minlength; } # findConsole is defined in ReadLine.pm. =item C returns an array with two strings that give most appropriate names for files for input and output using conventions C<"E$in">, C<"E$out">. =item C returns a reference to a hash which describes internal configuration (variables) of the package. Names of keys in this hash conform to standard conventions with the leading C stripped. See section "Variables" for supported variables. =item C Returns a reference to a hash with keys being features present in current implementation. Several optional features are used in the minimal interface: C should be present if the first argument to C is recognized, and C should be present if C method is not dummy. C should be present if lines are put into history automatically (maybe subject to C), and C if C method is not dummy. C means the second argument to C method is processed. C and C denote that the corresponding methods are present. C denotes that a Tk application may run while ReadLine is getting input. =cut # Not tested yet. How do I use this? sub newTTY { my ($self, $in, $out) = @_; $Attribs{instream} = $in; $Attribs{outstream} = $out; my $sel = select($out); $| = 1; # for DB::OUT select($sel); } =back =cut # documented later sub CallbackHandlerInstall { my $self = shift; my ($prompt, $lhandler) = @_; $Attribs{_callback_handler} = $lhandler; # ornament support (now prompt only) $prompt = RL_PROMPT_START_IGNORE . ${$Attribs{term_set}}[0] . RL_PROMPT_END_IGNORE . $prompt . RL_PROMPT_START_IGNORE . ${$Attribs{term_set}}[1] . RL_PROMPT_END_IGNORE; $Attribs{completion_entry_function} = $Attribs{_trp_completion_function} if (!defined $Attribs{completion_entry_function} && defined $Attribs{completion_function}); $self->rl_callback_handler_install($prompt, \&Term::ReadLine::Gnu::XS::_ch_wrapper); } # # Additional Supported Methods # # Documentation is after '__END__' for efficiency. # for backward compatibility use vars qw(*AddDefun *BindKey *UnbindKey *ParseAndBind *StifleHistory); *AddDefun = \&add_defun; *BindKey = \&bind_key; *UnbindKey = \&unbind_key; *ParseAndBind = \&parse_and_bind; *StifleHistory = \&stifle_history; sub SetHistory { my $self = shift; $self->clear_history(); $self->AddHistory(@_); } sub GetHistory { my $self = shift; $self->history_list(); } sub ReadHistory { my $self = shift; ! $self->read_history_range(@_); } sub WriteHistory { my $self = shift; ! $self->write_history(@_); } # # Access Routines for GNU Readline/History Library Variables # package Term::ReadLine::Gnu::Var; use Carp; use strict; use vars qw(%_rl_vars); %_rl_vars = ( rl_line_buffer => ['S', 0], rl_prompt => ['S', 1], rl_library_version => ['S', 2], rl_terminal_name => ['S', 3], rl_readline_name => ['S', 4], rl_basic_word_break_characters => ['S', 5], rl_basic_quote_characters => ['S', 6], rl_completer_word_break_characters => ['S', 7], rl_completer_quote_characters => ['S', 8], rl_filename_quote_characters => ['S', 9], rl_special_prefixes => ['S', 10], history_no_expand_chars => ['S', 11], history_search_delimiter_chars => ['S', 12], rl_point => ['I', 0], rl_end => ['I', 1], rl_mark => ['I', 2], rl_done => ['I', 3], rl_pending_input => ['I', 4], rl_completion_query_items => ['I', 5], rl_completion_append_character => ['C', 6], rl_ignore_completion_duplicates => ['I', 7], rl_filename_completion_desired => ['I', 8], rl_filename_quoting_desired => ['I', 9], rl_inhibit_completion => ['I', 10], history_base => ['I', 11], history_length => ['I', 12], max_input_history => ['I', 13], history_expansion_char => ['C', 14], history_subst_char => ['C', 15], history_comment_char => ['C', 16], history_quotes_inhibit_expansion => ['I', 17], rl_erase_empty_line => ['I', 18], # added GRL 4.0 rl_catch_signals => ['I', 19], # added GRL 4.0 rl_catch_sigwinch => ['I', 20], # added GRL 4.0 rl_already_prompted => ['I', 21], # added GRL 4.1 rl_startup_hook => ['F', 0], rl_event_hook => ['F', 1], rl_getc_function => ['F', 2], rl_redisplay_function => ['F', 3], rl_completion_entry_function => ['F', 4], rl_attempted_completion_function => ['F', 5], rl_filename_quoting_function => ['F', 6], rl_filename_dequoting_function => ['F', 7], rl_char_is_quoted_p => ['F', 8], rl_ignore_some_completions_function => ['F', 9], rl_directory_completion_hook => ['F', 10], history_inhibit_expansion_function => ['F', 11], rl_pre_input_hook => ['F', 12], # added GRL 4.0 rl_completion_display_matches_hook => ['F', 13], # added GRL 4.0 rl_instream => ['IO', 0], rl_outstream => ['IO', 1], rl_executing_keymap => ['K', 0], rl_binding_keymap => ['K', 1], rl_last_func => ['LF', 0], ); sub TIESCALAR { my $class = shift; my $name = shift; return bless \$name, $class; } sub FETCH { my $self = shift; confess "wrong type" unless ref $self; my $name = $$self; if (! defined $_rl_vars{$name}) { confess "Term::ReadLine::Gnu::Var::FETCH: Unknown variable name `$name'\n"; return undef ; } my ($type, $id) = @{$_rl_vars{$name}}; if ($type eq 'S') { return _rl_fetch_str($id); } elsif ($type eq 'I') { return _rl_fetch_int($id); } elsif ($type eq 'C') { return chr(_rl_fetch_int($id)); } elsif ($type eq 'F') { return _rl_fetch_function($id); } elsif ($type eq 'IO') { return _rl_fetch_iostream($id); } elsif ($type eq 'K') { return _rl_fetch_keymap($id); } elsif ($type eq 'LF') { return _rl_fetch_last_func(); } else { carp "Term::ReadLine::Gnu::Var::FETCH: Illegal type `$type'\n"; return undef; } } sub STORE { my $self = shift; confess "wrong type" unless ref $self; my $name = $$self; if (! defined $_rl_vars{$name}) { confess "Term::ReadLine::Gnu::Var::STORE: Unknown variable name `$name'\n"; return undef ; } my $value = shift; my ($type, $id) = @{$_rl_vars{$name}}; if ($type eq 'S') { if ($name eq 'rl_line_buffer') { return _rl_store_rl_line_buffer($value); } else { return _rl_store_str($value, $id); } } elsif ($type eq 'I') { return _rl_store_int($value, $id); } elsif ($type eq 'C') { return chr(_rl_store_int(ord($value), $id)); } elsif ($type eq 'F') { return _rl_store_function($value, $id); } elsif ($type eq 'IO') { return _rl_store_iostream($value, $id); } elsif ($type eq 'K' || $type eq 'LF') { carp "Term::ReadLine::Gnu::Var::STORE: read only variable `$name'\n"; return undef; } else { carp "Term::ReadLine::Gnu::Var::STORE: Illegal type `$type'\n"; return undef; } } package Term::ReadLine::Gnu; use Carp; use strict; # # set value of %Attribs # # Tie all Readline/History variables foreach (keys %Term::ReadLine::Gnu::Var::_rl_vars) { my $name; ($name = $_) =~ s/^rl_//; # strip leading `rl_' tie $Attribs{$name}, 'Term::ReadLine::Gnu::Var', $_; } # add reference to some functions { my ($name, $fname); no strict 'refs'; # allow symbolic refernce map { ($name = $_) =~ s/^rl_//; # strip leading `rl_' $fname = 'Term::ReadLine::Gnu::XS::' . $_; $Attribs{$name} = \&$fname; # symbolic reference } qw(rl_getc rl_redisplay rl_callback_read_char rl_display_match_list filename_completion_function username_completion_function list_completion_function _trp_completion_function); # auto-split subroutine cannot be processed in the map loop above use strict 'refs'; $Attribs{shadow_redisplay} = \&Term::ReadLine::Gnu::XS::shadow_redisplay; $Attribs{Tk_getc} = \&Term::ReadLine::Gnu::XS::Tk_getc; $Attribs{list_completion_function} = \&Term::ReadLine::Gnu::XS::list_completion_function; } package Term::ReadLine::Gnu::AU; use Carp; no strict qw(refs vars); sub AUTOLOAD { { $AUTOLOAD =~ s/.*:://; } # preserve match data my $name; if (exists $Term::ReadLine::Gnu::XS::{"rl_$AUTOLOAD"}) { $name = "Term::ReadLine::Gnu::XS::rl_$AUTOLOAD"; } elsif (exists $Term::ReadLine::Gnu::XS::{"$AUTOLOAD"}) { $name = "Term::ReadLine::Gnu::XS::$AUTOLOAD"; } else { croak "Cannot do `$AUTOLOAD' in Term::ReadLine::Gnu"; } local $^W = 0; # Why is this line necessary ? *$AUTOLOAD = sub { shift; &$name(@_); }; goto &$AUTOLOAD; } 1; __END__ =head2 C Functions All these GNU Readline/History Library functions are callable via method interface and have names which conform to standard conventions with the leading C stripped. Almost methods have lower level functions in C package. To use them full qualified name is required. Using method interface is preferred. =over 4 =item Readline Convenience Functions =over 4 =item Naming Function =over 4 =item C Add name to the Perl function C. If optional argument C is specified, bind it to the C. Returns reference to C. Example: # name name `reverse-line' to a function reverse_line(), # and bind it to "\C-t" $term->add_defun('reverse-line', \&reverse_line, "\ct"); =back =item Selecting a Keymap =over 4 =item C Keymap rl_make_bare_keymap() =item C Keymap rl_copy_keymap(Keymap|str map) =item C Keymap rl_make_keymap() =item C Keymap rl_discard_keymap(Keymap|str map) =item C Keymap rl_get_keymap() =item C Keymap rl_set_keymap(Keymap|str map) =item C Keymap rl_get_keymap_by_name(str name) =item C str rl_get_keymap_name(Keymap map) =back =item Binding Keys =over 4 =item C int rl_bind_key(int key, FunctionPtr|str function, Keymap|str map = rl_get_keymap()) Bind C to the C. C is the name added by the C method. If optional argument C is specified, binds in C. Returns non-zero in case of error. =item C int rl_unbind_key(int key, Keymap|str map = rl_get_keymap()) Bind C to the null function. Returns non-zero in case of error. =item C int rl_unbind_function(FunctionPtr|str function, Keymap|str map = rl_get_keymap()) =item C int rl_unbind_command(str command, Keymap|str map = rl_get_keymap()) =item C int rl_generic_bind(int type, str keyseq, FunctionPtr|Keymap|str data, Keymap|str map = rl_get_keymap()) =item C void rl_parse_and_bind(str line) Parse C as if it had been read from the F<~/.inputrc> file and perform any key bindings and variable assignments found. For more detail see 'GNU Readline Library Manual'. =item C int rl_read_init_file(str filename = '~/.inputrc') =back =item Associating Function Names and Bindings =over 4 =item C FunctionPtr rl_named_function(str name) =item C str rl_get_function_name(FunctionPtr function) =item C (FunctionPtr|Keymap|str data, int type) rl_function_of_keyseq(str keyseq, Keymap|str map = rl_get_keymap()) =item C (@str) rl_invoking_keyseqs(FunctionPtr|str function, Keymap|str map = rl_get_keymap()) =item C void rl_function_dumper(int readable = 0) =item C void rl_list_funmap_names() =item C (undocumented) (@str) rl_funmap_names() =back =item Allowing Undoing =over 4 =item C int rl_begin_undo_group() =item C int rl_end_undo_group() =item C int rl_add_undo(int what, int start, int end, str text) =item C void free_undo_list() =item C int rl_do_undo() =item C int rl_modifying(int start = 0, int end = rl_end) =back =item Redisplay =over 4 =item C void rl_redisplay() =item C int rl_forced_update_display() =item C int rl_on_new_line() =item C int rl_on_new_line_with_prompt() # GRL 4.1 =item C int rl_reset_line_state() =item C int rl_message(str fmt, ...) =item C int rl_clear_message() =item C void rl_save_prompt() =item C void rl_restore_prompt() =back =item Modifying Text =over 4 =item C int rl_insert_text(str text) =item C int rl_delete_text(start = 0, end = rl_end) =item C str rl_copy_text(start = 0, end = rl_end) =item C int rl_kill_text(start = 0, end = rl_end) =back =item Utility Functions =over 4 =item C int rl_read_key() =item C int rl_getc(FILE *) =item C int rl_stuff_char(int c) =item C int rl_initialize() =item C int rl_reset_terminal(str terminal_name = getenv($TERM)) =item C int ding() =item C void rl_display_match_list(\@matches, len = $#maches, max) # GRL 4.0 Since the first element of an array @matches as treated as a possible completion, it is not displayed. See the descriptions of C. When C is ommited, the max length of an item in @matches is used. =back =item Alternate Interface =over 4 =item C void rl_callback_handler_install(str prompt, pfunc lhandler) =item C void rl_callback_read_char() =item C void rl_callback_handler_remove() =back =back =item Readline Signal Handling =over 4 =item C void rl_cleanup_after_signal() # GRL 4.0 =item C void rl_free_line_state() # GRL 4.0 =item C void rl_reset_after_signal() # GRL 4.0 =item C void rl_resize_terminal() # GRL 4.0 =item C int rl_set_signals() # GRL 4.0 =item C int rl_clear_signals() # GRL 4.0 =back =item Completion Functions =over 4 =item C int rl_complete_internal(int what_to_do = TAB) =item C (@str) completion_matches(str text, pfunc func = filename_completion_function) =item C str filename_completion_function(str text, int state) =item C str username_completion_function(str text, int state) =item C str list_completion_function(str text, int state) =back =item History Functions =over 4 =item Initializing History and State Management =over 4 =item C void using_history() =back =item History List Management =over 4 =item C void add_history(str string) =item C int stifle_history(int max|undef) stifles the history list, remembering only the last C entries. If C is undef, remembers all entries. This is a replacement of unstifle_history(). =item C int unstifle_history() This is equivalent with 'stifle_history(undef)'. =item C sets the history of input, from where it can be used if the actual C is present. =item C str remove_history(int which) =item C str replace_history_entry(int which, str line) =item C void clear_history() =item C int history_is_stifled() =back =item Information About the History List =over 4 =item C int where_history() =item C str current_history() =item C str history_get(offset) =item C int history_total_bytes() =item C returns the history of input as a list, if actual C is present. =back =item Moving Around the History List =over 4 =item C int history_set_pos(int pos) =item C str previous_history() =item C str next_history() =back =item Searching the History List =over 4 =item C int history_search(str string, int direction = -1) =item C int history_search_prefix(str string, int direction = -1) =item C int history_search_pos(str string, int direction = -1, int pos = where_history()) =back =item Managing the History File =over 4 =item C int read_history(str filename = '~/.history', int from = 0, int to = -1) int read_history_range(str filename = '~/.history', int from = 0, int to = -1) adds the contents of C to the history list, a line at a time. If C is false, then read from F<~/.history>. Start reading at line C and end at C. If C is omitted or zero, start at the beginning. If C is omitted or less than C, then read until the end of the file. Returns true if successful, or false if not. C is an aliase of C. =item C int write_history(str filename = '~/.history') writes the current history to C, overwriting C if necessary. If C is false, then write the history list to F<~/.history>. Returns true if successful, or false if not. =item C int append_history(int nelements, str filename = '~/.history') =item C int history_truncate_file(str filename = '~/.history', int nlines = 0) =back =item History Expansion =over 4 =item C (int result, str expansion) history_expand(str line) Note that this function returns C in scalar context. =item C str history_arg_extract(str line, int first = 0, int last = '$') =cut # ' to make emacs font-lock happy =item C (str text, int cindex) = get_history_event(str string, int cindex, char qchar = '\0') =item C (@str) history_tokenize(str line) =back =back =back =head2 C Variables Following GNU Readline/History Library variables can be accessed from Perl program. See 'GNU Readline Library Manual' and ' GNU History Library Manual' for each variable. You can access them with C methods. Names of keys in this hash conform to standard conventions with the leading C stripped. Examples: $attribs = $term->Attribs; $v = $attribs->{library_version}; # rl_library_version $v = $attribs->{history_base}; # history_base =over 4 =item Readline Variables str rl_line_buffer int rl_point int rl_end int rl_mark int rl_done int rl_pending_input int rl_erase_empty_line (GRL 4.0) str rl_prompt (read only) int rl_already_prompted (GRL 4.1) str rl_library_version (read only) str rl_terminal_name str rl_readline_name filehandle rl_instream filehandle rl_outstream pfunc rl_startup_hook pfunc rl_pre_input_hook (GRL 4.0) pfunc rl_event_hook pfunc rl_getc_function pfunc rl_redisplay_function pfunc rl_last_func (not documented) Keymap rl_executing_keymap (read only) Keymap rl_binding_keymap (read only) =item Signal Handling Variables int rl_catch_signals (GRL 4.0) int rl_catch_sigwinch (GRL 4.0) =item Completion Variables pfunc rl_completion_entry_function pfunc rl_attempted_completion_function pfunc rl_filename_quoting_function pfunc rl_filename_dequoting_function pfunc rl_char_is_quoted_p int rl_completion_query_items str rl_basic_word_break_characters str rl_basic_quote_characters str rl_completer_word_break_characters str rl_completer_quote_characters str rl_filename_quote_characters str rl_special_prefixes int rl_completion_append_character int rl_ignore_completion_duplicates int rl_filename_completion_desired int rl_filename_quoting_desired int rl_inhibit_completion pfunc rl_ignore_some_completion_function pfunc rl_directory_completion_hook pfunc rl_completion_display_matches_hook (GRL 4.0) =item History Variables int history_base int history_length int max_input_history (read only) char history_expansion_char char history_subst_char char history_comment_char str history_no_expand_chars str history_search_delimiter_chars int history_quotes_inhibit_expansion pfunc history_inhibit_expansion_function =item Function References rl_getc rl_redisplay rl_callback_read_char rl_display_match_list filename_completion_function username_completion_function list_completion_function shadow_redisplay Tk_getc =back =head2 Custom Completion In this section variables and functions for custom completion is described with examples. Most of descriptions in this section is cited from GNU Readline Library manual. =over 4 =item C This variable holds reference refers to a generator function for C. A generator function is called repeatedly from C, returning a string each time. The arguments to the generator function are C and C. C is the partial word to be completed. C is zero the first time the function is called, allowing the generator to perform any necessary initialization, and a positive non-zero integer for each subsequent call. When the generator function returns C this signals C that there are no more possibilities left. If the value is undef, built-in C is used. A sample generator function, C, is defined in Gnu.pm. You can use it as follows; use Term::ReadLine; ... my $term = new Term::ReadLine 'sample'; my $attribs = $term->Attribs; ... $attribs->{completion_entry_function} = $attribs->{list_completion_function}; ... $attribs->{completion_word} = [qw(reference to a list of words which you want to use for completion)]; $term->readline("custom completion>"); See also C. =item C A reference to an alternative function to create matches. The function is called with C, C, C, and C. C is a current input buffer string. C and C are indices in C saying what the boundaries of C are. If this function exists and returns null list or C, or if this variable is set to C, then an internal function C will call the value of C<$rl_completion_entry_function> to generate matches, otherwise the array of strings returned will be used. The default value of this variable is C. You can use it as follows; use Term::ReadLine; ... my $term = new Term::ReadLine 'sample'; my $attribs = $term->Attribs; ... sub sample_completion { my ($text, $line, $start, $end) = @_; # If first word then username completion, else filename completion if (substr($line, 0, $start) =~ /^\s*$/) { return $term->completion_matches($text, $attribs->{'username_completion_function'}); } else { return (); } } ... $attribs->{attempted_completion_function} = \&sample_completion; =item C Returns an array of strings which is a list of completions for C. If there are no completions, returns C. The first entry in the returned array is the substitution for C. The remaining entries are the possible completions. C is a generator function which has two arguments, and returns a string. The first argument is C. The second is a state argument; it is zero on the first call, and non-zero on subsequent calls. C returns a C to the caller when there are no more matches. If the value of C is undef, built-in C is used. C is a Perl wrapper function of an internal function C. See also C<$rl_completion_entry_function>. =item C A variable whose content is a reference to a function which returns a list of candidates to complete. This variable is compatible with C and very easy to use. use Term::ReadLine; ... my $term = new Term::ReadLine 'sample'; my $attribs = $term->Attribs; ... $attribs->{completion_function} = sub { my ($text, $line, $start) = @_; return qw(a list of candidates to complete); } =item C A sample generator function defined by C. Example code at C shows how to use this function. =back =head2 C Specific Features =over 4 =item C Specific Functions =over 4 =item C This method provides the function C with the following addtional feature compatible with C method; ornament feature, C compatible completion function, histroy expansion, and addition to history buffer. =item C int rl_call_function(FunctionPtr|str function, count = 1, key = -1) =item C Returns a list of all function names. =item C A redisplay function for password input. You can use it as follows; $attribs->{redisplay_function} = $attribs->{shadow_redisplay}; $line = $term->readline("password> "); =item C Returns candidates of filename to complete. This function can be used with C and is implemented for the compatibility with C. =item C See the description of section L<"Custom Completion"|"Custom Completion">. =back =item C Specific Variables =over 4 =item C When true, the history expansion is enabled. By default false. =item C See the description of section L<"Custom Completion"|"Custom Completion">. =item C A reference to a list of candidates to complete for C. =back =item C Specific Commands =over 4 =item C The equivalent of the Korn shell C C editing command and the Bash C. This command is bound to C<\C-o> by default for the compatibility with the Bash and C. =item C Shows the version of C and the one of the GNU Readline Library. =item C Change ornaments interactively. =back =back =head1 FILES =over 4 =item F<~/.inputrc> Readline init file. Using this file it is possible that you would like to use a different set of key bindings. When a program which uses the Readline library starts up, the init file is read, and the key bindings are set. Conditional key binding is also available. The program name which is specified by the first argument of C method is used as the application construct. For example, when your program call C method like this; ... $term = new Term::ReadLine 'PerlSh'; ... your F<~/.inputrc> can define key bindings only for it as follows; ... $if PerlSh Meta-Rubout: backward-kill-word "\C-x\C-r": re-read-init-file "\e[11~": "Function Key 1" $endif ... =back =head1 EXPORTS None. =head1 SEE ALSO =over 4 =item GNU Readline Library Manual =item GNU History Library Manual =item C =item C (Term-ReadLine-Perl-xx.tar.gz) =item F and F in the Term::ReadLine::Gnu distribution =item Works which use Term::ReadLine::Gnu =over 4 =item Perl Debugger perl -d =item The Perl Shell (psh) http://www.focusresearch.com/gregor/psh/ The Perl Shell is a shell that combines the interactive nature of a Unix shell with the power of Perl. The goal is to eventually have a full featured shell that behaves as expected for normal shell activity. But, the Perl Shell will use Perl syntax and functionality for for control-flow statements and other things. =item Ghostscript Shell http://www.panix.com/~jdf/gshell/ It provides a friendly way to play with the Ghostscript interpreter, including command history and auto-completion of Postscript font names and reserved words. =item SPP (Synopsys Plus Perl) http://www.stanford.edu/~jsolomon/SPP/ SPP (Synopsys Plus Perl) is a Perl module that wraps around Synopsys' shell programs. SPP is inspired by the original dc_perl written by Steve Golson, but it's an entirely new implementation. Why is it called SPP and not dc_perl? Well, SPP was written to wrap around any of Synopsys' shells. =back If you know any other works which can be listed here, please let me know. =back =head1 AUTHOR Hiroo Hayashi Chiroo.hayashi@computer.orgE> C =head1 TODO GTK+ support in addition to Tk. =head1 BUGS C can define up to 16 functions. Ornament feature works only on prompt strings. It requires very hard hacking of C in GNU Readline library to ornament input line. C is not tested yet. =cut unt = kêŒ 'Ï$?,Z~·:(nç8ÝÔž:!# µ?,./usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine/Gnu/XS.pmó/$#!/usr/local/bin/perl # # XS.pm : perl function definition for Term::ReadLine::Gnu # # $Id: XS.pm,v 1.10 2000-04-03 00:58:32+09 hayashi Exp $ # # Copyright (c) 2000 Hiroo Hayashi. All rights reserved. # # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. package Term::ReadLine::Gnu::XS; use Carp; use strict; use AutoLoader 'AUTOLOAD'; # make aliases use vars qw(%Attribs); *Attribs = \%Term::ReadLine::Gnu::Attribs; use vars qw(*read_history); *read_history = \&read_history_range; # alias for 8 characters limitation imposed by AutoSplit use vars qw(*rl_unbind_key *rl_unbind_function *rl_unbind_command *history_list *history_arg_extract); *rl_unbind_key = \&unbind_key; *rl_unbind_function = \&unbind_function; *rl_unbind_command = \&unbind_command; *history_list = \&hist_list; *history_arg_extract = \&hist_arg_extract; # For backward compatibility. Using these name (*_in_map) is deprecated. use vars qw(*rl_unbind_function_in_map *rl_unbind_command_in_map); *rl_unbind_function_in_map = \&unbind_function; *rl_unbind_command_in_map = \&unbind_command; # bind operate-and-get-next to \C-o by default for the compatibility # with bash and Term::ReadLine::Perl rl_add_defun('operate-and-get-next', \&operate_and_get_next, ord "\co"); rl_add_defun('display-readline-version', \&display_readline_version); rl_add_defun('change-ornaments', \&change_ornaments); # for ornaments() # Prompt-start, prompt-end, command-line-start, command-line-end # -- zero-width beautifies to emit around prompt and the command line. # string encoded: my $rl_term_set = ',,,'; # These variables are used by completion functions. Don't use for # other purpose. my $_i; my @_matches; 1; # Uncomment the following line to enable AutoSplit. If you are using # AutoLoader.pm distributed with Perl 5.004 or earlier, you must # update AutoLoader.pm due to its bug. #__END__ # # Readline Library function wrappers # # Convert keymap name to Keymap if the argument is not reference to Keymap sub _str2map ($) { return ref $_[0] ? $_[0] : (rl_get_keymap_by_name($_[0]) || carp "unknown keymap name \`$_[0]\'\n"); } # Convert function name to Function if the argument is not reference # to Function sub _str2fn ($) { return ref $_[0] ? $_[0] : (rl_named_function($_[0]) || carp "unknown function name \`$_[0]\'\n"); } sub rl_copy_keymap ($) { return _rl_copy_keymap(_str2map($_[0])); } sub rl_discard_keymap ($) { return _rl_discard_keymap(_str2map($_[0])); } sub rl_set_keymap ($) { return _rl_set_keymap(_str2map($_[0])); } sub rl_bind_key ($$;$) { if (defined $_[2]) { return _rl_bind_key($_[0], _str2fn($_[1]), _str2map($_[2])); } else { return _rl_bind_key($_[0], _str2fn($_[1])); } } # rl_unbind_key sub unbind_key ($;$) { if (defined $_[1]) { return _rl_unbind_key($_[0], _str2map($_[1])); } else { return _rl_unbind_key($_[0]); } } # rl_unbind_function sub unbind_function ($;$) { # libreadline.* in Debian GNU/Linux 2.0 tells wrong value as '2.1-bash' my ($version) = $Attribs{library_version} =~ /(\d+\.\d+)/; if ($version < 2.2) { carp "rl_unbind_function() is not supported. Ignored\n"; return; } if (defined $_[1]) { return _rl_unbind_function($_[0], _str2map($_[1])); } else { return _rl_unbind_function($_[0]); } } # rl_unbind_command sub unbind_command ($;$) { my ($version) = $Attribs{library_version} =~ /(\d+\.\d+)/; if ($version < 2.2) { carp "rl_unbind_command() is not supported. Ignored\n"; return; } if (defined $_[1]) { return _rl_unbind_command($_[0], _str2map($_[1])); } else { return _rl_unbind_command($_[0]); } } sub rl_generic_bind ($$$;$) { if ($_[0] == Term::ReadLine::Gnu::ISFUNC) { if (defined $_[3]) { _rl_generic_bind_function($_[1], _str2fn($_[2]), _str2map($_[3])); } else { _rl_generic_bind_function($_[1], _str2fn($_[2])); } } elsif ($_[0] == Term::ReadLine::Gnu::ISKMAP) { if (defined $_[3]) { _rl_generic_bind_keymap($_[1], _str2map($_[2]), _str2map($_[3])); } else { _rl_generic_bind_keymap($_[1], _str2map($_[2])); } } elsif ($_[0] == Term::ReadLine::Gnu::ISMACR) { if (defined $_[3]) { _rl_generic_bind_macro($_[1], $_[2], _str2map($_[3])); } else { _rl_generic_bind_macro($_[1], $_[2]); } } else { carp("Term::ReadLine::Gnu::rl_generic_bind: invalid \`type\'\n"); } } sub rl_call_function ($;$$) { if (defined $_[2]) { return _rl_call_function(_str2fn($_[0]), $_[1], $_[2]); } elsif (defined $_[1]) { return _rl_call_function(_str2fn($_[0]), $_[1]); } else { return _rl_call_function(_str2fn($_[0])); } } sub rl_invoking_keyseqs ($;$) { if (defined $_[1]) { return _rl_invoking_keyseqs(_str2fn($_[0]), _str2map($_[1])); } else { return _rl_invoking_keyseqs(_str2fn($_[0])); } } sub rl_message { my $fmt = shift; my $line = sprintf($fmt, @_); _rl_message($line); } # # for compatibility with Term::ReadLine::Perl # sub rl_filename_list { my ($text) = @_; # lcd : lowest common denominator my ($lcd, @matches) = completion_matches($text, \&filename_completion_function); return @matches ? @matches : $lcd; } # # History Library function wrappers # # history_list sub hist_list () { my ($i, $history_base, $history_length, @d); $history_base = $Attribs{history_base}; $history_length = $Attribs{history_length}; for ($i = $history_base; $i < $history_base + $history_length; $i++) { push(@d, history_get($i)); } @d; } # history_arg_extract sub hist_arg_extract ( ;$$$ ) { my ($line, $first, $last) = @_; $line = $_ unless defined $line; $first = 0 unless defined $first; $last = ord '$' unless defined $last; # ' $first = ord '$' if defined $first and $first eq '$'; # ' $last = ord '$' if defined $last and $last eq '$'; # ' &_history_arg_extract($line, $first, $last); } sub get_history_event ( $$;$ ) { _get_history_event($_[0], $_[1], defined $_[2] ? ord $_[2] : 0); } # # Ornaments # # This routine originates in Term::ReadLine.pm. # Debian GNU/Linux discourages users from using /etc/termcap. A # subroutine ornaments() defined in Term::ReadLine.pm uses # Term::Caps.pm which requires /etc/termcap. # This module calls termcap (or its compatible) library, which the GNU # Readline Library already uses, instead of Term::Caps.pm. # Some terminals do not support 'ue' (underline end). use vars qw(%term_no_ue); %term_no_ue = ( kterm => 1 ); sub ornaments { return $rl_term_set unless @_; $rl_term_set = shift; $rl_term_set ||= ',,,'; $rl_term_set = $term_no_ue{$ENV{TERM}} ? 'us,me,,' : 'us,ue,,' if $rl_term_set eq '1'; my @ts = split /,/, $rl_term_set, 4; my @rl_term_set = map {$_ ? tgetstr($_) || '' : ''} @ts; $Attribs{term_set} = \@rl_term_set; return $rl_term_set; } # # a sample custom function # # The equivalent of the Korn shell C-o operate-and-get-next-history-line # editing command. # This routine was borrowed from bash. sub operate_and_get_next { my ($count, $key) = @_; my $saved_history_line_to_use = -1; my $old_rl_startup_hook; # Accept the current line. rl_call_function('accept-line', 1, $key); # Find the current line, and find the next line to use. */ my $where = where_history(); if ((history_is_stifled() && ($Attribs{history_length} >= $Attribs{max_input_history})) || ($where >= $Attribs{history_length} - 1)) { $saved_history_line_to_use = $where; } else { $saved_history_line_to_use = $where + 1; } $old_rl_startup_hook = $Attribs{startup_hook}; $Attribs{startup_hook} = sub { if ($saved_history_line_to_use >= 0) { rl_call_function('previous-history', $Attribs{history_length} - $saved_history_line_to_use, 0); $Attribs{startup_hook} = $old_rl_startup_hook; $saved_history_line_to_use = -1; } }; } sub display_readline_version { # show version my($count, $key) = @_; # ignored in this function my $OUT = $Attribs{outstream}; print $OUT ("\nTerm::ReadLine::Gnu version: $Term::ReadLine::Gnu::VERSION"); print $OUT ("\nGNU Readline Library version: $Attribs{library_version}\n"); rl_on_new_line(); } # sample function of rl_message() sub change_ornaments { my($count, $key) = @_; # ignored in this function rl_save_prompt; rl_message("[S]tandout, [U]nderlining, [B]old, [R]everse, [V]isible bell: "); my $c = chr rl_read_key; if ($c =~ /s/i) { ornaments('so,me,,'); } elsif ($c =~ /u/i) { ornaments('us,me,,'); } elsif ($c =~ /b/i) { ornaments('md,me,,'); } elsif ($c =~ /r/i) { ornaments('mr,me,,'); } elsif ($c =~ /v/i) { ornaments('vb,,,'); } else { ding; } rl_restore_prompt; rl_clear_message; } # # for tkRunning # sub Tk_getc { &Term::ReadLine::Tk::Tk_loop if $Term::ReadLine::toloop && defined &Tk::DoOneEvent; my $FILE = $Attribs{instream}; return rl_getc($FILE); } # redisplay function for secret input like password # usage: # $a->{redisplay_function} = $a->{shadow_redisplay}; # $line = $t->readline("password> "); sub shadow_redisplay { my $OUT = $Attribs{outstream}; my $oldfh = select($OUT); $| = 1; select($oldfh); print $OUT (tgetstr('cr'), # carriage return tgetstr('ce'), # clear to EOL $Attribs{prompt}, '*' x length($Attribs{line_buffer})); print $OUT (tgetstr('le') # cursor left x (length($Attribs{line_buffer}) - $Attribs{point})); $oldfh = select($OUT); $| = 0; select($oldfh); } # callback handler wrapper function for CallbackHandlerInstall method sub _ch_wrapper { my $line = shift; if (defined $line) { if ($Attribs{do_expand}) { my $result; ($result, $line) = history_expand($line); my $outstream = $Attribs{outstream}; print $outstream "$line\n" if ($result); # return without adding line into history if ($result < 0 || $result == 2) { return ''; # don't return `undef' which means EOF. } } # add to history buffer add_history($line) if ($Attribs{MinLength} > 0 && length($line) >= $Attribs{MinLength}); } &{$Attribs{_callback_handler}}($line); } # # List Completion Function # sub list_completion_function ( $$ ) { my($text, $state) = @_; $_i = $state ? $_i + 1 : 0; # clear counter at the first call my $cw = $Attribs{completion_word}; for (; $_i <= $#{$cw}; $_i++) { return $cw->[$_i] if ($cw->[$_i] =~ /^\Q$text/); } return undef; } # # wrapper completion function of 'completion_function' # for compatibility with Term::ReadLine::Perl # sub _trp_completion_function ( $$ ) { my($text, $state) = @_; my $cf; return undef unless defined ($cf = $Attribs{completion_function}); if ($state) { $_i++; } else { # the first call $_i = 0; # clear index @_matches = &$cf($text, $Attribs{line_buffer}, $Attribs{point} - length($text)); # return here since $#_matches is 0 instead of -1 when # @_matches = undef return undef unless defined $_matches[0]; } for (; $_i <= $#_matches; $_i++) { return $_matches[$_i] if ($_matches[$_i] =~ /^\Q$text/); } return undef; } 1; __END__ kêî<‰íAZ~·:ÜÔž:ÜÔž:!!0Ÿ4./usr/localrl5/ó/íA kêîç‰íAZ~·:ÜÔž:ÜÔž:!!0 4./usr/local/libó/íA kê@è‰íAZ~·:ÜÔž:ÜÔž:!!0¡4./usr/local/lib/Term-ReadLine-Gnu-1.09/ó/íAkê¤ƒØ&íAZ~·:ÜÔž:ÜÔž:!0?p./usr/local/lib/Term-ReadLine-Gnu-1.09/egrm/Reaó/íA kê.T‰íA[~·:ÜÔž:ÜÔž:!!0þ4./usr/local/manó/íA kê:nÏíA[~·:ÜÔž:ÝÔž:!#0Ë±./usr/opt/perl5ó/íAkêî¦ÏíA[~·:ÜÔž:ÝÔž:!#0ã±./usr/opt/perl5/lib-Reaó/íAkê¼†ÏíA[~·:ÜÔž:ÝÔž:!#0²./usr/opt/perl5/lib/site_perlGnó/íA kê.XÏíA[~·:ÜÔž:ÝÔž:!#0£²./usr/opt/perl5/lib/site_perl/5.00509/eó/íA kê‚µÏíA[~·:ÝÔž:ÝÔž:!#0¿²./usr/opt/perl5/lib/site_perl/5.005/aixó/íAkê¬ÏíA[~·:ÜÔž:ÝÔž:!#0³./usr/opt/perl5/lib/site_perl/5.005/aix/autoReaó/íAkêsÏíA[~·:ÜÔž:ÝÔž:!#0ú³./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Termine/Gnó/íAkêNgÏíA[~·:ÜÔž:ÝÔž:!#0û³./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLineS.pmó/íAkêVùÏíA[~·:ÝÔž:ÝÔž:!#0w´./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnuó/íAkêbõ ÏíA[~·:ÝÔž:ÝÔž:!#0|´./usr/opt/perl5/lib/site_perl/5.005/aix/auto/Term/ReadLine/Gnu/XScklistó/íAkê(½#ÏíA[~·:ÝÔž:ÝÔž:!#0}´./usr/opt/perl5/lib/site_perl/5.005/aix/TermTeró/íAkê6$ÏíA[~·:ÝÔž:ÝÔž:!#0~´./usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLineLió/íAkê|&ÏíA[~·:ÝÔž:ÝÔž:!#0´./usr/opt/perl5/lib/site_perl/5.005/aix/Term/ReadLine/Gnu/Gnu/Xó/íAkêŠ mpletion_word => [], term_set => ['', '', '', ''], ); %Features = ( appname => 1, minline => 1, autohistory => 1, getHistory => 1, setHistory => 1, addHistory => 1, readHistory => 1, writeHistory => 1, preput => 1, attribs => 1, newTTY => 1, tkRunning => Term::ReadLine::Stub->Features->{'tkRunning'}, ornaments => Term::ReadLine::Stub->Features->{'ornaments'}, stiflehistory => 1, ); sub Attribs { \%Attribs; } sub Features { \%Features; } # # GNU Readline/History Library constant definition # These are included in @EXPORT_OK. # for non-printing characters in prompt string sub RL_PROMPT_START_IGNORE { "\001"; } sub RL_PROMPT_END_IGNORE { "\002"; } # for rl_filename_quoting_function sub NO_MATCH { 0; } sub SINGLE_MATCH { 1; } sub MULT_MATCH { 2; } # for rl_generic_bind, rl_function_of_keyseq sub ISFUNC { 0; } sub ISKMAP { 1; } sub ISMACR { 2; } # for rl_add_undo sub UNDO_DELETE { 0; } sub UNDO_INSERT { 1; } sub UNDO_BEGIN { 2; } sub UNDO_END { 3; } # # Methods Definition # =over 4 =item C returns the actual package that executes the commands. If you have installed this package, possible value is C. =cut sub ReadLine { 'Term::ReadLine::Gnu'; } =item C returns the handle for subsequent calls to following functions. Argument is the name of the application. Optionally can be followed by two arguments for C and C file handles. These arguments should be globs. =cut # The origin of this function is Term::ReadLine::Perl.pm by Ilya Zakharevich. sub new { my $this = shift; # Package my $class = ref($this) || $this; my $name = shift; my $self = \%Attribs; bless $self, $class; # set rl_readline_name before .inputrc is read in rl_initialize() $Attribs{readline_name} = $name; # some version of Perl cause segmentation fault, if XS module # calls setenv() before the 1st assignment to $ENV{}. $ENV{_TRL_DUMMY} = ''; # initialize the GNU Readline Library and termcap library $self->initialize(); # enable ornaments to be compatible with perl5.004_05(?) unless ($ENV{PERL_RL} and $ENV{PERL_RL} =~ /\bo\w*=0/) { local $^W = 0; # Term::ReadLine is not warning flag free # Without the next line Term::ReadLine::Stub::ornaments is used. # Why does Term::ReadLine::Gnu::AU selects it at first?!!! # If you know why this happens, please let me know. Thanks. undef &Term::ReadLine::Gnu::ornaments; $self->ornaments(1); } if (!@_) { my ($IN,$OUT) = $self->findConsole(); open(IN,"<$IN") || croak "Cannot open $IN for read"; open(OUT,">$OUT") || croak "Cannot open $OUT for write"; $Attribs{instream} = \*IN; $Attribs{outstream} = \*OUT; } else { $Attribs{instream} = shift; $Attribs{outstream} = shift; } $self; } sub DESTROY {} =item C gets an input line, with actual C support. Trailing newline is removed. Returns C on C. C is an optional argument meaning the initial value of input. The optional argument C is granted only if the value C is in C. C may include some escape sequences. Use C to begin a sequence of non-printing characters, and C to end of such a sequence. =cut # to peacify -w $Term::ReadLine::registered = $Term::ReadLine::registered; sub readline { # should be ReadLine my $self = shift; my ($prompt, $preput) = @_; # ornament support (now prompt only) # non-printing characters must be told to readline $prompt = RL_PROMPT_START_IGNORE . ${$Attribs{term_set}}[0] . RL_PROMPT_END_IGNORE . $prompt . RL_PROMPT_START_IGNORE . ${$Attribs{term_set}}[1] . RL_PROMPT_END_IGNORE; # `completion_function' support for compatibility with # Term:ReadLine::Perl. Prefer $completion_entry_function, since a # program which uses $completion_entry_function should know # Term::ReadLine::Gnu and have better completion function using # the variable. $Attribs{completion_entry_function} = $Attribs{_trp_completion_function} if (!defined $Attribs{completion_entry_function} && defined $Attribs{completion_function}); # TkRunning support if (not $Term::ReadLine::registered and $Term::ReadLine::toloop and defined &Tk::DoOneEvent) { $self->register_Tk; $Attribs{getc_function} = $Attribs{Tk_getc}; } # call readline() my $line; if (defined $preput) { my $saved_startup_hook = $Attribs{startup_hook}; $Attribs{startup_hook} = sub { $self->rl_insert_text($preput); &$saved_startup_hook if defined $saved_startup_hook; }; $line = $self->rl_readline($prompt); $Attribs{startup_hook} = $saved_startup_hook; } else { $line = $self->rl_readline($prompt); } return undef unless defined $line; # history expansion if ($Attribs{do_expand}) { my $result; ($result, $line) = $self->history_expand($line); my $outstream = $Attribs{outstream}; print $outstream "$line\n" if ($result); # return without adding line into history if ($result < 0 || $result == 2) { return ''; # don't return `undef' which means EOF. } } # add to history buffer $self->add_history($line) if (defined $self->{MinLength} && $self->{MinLength} > 0 && length($line) >= $self->{MinLength}); return $line; } =item C adds the lines to the history of input, from where it can be used if the actual C is present. =cut use vars '*addhistory'; *addhistory = \&AddHistory; # for backward compatibility sub AddHistory { my $self = shift; foreach (@_) { $self->add_history($_); } } =item C, C return the file handles for input and output or C if C input and output cannot be used for Perl. =cut sub IN { $Attribs{instream}; } sub OUT { $Attribs{outstream}; } =item C If argument C is specified, it is an advice on minimal size of line to be included into history. C means do not include anything into history. Returns the old value. =cut sub MinLine { my $self = shift; my $old_minlength = $self->{MinLength}; $self->{MinLength} = shift; $old_minlength; } # findConsole is defined in ReadLine.pm. =item C returns an array with two strings that give most appropriate names for files for input and output using conventions C<"E$in">, C<"E$out">. =item C returns a reference to a hash which describes internal configuration (variables) of the package. Names of keys in this hash conform to standard conventions with the leading C stripped. See section "Variables" for supported variables. =item C Returns a reference to a hash with keys being features present in current implementation. Several optional features are used in the minimal interface: C should be present if the first argument to C is recognized, and C should be present if C method is not dummy. C should be present if lines are put into history automatically (maybe subject to C), and C if C method is not dummy. C means the second argument to C method is processed. C and C denote that the corresponding methods are present. C denotes that a Tk application may run while ReadLine is getting input. =cut # Not tested yet. How do I use this? sub newTTY { my ($self, $in, $out) = @_; $Attribs{instream} = $in; $Attribs{outstream} = $out; my $sel = select($out); $| = 1; # for DB::OUT select($sel); } =back =cut # documented later sub CallbackHandlerInstall { my $self = shift; my ($prompt, $lhandler) = @_; $Attribs{_callback_handler} = $lhandler; # ornament support (now prompt only) $prompt = RL_PROMPT_START_IGNORE . ${$Attribs{term_set}}[0] . RL_PROMPT_END_IGNORE . $prompt . RL_PROMPT_START_IGNORE . ${$Attribs{term_set}}[1] . RL_PROMPT_END_IGNORE; $Attribs{completion_entry_function} = $Attribs{_trp_completion_function} if (!defined $Attribs{completion_entry_function} && defined $Attribs{completion_function}); $self->rl_callback_handler_install($prompt, \&Term::ReadLine::Gnu::XS::_ch_wrapper); } # # Additional Supported Methods # # Documentation is after '__END__' for efficiency. # for backward compatibility use vars qw(*AddDefun *BindKey *UnbindKey *ParseAndBind *StifleHistory); *AddDefun = \&add_defun; *BindKey = \&bind_key; *UnbindKey = \&unbind_key; *ParseAndBind = \&parse_and_bind; *StifleHistory = \&stifle_history; sub SetHistory { my $self = shift; $self->clear_history(); $self->AddHistory(@_); } sub GetHistory { my $self = shift; $self->history_list(); } sub ReadHistory { my $self = shift; ! $self->read_history_range(@_); } sub WriteHistory { my $self = shift; ! $self->write_history(@_); } # # Access Routines for GNU Readline/History Library Variables # package Term::ReadLine::Gnu::Var; use Carp; use strict; use vars qw(%_rl_vars); %_rl_vars = ( rl_line_buffer => ['S', 0], rl_prompt => ['S', 1], rl_librar