cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

hrmph..

Browse Source
This commit is contained in:
margarida 2003-01-27 23:41:53 +00:00
parent 789b325b54
commit 9ff7afb0f9
29 changed files with 0 additions and 3568 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/.build_done
View File

0
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/.configure_done
View File

0
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/.extract_done
View File

0
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/.extract_started
View File

0
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/.patch_done
View File

5
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/Term-Screen-1.02/MANIFEST
View File

@ -1,5 +0,0 @@
MANIFEST
README
Screen.pm
Makefile.PL
test.pl

687
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/Term-Screen-1.02/Makefile
View File

@ -1,687 +0,0 @@
# This Makefile is for the Term::Screen extension to perl.
#
# It was generated automatically by MakeMaker version
# 6.03 (Revision: 1.6) from the contents of
# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
#
# ANY CHANGES MADE HERE WILL BE LOST!
#
# MakeMaker ARGV: (q[PREFIX=${DESTDIR}/usr/local], q[INSTALLSITELIB=${DESTDIR}/usr/local/libdata/perl5/site_perl], q[INSTALLSITEARCH=${INSTALLSITELIB}/sparc64-openbsd], q[INSTALLPRIVLIB=${DESTDIR}/usr/./libdata/perl5], q[INSTALLARCHLIB=${INSTALLPRIVLIB}/sparc64-openbsd], q[INSTALLMAN1DIR=${DESTDIR}/usr/local/man/man1], q[INSTALLMAN3DIR=${DESTDIR}/usr/local/man/man3p], q[INSTALLBIN=${PREFIX}/bin], q[INSTALLSCRIPT=${INSTALLBIN}])
#
# MakeMaker Parameters:
# NAME => q[Term::Screen]
# PREREQ_PM => { Term::Cap=>q[0] }
# VERSION_FROM => q[Screen.pm]
# --- MakeMaker post_initialize section:
# --- MakeMaker const_config section:
# These definitions are from config.sh (via /usr/libdata/perl5/sparc64-openbsd/5.8.0/Config.pm)
# They may have been overridden via Makefile.PL or on the command line
AR = ar
CC = cc
CCCDLFLAGS = -DPIC -fPIC
CCDLFLAGS = -Wl,-R/usr/libdata/perl5/sparc64-openbsd/5.8.0/CORE
DLEXT = so
DLSRC = dl_dlopen.xs
LD = cc
LDDLFLAGS = -shared -fPIC
LDFLAGS = -Wl,-E
LIBC = /usr/lib/libc.so.29.0
LIB_EXT = .a
OBJ_EXT = .o
OSNAME = openbsd
OSVERS = 3.2
RANLIB = ranlib
SO = so
EXE_EXT =
FULL_AR = /usr/bin/ar
# --- MakeMaker constants section:
AR_STATIC_ARGS = cr
NAME = Term::Screen
DISTNAME = Term-Screen
NAME_SYM = Term_Screen
VERSION = 1.02
VERSION_SYM = 1_02
XS_VERSION = 1.02
INST_ARCHLIB = blib/arch
INST_SCRIPT = blib/script
INST_BIN = blib/bin
INST_LIB = blib/lib
INSTALLDIRS = site
PREFIX = ${DESTDIR}/usr/local
SITEPREFIX = ${DESTDIR}/usr/local
VENDORPREFIX = ${DESTDIR}/usr/local
INSTALLPRIVLIB = ${DESTDIR}/usr/./libdata/perl5
INSTALLSITELIB = ${DESTDIR}/usr/local/libdata/perl5/site_perl
INSTALLVENDORLIB = ${DESTDIR}/usr/local/lib/perl5
INSTALLARCHLIB = ${INSTALLPRIVLIB}/sparc64-openbsd
INSTALLSITEARCH = ${INSTALLSITELIB}/sparc64-openbsd
INSTALLVENDORARCH = ${DESTDIR}/usr/local/lib/perl5/5.8.0/sparc64-openbsd
INSTALLBIN = ${PREFIX}/bin
INSTALLSITEBIN = ${DESTDIR}/usr/local/bin
INSTALLVENDORBIN = ${DESTDIR}/usr/local/bin
INSTALLSCRIPT = ${INSTALLBIN}
PERL_LIB = /usr/libdata/perl5
PERL_ARCHLIB = /usr/libdata/perl5/sparc64-openbsd/5.8.0
SITELIBEXP = /usr/local/libdata/perl5/site_perl
SITEARCHEXP = /usr/local/libdata/perl5/site_perl/sparc64-openbsd
LIBPERL_A = libperl.a
FIRST_MAKEFILE = Makefile
MAKE_APERL_FILE = Makefile.aperl
PERLMAINCC = $(CC)
PERL_INC = /usr/libdata/perl5/sparc64-openbsd/5.8.0/CORE
PERL = /usr/bin/perl
FULLPERL = /usr/bin/perl
PERLRUN = $(PERL)
FULLPERLRUN = $(FULLPERL)
PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
ABSPERL = $(PERL)
ABSPERLRUN = $(ABSPERL)
ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
FULL_AR = /usr/bin/ar
PERL_CORE = 0
NOOP = $(SHELL) -c true
NOECHO = @
VERSION_MACRO = VERSION
DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"
XS_VERSION_MACRO = XS_VERSION
XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"
PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc
MAKEMAKER = /usr/libdata/perl5/ExtUtils/MakeMaker.pm
MM_VERSION = 6.03
# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle).
# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle)
# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar)
# DLBASE = Basename part of dynamic library. May be just equal BASEEXT.
FULLEXT = Term/Screen
BASEEXT = Screen
PARENT_NAME = Term
DLBASE = $(BASEEXT)
VERSION_FROM = Screen.pm
OBJECT =
LDFROM = $(OBJECT)
LINKTYPE = dynamic
# Handy lists of source code files:
XS_FILES=
C_FILES =
O_FILES =
H_FILES =
MAN1PODS =
MAN3PODS = Screen.pm
INST_MAN1DIR = blib/man1
MAN1EXT = 1
INSTALLMAN1DIR = ${DESTDIR}/usr/local/man/man1
INSTALLSITEMAN1DIR = ${DESTDIR}/usr/local/man/man$(MAN1EXT)
INSTALLVENDORMAN1DIR = ${DESTDIR}/usr/local/man/man$(MAN1EXT)
INST_MAN3DIR = blib/man3
MAN3EXT = 3p
INSTALLMAN3DIR = ${DESTDIR}/usr/local/man/man3p
INSTALLSITEMAN3DIR = ${DESTDIR}/usr/local/man/man$(MAN3EXT)
INSTALLVENDORMAN3DIR = ${DESTDIR}/usr/local/man/man$(MAN3EXT)
PERM_RW = 644
PERM_RWX = 755
# work around a famous dec-osf make(1) feature(?):
makemakerdflt: all
.SUFFIXES: .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT)
# Nick wanted to get rid of .PRECIOUS. I don't remember why. I seem to recall, that
# some make implementations will delete the Makefile when we rebuild it. Because
# we call false(1) when we rebuild it. So make(1) is not completely wrong when it
# does so. Our milage may vary.
# .PRECIOUS: Makefile # seems to be not necessary anymore
.PHONY: all config static dynamic test linkext manifest
# Where is the Config information that we are using/depend on
CONFIGDEP = $(PERL_ARCHLIB)/Config.pm $(PERL_INC)/config.h
# Where to put things:
INST_LIBDIR = $(INST_LIB)/Term
INST_ARCHLIBDIR = $(INST_ARCHLIB)/Term
INST_AUTODIR = $(INST_LIB)/auto/$(FULLEXT)
INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT)
INST_STATIC =
INST_DYNAMIC =
INST_BOOT =
EXPORT_LIST =
PERL_ARCHIVE =
PERL_ARCHIVE_AFTER =
TO_INST_PM = Screen.pm
PM_TO_BLIB = Screen.pm \
blib/lib/Term/Screen.pm
# --- MakeMaker tool_autosplit section:
# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
AUTOSPLITFILE = $(PERLRUN) -e 'use AutoSplit; autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1) ;'
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = cc
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f
RM_RF = rm -rf
TEST_F = test -f
TOUCH = touch
UMASK_NULL = umask 0
DEV_NULL = > /dev/null 2>&1
# The following is a portable way to say mkdir -p
# To see which directories are created, change the if 0 to if 1
MKPATH = $(PERLRUN) "-MExtUtils::Command" -e mkpath
# This helps us to minimize the effect of the .exists files A yet
# better solution would be to have a stable file in the perl
# distribution with a timestamp of zero. But this solution doesn't
# need any changes to the core distribution and works with older perls
EQUALIZE_TIMESTAMP = $(PERLRUN) "-MExtUtils::Command" -e eqtime
# Here we warn users that an old packlist file was found somewhere,
# and that they should call some uninstall routine
WARN_IF_OLD_PACKLIST = $(PERL) -we 'exit unless -f $$ARGV[0];' \
-e 'print "WARNING: I have found an old package in\n";' \
-e 'print "\t$$ARGV[0].\n";' \
-e 'print "Please make sure the two installations are not conflicting\n";'
UNINST=0
VERBINST=0
MOD_INSTALL = $(PERL) "-I$(INST_LIB)" "-I$(PERL_LIB)" "-MExtUtils::Install" \
-e "install({@ARGV},'$(VERBINST)',0,'$(UNINST)');"
DOC_INSTALL = $(PERL) -e '$$\="\n\n";' \
-e 'print "=head2 ", scalar(localtime), ": C<", shift, ">", " L<", $$arg=shift, "|", $$arg, ">";' \
-e 'print "=over 4";' \
-e 'while (defined($$key = shift) and defined($$val = shift)){print "=item *";print "C<$$key: $$val>";}' \
-e 'print "=back";'
UNINSTALL = $(PERLRUN) "-MExtUtils::Install" \
-e 'uninstall($$ARGV[0],1,1); print "\nUninstall is deprecated. Please check the";' \
-e 'print " packlist above carefully.\n There may be errors. Remove the";' \
-e 'print " appropriate files manually.\n Sorry for the inconveniences.\n"'
# --- MakeMaker dist section:
ZIPFLAGS = -r
TO_UNIX = @$(NOOP)
TAR = tar
POSTOP = @$(NOOP)
ZIP = zip
DIST_DEFAULT = tardist
CI = ci -u
SHAR = shar
COMPRESS = gzip --best
DIST_CP = best
PREOP = @$(NOOP)
TARFLAGS = cvf
DISTVNAME = $(DISTNAME)-$(VERSION)
SUFFIX = .gz
RCS_LABEL = rcs -Nv$(VERSION_SYM): -q
# --- MakeMaker macro section:
# --- MakeMaker depend section:
# --- MakeMaker cflags section:
# --- MakeMaker const_loadlibs section:
# --- MakeMaker const_cccmd section:
# --- MakeMaker post_constants section:
# --- MakeMaker pasthru section:
PASTHRU = LIB="$(LIB)"\
LIBPERL_A="$(LIBPERL_A)"\
LINKTYPE="$(LINKTYPE)"\
PREFIX="$(PREFIX)"\
OPTIMIZE="$(OPTIMIZE)"\
PASTHRU_DEFINE="$(PASTHRU_DEFINE)"\
PASTHRU_INC="$(PASTHRU_INC)"
# --- MakeMaker c_o section:
# --- MakeMaker xs_c section:
# --- MakeMaker xs_o section:
# --- MakeMaker top_targets section:
all :: pure_all manifypods
@$(NOOP)
pure_all :: config pm_to_blib subdirs linkext
@$(NOOP)
subdirs :: $(MYEXTLIB)
@$(NOOP)
config :: Makefile $(INST_LIBDIR)/.exists
@$(NOOP)
config :: $(INST_ARCHAUTODIR)/.exists
@$(NOOP)
config :: $(INST_AUTODIR)/.exists
@$(NOOP)
$(INST_AUTODIR)/.exists :: /usr/libdata/perl5/sparc64-openbsd/5.8.0/CORE/perl.h
@$(MKPATH) $(INST_AUTODIR)
@$(EQUALIZE_TIMESTAMP) /usr/libdata/perl5/sparc64-openbsd/5.8.0/CORE/perl.h $(INST_AUTODIR)/.exists
-@$(CHMOD) $(PERM_RWX) $(INST_AUTODIR)
$(INST_LIBDIR)/.exists :: /usr/libdata/perl5/sparc64-openbsd/5.8.0/CORE/perl.h
@$(MKPATH) $(INST_LIBDIR)
@$(EQUALIZE_TIMESTAMP) /usr/libdata/perl5/sparc64-openbsd/5.8.0/CORE/perl.h $(INST_LIBDIR)/.exists
-@$(CHMOD) $(PERM_RWX) $(INST_LIBDIR)
$(INST_ARCHAUTODIR)/.exists :: /usr/libdata/perl5/sparc64-openbsd/5.8.0/CORE/perl.h
@$(MKPATH) $(INST_ARCHAUTODIR)
@$(EQUALIZE_TIMESTAMP) /usr/libdata/perl5/sparc64-openbsd/5.8.0/CORE/perl.h $(INST_ARCHAUTODIR)/.exists
-@$(CHMOD) $(PERM_RWX) $(INST_ARCHAUTODIR)
config :: $(INST_MAN3DIR)/.exists
@$(NOOP)
$(INST_MAN3DIR)/.exists :: /usr/libdata/perl5/sparc64-openbsd/5.8.0/CORE/perl.h
@$(MKPATH) $(INST_MAN3DIR)
@$(EQUALIZE_TIMESTAMP) /usr/libdata/perl5/sparc64-openbsd/5.8.0/CORE/perl.h $(INST_MAN3DIR)/.exists
-@$(CHMOD) $(PERM_RWX) $(INST_MAN3DIR)
help:
perldoc ExtUtils::MakeMaker
# --- MakeMaker linkext section:
linkext :: $(LINKTYPE)
@$(NOOP)
# --- MakeMaker dlsyms section:
# --- MakeMaker dynamic section:
## $(INST_PM) has been moved to the all: target.
## It remains here for awhile to allow for old usage: "make dynamic"
#dynamic :: Makefile $(INST_DYNAMIC) $(INST_BOOT) $(INST_PM)
dynamic :: Makefile $(INST_DYNAMIC) $(INST_BOOT)
@$(NOOP)
# --- MakeMaker dynamic_bs section:
BOOTSTRAP =
# --- MakeMaker dynamic_lib section:
# --- MakeMaker static section:
## $(INST_PM) has been moved to the all: target.
## It remains here for awhile to allow for old usage: "make static"
#static :: Makefile $(INST_STATIC) $(INST_PM)
static :: Makefile $(INST_STATIC)
@$(NOOP)
# --- MakeMaker static_lib section:
# --- MakeMaker manifypods section:
POD2MAN_EXE = /usr/bin/pod2man
POD2MAN = $(PERL) -we '%m=@ARGV;for (keys %m){' \
-e 'next if -e $$m{$$_} && -M $$m{$$_} < -M $$_ && -M $$m{$$_} < -M "Makefile";' \
-e 'print "Manifying $$m{$$_}\n";' \
-e 'system(q[$(PERLRUN) $(POD2MAN_EXE) ].qq[$$_>$$m{$$_}])==0 or warn "Couldn\047t install $$m{$$_}\n";' \
-e 'chmod(oct($(PERM_RW)), $$m{$$_}) or warn "chmod $(PERM_RW) $$m{$$_}: $$!\n";}'
manifypods : pure_all Screen.pm
@$(POD2MAN) \
Screen.pm \
$(INST_MAN3DIR)/Term::Screen.$(MAN3EXT)
# --- MakeMaker processPL section:
# --- MakeMaker installbin section:
# --- MakeMaker subdirs section:
# none
# --- MakeMaker clean section:
# Delete temporary files but do not touch installed files. We don't delete
# the Makefile here so a later make realclean still has a makefile to use.
clean ::
-rm -rf ./blib $(MAKE_APERL_FILE) $(INST_ARCHAUTODIR)/extralibs.all perlmain.c tmon.out mon.out so_locations pm_to_blib *$(OBJ_EXT) *$(LIB_EXT) perl.exe perl perl$(EXE_EXT) $(BOOTSTRAP) $(BASEEXT).bso $(BASEEXT).def lib$(BASEEXT).def $(BASEEXT).exp $(BASEEXT).x core core.*perl.*.? *perl.core
-mv Makefile Makefile.old $(DEV_NULL)
# --- MakeMaker realclean section:
# Delete temporary files (via clean) and also delete installed files
realclean purge :: clean
rm -rf $(INST_AUTODIR) $(INST_ARCHAUTODIR)
rm -rf $(DISTVNAME)
rm -f blib/lib/Term/Screen.pm
rm -rf Makefile Makefile.old
# --- MakeMaker dist_basics section:
distclean :: realclean distcheck
$(NOECHO) $(NOOP)
distcheck :
$(PERLRUN) "-MExtUtils::Manifest=fullcheck" -e fullcheck
skipcheck :
$(PERLRUN) "-MExtUtils::Manifest=skipcheck" -e skipcheck
manifest :
$(PERLRUN) "-MExtUtils::Manifest=mkmanifest" -e mkmanifest
veryclean : realclean
$(RM_F) *~ *.orig */*~ */*.orig
# --- MakeMaker dist_core section:
dist : $(DIST_DEFAULT)
@$(PERL) -le 'print "Warning: Makefile possibly out of date with $$vf" if ' \
-e '-e ($$vf="$(VERSION_FROM)") and -M $$vf < -M "Makefile";'
tardist : $(DISTVNAME).tar$(SUFFIX)
zipdist : $(DISTVNAME).zip
$(DISTVNAME).tar$(SUFFIX) : distdir
$(PREOP)
$(TO_UNIX)
$(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME)
$(RM_RF) $(DISTVNAME)
$(COMPRESS) $(DISTVNAME).tar
$(POSTOP)
$(DISTVNAME).zip : distdir
$(PREOP)
$(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME)
$(RM_RF) $(DISTVNAME)
$(POSTOP)
uutardist : $(DISTVNAME).tar$(SUFFIX)
uuencode $(DISTVNAME).tar$(SUFFIX) \
$(DISTVNAME).tar$(SUFFIX) > \
$(DISTVNAME).tar$(SUFFIX)_uu
shdist : distdir
$(PREOP)
$(SHAR) $(DISTVNAME) > $(DISTVNAME).shar
$(RM_RF) $(DISTVNAME)
$(POSTOP)
# --- MakeMaker dist_dir section:
distdir :
$(RM_RF) $(DISTVNAME)
$(PERLRUN) "-MExtUtils::Manifest=manicopy,maniread" \
-e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');"
# --- MakeMaker dist_test section:
disttest : distdir
cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL
cd $(DISTVNAME) && $(MAKE) $(PASTHRU)
cd $(DISTVNAME) && $(MAKE) test $(PASTHRU)
# --- MakeMaker dist_ci section:
ci :
$(PERLRUN) "-MExtUtils::Manifest=maniread" \
-e "@all = keys %{ maniread() };" \
-e 'print("Executing $(CI) @all\n"); system("$(CI) @all");' \
-e 'print("Executing $(RCS_LABEL) ...\n"); system("$(RCS_LABEL) @all");'
# --- MakeMaker install section:
install :: all pure_install doc_install
install_perl :: all pure_perl_install doc_perl_install
install_site :: all pure_site_install doc_site_install
install_vendor :: all pure_vendor_install doc_vendor_install
pure_install :: pure_$(INSTALLDIRS)_install
doc_install :: doc_$(INSTALLDIRS)_install
@echo Appending installation info to $(INSTALLARCHLIB)/perllocal.pod
pure__install : pure_site_install
@echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
doc__install : doc_site_install
@echo INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
pure_perl_install ::
@$(MOD_INSTALL) \
read $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist \
write $(INSTALLARCHLIB)/auto/$(FULLEXT)/.packlist \
$(INST_LIB) $(INSTALLPRIVLIB) \
$(INST_ARCHLIB) $(INSTALLARCHLIB) \
$(INST_BIN) $(INSTALLBIN) \
$(INST_SCRIPT) $(INSTALLSCRIPT) \
$(INST_MAN1DIR) $(INSTALLMAN1DIR) \
$(INST_MAN3DIR) $(INSTALLMAN3DIR)
@$(WARN_IF_OLD_PACKLIST) \
$(SITEARCHEXP)/auto/$(FULLEXT)
pure_site_install ::
@$(MOD_INSTALL) \
read $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist \
write $(INSTALLSITEARCH)/auto/$(FULLEXT)/.packlist \
$(INST_LIB) $(INSTALLSITELIB) \
$(INST_ARCHLIB) $(INSTALLSITEARCH) \
$(INST_BIN) $(INSTALLSITEBIN) \
$(INST_SCRIPT) $(INSTALLSCRIPT) \
$(INST_MAN1DIR) $(INSTALLSITEMAN1DIR) \
$(INST_MAN3DIR) $(INSTALLSITEMAN3DIR)
@$(WARN_IF_OLD_PACKLIST) \
$(PERL_ARCHLIB)/auto/$(FULLEXT)
pure_vendor_install ::
@$(MOD_INSTALL) \
$(INST_LIB) $(INSTALLVENDORLIB) \
$(INST_ARCHLIB) $(INSTALLVENDORARCH) \
$(INST_BIN) $(INSTALLVENDORBIN) \
$(INST_SCRIPT) $(INSTALLSCRIPT) \
$(INST_MAN1DIR) $(INSTALLVENDORMAN1DIR) \
$(INST_MAN3DIR) $(INSTALLVENDORMAN3DIR)
doc_perl_install ::
-@$(MKPATH) $(INSTALLARCHLIB)
-@$(DOC_INSTALL) \
"Module" "$(NAME)" \
"installed into" "$(INSTALLPRIVLIB)" \
LINKTYPE "$(LINKTYPE)" \
VERSION "$(VERSION)" \
EXE_FILES "$(EXE_FILES)" \
>> $(INSTALLARCHLIB)/perllocal.pod
doc_site_install ::
-@$(MKPATH) $(INSTALLARCHLIB)
-@$(DOC_INSTALL) \
"Module" "$(NAME)" \
"installed into" "$(INSTALLSITELIB)" \
LINKTYPE "$(LINKTYPE)" \
VERSION "$(VERSION)" \
EXE_FILES "$(EXE_FILES)" \
>> $(INSTALLSITEARCH)/perllocal.pod
doc_vendor_install ::
uninstall :: uninstall_from_$(INSTALLDIRS)dirs
uninstall_from_perldirs ::
@$(UNINSTALL) $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist
uninstall_from_sitedirs ::
@$(UNINSTALL) $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist
# --- MakeMaker force section:
# Phony target to force checking subdirectories.
FORCE:
@$(NOOP)
# --- MakeMaker perldepend section:
# --- MakeMaker makefile section:
# We take a very conservative approach here, but it\'s worth it.
# We move Makefile to Makefile.old here to avoid gnu make looping.
Makefile : Makefile.PL $(CONFIGDEP)
@echo "Makefile out-of-date with respect to $?"
@echo "Cleaning current config before rebuilding Makefile..."
-@$(RM_F) Makefile.old
-@$(MV) Makefile Makefile.old
-$(MAKE) -f Makefile.old clean $(DEV_NULL) || $(NOOP)
$(PERLRUN) Makefile.PL "PREFIX=${DESTDIR}/usr/local" "INSTALLSITELIB=${DESTDIR}/usr/local/libdata/perl5/site_perl" "INSTALLSITEARCH=${INSTALLSITELIB}/sparc64-openbsd" "INSTALLPRIVLIB=${DESTDIR}/usr/./libdata/perl5" "INSTALLARCHLIB=${INSTALLPRIVLIB}/sparc64-openbsd" "INSTALLMAN1DIR=${DESTDIR}/usr/local/man/man1" "INSTALLMAN3DIR=${DESTDIR}/usr/local/man/man3p" "INSTALLBIN=${PREFIX}/bin" "INSTALLSCRIPT=${INSTALLBIN}"
@echo "==> Your Makefile has been rebuilt. <=="
@echo "==> Please rerun the make command. <=="
false
# --- MakeMaker staticmake section:
# --- MakeMaker makeaperl section ---
MAP_TARGET = perl
FULLPERL = /usr/bin/perl
$(MAP_TARGET) :: static $(MAKE_APERL_FILE)
$(MAKE) -f $(MAKE_APERL_FILE) $@
$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE)
@echo Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET)
@$(PERLRUNINST) \
Makefile.PL DIR= \
MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \
MAKEAPERL=1 NORECURS=1 CCCDLFLAGS= \
PREFIX=${DESTDIR}/usr/local \
INSTALLSITELIB=${DESTDIR}/usr/local/libdata/perl5/site_perl \
INSTALLSITEARCH=${INSTALLSITELIB}/sparc64-openbsd \
INSTALLPRIVLIB=${DESTDIR}/usr/./libdata/perl5 \
INSTALLARCHLIB=${INSTALLPRIVLIB}/sparc64-openbsd \
INSTALLMAN1DIR=${DESTDIR}/usr/local/man/man1 \
INSTALLMAN3DIR=${DESTDIR}/usr/local/man/man3p \
INSTALLBIN=${PREFIX}/bin \
INSTALLSCRIPT=${INSTALLBIN}
# --- MakeMaker test section:
TEST_VERBOSE=0
TEST_TYPE=test_$(LINKTYPE)
TEST_FILE = test.pl
TEST_FILES =
TESTDB_SW = -d
testdb :: testdb_$(LINKTYPE)
test :: $(TEST_TYPE)
test_dynamic :: pure_all
PERL_DL_NONLAZY=1 $(FULLPERLRUN) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
testdb_dynamic :: pure_all
PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
test_ : test_dynamic
test_static :: test_dynamic
testdb_static :: testdb_dynamic
# --- MakeMaker ppd section:
# Creates a PPD (Perl Package Description) for a binary distribution.
ppd:
@$(PERL) -e "print qq{<SOFTPKG NAME=\"$(DISTNAME)\" VERSION=\"1,02,0,0\">\n\t<TITLE>$(DISTNAME)</TITLE>\n\t<ABSTRACT></ABSTRACT>\n\t<AUTHOR></AUTHOR>\n}" > $(DISTNAME).ppd
@$(PERL) -e "print qq{\t<IMPLEMENTATION>\n\t\t<DEPENDENCY NAME=\"Term-Cap\" VERSION=\"0,0,0,0\" />\n}" >> $(DISTNAME).ppd
@$(PERL) -e "print qq{\t\t<OS NAME=\"$(OSNAME)\" />\n\t\t<ARCHITECTURE NAME=\"sparc64-openbsd\" />\n\t\t<CODEBASE HREF=\"\" />\n\t</IMPLEMENTATION>\n</SOFTPKG>\n}" >> $(DISTNAME).ppd
# --- MakeMaker pm_to_blib section:
pm_to_blib: $(TO_INST_PM)
@$(PERLRUNINST) "-MExtUtils::Install" \
-e "pm_to_blib({qw{Screen.pm blib/lib/Term/Screen.pm}},'$(INST_LIB)/auto','$(PM_FILTER)')"
@$(TOUCH) $@
# --- MakeMaker selfdocument section:
# --- MakeMaker postamble section:
# End.

