New getargs() function: a single varargs function,

guided by a format string, makes all get*arg() functions unnecessary.

Python/modsupport.c

@@ -28,6 +28,16 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 #include "modsupport.h"
 #include "import.h"
 
+#ifdef HAVE_PROTOTYPES
+#define USE_STDARG
+#endif
+
+#ifdef USE_STDARG
+#include <stdarg.h>
+#else
+#include <varargs.h>
+#endif
+
 
 object *
 initmodule(name, methods)
@@ -57,280 +67,194 @@ initmodule(name, methods)
 }
 
 
-/* Argument list handling tools.
+/* Generic argument list parser */
-   All return 1 for success, or call err_set*() and return 0 for failure */
 
-int
+static int do_arg PROTO((object *arg, char** p_format, va_list *p_va));
-getnoarg(v)
+static int
-	object *v;
+do_arg(arg, p_format, p_va)
+	object *arg;
+	char** p_format;
+	va_list *p_va;
 {
-	if (v != NULL) {
+	char *format = *p_format;
-		return err_badarg();
+	va_list va = *p_va;
+	
+	if (arg == NULL)
+		return 0; /* Incomplete tuple or list */
+	
+	switch (*format++) {
+	
+	case '('/*')'*/: /* tuple, distributed over C parameters */ {
+		int i, n;
+		if (!is_tupleobject(arg))
+			return 0;
+		n = gettuplesize(arg);
+		for (i = 0; i < n; i++) {
+			if (!do_arg(gettupleitem(arg, i), &format, &va))
+				return 0;
 		}
+		if (*format++ != /*'('*/')')
+			return 0;
+		break;
+		}
+	
+	case 'h': /* short int */ {
+		short *p = va_arg(va, short *);
+		if (is_intobject(arg))
+			*p = getintvalue(arg);
+		else
+			return 0;
+		break;
+		}
+	
+	case 'i': /* int */ {
+		int *p = va_arg(va, int *);
+		if (is_intobject(arg))
+			*p = getintvalue(arg);
+		else
+			return 0;
+		break;
+		}
+	
+	case 'l': /* long int */ {
+		long *p = va_arg(va, long *);
+		if (is_intobject(arg))
+			*p = getintvalue(arg);
+		else
+			return 0;
+		break;
+		}
+	
+	case 'f': /* float */ {
+		float *p = va_arg(va, float *);
+		if (is_floatobject(arg))
+			*p = getfloatvalue(arg);
+		else if (is_intobject(arg))
+			*p = (float)getintvalue(arg);
+		else
+			return 0;
+		break;
+		}
+	
+	case 'd': /* double */ {
+		double *p = va_arg(va, double *);
+		if (is_floatobject(arg))
+			*p = getfloatvalue(arg);
+		else if (is_intobject(arg))
+			*p = (double)getintvalue(arg);
+		else
+			return 0;
+		break;
+		}
+	
+	case 'c': /* char */ {
+		char *p = va_arg(va, char *);
+		if (is_stringobject(arg) && getstringsize(arg) == 1)
+			*p = getstringvalue(arg)[0];
+		else
+			return 0;
+		break;
+		}
+	
+	case 's': /* string */ {
+		char **p = va_arg(va, char **);
+		if (is_stringobject(arg))
+			*p = getstringvalue(arg);
+		else
+			return 0;
+		if (*format == '#') {
+			int *q = va_arg(va, int *);
+			*q = getstringsize(arg);
+			format++;
+		}
+		break;
+		}
+	
+	case 'z': /* string, may be NULL (None) */ {
+		char **p = va_arg(va, char **);
+		if (arg == None)
+			*p = 0;
+		else if (is_stringobject(arg))
+			*p = getstringvalue(arg);
+		else
+			return 0;
+		if (*format == '#') {
+			int *q = va_arg(va, int *);
+			if (arg == None)
+				*q = 0;
+			else
+				*q = getstringsize(arg);
+			format++;
+		}
+		break;
+		}
+	
+	case 'S': /* string object */ {
+		object **p = va_arg(va, object **);
+		if (is_stringobject(arg))
+			*p = arg;
+		else
+			return 0;
+		break;
+		}
+	
+	case 'O': /* object */ {
+		object **p = va_arg(va, object **);
+		*p = arg;
+		break;
+		}
+
+	default:
+		fprintf(stderr, "bad do_arg format: x%x '%c'\n",
+			format[-1], format[-1]);
+		return 0;
+	
+	}
+	
+	*p_va = va;
+	*p_format = format;
+	
 	return 1;
 }
 
-int
+#ifdef USE_STDARG
-getintarg(v, a)
+int getargs(object *arg, char *format, ...)
-	object *v;
+#else
-	int *a;
+int getargs(va_alist) va_dcl
+#endif
 {
-	if (v == NULL || !is_intobject(v)) {
+	char *f;
-		return err_badarg();
+	int ok;
-	}
+	va_list va;
-	*a = getintvalue(v);
+#ifdef USE_STDARG
-	return 1;
-}
 
-int
+	va_start(va, format);
-getintintarg(v, a, b)
+#else
-	object *v;
+	object *arg;
-	int *a;
+	char *format;
-	int *b;
-{
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
-		return err_badarg();
-	}
-	return getintarg(gettupleitem(v, 0), a) &&
-		getintarg(gettupleitem(v, 1), b);
-}
 
