varargs.h -> stdarg.h migration.

4 files changed, 139 insertions, 6 deletions

diff --git a/lang/elk/patches/patch-au b/lang/elk/patches/patch-au
index 8eae08b0c1a..fdf3643f376 100644
--- a/lang/elk/patches/patch-au
+++ b/lang/elk/patches/patch-au
@@ -1,19 +1,40 @@
-$NetBSD: patch-au,v 1.1 2002/01/09 23:04:59 seb Exp $
+$NetBSD: patch-au,v 1.2 2004/03/28 15:51:25 uebayasi Exp $
 
---- src/print.c.orig	Thu Apr  4 15:25:04 1996
+--- src/print.c.orig	Thu Apr  4 22:25:04 1996
 +++ src/print.c
-@@ -6,6 +6,7 @@
+@@ -5,7 +5,8 @@
+ 
  #include <errno.h>
  #include <ctype.h>
- #include <varargs.h>
+-#include <varargs.h>
++#include <stdarg.h>
 +#include <sys/param.h>
  
  #ifdef FLUSH_TIOCFLUSH
  #  include <sys/ioctl.h>
-@@ -556,7 +557,7 @@
+@@ -95,15 +96,11 @@ vsprintf (s, fmt, ap) register char *s, 
+ #endif
+ 
+ /*VARARGS0*/
+-Printf (va_alist) va_dcl {
++Printf (Object port, char *fmt, ...) {
+     va_list args;
+-    Object port;
+-    char *fmt;
+     char buf[1024];
+ 
+-    va_start (args);
+-    port = va_arg (args, Object);
+-    fmt = va_arg (args, char *);
++    va_start (args, fmt);
+     if (PORT(port)->flags & P_STRING) {
+ 	vsprintf (buf, fmt, args);
+ 	Print_String (port, buf, strlen (buf));
+@@ -555,8 +552,7 @@ Format (port, fmt, len, argc, argv) Obje
+     char *p;
      register c;
      char buf[256];
-     extern sys_nerr;
+-    extern sys_nerr;
 -#ifndef __bsdi__
 +#if !(defined(BSD) && (BSD >= 199306))
      extern char *sys_errlist[];
diff --git a/lang/elk/patches/patch-av b/lang/elk/patches/patch-av
new file mode 100644
index 00000000000..c9bb6344efb
--- /dev/null
+++ b/lang/elk/patches/patch-av
@@ -0,0 +1,46 @@
+$NetBSD: patch-av,v 1.1 2004/03/28 15:51:25 uebayasi Exp $
+
+--- src/error.c.orig	Sat Aug  5 19:33:48 1995
++++ src/error.c
+@@ -1,5 +1,5 @@
+ #include <ctype.h>
+-#include <varargs.h>
++#include <stdarg.h>
+ 
+ #include "kernel.h"
+ 
+@@ -40,13 +40,11 @@ void Set_App_Name (name) char *name; {
+ /*VARARGS1*/
+ Fatal_Error (foo) char *foo; { foo = foo; }
+ #else
+-Fatal_Error (va_alist) va_dcl {
++Fatal_Error (char *fmt, ...) {
+     va_list args;
+-    char *fmt;
+     
+     Disable_Interrupts;
+-    va_start (args);
+-    fmt = va_arg (args, char *);
++    va_start (args, fmt);
+     (void)fflush (stdout);
+     if (appname)
+ 	fprintf (stderr, "\n%s: fatal error: ", appname);
+@@ -89,15 +87,14 @@ Uncatchable_Error (errmsg) char *errmsg;
+ /*VARARGS1*/
+ Primitive_Error (foo) char *foo; { foo = foo; }
+ #else
+-Primitive_Error (va_alist) va_dcl {
++Primitive_Error (char *fmt, ...) {
+     va_list args;
+-    register char *p, *fmt;
++    register char *p;
+     register i, n;
+     Object msg, sym, argv[10];
+     GC_Node; GCNODE gcv;
+ 
+-    va_start (args);
+-    fmt = va_arg (args, char *);
++    va_start (args, fmt);
+     for (n = 0, p = fmt; *p; p++)
+ 	if (*p == '~' && p[1] != '~' && p[1] != '%'
+ 		&& p[1] != 'E' && p[1] != 'e')
diff --git a/lang/elk/patches/patch-aw b/lang/elk/patches/patch-aw
new file mode 100644
index 00000000000..359290e3a49
--- /dev/null
+++ b/lang/elk/patches/patch-aw
@@ -0,0 +1,33 @@
+$NetBSD: patch-aw,v 1.1 2004/03/28 15:51:25 uebayasi Exp $
+
+--- src/terminate.c.orig	Mon Aug  7 16:30:12 1995
++++ src/terminate.c
+@@ -1,7 +1,7 @@
+ /* Termination functions, weak pointers.
+  */
+ 
+-#include <varargs.h>
++#include <stdarg.h>
+ 
+ #include "kernel.h"
+ 
+@@ -50,17 +50,11 @@ void Deregister_Object (obj) Object obj;
+  * Null is returned when the object has not been found.
+  */
+ /*VARARGS*/
+-Object Find_Object (va_alist) va_dcl {
++Object Find_Object (int type, GENERIC group, MATCHFUN match, ...) {
+     WEAK_NODE *p;
+-    int type;
+-    GENERIC group;
+-    MATCHFUN match;
+     va_list args;
+ 
+-    va_start (args);
+-    type = va_arg (args, int);
+-    group = va_arg (args, GENERIC);
+-    match = va_arg (args, MATCHFUN);
++    va_start (args, match);
+     for (p = first; p; p = p->next) {
+ 	if (TYPE(p->obj) != type || p->group != group)
+ 	    continue;
diff --git a/lang/elk/patches/patch-ax b/lang/elk/patches/patch-ax
new file mode 100644
index 00000000000..9e11879e66a
--- /dev/null
+++ b/lang/elk/patches/patch-ax
@@ -0,0 +1,33 @@
+$NetBSD: patch-ax,v 1.1 2004/03/28 15:51:25 uebayasi Exp $
+
+--- include/extern.h.orig	Mon Aug  7 16:32:17 1995
++++ include/extern.h
+@@ -82,8 +82,8 @@ extern Object The_Environment, Global_En
+ 
+ /* Error handling
+  */
+-extern Primitive_Error P_((ELLIPSIS));
+-extern Fatal_Error P_((ELLIPSIS));
++extern Primitive_Error P_((char *, ...));
++extern Fatal_Error P_((char *, ...));
+ extern Range_Error P_((Object));
+ extern Panic P_((const char*));
+ extern Object P_Error P_((int, Object*));
+@@ -313,7 +313,7 @@ extern Object P_Print P_((int, Object*))
+ extern Object P_Get_Output_String P_((Object));
+ extern Check_Output_Port P_((Object));
+ extern Discard_Output P_((Object));
+-extern Printf P_((ELLIPSIS));
++extern Printf P_((Object, char *, ...));
+ extern Print_Object P_((Object, Object, int, int, int));
+ extern General_Print_Object P_((Object, Object, int));
+ extern Format P_((Object, const char*, int, int, Object*));
+@@ -433,7 +433,7 @@ extern Object Bits_To_Symbols P_((unsign
+  */
+ extern void Register_Object P_((Object, GENERIC, PFO, int));
+ extern void Deregister_Object P_((Object));
+-extern Object Find_Object P_((ELLIPSIS));
++extern Object Find_Object P_((int, GENERIC, MATCHFUN, ...));
+ extern void Terminate_Group P_((GENERIC));
+ extern void Terminate_Type P_((int));
+