Documentation for -fno-code and -fwrite-iface.

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

diff --git a/ghc/utils/hp2ps/PsFile.c b/ghc/utils/hp2ps/PsFile.c
index b2040f1..357f826 100644 (file)
--- a/ghc/utils/hp2ps/PsFile.c
+++ b/ghc/utils/hp2ps/PsFile.c
@@ -1,6 +1,6 @@
+#include "Main.h"
 #include <stdio.h>
 #include <string.h>
-#include "Main.h"
 #include "Defines.h"
 #include "Dimensions.h"
 #include "Curves.h"
@@ -59,22 +59,13 @@ static void Scaling   PROTO((floatish));            /* forward */
 static void
 Prologue()
 {
-    floatish epsfscale;
-
-    if (eflag) epsfscale = epsfwidth / (floatish) borderwidth;
-
     if (eflag) {
+       floatish epsfscale = epsfwidth / (floatish) borderwidth;
        EPSFSpecialComments(epsfscale);
-    } else {
-       StandardSpecialComments();
-    }
-
-    if (eflag) {
        Scaling(epsfscale);
-    } else if (gflag) {
-       Portrait();
     } else {
-       Landscape();
+       StandardSpecialComments();
+       if (gflag) Portrait(); else Landscape();
     }
 }
 
@@ -212,7 +203,7 @@ BigTitleText()
     fprintf(psfp, "HE%d setfont\n", TITLE_TEXT_FONT);
     fprintf(psfp, "%f %f moveto\n", x, y);
     fputc('(', psfp);
-    CommaPrint(psfp, (int) areabelow);
+    CommaPrint(psfp, (intish)areabelow);
     fprintf(psfp, " %s x %s)\n", valueunitstring, sampleunitstring); 
     fprintf(psfp, "show\n");
 
@@ -248,7 +239,7 @@ TitleText()
  
     fprintf(psfp, "HE%d setfont\n", TITLE_TEXT_FONT);
     fputc('(', psfp);
-    CommaPrint(psfp, (int) areabelow);
+    CommaPrint(psfp, (intish) areabelow);
     fprintf(psfp, " %s x %s)\n", valueunitstring, sampleunitstring);
  
     fprintf(psfp, "dup stringwidth pop\n");