-int
+	va_start(va);
-getintintintarg(v, a, b, c)
+	arg = va_arg(va, object *);
-	object *v;
+	format = va_arg(va, char *);
-	int *a;
+#endif
-	int *b;
+	if (*format == '\0') {
-	int *c;
+		va_end(va);
-{
+		if (arg != NULL) {
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3) {
+			err_setstr(TypeError, "no arguments needed");
-		return err_badarg();
+			return 0;
 		}
-	return getintarg(gettupleitem(v, 0), a) &&
-		getintarg(gettupleitem(v, 1), b) &&
-		getintarg(gettupleitem(v, 2), c);
-}
-
-int
-getlongarg(v, a)
-	object *v;
-	long *a;
-{
-	if (v == NULL || !is_intobject(v)) {
-		return err_badarg();
-	}
-	*a = getintvalue(v);
-	return 1;
-}
-
-int
-getlonglongarg(v, a, b)
-	object *v;
-	long *a, *b;
-{
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
-		return err_badarg();
-	}
-	return getlongarg(gettupleitem(v, 0), a) &&
-		getlongarg(gettupleitem(v, 1), b);
-}
-
-int
-getlongobjectarg(v, a, b)
-	object *v;
-	long *a;
-	object **b;
-{
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
-		return err_badarg();
-	}
-	if (getlongarg(gettupleitem(v, 0), a)) {
-		*b = gettupleitem(v, 1);
 		return 1;
 	}
-	else {
-		return err_badarg();
-	}
-}
 	
