debian/0000755000000000000000000000000011423712017007164 5ustar debian/rules0000755000000000000000000000110311423710434010240 0ustar #!/usr/bin/make -f %: dh $@ override_dh_auto_test: mv $(CURDIR)/Ref_Data/eslect.cdump_ref $(CURDIR)/Ref_Data/eslect.cdump_ref.old mv $(CURDIR)/Ref_Data/nested_heading_prompt.cdump_ref $(CURDIR)/Ref_Data/nested_heading_prompt.cdump_ref.old cp $(CURDIR)/debian/eslect.cdump_ref $(CURDIR)/Ref_Data/ cp $(CURDIR)/debian/nested_heading_prompt.cdump_ref $(CURDIR)/Ref_Data/ dh_auto_test mv $(CURDIR)/Ref_Data/eslect.cdump_ref.old $(CURDIR)/Ref_Data/eslect.cdump_ref mv $(CURDIR)/Ref_Data/nested_heading_prompt.cdump_ref.old $(CURDIR)/Ref_Data/nested_heading_prompt.cdump_ref debian/changelog0000644000000000000000000000414311423711640011041 0ustar libshell-posix-select-perl (0.05-2) unstable; urgency=low [ gregor herrmann ] * Take over for the Debian Perl Group with maintainer's permission (http://lists.debian.org/debian-perl/2008/06/msg00039.html) * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser field (source stanza); Homepage field (source stanza). Changed: Maintainer set to Debian Perl Group (was: Florian Ragwitz ); Florian Ragwitz moved to Uploaders. * Add debian/watch. * debian/control: Changed: Switched Vcs-Browser field to ViewSVN (source stanza). * debian/control: Added: ${misc:Depends} to Depends: field. [ Ryan Niebur ] * Remove Florian Ragwitz from Uploaders * Close ITA (Closes: #523145) [ Nathan Handler ] * debian/watch: Update to ignore development releases. [ gregor herrmann ] * Add /me to Uploaders. * debhelper 7. * Set Standards-Version to 3.9.1; remove version from perl build dependency. * Convert to source format 3.0 (quilt); now we can use binary reference files for the test suite. * debian/copyright: DEP5 format. -- gregor herrmann Tue, 27 Jul 2010 22:19:09 -0400 libshell-posix-select-perl (0.05-1.2) unstable; urgency=low * Non-maintainer upload. * debian/rules: Don't fail when perl is smart enough not to create empty dirs. (Closes: #467759) -- Marc 'HE' Brockschmidt Sat, 05 Apr 2008 17:03:36 +0200 libshell-posix-select-perl (0.05-1.1) unstable; urgency=low * Non-maintainer upload (maintainer allowed it) * Updated testsuite reference files to cope with changes in Filter::Simple. As they contain binary changes, I needed to encode them with uuencode (added the sharutils build-dep) and change the build system to extract them. (Closes: #353133) -- Marc 'HE' Brockschmidt Sun, 23 Apr 2006 19:32:25 +0200 libshell-posix-select-perl (0.05-1) unstable; urgency=low * Initial Release (Closes: #324737). -- Florian Ragwitz Tue, 23 Aug 2005 19:56:53 +0200 debian/nested_heading_prompt.cdump_ref0000644000000000000000000003116411423707103015421 0ustar $Heading=; $Prompt=; OUTER: # Code generated by Shell::POSIX::Select v0.05, by tim(AT)TeachMePerl.com # NOTA BENE: Line 1 of this segment must start with {, so user can LABEL it { # **** NEW WRAPPER SCOPE FOR SELECTLOOP #1 **** $Shell::POSIX::Select::DEBUG > 1 and 1 == 1 and warn "LINE NUMBER FOR START OF USER CODE_BLOCK IS: ", __LINE__, "\n"; _SEL_LOOP1: { # **** NEW SCOPE FOR SELECTLOOP #1 **** # critical for values's contents to be resolved in user's scope local @Shell::POSIX::Select::looplist=(1..4); local $Shell::POSIX::Select::num_values=@Shell::POSIX::Select::looplist; $Shell::POSIX::Select::DEBUG > 4 and do { warn "ARRAY VALUES ARE: @Shell::POSIX::Select::looplist\n"; warn "NUM VALUES is $Shell::POSIX::Select::num_values\n"; warn "user-program debug level is $Shell::POSIX::Select::U_WARN\n"; }; my $quantity; # LOOP-VAR DECLARATION REQUESTED (perhaps by default) # loop-var declaration appears here ; local ( $Shell::POSIX::Select::Prompt[1], $Shell::POSIX::Select::menu ) = Shell::POSIX::Select::make_menu( $Shell::POSIX::Select::Heading || "", $Shell::POSIX::Select::Prompt || "" , # Might be overridden in make_menu @Shell::POSIX::Select::looplist ); # no point in prompting a pipe! local $Shell::POSIX::Select::do_prompt[1] = (-t) ? 1 : 0 ; 0 > 2 and warn "do_prompt is $Shell::POSIX::Select::do_prompt[1]\n"; if ( defined $Shell::POSIX::Select::menu ) { # No list, no iterations! while (1) { # for repeating prompt for selections # localize, so I don't have to reset for # outer loop on exit from inner local ($Reply); while (1) { # for validating user's input local $Shell::POSIX::Select::bad = 0; # local decl suppresses newline on prompt when -l switch turned on { local $\; if ($Shell::POSIX::Select::do_prompt[1]) { # When transferring from INNER to OUTER loop, # extra NL before prompt is visually desirable if ( $Shell::POSIX::Select::_extra_nl) { print STDERR "\n\n"; $Shell::POSIX::Select::_extra_nl=0; } print STDERR "$Shell::POSIX::Select::menu\n$Shell::POSIX::Select::Prompt[1] "; } } # $Shell::POSIX::Select::do_prompt=0; # constant prompting depends on style $Shell::POSIX::Select::do_prompt[1]= 0; if ( $Shell::POSIX::Select::dump_data ) { $Reply = undef; # dump filtered source for comparison against expected print STDERR "copacetic "; # ensure some output, and flush pending exit 222; # code for graceful, expected, early exit } else { # $^W=0; # warn "Waiting for input"; $Eof=0; $Reply = ; # warn "Got input"; # $^W=1; if ( !defined( $Reply ) ) { defined "" and "" ne "" and print STDERR ""; # need to undef loop var; user may check it! undef $quantity; # last Shell::POSIX::Select::_SEL_LOOP1; # Syntax error! # If returning to outer loop, show the prompt for it # warn "User hit ^D"; if ( 1 > 1 and -t ) { # reset prompting for outer loop $Shell::POSIX::Select::do_prompt[1-1] = 1; $Shell::POSIX::Select::_extra_nl=1; } 0 > 2 and warn "Lasting out of _SEL_LOOP1\n"; $Eof=1; last _SEL_LOOP1; } !defined $Reply and die "REPLY accessed, while undefined"; chomp $Reply; # undo emboldening of user input defined "" and "" ne "" and print STDERR ""; #print STDERR "$Shell::POSIX::Select::menu\n$Shell::POSIX::Select::Prompt "; if ( $Reply eq "" ) { # interpreted as re-print menu request # Empty input is legit, means redisplay menu $Shell::POSIX::Select::U_WARN > 1 and warn "\tINPUT IS: empty\n"; $Shell::POSIX::Select::bad = $Shell::POSIX::Select::do_prompt[1] = 1; } elsif ( $Reply =~ /\D/ ) { # shouldn't be any non-digit! $Shell::POSIX::Select::U_WARN > 0 and warn "\tINPUT CONTAINS NON-DIGIT: '$Reply'\n"; $Shell::POSIX::Select::bad = 1; # Korn and Bash shell just ignore this case } elsif ( $Reply < 1 or $Reply > $Shell::POSIX::Select::num_values ) { $Shell::POSIX::Select::U_WARN > 0 and warn "\t'$Reply' IS NOT IN RANGE: 1 - $Shell::POSIX::Select::num_values\n"; $Shell::POSIX::Select::bad = 1; # Korn and Bash shell just ignore this case } # warn "BAD is now: $Shell::POSIX::Select::bad"; $Shell::POSIX::Select::bad or 0 > 2 and warn "About to last out of Reply Validator Loop "; $Shell::POSIX::Select::bad or last; # REPLY VALIDATOR EXITED HERE } # if for validating user input } # infinite while for validating user input $quantity = $Shell::POSIX::Select::looplist[$Reply - 1]; # set users' variable # USER'S LOOP-BLOCK BELOW # warn "inside Outer loop\n"; $Heading=; $Prompt=; # Code generated by Shell::POSIX::Select v0.05, by tim(AT)TeachMePerl.com # NOTA BENE: Line 1 of this segment must start with {, so user can LABEL it { # **** NEW WRAPPER SCOPE FOR SELECTLOOP #2 **** $Shell::POSIX::Select::DEBUG > 1 and 2 == 1 and warn "LINE NUMBER FOR START OF USER CODE_BLOCK IS: ", __LINE__, "\n"; _SEL_LOOP2: { # **** NEW SCOPE FOR SELECTLOOP #2 **** # critical for values's contents to be resolved in user's scope local @Shell::POSIX::Select::looplist=(  ); local $Shell::POSIX::Select::num_values=@Shell::POSIX::Select::looplist; $Shell::POSIX::Select::DEBUG > 4 and do { warn "ARRAY VALUES ARE: @Shell::POSIX::Select::looplist\n"; warn "NUM VALUES is $Shell::POSIX::Select::num_values\n"; warn "user-program debug level is $Shell::POSIX::Select::U_WARN\n"; }; my $size; # LOOP-VAR DECLARATION REQUESTED (perhaps by default) # loop-var declaration appears here ; local ( $Shell::POSIX::Select::Prompt[2], $Shell::POSIX::Select::menu ) = Shell::POSIX::Select::make_menu( $Shell::POSIX::Select::Heading || "", $Shell::POSIX::Select::Prompt || "" , # Might be overridden in make_menu @Shell::POSIX::Select::looplist ); # no point in prompting a pipe! local $Shell::POSIX::Select::do_prompt[2] = (-t) ? 1 : 0 ; 0 > 2 and warn "do_prompt is $Shell::POSIX::Select::do_prompt[2]\n"; if ( defined $Shell::POSIX::Select::menu ) { # No list, no iterations! while (1) { # for repeating prompt for selections # localize, so I don't have to reset for # outer loop on exit from inner local ($Reply); while (1) { # for validating user's input local $Shell::POSIX::Select::bad = 0; # local decl suppresses newline on prompt when -l switch turned on { local $\; if ($Shell::POSIX::Select::do_prompt[2]) { # When transferring from INNER to OUTER loop, # extra NL before prompt is visually desirable if ( $Shell::POSIX::Select::_extra_nl) { print STDERR "\n\n"; $Shell::POSIX::Select::_extra_nl=0; } print STDERR "$Shell::POSIX::Select::menu\n$Shell::POSIX::Select::Prompt[2] "; } } # $Shell::POSIX::Select::do_prompt=0; # constant prompting depends on style $Shell::POSIX::Select::do_prompt[2]= 0; if ( $Shell::POSIX::Select::dump_data ) { $Reply = undef; # dump filtered source for comparison against expected print STDERR "copacetic "; # ensure some output, and flush pending exit 222; # code for graceful, expected, early exit } else { # $^W=0; # warn "Waiting for input"; $Eof=0; $Reply = ; # warn "Got input"; # $^W=1; if ( !defined( $Reply ) ) { defined "" and "" ne "" and print STDERR ""; # need to undef loop var; user may check it! undef $size; # last Shell::POSIX::Select::_SEL_LOOP2; # Syntax error! # If returning to outer loop, show the prompt for it # warn "User hit ^D"; if ( 2 > 1 and -t ) { # reset prompting for outer loop $Shell::POSIX::Select::do_prompt[2-1] = 1; $Shell::POSIX::Select::_extra_nl=1; } 0 > 2 and warn "Lasting out of _SEL_LOOP2\n"; $Eof=1; last _SEL_LOOP2; } !defined $Reply and die "REPLY accessed, while undefined"; chomp $Reply; # undo emboldening of user input defined "" and "" ne "" and print STDERR ""; #print STDERR "$Shell::POSIX::Select::menu\n$Shell::POSIX::Select::Prompt "; if ( $Reply eq "" ) { # interpreted as re-print menu request # Empty input is legit, means redisplay menu $Shell::POSIX::Select::U_WARN > 1 and warn "\tINPUT IS: empty\n"; $Shell::POSIX::Select::bad = $Shell::POSIX::Select::do_prompt[2] = 1; } elsif ( $Reply =~ /\D/ ) { # shouldn't be any non-digit! $Shell::POSIX::Select::U_WARN > 0 and warn "\tINPUT CONTAINS NON-DIGIT: '$Reply'\n"; $Shell::POSIX::Select::bad = 1; # Korn and Bash shell just ignore this case } elsif ( $Reply < 1 or $Reply > $Shell::POSIX::Select::num_values ) { $Shell::POSIX::Select::U_WARN > 0 and warn "\t'$Reply' IS NOT IN RANGE: 1 - $Shell::POSIX::Select::num_values\n"; $Shell::POSIX::Select::bad = 1; # Korn and Bash shell just ignore this case } # warn "BAD is now: $Shell::POSIX::Select::bad"; $Shell::POSIX::Select::bad or 0 > 2 and warn "About to last out of Reply Validator Loop "; $Shell::POSIX::Select::bad or last; # REPLY VALIDATOR EXITED HERE } # if for validating user input } # infinite while for validating user input $size = $Shell::POSIX::Select::looplist[$Reply - 1]; # set users' variable # USER'S LOOP-BLOCK BELOW # warn "inside Inner loop\n"; print ; last OUTER; ; # USER'S LOOP-BLOCK ABOVE # Making sure there's colon (maybe # even two) after codestring above, # in case user omitted after last # statement in block. I might add # another statement below it someday! 0 > 2 and warn "At end of prompt-repeating loop "; } # infinite while for repeating collection of selections 0 and warn "BEYOND end of prompt-repeating loop "; } # endif (defined $Shell::POSIX::Select::menu) else { $Shell::POSIX::Select::DEBUG > 0 and warn "Shell::POSIX::Select: Select Loop #2 has no list, so no iterations\n"; if ( $Shell::POSIX::Select::dump_data ) { $Reply = undef; # dump filtered source for comparison against expected print STDERR "copacetic "; # ensure some output, and flush pending exit 222; # code for graceful, expected, early exit } } # return omitted above, to get last expression's value # returned automatically, just like shell's version } # **** END NEW SCOPE FOR SELECTLOOP #2 **** } # **** END WRAPPER SCOPE FOR SELECTLOOP #2 **** # vi:ts=2 sw=2: # warn "outside Inner loop\n"; ; # USER'S LOOP-BLOCK ABOVE # Making sure there's colon (maybe # even two) after codestring above, # in case user omitted after last # statement in block. I might add # another statement below it someday! 0 > 2 and warn "At end of prompt-repeating loop "; } # infinite while for repeating collection of selections 0 and warn "BEYOND end of prompt-repeating loop "; } # endif (defined $Shell::POSIX::Select::menu) else { $Shell::POSIX::Select::DEBUG > 0 and warn "Shell::POSIX::Select: Select Loop #1 has no list, so no iterations\n"; if ( $Shell::POSIX::Select::dump_data ) { $Reply = undef; # dump filtered source for comparison against expected print STDERR "copacetic "; # ensure some output, and flush pending exit 222; # code for graceful, expected, early exit } } # return omitted above, to get last expression's value # returned automatically, just like shell's version } # **** END NEW SCOPE FOR SELECTLOOP #1 **** } # **** END WRAPPER SCOPE FOR SELECTLOOP #1 **** # vi:ts=2 sw=2: #warn "outside all loops\n"; debian/watch0000644000000000000000000000020011212461447010211 0ustar version=3 http://search.cpan.org/dist/Shell-POSIX-Select/ .+/Shell-POSIX-Select-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$ debian/libshell-posix-select-perl.examples0000644000000000000000000000003511423707217016103 0ustar Scripts/*.plx Scripts/README debian/eslect.cdump_ref0000644000000000000000000001442411423707054012343 0ustar BEGIN { @ARGV or @ARGV= ; } # eslect $var[2] ( ) { print "$var[2]\n" } $Heading=; # Code generated by Shell::POSIX::Select v0.05, by tim(AT)TeachMePerl.com # NOTA BENE: Line 1 of this segment must start with {, so user can LABEL it { # **** NEW WRAPPER SCOPE FOR SELECTLOOP #1 **** $Shell::POSIX::Select::DEBUG > 1 and 1 == 1 and warn "LINE NUMBER FOR START OF USER CODE_BLOCK IS: ", __LINE__, "\n"; _SEL_LOOP1: { # **** NEW SCOPE FOR SELECTLOOP #1 **** # critical for values's contents to be resolved in user's scope local @Shell::POSIX::Select::looplist=(@ARGV); local $Shell::POSIX::Select::num_values=@Shell::POSIX::Select::looplist; $Shell::POSIX::Select::DEBUG > 4 and do { warn "ARRAY VALUES ARE: @Shell::POSIX::Select::looplist\n"; warn "NUM VALUES is $Shell::POSIX::Select::num_values\n"; warn "user-program debug level is $Shell::POSIX::Select::U_WARN\n"; }; ; # NO DECLARATION OF LOOP-VAR REQUESTED # loop-var declaration appears here ; local ( $Shell::POSIX::Select::Prompt[1], $Shell::POSIX::Select::menu ) = Shell::POSIX::Select::make_menu( $Shell::POSIX::Select::Heading || "", $Shell::POSIX::Select::Prompt || "" , # Might be overridden in make_menu @Shell::POSIX::Select::looplist ); # no point in prompting a pipe! local $Shell::POSIX::Select::do_prompt[1] = (-t) ? 1 : 0 ; 0 > 2 and warn "do_prompt is $Shell::POSIX::Select::do_prompt[1]\n"; if ( defined $Shell::POSIX::Select::menu ) { # No list, no iterations! while (1) { # for repeating prompt for selections # localize, so I don't have to reset for # outer loop on exit from inner local ($Reply); while (1) { # for validating user's input local $Shell::POSIX::Select::bad = 0; # local decl suppresses newline on prompt when -l switch turned on { local $\; if ($Shell::POSIX::Select::do_prompt[1]) { # When transferring from INNER to OUTER loop, # extra NL before prompt is visually desirable if ( $Shell::POSIX::Select::_extra_nl) { print STDERR "\n\n"; $Shell::POSIX::Select::_extra_nl=0; } print STDERR "$Shell::POSIX::Select::menu\n$Shell::POSIX::Select::Prompt[1] "; } } # $Shell::POSIX::Select::do_prompt=0; # constant prompting depends on style $Shell::POSIX::Select::do_prompt[1]= 0; if ( $Shell::POSIX::Select::dump_data ) { $Reply = undef; # dump filtered source for comparison against expected print STDERR "copacetic "; # ensure some output, and flush pending exit 222; # code for graceful, expected, early exit } else { # $^W=0; # warn "Waiting for input"; $Eof=0; $Reply = ; # warn "Got input"; # $^W=1; if ( !defined( $Reply ) ) { defined "" and "" ne "" and print STDERR ""; # need to undef loop var; user may check it! undef $var; # last Shell::POSIX::Select::_SEL_LOOP1; # Syntax error! # If returning to outer loop, show the prompt for it # warn "User hit ^D"; if ( 1 > 1 and -t ) { # reset prompting for outer loop $Shell::POSIX::Select::do_prompt[1-1] = 1; $Shell::POSIX::Select::_extra_nl=1; } 0 > 2 and warn "Lasting out of _SEL_LOOP1\n"; $Eof=1; last _SEL_LOOP1; } !defined $Reply and die "REPLY accessed, while undefined"; chomp $Reply; # undo emboldening of user input defined "" and "" ne "" and print STDERR ""; #print STDERR "$Shell::POSIX::Select::menu\n$Shell::POSIX::Select::Prompt "; if ( $Reply eq "" ) { # interpreted as re-print menu request # Empty input is legit, means redisplay menu $Shell::POSIX::Select::U_WARN > 1 and warn "\tINPUT IS: empty\n"; $Shell::POSIX::Select::bad = $Shell::POSIX::Select::do_prompt[1] = 1; } elsif ( $Reply =~ /\D/ ) { # shouldn't be any non-digit! $Shell::POSIX::Select::U_WARN > 0 and warn "\tINPUT CONTAINS NON-DIGIT: '$Reply'\n"; $Shell::POSIX::Select::bad = 1; # Korn and Bash shell just ignore this case } elsif ( $Reply < 1 or $Reply > $Shell::POSIX::Select::num_values ) { $Shell::POSIX::Select::U_WARN > 0 and warn "\t'$Reply' IS NOT IN RANGE: 1 - $Shell::POSIX::Select::num_values\n"; $Shell::POSIX::Select::bad = 1; # Korn and Bash shell just ignore this case } # warn "BAD is now: $Shell::POSIX::Select::bad"; $Shell::POSIX::Select::bad or 0 > 2 and warn "About to last out of Reply Validator Loop "; $Shell::POSIX::Select::bad or last; # REPLY VALIDATOR EXITED HERE } # if for validating user input } # infinite while for validating user input $var = $Shell::POSIX::Select::looplist[$Reply - 1]; # set users' variable # USER'S LOOP-BLOCK BELOW print ; ; # USER'S LOOP-BLOCK ABOVE # Making sure there's colon (maybe # even two) after codestring above, # in case user omitted after last # statement in block. I might add # another statement below it someday! 0 > 2 and warn "At end of prompt-repeating loop "; } # infinite while for repeating collection of selections 0 and warn "BEYOND end of prompt-repeating loop "; } # endif (defined $Shell::POSIX::Select::menu) else { $Shell::POSIX::Select::DEBUG > 0 and warn "Shell::POSIX::Select: Select Loop #1 has no list, so no iterations\n"; if ( $Shell::POSIX::Select::dump_data ) { $Reply = undef; # dump filtered source for comparison against expected print STDERR "copacetic "; # ensure some output, and flush pending exit 222; # code for graceful, expected, early exit } } # return omitted above, to get last expression's value # returned automatically, just like shell's version } # **** END NEW SCOPE FOR SELECTLOOP #1 **** } # **** END WRAPPER SCOPE FOR SELECTLOOP #1 **** # vi:ts=2 sw=2: debian/control0000644000000000000000000000266511423711536010605 0ustar Source: libshell-posix-select-perl Section: perl Priority: optional Build-Depends: debhelper (>= 7.0.50~) Build-Depends-Indep: perl Maintainer: Debian Perl Group Uploaders: gregor herrmann Standards-Version: 3.9.1 Homepage: http://search.cpan.org/dist/Shell-POSIX-Select/ Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libshell-posix-select-perl/ Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libshell-posix-select-perl/ Package: libshell-posix-select-perl Architecture: all Depends: ${misc:Depends}, ${perl:Depends} Description: POSIX Shell's "select" loop for Perl Shell::POSIX::Select implements the select loop of the "POSIX" shells (Bash, Korn, and derivatives) for Perl. That loop is unique in two ways: it's by far the friendliest feature of any UNIX shell, and it's the only UNIX shell loop that's missing from the Perl language. Until now! . What's so great about this loop? It automates the generation of a numbered menu of choices, prompts for a choice, proofreads that choice and complains if it's invalid (at least in this enhanced implementation), and executes a code-block with a variable set to the chosen value. That saves a lot of coding for interactive programs -- especially if the menu consists of many values! . The benefit of bringing this loop to Perl is that it obviates the need for future programmers to reinvent the Choose-From-A-Menu wheel. debian/copyright0000644000000000000000000000226311423711026011121 0ustar Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135 Maintainer: Tim Maher Source: http://search.cpan.org/dist/Shell-POSIX-Select/ Name: Shell-POSIX-Select Files: * Copyright: 2002-2003, Timothy F. Maher License: Artistic or GPL-1+ Files: debian/* Copyright: 2005, Florian Ragwitz 2006, 2008, Marc 'HE' Brockschmidt 2009, Ryan Niebur 2010, gregor herrmann License: Artistic or GPL-1+ License: Artistic This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, which comes with Perl. . On Debian GNU/Linux systems, the complete text of the Artistic License can be found in `/usr/share/common-licenses/Artistic'. License: GPL-1+ This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. . On Debian GNU/Linux systems, the complete text of version 1 of the General Public License can be found in `/usr/share/common-licenses/GPL-1'. debian/source/0000755000000000000000000000000011423711652010470 5ustar debian/source/format0000644000000000000000000000001411423707321011674 0ustar 3.0 (quilt) debian/source/include-binaries0000644000000000000000000000007711423711204013625 0ustar debian/eslect.cdump_ref debian/nested_heading_prompt.cdump_ref debian/compat0000644000000000000000000000000211423707321010364 0ustar 7 debian/clean0000644000000000000000000000002611423707257010201 0ustar Scripts/*.plx *.sdump