[project @ 1996-11-21 16:45:53 by simonm]

[ghc-hetmet.git] / ghc / utils / hp2ps / Main.c

diff --git a/ghc/utils/hp2ps/Main.c b/ghc/utils/hp2ps/Main.c
index 7e93541..2e2c3cc 100644 (file)
--- a/ghc/utils/hp2ps/Main.c
+++ b/ghc/utils/hp2ps/Main.c
@@ -16,7 +16,7 @@
 #include "Utilities.h"
 
 #ifndef atof
-extern double atof PROTO((char *));
+double atof PROTO((char *));
 #endif
 
 boolish pflag = 0;     /* read auxiliary file                  */
@@ -29,6 +29,7 @@ boolish bflag = 0;    /* use a big title box                  */
 boolish sflag = 0;     /* use a small title box                */
 int     mflag = 0;     /* max no. of bands displayed (default 20) */
 boolish tflag = 0;     /* ignored threshold specified          */
+boolish cflag = 0;      /* colour output                        */
 
 boolish filter;                /* true when running as a filter        */
 
@@ -118,6 +119,9 @@ char* argv[];
                if (THRESHOLD_PERCENT < 0 || THRESHOLD_PERCENT > 5)
                    Usage(*argv-1);
                goto nextarg;
+           case 'c':
+               cflag++;
+               goto nextarg;
            case '?':
            default:
                Usage(*argv-1);