-int
+	f = format;
-getlonglongobjectarg(v, a, b, c)
+	ok = do_arg(arg, &f, &va) && *f == '\0';
-	object *v;
+	va_end(va);
-	long *a, *b;
+	if (!ok) {
-	object **c;
+		char buf[256];
-{
+		sprintf(buf, "bad argument list (format '%s')", format);
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3) {
+		err_setstr(TypeError, buf);
-		return err_badarg();
 	}
-	if (getlongarg(gettupleitem(v, 0), a) &&
+	return ok;
-		getlongarg(gettupleitem(v, 1), b)) {
-		*c = gettupleitem(v, 2);
-		return 1;
-	}
-	else {
-		return err_badarg();
-	}
-}
-
-int
-getstrarg(v, a)
-	object *v;
-	object **a;
-{
-	if (v == NULL || !is_stringobject(v)) {
-		return err_badarg();
-	}
-	*a = v;
-	return 1;
-}
-
-int
-getstrstrarg(v, a, b)
-	object *v;
-	object **a;
-	object **b;
-{
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
-		return err_badarg();
-	}
-	return getstrarg(gettupleitem(v, 0), a) &&
-		getstrarg(gettupleitem(v, 1), b);
-}
-
-int
-getstrstrintarg(v, a, b, c)
-	object *v;
-	object **a;
-	object **b;
-	int *c;
-{
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3) {
-		return err_badarg();
-	}
-	return getstrarg(gettupleitem(v, 0), a) &&
-		getstrarg(gettupleitem(v, 1), b) &&
-		getintarg(gettupleitem(v, 2), c);
-}
-
-int
-getstrintarg(v, a, b)
-	object *v;
-	object **a;
-	int *b;
-{
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
-		return err_badarg();
-	}
-	return getstrarg(gettupleitem(v, 0), a) &&
-		getintarg(gettupleitem(v, 1), b);
-}
-
-int
-getintstrarg(v, a, b)
-	object *v;
-	int *a;
-	object **b;
-{
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
-		return err_badarg();
-	}
-	return getintarg(gettupleitem(v, 0), a) &&
-		getstrarg(gettupleitem(v, 1), b);
-}
-
-int
-getpointarg(v, a)
-	object *v;
-	int *a; /* [2] */
-{
-	return getintintarg(v, a, a+1);
-}
-
-int
-get3pointarg(v, a)
-	object *v;
-	int *a; /* [6] */
-{
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3) {
-		return err_badarg();
-	}
-	return getpointarg(gettupleitem(v, 0), a) &&
-		getpointarg(gettupleitem(v, 1), a+2) &&
-		getpointarg(gettupleitem(v, 2), a+4);
-}
-
-int
-getrectarg(v, a)
-	object *v;
-	int *a; /* [2+2] */
-{
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
-		return err_badarg();
-	}
-	return getpointarg(gettupleitem(v, 0), a) &&
-		getpointarg(gettupleitem(v, 1), a+2);
-}
-
-int
-getrectintarg(v, a)
-	object *v;
-	int *a; /* [4+1] */
-{
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
-		return err_badarg();
-	}
-	return getrectarg(gettupleitem(v, 0), a) &&
-		getintarg(gettupleitem(v, 1), a+4);
-}
-
-int
-getpointintarg(v, a)
-	object *v;
-	int *a; /* [2+1] */
-{
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
-		return err_badarg();
-	}
-	return getpointarg(gettupleitem(v, 0), a) &&
-		getintarg(gettupleitem(v, 1), a+2);
-}
-
-int
-getpointstrarg(v, a, b)
-	object *v;
-	int *a; /* [2] */
-	object **b;
-{
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
-		return err_badarg();
-	}
-	return getpointarg(gettupleitem(v, 0), a) &&
-		getstrarg(gettupleitem(v, 1), b);
-}
-
-int
-getstrintintarg(v, a, b, c)
-	object *v;
-	object *a;
-	int *b, *c;
-{
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3) {
-		return err_badarg();
-	}
-	return getstrarg(gettupleitem(v, 0), a) &&
-		getintarg(gettupleitem(v, 1), b) &&
-		getintarg(gettupleitem(v, 2), c);
-}
-
-int
-getrectpointarg(v, a)
-	object *v;
-	int *a; /* [4+2] */
-{
-	if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
-		return err_badarg();
-	}
-	return getrectarg(gettupleitem(v, 0), a) &&
-		getpointarg(gettupleitem(v, 1), a+4);
 }
 
 int
@@ -412,36 +336,3 @@ getshortlistarg(args, a, n)
 	}
 	return 1;
 }
-
-int
-getdoublearg(args, px)
-	register object *args;
-	double *px;
-{
-	if (args == NULL)
-		return err_badarg();
-	if (is_floatobject(args)) {
-		*px = getfloatvalue(args);
-		return 1;
-	}
-	if (is_intobject(args)) {
-		*px = getintvalue(args);
-		return 1;
-	}
-	if (is_longobject(args)) {
-		*px = dgetlongvalue(args);
-		return 1;
-	}
-	return err_badarg();
-}
-
-int
-get2doublearg(args, px, py)
-	register object *args;
-	double *px, *py;
-{
-	if (args == NULL || !is_tupleobject(args) || gettuplesize(args) != 2)
-		return err_badarg();
-	return getdoublearg(gettupleitem(args, 0), px) &&
-		getdoublearg(gettupleitem(args, 1), py);
-}