From b2a1cd3afd2305dccb504ecc13d54fca3bfad9cd Mon Sep 17 00:00:00 2001 From: thorpej Date: Sun, 16 Jul 2000 00:39:58 +0000 Subject: Import opf p5-IO-Stty-.02, a perl module for futzing w/ TTYs. --- devel/p5-IO-Stty/pkg/COMMENT | 1 + devel/p5-IO-Stty/pkg/DESCR | 34 ++++++++++++++++++++++++++++++++++ devel/p5-IO-Stty/pkg/PLIST | 6 ++++++ 3 files changed, 41 insertions(+) create mode 100644 devel/p5-IO-Stty/pkg/COMMENT create mode 100644 devel/p5-IO-Stty/pkg/DESCR create mode 100644 devel/p5-IO-Stty/pkg/PLIST (limited to 'devel/p5-IO-Stty/pkg') diff --git a/devel/p5-IO-Stty/pkg/COMMENT b/devel/p5-IO-Stty/pkg/COMMENT new file mode 100644 index 00000000000..38b1870bb6f --- /dev/null +++ b/devel/p5-IO-Stty/pkg/COMMENT @@ -0,0 +1 @@ +Perl class for I/O on tty devices. diff --git a/devel/p5-IO-Stty/pkg/DESCR b/devel/p5-IO-Stty/pkg/DESCR new file mode 100644 index 00000000000..30f9e3c1ec7 --- /dev/null +++ b/devel/p5-IO-Stty/pkg/DESCR @@ -0,0 +1,34 @@ + + The two perl items in this package are an stty shell script and a +module for setting terminal parameters. to use the Stty.pm module stuff it in +your $PERL_LIB_DIR/site_perl/IO directory. In your scripts do: + + use IO::Stty; + IO::Stty::stty(\*TTYHANDLE, @modes); + + This has not been tailored to the IO::File stuff but will work with it as +indicated. Before you go futzing with term parameters it's a good idea to grab +the current settings and restore them when you finish. + + Example: + + use IO::Stty; + $old_mode=IO::Stty::stty(\*STDIN,'-g'); + # Turn off echoing. + IO::Stty::stty(\*STDIN,'-echo'); + # Do whatever.. grab input maybe? + $read_password = <>; + # Now restore the old mode. + IO::Stty::stty(\*STDIN,$old_mode); + # What settings do we have anyway? + print IO::Stty::stty(\*STDIN,'-a'); + + + This is use at your own risk software. Do anything you want with it except +blame me for it blowing up your machine because it's full of bugs. + The file stty.txt indicates what functions are supported. Standard POSIX +stuff. If any of the settings are wrong and you actually know what some of +these extremely arcane settings (like what 'sane' should be in POSIX land) +really should be, let me know. + +11-08-97 Austin Schutz diff --git a/devel/p5-IO-Stty/pkg/PLIST b/devel/p5-IO-Stty/pkg/PLIST new file mode 100644 index 00000000000..005151869d3 --- /dev/null +++ b/devel/p5-IO-Stty/pkg/PLIST @@ -0,0 +1,6 @@ +@comment $NetBSD: PLIST,v 1.1.1.1 2000/07/16 00:39:59 thorpej Exp $ +lib/perl5/site_perl/IO/stty.pl +lib/perl5/site_perl/IO/Stty.pm +lib/perl5/site_perl/${MACHINE_ARCH}-${LOWER_OPSYS}/auto/IO/Stty/.packlist +@dirrm lib/perl5/site_perl/${MACHINE_ARCH}-${LOWER_OPSYS}/auto/IO/Stty +@dirrm lib/perl5/site_perl/IO -- cgit v1.2.3