2009-08-19  Peter Breitenlohner  <peb@mppmu.mpg.de>

	* vlna.c: Use ANSI C function definitions, all static except main.

diff -ur vlna-1.5.orig/vlna.w vlna-1.5/vlna.w
--- vlna-1.5.orig/vlna.w	2010-02-01 22:52:15.000000000 +0100
+++ vlna-1.5/vlna.w	2011-05-02 15:58:47.000000000 +0200
@@ -59,9 +59,7 @@
 
 @ Zkladn rozvren funkce |main|.
 @<Hlavn program@>=
-int main (argc,argv)
-    int argc;
-    char **argv;
+int main (int argc, char **argv)
 {
   @<Lokln promnn funkce |main|@>;
   prog_name=argv[0]; status = OK;
@@ -112,7 +110,7 @@
 kulturn dlouh string obsahujc \.{\char92n} s formtovacmi
 poadavky. Byl jsem nucen to takto nehezky zapsat.
 @<Pomocn funkce@>=
-void printusage ()
+static void printusage (void)
 {
   fprintf(stderr,
     "usage: vlna [opt] [filenames]\n"
@@ -204,8 +202,7 @@
 @ Definujeme funkci pro vpis chybovho hlen pi nespnm oteven
 souboru.
 @<Pomocn funkce@>=
-void ioerr (f)
-  char *f;
+static void ioerr (char *f)
 {
    fprintf(stderr, "%s: cannot open file %s\n", prog_name, f);
 }
@@ -335,7 +332,7 @@
 } PATITEM;
 typedef struct PATTERN {     /* jeden pattern */
    PATITEM *patt;            /* ukazatel na prvni pozici */
-   void (*proc)();           /* procedura spustena pri souhlasu patternu */
+   void (*proc)(void);       /* procedura spustena pri souhlasu patternu */
    struct PATTERN *next ;    /* nasledujici v seznamu vsech patternu */
 } PATTERN;
 
@@ -407,8 +404,7 @@
 ohldat ppadnou chybu pi alokaci, budeme allokovat pam zprostedkovan
 pomoc funkce |myalloc|.
 @<Pomocn funkce@>=
-void *myalloc (size)
-  int size;
+static void *myalloc (int size)
 {
   void *p;
   p = malloc (size);
@@ -425,8 +421,7 @@
 Vrt ukazatel na nov alokovan msto. Jednotliv pozice patternu se mus
 nsledovn alokovat pomoc |setpi|.
 @<Pomocn funkce@>=
-PATTERN *setpattern (proc) @/
-  void (*proc)();
+static PATTERN *setpattern (void (*proc)(void))
 {
   PATTERN *pp;
   pp = myalloc (sizeof (PATTERN));
@@ -444,9 +439,7 @@
 |patt| ve struktue |PATTERN| a dal byly provzny polokou |next| ve
 struktue |PATITEM|. Posledn pozice m |next==NULL|.
 @<Pomocn funkce@>=
-void setpi (str, flag)
-  char *str;
-  int flag;
+static void setpi (char *str, int flag)
 {
   PATITEM* p;
   p = myalloc (sizeof (PATITEM));
@@ -479,9 +472,7 @@
 
 @ Definujme funkci |normalpattern|.
 @<Pomocn funkce@>=
-PATTERN *normalpattern (proc, str) @/
-  void (*proc)();
-  char *str;
+static PATTERN *normalpattern (void (*proc)(void), char *str)
 {
   PATTERN *pp;
   int j=0;
@@ -517,8 +508,7 @@
 @d FOUND   -1
 @d NOFOUND -2
 @<Pomocn funkce@>=
-int match (p)
-  PATITEM *p;
+static int match (PATITEM *p)
 {
   int m;
   if (strchr (p->str, c) != NULL) m = 1;  /* Znak nalezen */
@@ -565,8 +555,7 @@
 implementovat jen pepnn mezi stavem ten z oblasti komente
 (|listpatt==commentlist|) a mimo koment (|listpatt==normallist|);
 @<Vlnkovac funkce |tie|@>=
-void tie (input, output)
-  FILE *input, *output;
+static void tie (FILE *input, FILE *output)
 {
   int ap;  /* ap je pocet otevrenych patternu */
   register int k, m, n;
@@ -736,7 +725,7 @@
 neboli vlnku. Nakonec pipojme zapamatovan znak |p|, ovem pokud ped nm byla nula, 
 vlome ji jet ped znak |p|.
 @<Pomocn funkce@>=
-void vlnkain()
+static void vlnkain(void)
 {
   int i;
   char p, z;
@@ -780,7 +769,7 @@
 situaci pouze zrume stvajc (v poad druh) \uv{\.{\char92n}} a
 nebudeme vytvet nov. Na vstupu bude soubor o jeden dek krat.
 @<Pomocn funkce@>=
-void vlnkacr()
+static void vlnkacr(void)
 {
   char p, z;
   int i, j;
@@ -850,7 +839,7 @@
 hodnotu promnn |c|. Sta tedy zmnit hodnotu |c| a vlnkovac patterny se
 neotevou.
 @<Pomocn funkce@>=
-void tielock ()
+static void tielock (void)
 {
   c = 1;
 }
@@ -859,7 +848,7 @@
 mdu vlnky nedlme. Pi zjitnm nesouladu v pechodech mezi
 math-mdy spustme nsledujc proceduru.
 @<Pomocn funkce@>=
-void printwarning ()
+static void printwarning (void)
 {
   if (!silent)
     fprintf (stderr, 
@@ -884,13 +873,13 @@
 }
 
 @ @<Pomocn funkce@>=
-void mathin ()
+static void mathin (void)
 {
   if (mode!=TEXTMODE) printwarning ();
   mode = MATHMODE;
   normallist = listpatt = mathlist;
 }
-void mathout ()
+static void mathout (void)
 {
   if (mode!=MATHMODE) printwarning ();
   mode = TEXTMODE;
@@ -902,7 +891,7 @@
 \.{\$\$} souhlas ten druh dolar s nam patternem, ale to u jsme uvnit
 display mdu. V takovm ppad tak nic nedlme.
 @<Pomocn funkce@>=
-void onedollar ()
+static void onedollar (void)
 {
   if (buffnz[inz-3]=='\\' || (buffnz[inz-3]=='$' && buffnz[inz-4]!='\\')) return;
   if (mode==DISPLAYMODE) printwarning ();
@@ -921,7 +910,7 @@
 setpi (cr, ONE);
 
 @ @<Pomocn funkce@>=
-void checkmode ()
+static void checkmode (void)
 {
   if (mode!=TEXTMODE) {
     printwarning ();
@@ -947,17 +936,17 @@
 }
 
 @ @<Pomocn funkce@>=
-void displayin ()
+static void displayin (void)
 {
   if (mode!=TEXTMODE) printwarning ();
   mode = DISPLAYMODE; normallist = listpatt = parcheck;
 }
-void displayout ()
+static void displayout (void)
 {
   if (mode!=DISPLAYMODE) printwarning();
   mode = TEXTMODE; normallist =  listpatt = vlnkalist;
 }
-void twodollars ()
+static void twodollars (void)
 {
   if (buffnz[inz-3]=='\\') return;
   if (mode==DISPLAYMODE) displayout ();
@@ -999,7 +988,7 @@
 int prevmode;
 PATTERN *prevlist, *verboutlist[4];
 char verbchar[2];
-void verbinchar ()
+static void verbinchar (void)
 {
   prevmode = mode;
   verbchar[0] = c;
@@ -1017,7 +1006,7 @@
 math. mdu me bt
 \.{\char92hbox} a v nm lokln verbatim konstrukce).
 @<Pomocn funkce@>=
-void verbin ()
+static void verbin (void)
 { 
   int i;
   i = 0;
@@ -1037,7 +1026,7 @@
 }
 
 @ @<Pomocn funkce@>=
-void verbout ()
+static void verbout (void)
 {
   if (mode!=VERBMODE) return;
   if (web && buffnz[inz-2] == '@@' && buffnz[inz-3] == '@@') return;
@@ -1059,11 +1048,11 @@
 normalpattern (tieon, "%.~.+");
 
 @ @<Pomocn funkce@>=
-void tieoff ()
+static void tieoff (void)
 {
   normallist = NULL;
 }
-void tieon ()
+static void tieon (void)
 {
   normallist = vlnkalist;
 }