7
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/Term-Screen-1.02/Makefile.PL
View File

@ -1,7 +0,0 @@
use ExtUtils::MakeMaker;
WriteMakefile(
'NAME' => 'Term::Screen',
'VERSION_FROM' => 'Screen.pm',
'PREREQ_PM' => { Term::Cap => 0 },
);

61
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/Term-Screen-1.02/README
View File

@ -1,61 +0,0 @@
Term::Screen version 1.01
=========================
This module provides a simple interface to the terminal control features
for character mode terminals.
INSTALLATION
This module will build in the usual way :
perl Makefile.PL
make
make test
make install
This last step may need to be done as a user with permission to write into
the Perl library directories - if you are not able to do this you may run
the first step with:
perl Makefile.PL PREFIX=/some/directory/you/can/write/to
And then run the rest of the procedure as usual - you will need to add
that path to @INC as described in the FAQ or in the manpage for the 'lib'
pragma.
DEPENDENCIES
This module depends on version 1.01 or greater of Term::Cap - whilst this
module has been in the core Perl distribution for some years it had
previously required a patch - 1.01 is available as part of the 5.7.2
development release (not intended for general release) and will be in
5.8.0 - it is hoped that 1.02 will be released to CPAN for those who
dont want to upgrade their version of Perl just now.
TO DO
Make a terminfo version of this so better function key support would be
built in.
Make an MS-DOS version and a MAC version and an OS/2 version and a VMS
version, and ... so we can stop seeing "how can I read one char questions"
SUPPORT
Please contact the current maintainer of this module to report any bugs
or suggest changes to this module.
Jonathan Stowe <jns@gellyfish.com>
COPYRIGHT AND LICENSE
Copyright (c) Mark Kaehny 1996
Jonathan Stowe 2001
This is free software it can be modified and distributed under the same
terms as Perl itself - see the README file in the Perl Distribution for
more information.
Mark Kaehny
kaehny@execpc.com

