1 files changed, 240 insertions, 0 deletions
diff --git a/Build/source/utils/vlna/TLPATCHES/patch-01-warnings b/Build/source/utils/vlna/TLPATCHES/patch-01-warnings
new file mode 100644
index 00000000000..290b32176be
--- /dev/null
+++ b/Build/source/utils/vlna/TLPATCHES/patch-01-warnings
@@ -0,0 +1,240 @@
+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 @@
+ 
+ @ Základní rozvržení funkce |main|.
+ @<Hlavní program@>=
+-int main (argc,argv)
+-    int argc;
+-    char **argv;
++int main (int argc, char **argv)
+ {
+   @<Lokální proměnné funkce |main|@>;
+   prog_name=argv[0]; status = OK;
+@@ -112,7 +110,7 @@
+ kulturně dlouhý string obsahující \.{\char92n} s formátovacími
+ požadavky. 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 výpis chybového hlášení při neúspěšném otevření
+ 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 @@
+ ohlídat případnou chybu při alokaci, budeme allokovat paměť zprostředkovaně
+ pomocí funkce |myalloc|.
+ @<Pomocné funkce@>=
+-void *myalloc (size)
+-  int size;
++static void *myalloc (int size)
+ {
+   void *p;
+   p = malloc (size);
+@@ -425,8 +421,7 @@
+ Vrátí ukazatel na nově alokované místo. Jednotlivé pozice patternu se musí
+ následovně 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 struktuře |PATTERN| a další byly provázány položkou |next| ve
+ struktuře |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 přepínání mezi stavem čtení z oblasti komentáře
+ (|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 připojíme zapamatovaný znak |p|, ovšem pokud před ním byla nula, 
+ vložíme ji ještě před znak |p|.
+ @<Pomocné funkce@>=
+-void vlnkain()
++static void vlnkain(void)
+ {
+   int i;
+   char p, z;
+@@ -780,7 +769,7 @@
+ situaci pouze zrušíme stávající (v pořadí druhé) \uv{\.{\char92n}} a
+ nebudeme vytvářet nové. Na výstupu 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 proměnné |c|. Stačí tedy změnit hodnotu |c| a vlnkovací patterny se
+ neotevřou.
+ @<Pomocné funkce@>=
+-void tielock ()
++static void tielock (void)
+ {
+   c = 1;
+ }
+@@ -859,7 +848,7 @@
+ módu vlnky neděláme. Při zjištěném nesouladu v přechodech mezi
+ math-módy spustíme následující 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 naším patternem, ale to už jsme uvnitř
+ display módu. V takovém případě také nic neděláme.
+ @<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. módu může být
+ \.{\char92hbox} a v něm lokálně 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;
+ }