minix/commands/shar/shar.c
2010-05-12 16:28:54 +00:00

71 lines
1.5 KiB
C

/* shar - make a shell archive Author: Michiel Husijes */
#include <stdlib.h> /* for the nonstd :-( _PROTOTYPE */
#include <stdio.h>
static _PROTOTYPE( void error, (char *progname, char *operation,
char *filename) );
_PROTOTYPE( int main, (int argc, char **argv) );
int main(argc, argv)
int argc;
char *argv[];
{
int argn;
register int ch;
register FILE *fp;
int exitstatus;
char *filename;
exitstatus = 0;
for (argn = 1; argn < argc; argn++) {
filename = argv[argn];
if ((fp = fopen(filename, "r")) == NULL) {
error(argv[0], "opening ", filename);
exitstatus = 1;
} else {
fputs("echo x - ", stdout);
fputs(filename, stdout);
fputs("\nsed '/^X/s///' > ", stdout);
fputs(filename, stdout);
fputs(" << '/'\n", stdout);
while ((ch = getc(fp)) != EOF) {
putchar('X');
putchar(ch);
while (ch != '\n') {
ch = getc(fp);
if (ch == EOF) break;
putchar(ch);
}
if (ch == EOF) break;
}
fputs("/\n", stdout);
if (ferror(fp)) {
error(argv[0], "reading ", filename);
exitstatus = 1;
}
if (fclose(fp) != 0) {
error(argv[0], "closing ", filename);
exitstatus = 1;
}
if (ferror(stdout)) break; /* lost already */
}
}
fflush(stdout);
if (ferror(stdout)) {
error(argv[0], "writing ", "stdout");
exitstatus = 1;
}
return(exitstatus);
}
static void error(progname, operation, filename)
char *progname;
char *operation;
char *filename;
{
fputs(progname, stderr);
fputs(": error ", stderr);
fputs(operation, stderr);
perror(filename);
}