Category : OS/2 Files
Archive   : EMXTST8F.ZIP
Filename : POPEN.C

 
Output of file : POPEN.C contained in archive : EMXTST8F.ZIP
/* popen.c (emx+gcc) */

#include
#include
#include
#include

const char *text[] =
{
"one", "two", "three", "four", "five", "six", "seven", NULL
};


static void usage (void)
{
fputs ("Usage: popen -i[1] \n"
" popen -o \n"
" popen -f \n", stderr);
exit (1);
}

int main (int argc, char *argv[])
{
FILE *f, *feed;
int c, i, j, mode, one;
char buf[2048], *feed_fname;

mode = 0; one = 0;
while ((c = getopt (argc, argv, "fio1")) != EOF)
switch (c)
{
case 'f':
case 'i':
case 'o':
if (mode != 0)
usage ();
mode = c;
break;
case '1':
one = 1;
break;
default:
usage ();
}
if (mode == 0 || (mode != 'i' && one) || argc - optind < 1)
usage ();
if (mode == 'f')
{
if (argc - optind < 2)
usage ();
feed_fname = argv[optind];
feed = fopen (feed_fname, "rt");
if (feed == NULL)
{
perror (feed_fname);
return (2);
}
++optind;
}
buf[0] = 0;
for (i = optind; i < argc; ++i)
{
if (buf[0] != 0)
strcat (buf, " ");
strcat (buf, argv[i]);
}
if (mode == 'i')
{
f = popen (buf, "rt");
if (f == NULL)
{
perror ("popen");
return (2);
}
i = 1;
while (fgets (buf, sizeof (buf), f) != NULL)
{
printf ("%4d: %s", i++, buf);
if (one)
break;
}
}
else
{
f = popen (buf, "wt");
if (f == NULL)
{
perror ("popen");
return (2);
}
if (mode == 'f')
{
for (;;)
{
i = fread (buf, 1, sizeof (buf), feed);
if (ferror (feed))
{
perror (feed_fname);
return (2);
}
if (i == 0)
break;
j = fwrite (buf, 1, i, f);
if (ferror (f))
{
perror ("fwrite");
return (2);
}
if (j != i)
{
fputs ("Pipe full\n", stderr);
break;
}
}
fclose (feed);
}
else
for (i = 0; text[i] != NULL; ++i)
{
if (fputs (text[i], f) != 0)
{
perror ("fputs");
return (2);
}
if (fputc ('\n', f) == EOF)
{
perror ("fputc");
return (2);
}
if (fflush (f) != 0)
{
perror ("fflush");
return (2);
}
}
}
i = pclose (f);
if (i < 0)
{
perror ("pclose");
return (2);
}
if ((i & 0xff) == 0)
printf ("Normal process termination, rc=%d\n", i >> 8);
else if ((i & 0xff) == 127)
printf ("Process stopped by signal %d\n", i >> 8);
else
printf ("Process terminated by signal %d\n", i & 0xff);
return (0);
}


  3 Responses to “Category : OS/2 Files
Archive   : EMXTST8F.ZIP
Filename : POPEN.C
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/