source: trunk/minix/commands/simple/lp.c@ 11

/*      lp 1.4 - Send file to the lineprinter           Author: Kees J. Bot
 *                                                              3 Dec 1989
 */
#define nil 0
#include <sys/types.h>
#include <stdio.h>
#include <limits.h>
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
#include <string.h>
#include <errno.h>
#include <sys/wait.h>

char LPD1[] = "/usr/sbin/lpd";          /* Proper place of lpd */
char LPD2[] = "/usr/bin/lpd";           /* Minix has no sbin directories. */

void report(char *mess)
{
        fprintf(stderr, "lp: %s: %s\n", mess, strerror(errno));
}

void fatal(char *mess)
{
        report(mess);
        exit(1);
}

void lp(char *file)
/* Start the lpd daemon giving it the file to spool and print. */
{
        int pid, status;

        if (file[0] != '/' || (pid= fork()) == 0) {
                execl(LPD1, LPD1, file, (char *) nil);
                if (errno != ENOENT) fatal(LPD1);
                execl(LPD2, LPD2, file, (char *) nil);
                fatal(LPD2);
        }

        if (pid < 0) fatal("can't fork");

        if (waitpid(pid, &status, 0) < 0) fatal("wait");

        if (status != 0) exit(1);
}

char path[PATH_MAX+1];
int cwdsize;

int main(int argc, char **argp)
{
        int e=0;
        char *file;

        if (argc <= 1) lp("stdin");

        /* Lpd requires full path names, so find out where we are. */
        if (getcwd(path, sizeof(path)) == nil)
                fatal("Can't determine current directory");

        cwdsize= strlen(path);

        /* Hand each file to lpd. */
        while ((file= *++argp) != nil) {

                close(0);

                if (open(file, O_RDONLY) != 0) {
                        report(file);
                        e=1;
                        continue;
                }
                if (file[0] == '/') {
                        lp(file);
                        continue;
                }
                if (cwdsize + 1 + strlen(file) + 1 > sizeof(path)) {
                        fprintf(stderr,
                                "lp: full pathname of %s is too long\n",
                                file);
                        e=1;
                        continue;
                }
                path[cwdsize] = '/';
                strcpy(path + cwdsize + 1, file);

                lp(path);
        }
        exit(e);
}