HP3000-L Archives

July 1998, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Mark Bixby <[log in to unmask]>
Reply To:
Date:
Tue, 14 Jul 1998 15:39:15 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (52 lines)
[log in to unmask] writes:
> If I build the enclosed tst.c using CCXL on MPE/iX 5.5,
> I cannot redirect stdin/stdout as it seems I should be able to.
> I have tried executing from sh and from ci (using callci) as
> well as using callci to invoke a command file that calls the
> program. I have also fiddled with adding pm and privlev
> to the executable, but no luck.
>
> I am actually trying to run a similar program via
> the perl open3() call, and this example seems to
> reduce the problem to its essence, and yields similarly
> disasterous results.

FWIW, as we speak I am in the final phase of testing what will become Perl/iX
5.005 Real Soon Now.  5.005 should also have the MPE patches incorporated
into the official www.perl.com sources.

I've never played with open3().

> -------------------------------
> Running directly from sh.hpbin:
> -------------------------------
>
>     ./TST < tstin > tstout
>
> Result:
> -------
> **** OPEN OF STDIN FAILED (CIERR 14)
> with a stack trace in tstout

Hmmm.  But as you can see, it works for me on MPE/iX 5.5pp4 using gcc (I don't
have access to HP C/iX):

mbloaner:/PERL/PUB$ gcc -o tst tst.c
WARNING: /tmp/cca981301.o HAS FILECODE 0

mbloaner:/PERL/PUB$ ./tst < tstin > tstout
mbloaner:/PERL/PUB$ cat tstout
Enter a line:
Line was <hello>
Enter a line:
Line was <there>
Enter a line:
Line was <exit>
mbloaner:/PERL/PUB$
--
Mark Bixby                      E-mail: [log in to unmask]
Coast Community College Dist.   Web: http://www.cccd.edu/~markb/
District Information Services   1370 Adams Ave, Costa Mesa, CA, USA 92626-5429
Technical Support               Voice: +1 714 438-4647
"You can tune a file system, but you can't tune a fish." - tunefs(1M)

ATOM RSS1 RSS2