X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Futils%2Fhp2ps%2FMain.c;h=2e2c3cc60498b14cbf17dc83b97937f385b115d7;hb=6cce4a58fb206f16db579fded00fd0a7090543ae;hp=7e93541165d0e78021f36055def308a04b339d89;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/utils/hp2ps/Main.c b/ghc/utils/hp2ps/Main.c
index 7e93541..2e2c3cc 100644
--- 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);