summaryrefslogtreecommitdiff
path: root/utils/hp2ps/PsFile.c
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2011-08-01 01:07:12 +0100
committerIan Lynagh <igloo@earth.li>2011-08-01 01:07:12 +0100
commit96ebe2fa43b9ee98cd82d31760c57db0fea18495 (patch)
tree93e6995b75c08c84f2e7fc908ec3634cd64b0e92 /utils/hp2ps/PsFile.c
parentb4a01788a1a833de64cba041c796fa35e0275220 (diff)
downloadhaskell-96ebe2fa43b9ee98cd82d31760c57db0fea18495.tar.gz
Remove some antiquated C constructs
Fixes validate on amd64/Linux with: SRC_CC_OPTS += -Wmissing-parameter-type SRC_CC_OPTS += -Wold-style-declaration SRC_CC_OPTS += -Wold-style-definition
Diffstat (limited to 'utils/hp2ps/PsFile.c')
-rw-r--r--utils/hp2ps/PsFile.c35
1 files changed, 16 insertions, 19 deletions
diff --git a/utils/hp2ps/PsFile.c b/utils/hp2ps/PsFile.c
index 1324da6f08..6013a073e4 100644
--- a/utils/hp2ps/PsFile.c
+++ b/utils/hp2ps/PsFile.c
@@ -21,7 +21,7 @@ static void TitleOutlineBox PROTO((void)); /* forward */
static void BigTitleText PROTO((void)); /* forward */
static void TitleText PROTO((void)); /* forward */
-static void DoTitleAndBox()
+static void DoTitleAndBox(void)
{
BorderOutlineBox();
@@ -37,14 +37,14 @@ static void DoTitleAndBox()
static void Landscape PROTO((void)); /* forward */
static void Portrait PROTO((void)); /* forward */
-void NextPage() {
+void NextPage(void) {
fprintf(psfp, "showpage\n");
if (gflag) Portrait(); else Landscape();
DoTitleAndBox();
}
void
-PutPsFile()
+PutPsFile(void)
{
Prologue();
Variables();
@@ -75,7 +75,7 @@ static void EPSFSpecialComments PROTO((floatish)); /* forward */
static void Scaling PROTO((floatish)); /* forward */
static void
-Prologue()
+Prologue(void)
{
if (eflag) {
floatish epsfscale = epsfwidth / (floatish) borderwidth;
@@ -91,7 +91,7 @@ extern char *jobstring;
extern char *datestring;
static void
-StandardSpecialComments()
+StandardSpecialComments(void)
{
fprintf(psfp, "%%!PS-Adobe-2.0\n");
fprintf(psfp, "%%%%Title: %s\n", jobstring);
@@ -101,8 +101,7 @@ StandardSpecialComments()
}
static void
-EPSFSpecialComments(epsfscale)
- floatish epsfscale;
+EPSFSpecialComments(floatish epsfscale)
{
fprintf(psfp, "%%!PS-Adobe-2.0\n");
fprintf(psfp, "%%%%Title: %s\n", jobstring);
@@ -117,7 +116,7 @@ EPSFSpecialComments(epsfscale)
static void
-Landscape()
+Landscape(void)
{
fprintf(psfp, "-90 rotate\n");
fprintf(psfp, "%f %f translate\n", -(borderwidth + (floatish) START_Y),
@@ -125,21 +124,20 @@ Landscape()
}
static void
-Portrait()
+Portrait(void)
{
fprintf(psfp, "%f %f translate\n", (floatish) START_X, (floatish) START_Y);
}
static void
-Scaling(epsfscale)
- floatish epsfscale;
+Scaling(floatish epsfscale)
{
fprintf(psfp, "%f %f scale\n", epsfscale, epsfscale);
}
static void
-Variables()
+Variables(void)
{
fprintf(psfp, "/HE%d /Helvetica findfont %d scalefont def\n",
NORMAL_FONT, NORMAL_FONT);
@@ -150,7 +148,7 @@ Variables()
static void
-BorderOutlineBox()
+BorderOutlineBox(void)
{
fprintf(psfp, "newpath\n");
fprintf(psfp, "0 0 moveto\n");
@@ -163,7 +161,7 @@ BorderOutlineBox()
}
static void
-BigTitleOutlineBox()
+BigTitleOutlineBox(void)
{
fprintf(psfp, "newpath\n");
fprintf(psfp, "%f %f moveto\n", borderspace,
@@ -183,7 +181,7 @@ BigTitleOutlineBox()
static void
-TitleOutlineBox()
+TitleOutlineBox(void)
{
fprintf(psfp, "newpath\n");
fprintf(psfp, "%f %f moveto\n", borderspace,
@@ -199,7 +197,7 @@ TitleOutlineBox()
static void EscapePrint PROTO((char *, int)); /* forward */
static void
-BigTitleText()
+BigTitleText(void)
{
floatish x, y;
@@ -238,7 +236,7 @@ BigTitleText()
static void
-TitleText()
+TitleText(void)
{
floatish x, y;
@@ -283,8 +281,7 @@ TitleText()
*/
static void
-EscapePrint(s,w)
- char* s; int w;
+EscapePrint(char *s, int w)
{
for ( ; *s && w > 0; s++, w--) {
if (*s == '(') { /* escape required */