summaryrefslogtreecommitdiff
path: root/devel/fortran-utils/files/patch-fpr_fpr.c
blob: d20d71704d75006c5ca97ee41a84e13ea5a50fa2 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
--- fpr/fpr.c.orig	1994-05-27 12:31:21 UTC
+++ fpr/fpr.c
@@ -45,6 +45,7 @@ static char sccsid[] = "@(#)fpr.c	8.1 (B
 #endif /* not lint */
 
 #include <stdio.h>
+#include <stdlib.h>
 
 #define BLANK ' '
 #define TAB '\t'
@@ -80,12 +81,13 @@ COLUMN *line;
 int maxpos;
 int maxcol;
 
-extern char *malloc();
-extern char *calloc();
-extern char *realloc();
-
-
+void init();
+void mygettext();
+void flush();
+void savech(int);
+void nospace();
 
+int
 main()
 {
   register int ch;
@@ -124,7 +126,7 @@ main()
 
   while ( ! ateof)
     {
-      gettext();
+      mygettext();
       ch = getchar();
       if (ch == EOF)
 	{
@@ -176,6 +178,7 @@ main()
 
 
 
+void
 init()
 {
   register COLUMN *cp;
@@ -210,7 +213,8 @@ init()
 
 
 
-gettext()
+void
+mygettext()
 {
   register int i;
   register char ateol;
@@ -283,8 +287,8 @@ gettext()
 
 
 
-savech(col)
-int col;
+void
+savech(int col)
 {
   register char ch;
   register int oldmax;
@@ -340,6 +344,7 @@ int col;
 
 
 
+void
 flush()
 {
   register int i;
@@ -403,6 +408,7 @@ flush()
 
 
 
+void
 nospace()
 {
   fputs("Storage limit exceeded.\n", stderr);