Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!olivea!uunet!mcsun!ukc!slxsys!ibmpcug!robobar!ronald
From: ronald@robobar.co.uk (Ronald S H Khoo)
Newsgroups: comp.lang.perl
Subject: Re: bug in curses.mus -- {,w}getstr
Message-ID: <1991Apr25.154957.27019@robobar.co.uk>
Date: 25 Apr 91 15:49:57 GMT
References: <6452@male.EBay.Sun.COM>
Organization: Robobar Ltd., Perivale, Middx., ENGLAND.
Lines: 30

me@anywhere.EBay.Sun.COM (Wayne Thompson - IR Workstation Support SE) writes:

> I am writing a hypertext engine in curseperl, but don't use w*getstr.

Granted *getstr doesn't belong in production code, but it *is* useful for
debugging ...  that's why I hacked mine to work ...

> But I try using getcap and it always comes up empty.

Hmm..  Lemme try that. Oh, hang on.  Did you call &initscr first ?
#!curseperl
$before = &getcap("cm"); &initscr; $after = &getcap("cm"); &endwin;
printf("before is %d long and after is %d long\n",
	length($before), length($after));
__END__
gives me:
before is 0 long and after is 10 long

Not very intuitive, is it?

> 4.003 SunOS4.1.1 BSD curses lib. Any thoughts?

I don't suppose that's much different from the curses I'm using, which
is the curses and termcap from the BSD 4.3-reno freed files collection
as found on ftp.uu.net and wuarchive.wustl.edu, heavily hacked to work
with System V termio (cos SCO Xenix's V7 tty compatibilty ioctls are
broken) and made it 8 bit clean(ish) at the same time ...
Possibly the easiest way to bring up curseperl on System V ? :-)
-- 
Ronald Khoo <ronald@robobar.co.uk> +44 81 991 1142 (O) +44 71 229 7741 (H)