* stdwinmodule.c: various new commands: setwin{pos,size},

listfontnames, bitmap ops.
* listobject.c: use mkvalue() when possible; avoid weird error when
  calling append() without args.
* modsupport.c: new feature in getargs(): if the format string
  contains a semicolor the string after that is used as the error
  message instead of "bad argument list (format %s)" when there's an
  error.
This commit is contained in:
Guido van Rossum 1993-02-08 15:49:17 +00:00
parent 3f2ef09f40
commit bf80e5407f
3 changed files with 301 additions and 20 deletions

View file

@ -458,13 +458,10 @@ listinsert(self, args)
object *args;
{
int i;
if (args == NULL || !is_tupleobject(args) || gettuplesize(args) != 2) {
err_badarg();
object *v;
if (!getargs(args, "(iO)", &i, &v))
return NULL;
}
if (!getintarg(gettupleitem(args, 0), &i))
return NULL;
return ins(self, i, gettupleitem(args, 1));
return ins(self, i, v);
}
static object *
@ -472,7 +469,10 @@ listappend(self, args)
listobject *self;
object *args;
{
return ins(self, (int) self->ob_size, args);
object *v;
if (!getargs(args, "O", &v))
return NULL;
return ins(self, (int) self->ob_size, v);
}
static object *cmpfunc;
@ -495,13 +495,9 @@ cmp(v, w)
return cmpobject(* (object **) v, * (object **) w);
/* Call the user-supplied comparison function */
t = newtupleobject(2);
t = mkvalue("OO", v, w);
if (t == NULL)
return 0;
INCREF(* (object **) v);
settupleitem(t, 0, * (object **) v);
INCREF(* (object **) w);
settupleitem(t, 1, * (object **) w);
res = call_object(cmpfunc, t);
DECREF(t);
if (res == NULL)