tbl will now pick up the typesetter from environment, just like the

SCCS-vsn: local/ditroff/ditroff.okeeffe/tbl/main.c 1.3

diff --git a/usr/src/local/ditroff/ditroff.okeeffe/tbl/main.c b/usr/src/local/ditroff/ditroff.okeeffe/tbl/main.c
index 3810e5b..a6a3a74 100644 (file)
--- a/usr/src/local/ditroff/ditroff.okeeffe/tbl/main.c
+++ b/usr/src/local/ditroff/ditroff.okeeffe/tbl/main.c
@@ -1,5 +1,5 @@
 #ifndef lint
 #ifndef lint

-static char sccsid[] = "@(#)main.c     1.2 (CWI) 85/10/02";
+static char sccsid[] = "@(#)main.c     1.3 (CWI) 85/10/02";

 #endif lint
 
 /*
 #endif lint
 
 /*


@@ -20,10 +20,21 @@ main(argc, argv)
 int    argc; char   *argv[];
 {
        char line[BUFSIZ];
 int    argc; char   *argv[];
 {
        char line[BUFSIZ];

+       register char *p;
+       char *getenv();

        extern int badsig();
 
        signal(SIGPIPE, badsig);
 
        extern int badsig();
 
        signal(SIGPIPE, badsig);
 

+       if (p = getenv("TYPESETTER")) {
+               if(strcmp(p, "har") == 0)
+                       device = HARRIS;
+               else if(strcmp(p, "ver") == 0)
+                       device = DEVVER;
+               else
+                       fprintf(stderr, "tbl: warning: unknown typesetter %s\n", p);
+       }
+

        tabin = stdin;
        sargv = ++argv;
        if((sargc = --argc) > 0)
        tabin = stdin;
        sargv = ++argv;
        if((sargc = --argc) > 0)