cpython-lru_cache-weakref: Python/modsupport.c annotate

annotate Python/modsupport.c @ 1215:9d6cf529bb71 legacy-trunk

bltinmodule.c: added round(x, [n]); coerce() of two class instances will try to coerce anyway. classobject.c: instance 'nonzero' should first try __nonzero__ only then __len__.

author	Guido van Rossum <guido@python.org>
date	Fri, 12 Feb 1993 16:29:05 +0000
parents	406860dfaac7
children	c4cd0d9d8281

rev	line source
145 853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	1 /***********************************************************
1198 2937897a7d8b * Added Fixcprt.py: script to fix copyright message. Guido van Rossum <guido@python.org> parents: 1177 diff changeset	2 Copyright 1991, 1992, 1993 by Stichting Mathematisch Centrum,
2937897a7d8b * Added Fixcprt.py: script to fix copyright message. Guido van Rossum <guido@python.org> parents: 1177 diff changeset	3 Amsterdam, The Netherlands.
145 853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	4
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	5 All Rights Reserved
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	6
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	7 Permission to use, copy, modify, and distribute this software and its
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	8 documentation for any purpose and without fee is hereby granted,
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	9 provided that the above copyright notice appear in all copies and that
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	10 both that copyright notice and this permission notice appear in
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	11 supporting documentation, and that the names of Stichting Mathematisch
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	12 Centrum or CWI not be used in advertising or publicity pertaining to
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	13 distribution of the software without specific, written prior permission.
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	14
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	15 STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	16 THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	17 FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	18 FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	19 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	20 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	21 OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	22
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	23 ******************************************************************/
853b736a6a9e Added copyright notice. Guido van Rossum <guido@python.org> parents: 86 diff changeset	24
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	25 /* Module support implementation */
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	26
86 a6934380c6e7 "Compiling" version Guido van Rossum <guido@python.org> parents: 12 diff changeset	27 #include "allobjects.h"
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	28 #include "modsupport.h"
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	29 #include "import.h"
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	30
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	31 #ifdef HAVE_PROTOTYPES
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	32 #define USE_STDARG
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	33 #endif
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	34
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	35 #ifdef USE_STDARG
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	36 #include <stdarg.h>
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	37 #else
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	38 #include <varargs.h>
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	39 #endif
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	40
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	41
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	42 object *
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	43 initmodule(name, methods)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	44 char *name;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	45 struct methodlist *methods;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	46 {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	47 object m, d, *v;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	48 struct methodlist *ml;
1177 533e36de1e4d * Configure.py: use #!/usr/local/bin/python Guido van Rossum <guido@python.org> parents: 998 diff changeset	49 char *namebuf;
86 a6934380c6e7 "Compiling" version Guido van Rossum <guido@python.org> parents: 12 diff changeset	50 if ((m = add_module(name)) == NULL) {
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	51 fprintf(stderr, "initializing module: %s\n", name);
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	52 fatal("can't create a module");
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	53 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	54 d = getmoduledict(m);
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	55 for (ml = methods; ml->ml_name != NULL; ml++) {
1177 533e36de1e4d * Configure.py: use #!/usr/local/bin/python Guido van Rossum <guido@python.org> parents: 998 diff changeset	56 namebuf = NEW(char, strlen(name) + strlen(ml->ml_name) + 2);
533e36de1e4d * Configure.py: use #!/usr/local/bin/python Guido van Rossum <guido@python.org> parents: 998 diff changeset	57 if (namebuf == NULL)
533e36de1e4d * Configure.py: use #!/usr/local/bin/python Guido van Rossum <guido@python.org> parents: 998 diff changeset	58 fatal("out of mem for method name");
86 a6934380c6e7 "Compiling" version Guido van Rossum <guido@python.org> parents: 12 diff changeset	59 sprintf(namebuf, "%s.%s", name, ml->ml_name);
1177 533e36de1e4d * Configure.py: use #!/usr/local/bin/python Guido van Rossum <guido@python.org> parents: 998 diff changeset	60 v = newmethodobject(namebuf, ml->ml_meth,
488 90f35fcf8ea0 Add "varargs" attribute. Guido van Rossum <guido@python.org> parents: 372 diff changeset	61 (object *)NULL, ml->ml_varargs);
1177 533e36de1e4d * Configure.py: use #!/usr/local/bin/python Guido van Rossum <guido@python.org> parents: 998 diff changeset	62 /* XXX The malloc'ed memory in namebuf is never freed */
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	63 if (v == NULL \|\| dictinsert(d, ml->ml_name, v) != 0) {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	64 fprintf(stderr, "initializing module: %s\n", name);
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	65 fatal("can't initialize module");
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	66 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	67 DECREF(v);
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	68 }
86 a6934380c6e7 "Compiling" version Guido van Rossum <guido@python.org> parents: 12 diff changeset	69 return m;
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	70 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	71
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	72
1211 406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	73 /* Helper for mkvalue() to scan the length of a format */
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	74
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	75 static int countformat PROTO((char *format, int endchar));
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	76 static int countformat(format, endchar)
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	77 char *format;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	78 int endchar;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	79 {
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	80 int count = 0;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	81 int level = 0;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	82 while (level > 0 \|\| *format != endchar) {
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	83 if (*format == '\0') {
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	84 /* Premature end */
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	85 err_setstr(SystemError, "unmatched paren in format");
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	86 return -1;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	87 }
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	88 else if (*format == '(') {
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	89 if (level == 0)
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	90 count++;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	91 level++;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	92 }
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	93 else if (*format == ')')
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	94 level--;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	95 else if (level == 0 && *format != '#')
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	96 count++;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	97 format++;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	98 }
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	99 return count;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	100 }
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	101
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	102
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	103 /* Generic argument list parser */
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	104
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	105 static int do_arg PROTO((object arg, char* p_format, va_list *p_va));
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	106 static int
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	107 do_arg(arg, p_format, p_va)
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	108 object *arg;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	109 char** p_format;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	110 va_list *p_va;
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	111 {
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	112 char format = p_format;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	113 va_list va = *p_va;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	114
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	115 if (arg == NULL)
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	116 return 0; /* Incomplete tuple or list */
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	117
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	118 switch (*format++) {
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	119
998 09b48604855f suppress unnecessary error message if too many arguments are passed Guido van Rossum <guido@python.org> parents: 957 diff changeset	120 case '(': /* tuple, distributed over C parameters */ {
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	121 int i, n;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	122 if (!is_tupleobject(arg))
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	123 return 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	124 n = gettuplesize(arg);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	125 for (i = 0; i < n; i++) {
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	126 if (!do_arg(gettupleitem(arg, i), &format, &va))
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	127 return 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	128 }
998 09b48604855f suppress unnecessary error message if too many arguments are passed Guido van Rossum <guido@python.org> parents: 957 diff changeset	129 if (*format++ != ')')
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	130 return 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	131 break;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	132 }
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	133
998 09b48604855f suppress unnecessary error message if too many arguments are passed Guido van Rossum <guido@python.org> parents: 957 diff changeset	134 case ')': /* End of format -- too many arguments */
09b48604855f suppress unnecessary error message if too many arguments are passed Guido van Rossum <guido@python.org> parents: 957 diff changeset	135 return 0;
09b48604855f suppress unnecessary error message if too many arguments are passed Guido van Rossum <guido@python.org> parents: 957 diff changeset	136
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	137 case 'b': /* byte -- very short int */ {
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	138 char p = va_arg(va, char );
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	139 if (is_intobject(arg))
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	140 *p = getintvalue(arg);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	141 else
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	142 return 0;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	143 break;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	144 }
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	145
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	146 case 'h': /* short int */ {
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	147 short p = va_arg(va, short );
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	148 if (is_intobject(arg))
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	149 *p = getintvalue(arg);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	150 else
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	151 return 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	152 break;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	153 }
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	154
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	155 case 'i': /* int */ {
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	156 int p = va_arg(va, int );
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	157 if (is_intobject(arg))
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	158 *p = getintvalue(arg);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	159 else
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	160 return 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	161 break;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	162 }
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	163
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	164 case 'l': /* long int */ {
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	165 long p = va_arg(va, long );
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	166 if (is_intobject(arg))
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	167 *p = getintvalue(arg);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	168 else
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	169 return 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	170 break;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	171 }
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	172
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	173 case 'f': /* float */ {
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	174 float p = va_arg(va, float );
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	175 if (is_floatobject(arg))
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	176 *p = getfloatvalue(arg);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	177 else if (is_intobject(arg))
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	178 *p = (float)getintvalue(arg);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	179 else
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	180 return 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	181 break;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	182 }
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	183
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	184 case 'd': /* double */ {
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	185 double p = va_arg(va, double );
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	186 if (is_floatobject(arg))
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	187 *p = getfloatvalue(arg);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	188 else if (is_intobject(arg))
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	189 *p = (double)getintvalue(arg);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	190 else
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	191 return 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	192 break;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	193 }
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	194
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	195 case 'c': /* char */ {
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	196 char p = va_arg(va, char );
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	197 if (is_stringobject(arg) && getstringsize(arg) == 1)
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	198 *p = getstringvalue(arg)[0];
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	199 else
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	200 return 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	201 break;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	202 }
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	203
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	204 case 's': /* string */ {
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	205 char p = va_arg(va, char );
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	206 if (is_stringobject(arg))
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	207 *p = getstringvalue(arg);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	208 else
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	209 return 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	210 if (*format == '#') {
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	211 int q = va_arg(va, int );
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	212 *q = getstringsize(arg);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	213 format++;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	214 }
957 5c6cdb58a801 check for embedded \0 in strings for z and s formats Guido van Rossum <guido@python.org> parents: 860 diff changeset	215 else if (strlen(*p) != getstringsize(arg)) {
5c6cdb58a801 check for embedded \0 in strings for z and s formats Guido van Rossum <guido@python.org> parents: 860 diff changeset	216 err_setstr(ValueError, "embedded '\\0' in string arg");
5c6cdb58a801 check for embedded \0 in strings for z and s formats Guido van Rossum <guido@python.org> parents: 860 diff changeset	217 return 0;
5c6cdb58a801 check for embedded \0 in strings for z and s formats Guido van Rossum <guido@python.org> parents: 860 diff changeset	218 }
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	219 break;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	220 }
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	221
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	222 case 'z': /* string, may be NULL (None) */ {
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	223 char p = va_arg(va, char );
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	224 if (arg == None)
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	225 *p = 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	226 else if (is_stringobject(arg))
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	227 *p = getstringvalue(arg);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	228 else
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	229 return 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	230 if (*format == '#') {
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	231 int q = va_arg(va, int );
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	232 if (arg == None)
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	233 *q = 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	234 else
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	235 *q = getstringsize(arg);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	236 format++;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	237 }
957 5c6cdb58a801 check for embedded \0 in strings for z and s formats Guido van Rossum <guido@python.org> parents: 860 diff changeset	238 else if (p != NULL && strlen(p) != getstringsize(arg)) {
5c6cdb58a801 check for embedded \0 in strings for z and s formats Guido van Rossum <guido@python.org> parents: 860 diff changeset	239 err_setstr(ValueError, "embedded '\\0' in string arg");
5c6cdb58a801 check for embedded \0 in strings for z and s formats Guido van Rossum <guido@python.org> parents: 860 diff changeset	240 return 0;
5c6cdb58a801 check for embedded \0 in strings for z and s formats Guido van Rossum <guido@python.org> parents: 860 diff changeset	241 }
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	242 break;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	243 }
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	244
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	245 case 'S': /* string object */ {
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	246 object p = va_arg(va, object );
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	247 if (is_stringobject(arg))
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	248 *p = arg;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	249 else
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	250 return 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	251 break;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	252 }
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	253
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	254 case 'O': /* object */ {
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	255 object p = va_arg(va, object );
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	256 *p = arg;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	257 break;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	258 }
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	259
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	260 default:
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	261 fprintf(stderr, "bad do_arg format: x%x '%c'\n",
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	262 format[-1], format[-1]);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	263 return 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	264
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	265 }
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	266
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	267 *p_va = va;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	268 *p_format = format;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	269
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	270 return 1;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	271 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	272
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	273 #ifdef USE_STDARG
733 f179d8d5ee8c Shut up lint Guido van Rossum <guido@python.org> parents: 637 diff changeset	274 /* VARARGS2 */
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	275 int getargs(object arg, char format, ...)
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	276 #else
733 f179d8d5ee8c Shut up lint Guido van Rossum <guido@python.org> parents: 637 diff changeset	277 /* VARARGS */
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	278 int getargs(va_alist) va_dcl
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	279 #endif
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	280 {
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	281 char *f;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	282 int ok;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	283 va_list va;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	284 #ifdef USE_STDARG
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	285
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	286 va_start(va, format);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	287 #else
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	288 object *arg;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	289 char *format;
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	290
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	291 va_start(va);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	292 arg = va_arg(va, object *);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	293 format = va_arg(va, char *);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	294 #endif
1211 406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	295 if (format == '\0' \|\| format == ';') {
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	296 va_end(va);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	297 if (arg != NULL) {
1211 406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	298 char *str = "no arguments needed";
406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	299 if (*format == ';')
406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	300 str = format+1;
406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	301 err_setstr(TypeError, str);
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	302 return 0;
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	303 }
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	304 return 1;
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	305 }
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	306
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	307 f = format;
1211 406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	308 ok = do_arg(arg, &f, &va) && (f == '\0' \|\| f == ';');
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	309 va_end(va);
3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	310 if (!ok) {
957 5c6cdb58a801 check for embedded \0 in strings for z and s formats Guido van Rossum <guido@python.org> parents: 860 diff changeset	311 if (!err_occurred()) {
1211 406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	312 char buf[256];
406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	313 char *str;
406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	314 f = strchr(format, ';');
406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	315 if (f != NULL)
406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	316 str = f+1;
406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	317 else {
406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	318 sprintf(buf, "bad argument list (format '%s')",
406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	319 format);
406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	320 str = buf;
406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	321 }
406860dfaac7 * stdwinmodule.c: various new commands: setwin{pos,size}, Guido van Rossum <guido@python.org> parents: 1198 diff changeset	322 err_setstr(TypeError, str);
957 5c6cdb58a801 check for embedded \0 in strings for z and s formats Guido van Rossum <guido@python.org> parents: 860 diff changeset	323 }
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	324 }
637 3cb686c48cdd New getargs() function: a single varargs function, Guido van Rossum <guido@python.org> parents: 488 diff changeset	325 return ok;
6 fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	326 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	327
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	328 int
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	329 getlongtuplearg(args, a, n)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	330 object *args;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	331 long a; / [n] */
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	332 int n;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	333 {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	334 int i;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	335 if (!is_tupleobject(args) \|\| gettuplesize(args) != n) {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	336 return err_badarg();
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	337 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	338 for (i = 0; i < n; i++) {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	339 object *v = gettupleitem(args, i);
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	340 if (!is_intobject(v)) {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	341 return err_badarg();
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	342 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	343 a[i] = getintvalue(v);
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	344 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	345 return 1;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	346 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	347
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	348 int
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	349 getshorttuplearg(args, a, n)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	350 object *args;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	351 short a; / [n] */
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	352 int n;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	353 {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	354 int i;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	355 if (!is_tupleobject(args) \|\| gettuplesize(args) != n) {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	356 return err_badarg();
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	357 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	358 for (i = 0; i < n; i++) {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	359 object *v = gettupleitem(args, i);
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	360 if (!is_intobject(v)) {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	361 return err_badarg();
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	362 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	363 a[i] = getintvalue(v);
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	364 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	365 return 1;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	366 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	367
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	368 int
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	369 getlonglistarg(args, a, n)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	370 object *args;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	371 long a; / [n] */
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	372 int n;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	373 {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	374 int i;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	375 if (!is_listobject(args) \|\| getlistsize(args) != n) {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	376 return err_badarg();
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	377 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	378 for (i = 0; i < n; i++) {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	379 object *v = getlistitem(args, i);
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	380 if (!is_intobject(v)) {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	381 return err_badarg();
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	382 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	383 a[i] = getintvalue(v);
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	384 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	385 return 1;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	386 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	387
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	388 int
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	389 getshortlistarg(args, a, n)
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	390 object *args;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	391 short a; / [n] */
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	392 int n;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	393 {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	394 int i;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	395 if (!is_listobject(args) \|\| getlistsize(args) != n) {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	396 return err_badarg();
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	397 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	398 for (i = 0; i < n; i++) {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	399 object *v = getlistitem(args, i);
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	400 if (!is_intobject(v)) {
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	401 return err_badarg();
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	402 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	403 a[i] = getintvalue(v);
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	404 }
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	405 return 1;
fc6fcd7df4f7 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	406 }
816 e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	407
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	408
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	409 /* Generic function to create a value -- the inverse of getargs() */
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	410 /* After an original idea and first implementation by Steven Miale */
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	411
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	412 static object do_mktuple PROTO((char, va_list , int, int));
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	413 static object do_mkvalue PROTO((char, va_list ));
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	414
816 e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	415 static object *
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	416 do_mktuple(p_format, p_va, endchar, n)
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	417 char **p_format;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	418 va_list *p_va;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	419 int endchar;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	420 int n;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	421 {
816 e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	422 object *v;
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	423 int i;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	424 if (n < 0)
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	425 return NULL;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	426 if ((v = newtupleobject(n)) == NULL)
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	427 return NULL;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	428 for (i = 0; i < n; i++) {
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	429 object *w = do_mkvalue(p_format, p_va);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	430 if (w == NULL) {
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	431 DECREF(v);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	432 return NULL;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	433 }
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	434 settupleitem(v, i, w);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	435 }
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	436 if (v != NULL && **p_format != endchar) {
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	437 DECREF(v);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	438 v = NULL;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	439 err_setstr(SystemError, "Unmatched paren in format");
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	440 }
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	441 else if (endchar)
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	442 ++*p_format;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	443 return v;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	444 }
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	445
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	446 static object *
860 39134c99c923 Added parameter decls to do_mkvalue for non-template machines Guido van Rossum <guido@python.org> parents: 817 diff changeset	447 do_mkvalue(p_format, p_va)
39134c99c923 Added parameter decls to do_mkvalue for non-template machines Guido van Rossum <guido@python.org> parents: 817 diff changeset	448 char **p_format;
39134c99c923 Added parameter decls to do_mkvalue for non-template machines Guido van Rossum <guido@python.org> parents: 817 diff changeset	449 va_list *p_va;
39134c99c923 Added parameter decls to do_mkvalue for non-template machines Guido van Rossum <guido@python.org> parents: 817 diff changeset	450 {
816 e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	451
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	452 switch ((p_format)++) {
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	453
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	454 case '(':
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	455 return do_mktuple(p_format, p_va, ')',
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	456 countformat(*p_format, ')'));
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	457
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	458 case 'b':
816 e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	459 case 'h':
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	460 case 'i':
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	461 return newintobject((long)va_arg(*p_va, int));
816 e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	462
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	463 case 'l':
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	464 return newintobject((long)va_arg(*p_va, long));
816 e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	465
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	466 case 'f':
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	467 case 'd':
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	468 return newfloatobject((double)va_arg(*p_va, double));
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	469
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	470 case 'c':
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	471 {
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	472 char p[1];
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	473 p[0] = va_arg(*p_va, int);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	474 return newsizedstringobject(p, 1);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	475 }
816 e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	476
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	477 case 's':
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	478 case 'z':
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	479 {
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	480 object *v;
816 e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	481 char str = va_arg(p_va, char *);
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	482 int n;
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	483 if (**p_format == '#') {
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	484 ++*p_format;
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	485 n = va_arg(*p_va, int);
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	486 }
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	487 else
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	488 n = -1;
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	489 if (str == NULL) {
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	490 v = None;
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	491 INCREF(v);
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	492 }
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	493 else {
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	494 if (n < 0)
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	495 n = strlen(str);
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	496 v = newsizedstringobject(str, n);
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	497 }
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	498 return v;
816 e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	499 }
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	500
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	501 case 'S':
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	502 case 'O':
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	503 {
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	504 object *v;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	505 v = va_arg(p_va, object );
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	506 if (v != NULL)
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	507 INCREF(v);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	508 else if (!err_occurred())
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	509 /* If a NULL was passed because a call
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	510 that should have constructed a value
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	511 failed, that's OK, and we pass the error
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	512 on; but if no error occurred it's not
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	513 clear that the caller knew what she
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	514 was doing. */
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	515 err_setstr(SystemError,
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	516 "NULL object passed to mkvalue");
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	517 return v;
816 e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	518 }
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	519
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	520 default:
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	521 err_setstr(SystemError, "bad format char passed to mkvalue");
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	522 return NULL;
816 e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	523
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	524 }
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	525 }
e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	526
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	527 #ifdef USE_STDARG
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	528 /* VARARGS 2 */
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	529 object mkvalue(char format, ...)
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	530 #else
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	531 /* VARARGS */
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	532 object *mkvalue(va_alist) va_dcl
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	533 #endif
816 e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	534 {
817 aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	535 int n;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	536 char *f;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	537 va_list va;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	538 object* retval;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	539 #ifdef USE_STDARG
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	540 va_start(va, format);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	541 #else
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	542 char *format;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	543
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	544 va_start(va);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	545 format = va_arg(va, char *);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	546 #endif
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	547 f = format;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	548 n = countformat(f, '\0');
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	549 if (n < 0)
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	550 retval = NULL; /* Error in the format */
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	551 else if (n == 0) {
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	552 retval = None;
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	553 INCREF(retval);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	554 }
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	555 else if (n == 1)
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	556 retval = do_mkvalue(&f, &va);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	557 else
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	558 retval = do_mktuple(&f, &va, '\0', n);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	559 va_end(va);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	560 if (retval == NULL)
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	561 fprintf(stderr, "format \"%s\", f \"%s\"\n", format, f);
aa633f0defa6 Merged with Steve Miale's version Guido van Rossum <guido@python.org> parents: 816 diff changeset	562 return retval;
816 e4a27d84ea36 Added mkvalue() function Guido van Rossum <guido@python.org> parents: 795 diff changeset	563 }

Mercurial > cpython-lru_cache-weakref

annotate Python/modsupport.c @ 1215:9d6cf529bb71 legacy-trunk