628
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/Term-Screen-1.02/Screen.pm
View File

@ -1,628 +0,0 @@
# $Id: Screen.pm,v 1.1.1.1 2003/01/27 23:34:37 margarida Exp $
package Term::Screen;
use strict;
use vars qw($VERSION);
$VERSION = '1.02';
=head1 NAME
Term::Screen - A Simple all perl Term::Cap based screen positioning module
=head1 SYNOPSIS
require Term::Screen;
$scr = new Term::Screen;
unless ($scr) { die " Something's wrong \n"; }
$scr->clrscr();
$scr->at(5,3);
$scr->puts("this is some stuff");
$scr->at(10,10)->bold()->puts("hi!")->normal();
# you can concatenate many calls (not getch)
$c = $scr->getch(); # doesn't need Enter key
...
if ($scr->key_pressed()) { print "ha you hit a key!"; }
=head1 DESCRIPTION
Term::Screen is a very simple screen positioning module that should
work wherever C<Term::Cap> does. It is set up for Unix using stty's but
these dependences are isolated by evals in the C<new> constructor. Thus
you may create a child module implementing Screen with MS-DOS, ioctl,
or other means to get raw and unblocked input. This is not a replacement
for Curses -- it has no memory. This was written so that it could be
easily changed to fit nasty systems, and to be available first thing.
The input functions getch, key_pressed, echo, and noecho are implemented
so as to work under a fairly standard Unix system. They use 'stty'
to set raw and no echo modes and turn on auto flush. All of these are
'eval'ed so that this class can be inherited for new definitions easily.
Term::Screen was designed to be "required", then used with object syntax
as shown above. One quirk (which the author was used to so he didn't
care) is that for function key translation, no delay is set. So for many
terminals to get an esc character, you have to hit another char after it,
generally another esc.
=head1 PUBLIC INTERFACE
Term::Screen has a very minimal set of of fixed character terminal position
and character reading commands:
=over 4
=cut
require Term::Cap;
=item new()
Initialize the screen. Does not clear the screen, but does home the cursor.
=cut
sub new
{
my ($prototype, @args) = @_;
my $classname = ref($prototype) || $prototype;
my ($ospeed);
# adjust OSPEED below to your system.
eval { $ospeed = `stty speed`; }; # Unixish way to get OSpeed - works
$ospeed = 9600 if ($@); # on Linux, Gnuish, Suns ...
my $term = Tgetent Term::Cap { 'TERM' => '', 'OSPEED' => $ospeed };
my $this = {}; # create object
bless $this, $classname;
$this->term($term); # keep termcap entry reference
$this->{IN} = ''; # clear input buffer
$this->{ROWS} = 0;
$this->{COLS} = 0;
$this->resize(); # sets $this->{ROWS} & {COLS}
$this->{KEYS} = {}; # set up fn key hash of hashes
$this->get_fn_keys() ; # define function key table from defaults
$this->at(0,0); # home cursor
$this->{ECHO} = 1; # start off echoing
$| = 1; # for output flush on writes
# wrapped so inherited versions can call with different input codes
eval { system('stty raw -echo'); }; # turn on raw input
# ignore errors
return $this;
}
sub DESTROY { eval { system('stty -raw echo'); } }
=item term(term)
Sets or Gets the Term::Cap object used by this object.
=cut
sub term
{
my ( $self, $term ) = @_;
if ( defined $term && ref $term and UNIVERSAL::isa($term,'Term::Cap'))
{
$self->{TERM} = $term;
}
return $self->{TERM};
}
=item rows(rows)
Returns and/or sets the number of rows on the terminal.
=cut
sub rows
{
my ( $self, $rows ) = @_;
if ( defined $rows and $rows =~ /\d+/ )
{
$self->{ROWS} = $rows;
}
return $self->{ROWS};
}
=item cols(cols)
Returns and/or sets the number of cols on the terminal.
=cut
sub cols
{
my ( $self, $cols ) = @_;
if ( defined $cols and $cols =~ /\d+/ )
{
$self->{COLS} = $cols;
}
return $self->{COLS};
}
=item at(row,col)
Moves cursor to (row,col) where (0,0) is upper left corner, - if the spot is
illegal does whatever 'cm' in termcap does, since that is what it uses.
=cut
sub at
{
my ($this, $r, $c) = @_;
if ($r < 0) {$r = 0;}
if ($c < 0) {$c = 0;}
if ($r >= $this->{ROWS}) {$r = $this->{ROWS}-1;}
if ($c >= $this->{COLS}) {$c = $this->{COLS}-1;}
$this->term()->Tgoto('cm', $c, $r, *STDOUT);
return $this;
}
=item resize(r,c)
Tell screen the new number of rows & cols physically you can skip the r & c
and get new checked vals from stty or termcap. Term::Screen does not
handle resize signals internally, but you can do it by checking and updating
screen size using this function.
=cut
sub resize
{
my ($this, $r, $c) = @_;
my $size = '';
# find screen size -- trying different methods
if ($#_ != 2 || $r <= 0 || $c <= 0)
{
$r = 0; $c = 0;
eval { $size = `stty size`; }; # not portable but most accurate
if ( $size =~ /^\s*(\d+)\s+(\d+)\s*/ )
{
($r, $c) = ($1, $2);
}
}
if ($r == 0 || $c == 0) # try getting rows and cols some other way
{
if (exists $ENV{'LINES'}) { $r = $ENV{'LINES'}; }
else { $r = $this->term()->{'_li'}; } # this is often wrong
if (exists $ENV{'COLUMNS'}) { $c = $ENV{'COLUMNS'}; }
else { $c = $this->term()->{'_co'}; }
}
$this->{ROWS} = $r; $this->{COLS} = $c;
return $this;
}
=item normal()
Turn off any highlightling (bold, reverse)
=cut
sub normal
{
my $this = shift;
$this->term()->Tputs('me',1,*STDOUT);
return $this;
}
=item bold()
The md value from termcap - turn on bold usually
=cut
sub bold
{
my $this = shift;
$this->term()->Tputs('md',1,*STDOUT);
return $this;
}
=item reverse()
The mr value from termcap - turn on reverse text often. these last
two default to whatever is available.
=cut
sub reverse
{
my $this = shift;
$this->term()->Tputs('mr',1,*STDOUT);
return $this;
}
=item clrscr()
Clear the screen and home cursor
=cut
sub clrscr
{
my $this = shift;
$this->term()->Tputs('cl',1, *STDOUT);
$this->{'rc'} = [0,0];
return $this;
}
=item clreol()
Clear to the end of the line - cursor doesn't move
=cut
sub clreol
{
my $this = shift;
if (exists ($this->term()->{'_ce'}))
{
$this->term()->Tputs('ce',1,*STDOUT);
}
return $this
}
=item clreos()
Clear to end of screen - right and down, cursor doesn't move.
=cut
sub clreos
{
my $this = shift;
if (exists ($this->term()->{'_cd'}))
{
$this->term()->Tputs('cd',1,*STDOUT);
}
return $this;
}
=item il()
Insert blank line before line cursor is on, moving lower lines down.
=cut
sub il
{
my $this = shift;
$this->term()->Tputs('al', 1, *STDOUT);
return $this;
}
=item dl()
Delete line cursor is on, moving lower lines up.
=cut
sub dl
{
my $this = shift;
$this->term()->Tputs('dl',1, *STDOUT);
return $this;
}
=item ic_exists()
Insert character option is available.
=cut
sub ic_exists { ( exists ($_[0]->term()->{'ic'}) ? 1 : 0 ); }
*exists_ic = \&ic_exists;
=item ic()
Insert character at current position move rest to the right.
=cut
sub ic
{
my $this = shift;
$this->term()->Tputs('ic',1, *STDOUT);
$this;
}
=item dc_exists()
Delete char option exists and is available.
=cut
sub dc_exists { ( exists ($_[0]->term()->{'dc'}) ? 1 : 0 ); }
*exists_dc = \&dc_exists;
=item dc()
Delete character at current position moving rest to the left.
=cut
sub dc
{
my $this = shift;
$this->term()->Tputs('dc',1, *STDOUT);
return $this;
}
=back
The following are the I/O functions. They provide standard useful
single character reading values. getch returns either a single char or
the name of a function key when a key is pressed. The only exception is
when you hit a character that is the start of a function key sequence.
In this case getch keeps waiting for the next char to see if it is fn key.
Generally this is the escape key, and why you need to hit esc twice.
To get a stright char, just use the regular 'gets' perl function. You
will need to echo it yourself if you want.
=over 4
=item puts(str)
Prints $s and returns the screen object. Used to do things like
C<$scr->at(10,0)->puts("Hi!")->at(0,0);>. You can just use
print if you want.
=cut
sub puts { print $_[1]; return $_[0]; }
=item getch()
Returns just a char in raw mode. Function keys are returned as their
capability names, e.g. the up key would return "ku". See the
C<get_fn_keys> function for what a lot of the names are. This will wait
for next char if in a possible fn key string, so you would need to type
'esc' 'esc' most likely to get out of getch, since 'esc' is usually the
leading char for function keys. You can use perl's getc, to go 'underneath'
getch if you want. See the table in Screen::get_fn_keys() for more
information.
=cut
sub getch
{
my $this = shift;
my ($c, $fn_flag) = ('', 0);
my $partial_fn_str = '';
if ($this->{IN}) { $c = chop($this->{IN}); }
else { $c = getc(STDIN); }
$partial_fn_str = $c;
while (exists ($this->{KEYS}{$partial_fn_str}))
{ # in a possible function key sequence
$fn_flag = 1;
if ($this->{KEYS}{$partial_fn_str}) # key found
{
$c = $this->{KEYS}{$partial_fn_str};
$partial_fn_str = '';
last;
}
else # wait for another key to see if were in FN yet
{
if ($this->{IN}) { $partial_fn_str .= chop($this->{IN}); }
else { $partial_fn_str .= getc(); }
}
}
if ($fn_flag) # seemed like a fn key
{
if ($partial_fn_str) # oops not a fn key
{
if ($partial_fn_str eq "\e\e") # take care of funny ESC case
{
$c = "\e";
$partial_fn_str = "";
}
else # buffer up the received chars
{
$this->{IN} = CORE::reverse($partial_fn_str) . $this->{IN};
$c = chop($this->{IN});
$this->puts($c) if ($this->{ECHO} && ($c ne "\e"));
}
}
# if fn_key then never echo so do nothing here
}
elsif ($this->{ECHO} && ($c ne "\e")) { $this->puts($c); } # regular key
return $c;
}
=item def_key('name','input string')
Lets you define your own function key sequence. 'name' is what will be
returned by getch. 'input string' is what the fn key sends literally. This
will override any prev definitions of the input. A whole bunch of defaults
are defined for xterms rxvt's, etc. in the get_fn_keys function.
=cut
sub def_key
{
my ($this, $fn, $str) = @_;
$this->{KEYS}{$str} = $fn if ($str ne '');
while ($str ne '')
{
chop($str);
$this->{KEYS}{$str} = '' if ($str ne '');
}
return $this;
}
=item key_pressed([sec])
Returns true if there is a character waiting. You can pass an option time in
seconds to wait.
=cut
sub key_pressed
{
my ($this, $seconds) = @_;
my $readfields = '';
my $ready = 0;
$seconds = 0 if (!defined $seconds);
vec($readfields, fileno(STDIN), 1) = 1; # set up to check STDIN
eval { $ready = select($readfields, undef, undef, $seconds); };
return $ready;
}
=item echo()
Tells getch to echo the input to the screen. (the default.)
=cut
sub echo { my $this = shift; $this->{ECHO} = 1; return $this; }
=item noecho()
Tells getch NOT to echo input to the screen.
=cut
sub noecho { my $this = shift; $this->{ECHO} = 0; return $this; }
=item flush_input()
Clears input buffer and removes any incoming chars.
=cut
sub flush_input
{
my $this = shift;
$this->{IN} = '';
while ($this->key_pressed()) { getc(); }
return $this;
}
=item stuff_input(str)
Lets you stuff chars into the input buffer to be read like keystrokes.
This is only the C<getch> method buffer, the underlying getc stuff
is not touched.
=cut
sub stuff_input
{
my ($this, $str) = @_;
$this->{IN} = CORE::reverse($str) . $this->{IN};
return $this;
}
# internal functions
# This function sets up the arrow keys from { ku kd kr kl }
# and the function keys from {k0 .. k9} with labels from { l0 .. l9}
# (if they exist of course.)
# This is all encoded in a funny way -- as a hash with the
# characters as keys - check the code. It makes checking fn keys easy.
sub get_fn_keys
{
my $this = shift;
my $term = $this->term();
my @keys = qw/ku kd kl kr k0 k1 k2 k3 k4 k5 k6 k7 k8 k9/;
my ($fn, $ufn, $lfn);
# throw in some defaults (xterm & rxvt arrows);
$this->def_key("ku","\e[A");
$this->def_key("kd","\e[B");
$this->def_key("kr","\e[C");
$this->def_key("kl","\e[D");
# PC keyboard fn keys for xterm (some of them)
$this->def_key("k1","\e[11~");
$this->def_key("k2","\e[12~");
$this->def_key("k3","\e[13~");
$this->def_key("k4","\e[14~");
$this->def_key("k5","\e[15~");
$this->def_key("k6","\e[17~");
$this->def_key("k7","\e[18~");
$this->def_key("k8","\e[19~");
$this->def_key("k9","\e[20~");
$this->def_key("k10","\e[21~");
$this->def_key("k11","\e[23~");
$this->def_key("k12","\e[24~");
$this->def_key("ins","\e[2~");
$this->def_key("del","\e[3~");
$this->def_key("home","\e[H"); # mult defs are no problem
$this->def_key("home","\eO"); # these are some I have found
$this->def_key("end","\eOw");
$this->def_key("end","\eOe");
$this->def_key("pgup", "\e[5~");
$this->def_key("pgdn", "\e[6~");
# try to get anything useful out of termcap
# (not too accurate in many cases
foreach $fn (@keys)
{
$ufn = '_' . $fn;
$lfn = $ufn;
$lfn =~ s/_k/_l/;
if (exists $term->{$ufn})
{
if ((exists $term->{$lfn}) && ($term->{$lfn}))
{ $fn = substr($lfn,1); }
$this->def_key($fn, $term->{$ufn});
}
}
return $this;
}
1;
__END__
=back
=head1 AUTHOR
Term::Screen.pm by Mark Kaehny (kaehny@execpc.com)
Currently maintained by Jonathan Stowe <jns@gellyfish.com>
=head1 LICENSE AND COPYRIGHT
Please see the README file in the distribution kit for the license details
for this module.
=head1 SEE ALSO
Term::Cap, termcap, curses, stty, select
=cut

0
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/Term-Screen-1.02/blib/arch/auto/Term/Screen/.exists
View File

0
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/Term-Screen-1.02/blib/lib/Term/.exists
View File

628
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/Term-Screen-1.02/blib/lib/Term/Screen.pm
View File

@ -1,628 +0,0 @@
# $Id: Screen.pm,v 1.1.1.1 2003/01/27 23:34:38 margarida Exp $
package Term::Screen;
use strict;
use vars qw($VERSION);
$VERSION = '1.02';
=head1 NAME
Term::Screen - A Simple all perl Term::Cap based screen positioning module
=head1 SYNOPSIS
require Term::Screen;
$scr = new Term::Screen;
unless ($scr) { die " Something's wrong \n"; }
$scr->clrscr();
$scr->at(5,3);
$scr->puts("this is some stuff");
$scr->at(10,10)->bold()->puts("hi!")->normal();
# you can concatenate many calls (not getch)
$c = $scr->getch(); # doesn't need Enter key
...
if ($scr->key_pressed()) { print "ha you hit a key!"; }
=head1 DESCRIPTION
Term::Screen is a very simple screen positioning module that should
work wherever C<Term::Cap> does. It is set up for Unix using stty's but
these dependences are isolated by evals in the C<new> constructor. Thus
you may create a child module implementing Screen with MS-DOS, ioctl,
or other means to get raw and unblocked input. This is not a replacement
for Curses -- it has no memory. This was written so that it could be
easily changed to fit nasty systems, and to be available first thing.
The input functions getch, key_pressed, echo, and noecho are implemented
so as to work under a fairly standard Unix system. They use 'stty'
to set raw and no echo modes and turn on auto flush. All of these are
'eval'ed so that this class can be inherited for new definitions easily.
Term::Screen was designed to be "required", then used with object syntax
as shown above. One quirk (which the author was used to so he didn't
care) is that for function key translation, no delay is set. So for many
terminals to get an esc character, you have to hit another char after it,
generally another esc.
=head1 PUBLIC INTERFACE
Term::Screen has a very minimal set of of fixed character terminal position
and character reading commands:
=over 4
=cut
require Term::Cap;
=item new()
Initialize the screen. Does not clear the screen, but does home the cursor.
=cut
sub new
{
my ($prototype, @args) = @_;
my $classname = ref($prototype) || $prototype;
my ($ospeed);
# adjust OSPEED below to your system.
eval { $ospeed = `stty speed`; }; # Unixish way to get OSpeed - works
$ospeed = 9600 if ($@); # on Linux, Gnuish, Suns ...
my $term = Tgetent Term::Cap { 'TERM' => '', 'OSPEED' => $ospeed };
my $this = {}; # create object
bless $this, $classname;
$this->term($term); # keep termcap entry reference
$this->{IN} = ''; # clear input buffer
$this->{ROWS} = 0;
$this->{COLS} = 0;
$this->resize(); # sets $this->{ROWS} & {COLS}
$this->{KEYS} = {}; # set up fn key hash of hashes
$this->get_fn_keys() ; # define function key table from defaults
$this->at(0,0); # home cursor
$this->{ECHO} = 1; # start off echoing
$| = 1; # for output flush on writes
# wrapped so inherited versions can call with different input codes
eval { system('stty raw -echo'); }; # turn on raw input
# ignore errors
return $this;
}
sub DESTROY { eval { system('stty -raw echo'); } }
=item term(term)
Sets or Gets the Term::Cap object used by this object.
=cut
sub term
{
my ( $self, $term ) = @_;
if ( defined $term && ref $term and UNIVERSAL::isa($term,'Term::Cap'))
{
$self->{TERM} = $term;
}
return $self->{TERM};
}
=item rows(rows)
Returns and/or sets the number of rows on the terminal.
=cut
sub rows
{
my ( $self, $rows ) = @_;
if ( defined $rows and $rows =~ /\d+/ )
{
$self->{ROWS} = $rows;
}
return $self->{ROWS};
}
=item cols(cols)
Returns and/or sets the number of cols on the terminal.
=cut
sub cols
{
my ( $self, $cols ) = @_;
if ( defined $cols and $cols =~ /\d+/ )
{
$self->{COLS} = $cols;
}
return $self->{COLS};
}
=item at(row,col)
Moves cursor to (row,col) where (0,0) is upper left corner, - if the spot is
illegal does whatever 'cm' in termcap does, since that is what it uses.
=cut
sub at
{
my ($this, $r, $c) = @_;
if ($r < 0) {$r = 0;}
if ($c < 0) {$c = 0;}
if ($r >= $this->{ROWS}) {$r = $this->{ROWS}-1;}
if ($c >= $this->{COLS}) {$c = $this->{COLS}-1;}
$this->term()->Tgoto('cm', $c, $r, *STDOUT);
return $this;
}
=item resize(r,c)
Tell screen the new number of rows & cols physically you can skip the r & c
and get new checked vals from stty or termcap. Term::Screen does not
handle resize signals internally, but you can do it by checking and updating
screen size using this function.
=cut
sub resize
{
my ($this, $r, $c) = @_;
my $size = '';
# find screen size -- trying different methods
if ($#_ != 2 || $r <= 0 || $c <= 0)
{
$r = 0; $c = 0;
eval { $size = `stty size`; }; # not portable but most accurate
if ( $size =~ /^\s*(\d+)\s+(\d+)\s*/ )
{
($r, $c) = ($1, $2);
}
}
if ($r == 0 || $c == 0) # try getting rows and cols some other way
{
if (exists $ENV{'LINES'}) { $r = $ENV{'LINES'}; }
else { $r = $this->term()->{'_li'}; } # this is often wrong
if (exists $ENV{'COLUMNS'}) { $c = $ENV{'COLUMNS'}; }
else { $c = $this->term()->{'_co'}; }
}
$this->{ROWS} = $r; $this->{COLS} = $c;
return $this;
}
=item normal()
Turn off any highlightling (bold, reverse)
=cut
sub normal
{
my $this = shift;
$this->term()->Tputs('me',1,*STDOUT);
return $this;
}
=item bold()
The md value from termcap - turn on bold usually
=cut
sub bold
{
my $this = shift;
$this->term()->Tputs('md',1,*STDOUT);
return $this;
}
=item reverse()
The mr value from termcap - turn on reverse text often. these last
two default to whatever is available.
=cut
sub reverse
{
my $this = shift;
$this->term()->Tputs('mr',1,*STDOUT);
return $this;
}
=item clrscr()
Clear the screen and home cursor
=cut
sub clrscr
{
my $this = shift;
$this->term()->Tputs('cl',1, *STDOUT);
$this->{'rc'} = [0,0];
return $this;
}
=item clreol()
Clear to the end of the line - cursor doesn't move
=cut
sub clreol
{
my $this = shift;
if (exists ($this->term()->{'_ce'}))
{
$this->term()->Tputs('ce',1,*STDOUT);
}
return $this
}
=item clreos()
Clear to end of screen - right and down, cursor doesn't move.
=cut
sub clreos
{
my $this = shift;
if (exists ($this->term()->{'_cd'}))
{
$this->term()->Tputs('cd',1,*STDOUT);
}
return $this;
}
=item il()
Insert blank line before line cursor is on, moving lower lines down.
=cut
sub il
{
my $this = shift;
$this->term()->Tputs('al', 1, *STDOUT);
return $this;
}
=item dl()
Delete line cursor is on, moving lower lines up.
=cut
sub dl
{
my $this = shift;
$this->term()->Tputs('dl',1, *STDOUT);
return $this;
}
=item ic_exists()
Insert character option is available.
=cut
sub ic_exists { ( exists ($_[0]->term()->{'ic'}) ? 1 : 0 ); }
*exists_ic = \&ic_exists;
=item ic()
Insert character at current position move rest to the right.
=cut
sub ic
{
my $this = shift;
$this->term()->Tputs('ic',1, *STDOUT);
$this;
}
=item dc_exists()
Delete char option exists and is available.
=cut
sub dc_exists { ( exists ($_[0]->term()->{'dc'}) ? 1 : 0 ); }
*exists_dc = \&dc_exists;
=item dc()
Delete character at current position moving rest to the left.
=cut
sub dc
{
my $this = shift;
$this->term()->Tputs('dc',1, *STDOUT);
return $this;
}
=back
The following are the I/O functions. They provide standard useful
single character reading values. getch returns either a single char or
the name of a function key when a key is pressed. The only exception is
when you hit a character that is the start of a function key sequence.
In this case getch keeps waiting for the next char to see if it is fn key.
Generally this is the escape key, and why you need to hit esc twice.
To get a stright char, just use the regular 'gets' perl function. You
will need to echo it yourself if you want.
=over 4
=item puts(str)
Prints $s and returns the screen object. Used to do things like
C<$scr->at(10,0)->puts("Hi!")->at(0,0);>. You can just use
print if you want.
=cut
sub puts { print $_[1]; return $_[0]; }
=item getch()
Returns just a char in raw mode. Function keys are returned as their
capability names, e.g. the up key would return "ku". See the
C<get_fn_keys> function for what a lot of the names are. This will wait
for next char if in a possible fn key string, so you would need to type
'esc' 'esc' most likely to get out of getch, since 'esc' is usually the
leading char for function keys. You can use perl's getc, to go 'underneath'
getch if you want. See the table in Screen::get_fn_keys() for more
information.
=cut
sub getch
{
my $this = shift;
my ($c, $fn_flag) = ('', 0);
my $partial_fn_str = '';
if ($this->{IN}) { $c = chop($this->{IN}); }
else { $c = getc(STDIN); }
$partial_fn_str = $c;
while (exists ($this->{KEYS}{$partial_fn_str}))
{ # in a possible function key sequence
$fn_flag = 1;
if ($this->{KEYS}{$partial_fn_str}) # key found
{
$c = $this->{KEYS}{$partial_fn_str};
$partial_fn_str = '';
last;
}
else # wait for another key to see if were in FN yet
{
if ($this->{IN}) { $partial_fn_str .= chop($this->{IN}); }
else { $partial_fn_str .= getc(); }
}
}
if ($fn_flag) # seemed like a fn key
{
if ($partial_fn_str) # oops not a fn key
{
if ($partial_fn_str eq "\e\e") # take care of funny ESC case
{
$c = "\e";
$partial_fn_str = "";
}
else # buffer up the received chars
{
$this->{IN} = CORE::reverse($partial_fn_str) . $this->{IN};
$c = chop($this->{IN});
$this->puts($c) if ($this->{ECHO} && ($c ne "\e"));
}
}
# if fn_key then never echo so do nothing here
}
elsif ($this->{ECHO} && ($c ne "\e")) { $this->puts($c); } # regular key
return $c;
}
=item def_key('name','input string')
Lets you define your own function key sequence. 'name' is what will be
returned by getch. 'input string' is what the fn key sends literally. This
will override any prev definitions of the input. A whole bunch of defaults
are defined for xterms rxvt's, etc. in the get_fn_keys function.
=cut
sub def_key
{
my ($this, $fn, $str) = @_;
$this->{KEYS}{$str} = $fn if ($str ne '');
while ($str ne '')
{
chop($str);
$this->{KEYS}{$str} = '' if ($str ne '');
}
return $this;
}
=item key_pressed([sec])
Returns true if there is a character waiting. You can pass an option time in
seconds to wait.
=cut
sub key_pressed
{
my ($this, $seconds) = @_;
my $readfields = '';
my $ready = 0;
$seconds = 0 if (!defined $seconds);
vec($readfields, fileno(STDIN), 1) = 1; # set up to check STDIN
eval { $ready = select($readfields, undef, undef, $seconds); };
return $ready;
}
=item echo()
Tells getch to echo the input to the screen. (the default.)
=cut
sub echo { my $this = shift; $this->{ECHO} = 1; return $this; }
=item noecho()
Tells getch NOT to echo input to the screen.
=cut
sub noecho { my $this = shift; $this->{ECHO} = 0; return $this; }
=item flush_input()
Clears input buffer and removes any incoming chars.
=cut
sub flush_input
{
my $this = shift;
$this->{IN} = '';
while ($this->key_pressed()) { getc(); }
return $this;
}
=item stuff_input(str)
Lets you stuff chars into the input buffer to be read like keystrokes.
This is only the C<getch> method buffer, the underlying getc stuff
is not touched.
=cut
sub stuff_input
{
my ($this, $str) = @_;
$this->{IN} = CORE::reverse($str) . $this->{IN};
return $this;
}
# internal functions
# This function sets up the arrow keys from { ku kd kr kl }
# and the function keys from {k0 .. k9} with labels from { l0 .. l9}
# (if they exist of course.)
# This is all encoded in a funny way -- as a hash with the
# characters as keys - check the code. It makes checking fn keys easy.
sub get_fn_keys
{
my $this = shift;
my $term = $this->term();
my @keys = qw/ku kd kl kr k0 k1 k2 k3 k4 k5 k6 k7 k8 k9/;
my ($fn, $ufn, $lfn);
# throw in some defaults (xterm & rxvt arrows);
$this->def_key("ku","\e[A");
$this->def_key("kd","\e[B");
$this->def_key("kr","\e[C");
$this->def_key("kl","\e[D");
# PC keyboard fn keys for xterm (some of them)
$this->def_key("k1","\e[11~");
$this->def_key("k2","\e[12~");
$this->def_key("k3","\e[13~");
$this->def_key("k4","\e[14~");
$this->def_key("k5","\e[15~");
$this->def_key("k6","\e[17~");
$this->def_key("k7","\e[18~");
$this->def_key("k8","\e[19~");
$this->def_key("k9","\e[20~");
$this->def_key("k10","\e[21~");
$this->def_key("k11","\e[23~");
$this->def_key("k12","\e[24~");
$this->def_key("ins","\e[2~");
$this->def_key("del","\e[3~");
$this->def_key("home","\e[H"); # mult defs are no problem
$this->def_key("home","\eO"); # these are some I have found
$this->def_key("end","\eOw");
$this->def_key("end","\eOe");
$this->def_key("pgup", "\e[5~");
$this->def_key("pgdn", "\e[6~");
# try to get anything useful out of termcap
# (not too accurate in many cases
foreach $fn (@keys)
{
$ufn = '_' . $fn;
$lfn = $ufn;
$lfn =~ s/_k/_l/;
if (exists $term->{$ufn})
{
if ((exists $term->{$lfn}) && ($term->{$lfn}))
{ $fn = substr($lfn,1); }
$this->def_key($fn, $term->{$ufn});
}
}
return $this;
}
1;
__END__
=back
=head1 AUTHOR
Term::Screen.pm by Mark Kaehny (kaehny@execpc.com)
Currently maintained by Jonathan Stowe <jns@gellyfish.com>
=head1 LICENSE AND COPYRIGHT
Please see the README file in the distribution kit for the license details
for this module.
=head1 SEE ALSO
Term::Cap, termcap, curses, stty, select
=cut

0
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/Term-Screen-1.02/blib/lib/auto/Term/Screen/.exists
View File

0
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/Term-Screen-1.02/blib/man3/.exists
View File

294
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/Term-Screen-1.02/blib/man3/Term::Screen.3p
View File

@ -1,294 +0,0 @@
.\" Automatically generated by Pod::Man v1.34, Pod::Parser v1.13
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings. \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote. | will give a
.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
.\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.tr \(*W-|\(bv\*(Tr
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
. ds -- \(*W-
. ds PI pi
. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
. ds L" ""
. ds R" ""
. ds C` ""
. ds C' ""
'br\}
.el\{\
. ds -- \|\(em\|
. ds PI \(*p
. ds L" ``
. ds R" ''
'br\}
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.if \nF \{\
. de IX
. tm Index:\\$1\t\\n%\t"\\$2"
..
. nr % 0
. rr F
.\}
.\"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.hy 0
.if n .na
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
. \" fudge factors for nroff and troff
.if n \{\
. ds #H 0
. ds #V .8m
. ds #F .3m
. ds #[ \f1
. ds #] \fP
.\}
.if t \{\
. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
. ds #V .6m
. ds #F 0
. ds #[ \&
. ds #] \&
.\}
. \" simple accents for nroff and troff
.if n \{\
. ds ' \&
. ds ` \&
. ds ^ \&
. ds , \&
. ds ~ ~
. ds /
.\}
.if t \{\
. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
. \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
. \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
. \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
. ds : e
. ds 8 ss
. ds o a
. ds d- d\h'-1'\(ga
. ds D- D\h'-1'\(hy
. ds th \o'bp'
. ds Th \o'LP'
. ds ae ae
. ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "Screen 3"
.TH Screen 3 "2002-09-28" "perl v5.8.0" "User Contributed Perl Documentation"
.SH "NAME"
Term::Screen \- A Simple all perl Term::Cap based screen positioning module
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 1
\& require Term::Screen;
.Ve
.PP
.Vb 10
\& $scr = new Term::Screen;
\& unless ($scr) { die " Something's wrong \en"; }
\& $scr->clrscr();
\& $scr->at(5,3);
\& $scr->puts("this is some stuff");
\& $scr->at(10,10)->bold()->puts("hi!")->normal();
\& # you can concatenate many calls (not getch)
\& $c = $scr->getch(); # doesn't need Enter key
\& ...
\& if ($scr->key_pressed()) { print "ha you hit a key!"; }
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
Term::Screen is a very simple screen positioning module that should
work wherever \f(CW\*(C`Term::Cap\*(C'\fR does. It is set up for Unix using stty's but
these dependences are isolated by evals in the \f(CW\*(C`new\*(C'\fR constructor. Thus
you may create a child module implementing Screen with \s-1MS\-DOS\s0, ioctl,
or other means to get raw and unblocked input. This is not a replacement
for Curses \*(-- it has no memory. This was written so that it could be
easily changed to fit nasty systems, and to be available first thing.
.PP
The input functions getch, key_pressed, echo, and noecho are implemented
so as to work under a fairly standard Unix system. They use 'stty'
to set raw and no echo modes and turn on auto flush. All of these are
\&'eval'ed so that this class can be inherited for new definitions easily.
.PP
Term::Screen was designed to be \*(L"required\*(R", then used with object syntax
as shown above. One quirk (which the author was used to so he didn't
care) is that for function key translation, no delay is set. So for many
terminals to get an esc character, you have to hit another char after it,
generally another esc.
.SH "PUBLIC INTERFACE"
.IX Header "PUBLIC INTERFACE"
Term::Screen has a very minimal set of of fixed character terminal position
and character reading commands:
.IP "\fInew()\fR" 4
.IX Item "new()"
Initialize the screen. Does not clear the screen, but does home the cursor.
.IP "term(term)" 4
.IX Item "term(term)"
Sets or Gets the Term::Cap object used by this object.
.IP "rows(rows)" 4
.IX Item "rows(rows)"
Returns and/or sets the number of rows on the terminal.
.IP "cols(cols)" 4
.IX Item "cols(cols)"
Returns and/or sets the number of cols on the terminal.
.IP "at(row,col)" 4
.IX Item "at(row,col)"
Moves cursor to (row,col) where (0,0) is upper left corner, \- if the spot is
illegal does whatever 'cm' in termcap does, since that is what it uses.
.IP "resize(r,c)" 4
.IX Item "resize(r,c)"
Tell screen the new number of rows & cols physically you can skip the r & c
and get new checked vals from stty or termcap. Term::Screen does not
handle resize signals internally, but you can do it by checking and updating
screen size using this function.
.IP "\fInormal()\fR" 4
.IX Item "normal()"
Turn off any highlightling (bold, reverse)
.IP "\fIbold()\fR" 4
.IX Item "bold()"
The md value from termcap \- turn on bold usually
.IP "\fIreverse()\fR" 4
.IX Item "reverse()"
The mr value from termcap \- turn on reverse text often. these last
two default to whatever is available.
.IP "\fIclrscr()\fR" 4
.IX Item "clrscr()"
Clear the screen and home cursor
.IP "\fIclreol()\fR" 4
.IX Item "clreol()"
Clear to the end of the line \- cursor doesn't move
.IP "\fIclreos()\fR" 4
.IX Item "clreos()"
Clear to end of screen \- right and down, cursor doesn't move.
.IP "\fIil()\fR" 4
.IX Item "il()"
Insert blank line before line cursor is on, moving lower lines down.
.IP "\fIdl()\fR" 4
.IX Item "dl()"
Delete line cursor is on, moving lower lines up.
.IP "\fIic_exists()\fR" 4
.IX Item "ic_exists()"
Insert character option is available.
.IP "\fIic()\fR" 4
.IX Item "ic()"
Insert character at current position move rest to the right.
.IP "\fIdc_exists()\fR" 4
.IX Item "dc_exists()"
Delete char option exists and is available.
.IP "\fIdc()\fR" 4
.IX Item "dc()"
Delete character at current position moving rest to the left.
.PP
The following are the I/O functions. They provide standard useful
single character reading values. getch returns either a single char or
the name of a function key when a key is pressed. The only exception is
when you hit a character that is the start of a function key sequence.
In this case getch keeps waiting for the next char to see if it is fn key.
Generally this is the escape key, and why you need to hit esc twice.
To get a stright char, just use the regular 'gets' perl function. You
will need to echo it yourself if you want.
.IP "puts(str)" 4
.IX Item "puts(str)"
Prints \f(CW$s\fR and returns the screen object. Used to do things like
\&\f(CW\*(C`$scr\-\*(C'\fRat(10,0)\->puts(\*(L"Hi!\*(R")\->at(0,0);>. You can just use
print if you want.
.IP "\fIgetch()\fR" 4
.IX Item "getch()"
Returns just a char in raw mode. Function keys are returned as their
capability names, e.g. the up key would return \*(L"ku\*(R". See the
\&\f(CW\*(C`get_fn_keys\*(C'\fR function for what a lot of the names are. This will wait
for next char if in a possible fn key string, so you would need to type
\&'esc' 'esc' most likely to get out of getch, since 'esc' is usually the
leading char for function keys. You can use perl's getc, to go 'underneath'
getch if you want. See the table in \fIScreen::get_fn_keys()\fR for more
information.
.IP "def_key('name','input string')" 4
.IX Item "def_key('name','input string')"
Lets you define your own function key sequence. 'name' is what will be
returned by getch. 'input string' is what the fn key sends literally. This
will override any prev definitions of the input. A whole bunch of defaults
are defined for xterms rxvt's, etc. in the get_fn_keys function.
.IP "key_pressed([sec])" 4
.IX Item "key_pressed([sec])"
Returns true if there is a character waiting. You can pass an option time in
seconds to wait.
.IP "\fIecho()\fR" 4
.IX Item "echo()"
Tells getch to echo the input to the screen. (the default.)
.IP "\fInoecho()\fR" 4
.IX Item "noecho()"
Tells getch \s-1NOT\s0 to echo input to the screen.
.IP "\fIflush_input()\fR" 4
.IX Item "flush_input()"
Clears input buffer and removes any incoming chars.
.IP "stuff_input(str)" 4
.IX Item "stuff_input(str)"
Lets you stuff chars into the input buffer to be read like keystrokes.
This is only the \f(CW\*(C`getch\*(C'\fR method buffer, the underlying getc stuff
is not touched.
.SH "AUTHOR"
.IX Header "AUTHOR"
Term::Screen.pm by Mark Kaehny (kaehny@execpc.com)
Currently maintained by Jonathan Stowe <jns@gellyfish.com>
.SH "LICENSE AND COPYRIGHT"
.IX Header "LICENSE AND COPYRIGHT"
Please see the \s-1README\s0 file in the distribution kit for the license details
for this module.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
Term::Cap, termcap, curses, stty, select

0
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/Term-Screen-1.02/pm_to_blib
View File

85
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/Term-Screen-1.02/test.pl
View File

@ -1,85 +0,0 @@
#
# TCtest.pl
#
# test program to exercise the screen contol module
#
# by Mark Kaehny 1995
# this file is available under the same terms as the perl language
# distribution. See the Artistic License.
#
require Term::Screen;
$scr = new Term::Screen;
#test clear screen and output
$scr->clrscr();
$scr->puts("Test series for Screen.pm module for perl5");
# test cursor movement, output and linking together
$scr->at(2,3)->puts("1. Should be at row 2 col 3 (upper left is 0,0)");
#test current position update
$r = $scr->{'r'}; $c = $scr->{'c'};
$scr->at(3,0)->puts("2. Last position $r $c -- should be 2 50.");
#test rows and cols ( should be updated for signal )
$scr->at(4,0)->puts("3. Screen size: " . $scr->{'rows'} . " rows and " .
$scr->{'cols'} . " columns.");
# test standout and normal test
$scr->at(6,0);
$scr->puts("4. Testing ")->reverse()->puts("reverse");
$scr->normal()->puts(" mode, ");
$scr->bold()->puts("bold")->normal()->puts(" mode, ");
$scr->bold()->reverse()->puts("and both")->normal()->puts(" together.");
# test clreol
# first put some stuff up
$line = "0---------10--------20--------30--------40--------50--------60--------70-------";
$scr->at(7,0)->puts("5. Testing clreol - " .
" The next 2 lines should end at col 20 and 30.");
for (8 .. 10) {$scr->at($_,0)->puts($line);}
$scr->at(8,20)->clreol()->at(9,30)->clreol();
# test clreos
for (11 .. 20) { $scr->at($_,0)->puts($line); }
$scr->at(11,0)->puts("6. Clreos - Hit a key to clear all right and below:");
$scr->getch();
$scr->clreos();
#test insert line and delete line
$scr->at(12,0)->puts("7. Test insert and delete line - 15 deleted, and ...");
for (13 .. 16) { $scr->at($_,0)->puts($_ . substr($line,2)); }
$scr->at(15,0)->dl();
$scr->at(14,0)->il()->at(14,0)->puts("... this is where line 14 was");
# test key_pressed
$scr->at(18,0)->puts("8. Key_pressed - Don't Hit a key in the next 5 seconds: ");
if ($scr->key_pressed(5)) { $scr->puts("HEY A KEY WAS HIT"); }
else { $scr->puts("GOOD - NO KEY HIT!"); }
$scr->at(19,0)->puts("Hit a key in next 15 seconds: ");
if ($scr->key_pressed(15)) { $scr->puts("KEY HIT!"); }
else { $scr->puts("NO KEY HIT"); }
# test getch
# clear buffer out
$scr->flush_input();
$scr->at(21,0)->puts("Testing getch, Enter Key (q to quit): ")->at(21,40);
$ch = '';
while(($ch = $scr->getch()) ne 'q')
{
if (length($ch) == 1)
{
$scr->at(21,50)->clreol()->puts("ord of char is: ");
$scr->puts(ord($ch))->at(21,40);
}
else
{
$scr->at(21,50)->clreol()->puts("function value: $ch");
$scr->at(21,40);
}
}
$scr->at(22,0);

0
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/fake-sparc64/.fake_done
View File

0
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/fake-sparc64/.install_started
View File

628
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/fake-sparc64/usr/local/libdata/perl5/site_perl/Term/Screen.pm
View File

@ -1,628 +0,0 @@
# $Id: Screen.pm,v 1.1.1.1 2003/01/27 23:34:38 margarida Exp $
package Term::Screen;
use strict;
use vars qw($VERSION);
$VERSION = '1.02';
=head1 NAME
Term::Screen - A Simple all perl Term::Cap based screen positioning module
=head1 SYNOPSIS
require Term::Screen;
$scr = new Term::Screen;
unless ($scr) { die " Something's wrong \n"; }
$scr->clrscr();
$scr->at(5,3);
$scr->puts("this is some stuff");
$scr->at(10,10)->bold()->puts("hi!")->normal();
# you can concatenate many calls (not getch)
$c = $scr->getch(); # doesn't need Enter key
...
if ($scr->key_pressed()) { print "ha you hit a key!"; }
=head1 DESCRIPTION
Term::Screen is a very simple screen positioning module that should
work wherever C<Term::Cap> does. It is set up for Unix using stty's but
these dependences are isolated by evals in the C<new> constructor. Thus
you may create a child module implementing Screen with MS-DOS, ioctl,
or other means to get raw and unblocked input. This is not a replacement
for Curses -- it has no memory. This was written so that it could be
easily changed to fit nasty systems, and to be available first thing.
The input functions getch, key_pressed, echo, and noecho are implemented
so as to work under a fairly standard Unix system. They use 'stty'
to set raw and no echo modes and turn on auto flush. All of these are
'eval'ed so that this class can be inherited for new definitions easily.
Term::Screen was designed to be "required", then used with object syntax
as shown above. One quirk (which the author was used to so he didn't
care) is that for function key translation, no delay is set. So for many
terminals to get an esc character, you have to hit another char after it,
generally another esc.
=head1 PUBLIC INTERFACE
Term::Screen has a very minimal set of of fixed character terminal position
and character reading commands:
=over 4
=cut
require Term::Cap;
=item new()
Initialize the screen. Does not clear the screen, but does home the cursor.
=cut
sub new
{
my ($prototype, @args) = @_;
my $classname = ref($prototype) || $prototype;
my ($ospeed);
# adjust OSPEED below to your system.
eval { $ospeed = `stty speed`; }; # Unixish way to get OSpeed - works
$ospeed = 9600 if ($@); # on Linux, Gnuish, Suns ...
my $term = Tgetent Term::Cap { 'TERM' => '', 'OSPEED' => $ospeed };
my $this = {}; # create object
bless $this, $classname;
$this->term($term); # keep termcap entry reference
$this->{IN} = ''; # clear input buffer
$this->{ROWS} = 0;
$this->{COLS} = 0;
$this->resize(); # sets $this->{ROWS} & {COLS}
$this->{KEYS} = {}; # set up fn key hash of hashes
$this->get_fn_keys() ; # define function key table from defaults
$this->at(0,0); # home cursor
$this->{ECHO} = 1; # start off echoing
$| = 1; # for output flush on writes
# wrapped so inherited versions can call with different input codes
eval { system('stty raw -echo'); }; # turn on raw input
# ignore errors
return $this;
}
sub DESTROY { eval { system('stty -raw echo'); } }
=item term(term)
Sets or Gets the Term::Cap object used by this object.
=cut
sub term
{
my ( $self, $term ) = @_;
if ( defined $term && ref $term and UNIVERSAL::isa($term,'Term::Cap'))
{
$self->{TERM} = $term;
}
return $self->{TERM};
}
=item rows(rows)
Returns and/or sets the number of rows on the terminal.
=cut
sub rows
{
my ( $self, $rows ) = @_;
if ( defined $rows and $rows =~ /\d+/ )
{
$self->{ROWS} = $rows;
}
return $self->{ROWS};
}
=item cols(cols)
Returns and/or sets the number of cols on the terminal.
=cut
sub cols
{
my ( $self, $cols ) = @_;
if ( defined $cols and $cols =~ /\d+/ )
{
$self->{COLS} = $cols;
}
return $self->{COLS};
}
=item at(row,col)
Moves cursor to (row,col) where (0,0) is upper left corner, - if the spot is
illegal does whatever 'cm' in termcap does, since that is what it uses.
=cut
sub at
{
my ($this, $r, $c) = @_;
if ($r < 0) {$r = 0;}
if ($c < 0) {$c = 0;}
if ($r >= $this->{ROWS}) {$r = $this->{ROWS}-1;}
if ($c >= $this->{COLS}) {$c = $this->{COLS}-1;}
$this->term()->Tgoto('cm', $c, $r, *STDOUT);
return $this;
}
=item resize(r,c)
Tell screen the new number of rows & cols physically you can skip the r & c
and get new checked vals from stty or termcap. Term::Screen does not
handle resize signals internally, but you can do it by checking and updating
screen size using this function.
=cut
sub resize
{
my ($this, $r, $c) = @_;
my $size = '';
# find screen size -- trying different methods
if ($#_ != 2 || $r <= 0 || $c <= 0)
{
$r = 0; $c = 0;
eval { $size = `stty size`; }; # not portable but most accurate
if ( $size =~ /^\s*(\d+)\s+(\d+)\s*/ )
{
($r, $c) = ($1, $2);
}
}
if ($r == 0 || $c == 0) # try getting rows and cols some other way
{
if (exists $ENV{'LINES'}) { $r = $ENV{'LINES'}; }
else { $r = $this->term()->{'_li'}; } # this is often wrong
if (exists $ENV{'COLUMNS'}) { $c = $ENV{'COLUMNS'}; }
else { $c = $this->term()->{'_co'}; }
}
$this->{ROWS} = $r; $this->{COLS} = $c;
return $this;
}
=item normal()
Turn off any highlightling (bold, reverse)
=cut
sub normal
{
my $this = shift;
$this->term()->Tputs('me',1,*STDOUT);
return $this;
}
=item bold()
The md value from termcap - turn on bold usually
=cut
sub bold
{
my $this = shift;
$this->term()->Tputs('md',1,*STDOUT);
return $this;
}
=item reverse()
The mr value from termcap - turn on reverse text often. these last
two default to whatever is available.
=cut
sub reverse
{
my $this = shift;
$this->term()->Tputs('mr',1,*STDOUT);
return $this;
}
=item clrscr()
Clear the screen and home cursor
=cut
sub clrscr
{
my $this = shift;
$this->term()->Tputs('cl',1, *STDOUT);
$this->{'rc'} = [0,0];
return $this;
}
=item clreol()
Clear to the end of the line - cursor doesn't move
=cut
sub clreol
{
my $this = shift;
if (exists ($this->term()->{'_ce'}))
{
$this->term()->Tputs('ce',1,*STDOUT);
}
return $this
}
=item clreos()
Clear to end of screen - right and down, cursor doesn't move.
=cut
sub clreos
{
my $this = shift;
if (exists ($this->term()->{'_cd'}))
{
$this->term()->Tputs('cd',1,*STDOUT);
}
return $this;
}
=item il()
Insert blank line before line cursor is on, moving lower lines down.
=cut
sub il
{
my $this = shift;
$this->term()->Tputs('al', 1, *STDOUT);
return $this;
}
=item dl()
Delete line cursor is on, moving lower lines up.
=cut
sub dl
{
my $this = shift;
$this->term()->Tputs('dl',1, *STDOUT);
return $this;
}
=item ic_exists()
Insert character option is available.
=cut
sub ic_exists { ( exists ($_[0]->term()->{'ic'}) ? 1 : 0 ); }
*exists_ic = \&ic_exists;
=item ic()
Insert character at current position move rest to the right.
=cut
sub ic
{
my $this = shift;
$this->term()->Tputs('ic',1, *STDOUT);
$this;
}
=item dc_exists()
Delete char option exists and is available.
=cut
sub dc_exists { ( exists ($_[0]->term()->{'dc'}) ? 1 : 0 ); }
*exists_dc = \&dc_exists;
=item dc()
Delete character at current position moving rest to the left.
=cut
sub dc
{
my $this = shift;
$this->term()->Tputs('dc',1, *STDOUT);
return $this;
}
=back
The following are the I/O functions. They provide standard useful
single character reading values. getch returns either a single char or
the name of a function key when a key is pressed. The only exception is
when you hit a character that is the start of a function key sequence.
In this case getch keeps waiting for the next char to see if it is fn key.
Generally this is the escape key, and why you need to hit esc twice.
To get a stright char, just use the regular 'gets' perl function. You
will need to echo it yourself if you want.
=over 4
=item puts(str)
Prints $s and returns the screen object. Used to do things like
C<$scr->at(10,0)->puts("Hi!")->at(0,0);>. You can just use
print if you want.
=cut
sub puts { print $_[1]; return $_[0]; }
=item getch()
Returns just a char in raw mode. Function keys are returned as their
capability names, e.g. the up key would return "ku". See the
C<get_fn_keys> function for what a lot of the names are. This will wait
for next char if in a possible fn key string, so you would need to type
'esc' 'esc' most likely to get out of getch, since 'esc' is usually the
leading char for function keys. You can use perl's getc, to go 'underneath'
getch if you want. See the table in Screen::get_fn_keys() for more
information.
=cut
sub getch
{
my $this = shift;
my ($c, $fn_flag) = ('', 0);
my $partial_fn_str = '';
if ($this->{IN}) { $c = chop($this->{IN}); }
else { $c = getc(STDIN); }
$partial_fn_str = $c;
while (exists ($this->{KEYS}{$partial_fn_str}))
{ # in a possible function key sequence
$fn_flag = 1;
if ($this->{KEYS}{$partial_fn_str}) # key found
{
$c = $this->{KEYS}{$partial_fn_str};
$partial_fn_str = '';
last;
}
else # wait for another key to see if were in FN yet
{
if ($this->{IN}) { $partial_fn_str .= chop($this->{IN}); }
else { $partial_fn_str .= getc(); }
}
}
if ($fn_flag) # seemed like a fn key
{
if ($partial_fn_str) # oops not a fn key
{
if ($partial_fn_str eq "\e\e") # take care of funny ESC case
{
$c = "\e";
$partial_fn_str = "";
}
else # buffer up the received chars
{
$this->{IN} = CORE::reverse($partial_fn_str) . $this->{IN};
$c = chop($this->{IN});
$this->puts($c) if ($this->{ECHO} && ($c ne "\e"));
}
}
# if fn_key then never echo so do nothing here
}
elsif ($this->{ECHO} && ($c ne "\e")) { $this->puts($c); } # regular key
return $c;
}
=item def_key('name','input string')
Lets you define your own function key sequence. 'name' is what will be
returned by getch. 'input string' is what the fn key sends literally. This
will override any prev definitions of the input. A whole bunch of defaults
are defined for xterms rxvt's, etc. in the get_fn_keys function.
=cut
sub def_key
{
my ($this, $fn, $str) = @_;
$this->{KEYS}{$str} = $fn if ($str ne '');
while ($str ne '')
{
chop($str);
$this->{KEYS}{$str} = '' if ($str ne '');
}
return $this;
}
=item key_pressed([sec])
Returns true if there is a character waiting. You can pass an option time in
seconds to wait.
=cut
sub key_pressed
{
my ($this, $seconds) = @_;
my $readfields = '';
my $ready = 0;
$seconds = 0 if (!defined $seconds);
vec($readfields, fileno(STDIN), 1) = 1; # set up to check STDIN
eval { $ready = select($readfields, undef, undef, $seconds); };
return $ready;
}
=item echo()
Tells getch to echo the input to the screen. (the default.)
=cut
sub echo { my $this = shift; $this->{ECHO} = 1; return $this; }
=item noecho()
Tells getch NOT to echo input to the screen.
=cut
sub noecho { my $this = shift; $this->{ECHO} = 0; return $this; }
=item flush_input()
Clears input buffer and removes any incoming chars.
=cut
sub flush_input
{
my $this = shift;
$this->{IN} = '';
while ($this->key_pressed()) { getc(); }
return $this;
}
=item stuff_input(str)
Lets you stuff chars into the input buffer to be read like keystrokes.
This is only the C<getch> method buffer, the underlying getc stuff
is not touched.
=cut
sub stuff_input
{
my ($this, $str) = @_;
$this->{IN} = CORE::reverse($str) . $this->{IN};
return $this;
}
# internal functions
# This function sets up the arrow keys from { ku kd kr kl }
# and the function keys from {k0 .. k9} with labels from { l0 .. l9}
# (if they exist of course.)
# This is all encoded in a funny way -- as a hash with the
# characters as keys - check the code. It makes checking fn keys easy.
sub get_fn_keys
{
my $this = shift;
my $term = $this->term();
my @keys = qw/ku kd kl kr k0 k1 k2 k3 k4 k5 k6 k7 k8 k9/;
my ($fn, $ufn, $lfn);
# throw in some defaults (xterm & rxvt arrows);
$this->def_key("ku","\e[A");
$this->def_key("kd","\e[B");
$this->def_key("kr","\e[C");
$this->def_key("kl","\e[D");
# PC keyboard fn keys for xterm (some of them)
$this->def_key("k1","\e[11~");
$this->def_key("k2","\e[12~");
$this->def_key("k3","\e[13~");
$this->def_key("k4","\e[14~");
$this->def_key("k5","\e[15~");
$this->def_key("k6","\e[17~");
$this->def_key("k7","\e[18~");
$this->def_key("k8","\e[19~");
$this->def_key("k9","\e[20~");
$this->def_key("k10","\e[21~");
$this->def_key("k11","\e[23~");
$this->def_key("k12","\e[24~");
$this->def_key("ins","\e[2~");
$this->def_key("del","\e[3~");
$this->def_key("home","\e[H"); # mult defs are no problem
$this->def_key("home","\eO"); # these are some I have found
$this->def_key("end","\eOw");
$this->def_key("end","\eOe");
$this->def_key("pgup", "\e[5~");
$this->def_key("pgdn", "\e[6~");
# try to get anything useful out of termcap
# (not too accurate in many cases
foreach $fn (@keys)
{
$ufn = '_' . $fn;
$lfn = $ufn;
$lfn =~ s/_k/_l/;
if (exists $term->{$ufn})
{
if ((exists $term->{$lfn}) && ($term->{$lfn}))
{ $fn = substr($lfn,1); }
$this->def_key($fn, $term->{$ufn});
}
}
return $this;
}
1;
__END__
=back
=head1 AUTHOR
Term::Screen.pm by Mark Kaehny (kaehny@execpc.com)
Currently maintained by Jonathan Stowe <jns@gellyfish.com>
=head1 LICENSE AND COPYRIGHT
Please see the README file in the distribution kit for the license details
for this module.
=head1 SEE ALSO
Term::Cap, termcap, curses, stty, select
=cut

2
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/fake-sparc64/usr/local/libdata/perl5/site_perl/sparc64-openbsd/auto/Term/Screen/.packlist
View File

@ -1,2 +0,0 @@
/home/niness/ports/devel/p5-Term-Screen/w-p5-Term-Screen-1.02/fake-sparc64/usr/local/libdata/perl5/site_perl/Term/Screen.pm
/home/niness/ports/devel/p5-Term-Screen/w-p5-Term-Screen-1.02/fake-sparc64/usr/local/man/man3p/Term::Screen.3p

22
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/fake-sparc64/usr/local/libdata/perl5/site_perl/sparc64-openbsd/perllocal.pod
View File

@ -1,22 +0,0 @@
=head2 Sun Jan 26 22:21:54 2003: C<Module> L<Term::Screen|Term::Screen>
=over 4
=item *
C<installed into: /home/niness/ports/devel/p5-Term-Screen/w-p5-Term-Screen-1.02/fake-sparc64/usr/local/libdata/perl5/site_perl>
=item *
C<LINKTYPE: dynamic>
=item *
C<VERSION: 1.02>
=item *
C<EXE_FILES: >
=back

294
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/fake-sparc64/usr/local/man/man3p/Term::Screen.3p
View File

@ -1,294 +0,0 @@
.\" Automatically generated by Pod::Man v1.34, Pod::Parser v1.13
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings. \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote. | will give a
.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
.\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.tr \(*W-|\(bv\*(Tr
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
. ds -- \(*W-
. ds PI pi
. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
. ds L" ""
. ds R" ""
. ds C` ""
. ds C' ""
'br\}
.el\{\
. ds -- \|\(em\|
. ds PI \(*p
. ds L" ``
. ds R" ''
'br\}
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.if \nF \{\
. de IX
. tm Index:\\$1\t\\n%\t"\\$2"
..
. nr % 0
. rr F
.\}
.\"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.hy 0
.if n .na
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
. \" fudge factors for nroff and troff
.if n \{\
. ds #H 0
. ds #V .8m
. ds #F .3m
. ds #[ \f1
. ds #] \fP
.\}
.if t \{\
. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
. ds #V .6m
. ds #F 0
. ds #[ \&
. ds #] \&
.\}
. \" simple accents for nroff and troff
.if n \{\
. ds ' \&
. ds ` \&
. ds ^ \&
. ds , \&
. ds ~ ~
. ds /
.\}
.if t \{\
. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
. \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
. \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
. \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
. ds : e
. ds 8 ss
. ds o a
. ds d- d\h'-1'\(ga
. ds D- D\h'-1'\(hy
. ds th \o'bp'
. ds Th \o'LP'
. ds ae ae
. ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "Screen 3"
.TH Screen 3 "2002-09-28" "perl v5.8.0" "User Contributed Perl Documentation"
.SH "NAME"
Term::Screen \- A Simple all perl Term::Cap based screen positioning module
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 1
\& require Term::Screen;
.Ve
.PP
.Vb 10
\& $scr = new Term::Screen;
\& unless ($scr) { die " Something's wrong \en"; }
\& $scr->clrscr();
\& $scr->at(5,3);
\& $scr->puts("this is some stuff");
\& $scr->at(10,10)->bold()->puts("hi!")->normal();
\& # you can concatenate many calls (not getch)
\& $c = $scr->getch(); # doesn't need Enter key
\& ...
\& if ($scr->key_pressed()) { print "ha you hit a key!"; }
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
Term::Screen is a very simple screen positioning module that should
work wherever \f(CW\*(C`Term::Cap\*(C'\fR does. It is set up for Unix using stty's but
these dependences are isolated by evals in the \f(CW\*(C`new\*(C'\fR constructor. Thus
you may create a child module implementing Screen with \s-1MS\-DOS\s0, ioctl,
or other means to get raw and unblocked input. This is not a replacement
for Curses \*(-- it has no memory. This was written so that it could be
easily changed to fit nasty systems, and to be available first thing.
.PP
The input functions getch, key_pressed, echo, and noecho are implemented
so as to work under a fairly standard Unix system. They use 'stty'
to set raw and no echo modes and turn on auto flush. All of these are
\&'eval'ed so that this class can be inherited for new definitions easily.
.PP
Term::Screen was designed to be \*(L"required\*(R", then used with object syntax
as shown above. One quirk (which the author was used to so he didn't
care) is that for function key translation, no delay is set. So for many
terminals to get an esc character, you have to hit another char after it,
generally another esc.
.SH "PUBLIC INTERFACE"
.IX Header "PUBLIC INTERFACE"
Term::Screen has a very minimal set of of fixed character terminal position
and character reading commands:
.IP "\fInew()\fR" 4
.IX Item "new()"
Initialize the screen. Does not clear the screen, but does home the cursor.
.IP "term(term)" 4
.IX Item "term(term)"
Sets or Gets the Term::Cap object used by this object.
.IP "rows(rows)" 4
.IX Item "rows(rows)"
Returns and/or sets the number of rows on the terminal.
.IP "cols(cols)" 4
.IX Item "cols(cols)"
Returns and/or sets the number of cols on the terminal.
.IP "at(row,col)" 4
.IX Item "at(row,col)"
Moves cursor to (row,col) where (0,0) is upper left corner, \- if the spot is
illegal does whatever 'cm' in termcap does, since that is what it uses.
.IP "resize(r,c)" 4
.IX Item "resize(r,c)"
Tell screen the new number of rows & cols physically you can skip the r & c
and get new checked vals from stty or termcap. Term::Screen does not
handle resize signals internally, but you can do it by checking and updating
screen size using this function.
.IP "\fInormal()\fR" 4
.IX Item "normal()"
Turn off any highlightling (bold, reverse)
.IP "\fIbold()\fR" 4
.IX Item "bold()"
The md value from termcap \- turn on bold usually
.IP "\fIreverse()\fR" 4
.IX Item "reverse()"
The mr value from termcap \- turn on reverse text often. these last
two default to whatever is available.
.IP "\fIclrscr()\fR" 4
.IX Item "clrscr()"
Clear the screen and home cursor
.IP "\fIclreol()\fR" 4
.IX Item "clreol()"
Clear to the end of the line \- cursor doesn't move
.IP "\fIclreos()\fR" 4
.IX Item "clreos()"
Clear to end of screen \- right and down, cursor doesn't move.
.IP "\fIil()\fR" 4
.IX Item "il()"
Insert blank line before line cursor is on, moving lower lines down.
.IP "\fIdl()\fR" 4
.IX Item "dl()"
Delete line cursor is on, moving lower lines up.
.IP "\fIic_exists()\fR" 4
.IX Item "ic_exists()"
Insert character option is available.
.IP "\fIic()\fR" 4
.IX Item "ic()"
Insert character at current position move rest to the right.
.IP "\fIdc_exists()\fR" 4
.IX Item "dc_exists()"
Delete char option exists and is available.
.IP "\fIdc()\fR" 4
.IX Item "dc()"
Delete character at current position moving rest to the left.
.PP
The following are the I/O functions. They provide standard useful
single character reading values. getch returns either a single char or
the name of a function key when a key is pressed. The only exception is
when you hit a character that is the start of a function key sequence.
In this case getch keeps waiting for the next char to see if it is fn key.
Generally this is the escape key, and why you need to hit esc twice.
To get a stright char, just use the regular 'gets' perl function. You
will need to echo it yourself if you want.
.IP "puts(str)" 4
.IX Item "puts(str)"
Prints \f(CW$s\fR and returns the screen object. Used to do things like
\&\f(CW\*(C`$scr\-\*(C'\fRat(10,0)\->puts(\*(L"Hi!\*(R")\->at(0,0);>. You can just use
print if you want.
.IP "\fIgetch()\fR" 4
.IX Item "getch()"
Returns just a char in raw mode. Function keys are returned as their
capability names, e.g. the up key would return \*(L"ku\*(R". See the
\&\f(CW\*(C`get_fn_keys\*(C'\fR function for what a lot of the names are. This will wait
for next char if in a possible fn key string, so you would need to type
\&'esc' 'esc' most likely to get out of getch, since 'esc' is usually the
leading char for function keys. You can use perl's getc, to go 'underneath'
getch if you want. See the table in \fIScreen::get_fn_keys()\fR for more
information.
.IP "def_key('name','input string')" 4
.IX Item "def_key('name','input string')"
Lets you define your own function key sequence. 'name' is what will be
returned by getch. 'input string' is what the fn key sends literally. This
will override any prev definitions of the input. A whole bunch of defaults
are defined for xterms rxvt's, etc. in the get_fn_keys function.
.IP "key_pressed([sec])" 4
.IX Item "key_pressed([sec])"
Returns true if there is a character waiting. You can pass an option time in
seconds to wait.
.IP "\fIecho()\fR" 4
.IX Item "echo()"
Tells getch to echo the input to the screen. (the default.)
.IP "\fInoecho()\fR" 4
.IX Item "noecho()"
Tells getch \s-1NOT\s0 to echo input to the screen.
.IP "\fIflush_input()\fR" 4
.IX Item "flush_input()"
Clears input buffer and removes any incoming chars.
.IP "stuff_input(str)" 4
.IX Item "stuff_input(str)"
Lets you stuff chars into the input buffer to be read like keystrokes.
This is only the \f(CW\*(C`getch\*(C'\fR method buffer, the underlying getc stuff
is not touched.
.SH "AUTHOR"
.IX Header "AUTHOR"
Term::Screen.pm by Mark Kaehny (kaehny@execpc.com)
Currently maintained by Jonathan Stowe <jns@gellyfish.com>
.SH "LICENSE AND COPYRIGHT"
.IX Header "LICENSE AND COPYRIGHT"
Please see the \s-1README\s0 file in the distribution kit for the license details
for this module.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
Term::Cap, termcap, curses, stty, select

1
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/pkg/COMMENT
View File

@ -1 +0,0 @@
positioning screen based module

6
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/pkg/DESCR
View File

@ -1,6 +0,0 @@
Term::Screen is a very simple screen positioning module
that should work wherever "Term::Cap" does. It is set up
for Unix using stty's but these dependences are isolated
by evals in the "new" constructor. Thus you may create a
child module implementing Screen with MS-DOS, ioctl, or
other means to get raw and unblocked input.

4
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/pkg/PLIST
View File

@ -1,4 +0,0 @@
@comment subdir=devel/p5-Term-Screen cdrom=yes ftp=yes
@comment $OpenBSD: PLIST,v 1.1.1.1 2003/01/27 23:34:38 margarida Exp $
libdata/perl5/site_perl/Term/Screen.pm
man/man3p/Term::Screen.3p

0
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/pkg/depends
View File

216
devel/p5-Term-Screen/w-p5-Term-Screen-1.02/pkg/mtree.spec
View File

@ -1,216 +0,0 @@
/set type=dir uname=root gname=wheel mode=0755
.
etc
..
usr
local
bin
..
include
X11
..
..
info
..
lib
X11
app-defaults
..
..
..
libdata
perl5
site_perl
..
..
..
libexec
..
man
cat1
..
cat2
..
cat3
..
cat4
..
cat5
..
cat6
..
cat7
..
cat8
..
cat9
..
catl
..
catn
..
ja_JP.EUC
cat1
..
cat2
..
cat3
..
cat4
..
cat5
..
cat6
..
cat7
..
cat8
..
cat9
..
catl
..
catn
..
man1
..
man2
..
man3
..
man4
..
man5
..
man6
..
man7
..
man8
..
man9
..
manl
..
mann
..
..
man1
..
man2
..
man3
..
man4
..
man5
..
man6
..
man7
..
man8
..
man9
..
manl
..
mann
..
..
sbin
..
share
dict
..
doc
..
examples
..
misc
..
nls
C
..
da_DK.ISO_8859-1
..
de_AT.ISO_8859-1
..
de_CH.ISO_8859-1
..
de_DE.ISO_8859-1
..
el_GR.ISO_8859-7
..
en_AU.ISO_8859-1
..
en_CA.ISO_8859-1
..
en_GB.ISO_8859-1
..
en_US.ISO_8859-1
..
es_ES.ISO_8859-1
..
et_EE.ISO-8859-1
..
fi_FI.ISO_8859-1
..
fr_BE.ISO_8859-1
..
fr_CA.ISO_8859-1
..
fr_CH.ISO_8859-1
..
fr_FR.ISO_8859-1
..
hr_HR.ISO_8859-2
..
is_IS.ISO_8859-1
..
it_CH.ISO_8859-1
..
it_IT.ISO_8859-1
..
ja_JP.EUC
..
ko_KR.EUC
..
lt_LN.ASCII
..
lt_LN.ISO_8859-1
..
lt_LN.ISO_8859-2
..
nl_BE.ISO_8859-1
..
nl_NL.ISO_8859-1
..
no_NO.ISO_8859-1
..
pt_PT.ISO_8859-1
..
ru_RU.CP866
..
ru_RU.ISO_8859-5
..
ru_RU.KOI8-R
..
sv_SE.ISO_8859-1
..
uk_UA.KOI8-U
..
..
skel
..
..
..
..
var
db
..
log
..
spool
..
www type=dir uname=root gname=daemon mode=755