1991-02-19 12:39:46 +00:00
|
|
|
/***********************************************************
|
1995-01-04 19:07:38 +00:00
|
|
|
Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
|
|
|
|
The Netherlands.
|
1991-02-19 12:39:46 +00:00
|
|
|
|
|
|
|
All Rights Reserved
|
|
|
|
|
|
|
|
Permission to use, copy, modify, and distribute this software and its
|
|
|
|
documentation for any purpose and without fee is hereby granted,
|
|
|
|
provided that the above copyright notice appear in all copies and that
|
|
|
|
both that copyright notice and this permission notice appear in
|
|
|
|
supporting documentation, and that the names of Stichting Mathematisch
|
|
|
|
Centrum or CWI not be used in advertising or publicity pertaining to
|
|
|
|
distribution of the software without specific, written prior permission.
|
|
|
|
|
|
|
|
STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
|
|
|
|
THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
|
|
|
|
FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
|
|
|
|
FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
|
|
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
|
|
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
|
|
|
|
OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
|
|
|
|
|
|
******************************************************************/
|
|
|
|
|
1990-10-14 12:07:46 +00:00
|
|
|
/* String object implementation */
|
|
|
|
|
1990-12-20 15:06:42 +00:00
|
|
|
#include "allobjects.h"
|
1990-10-14 12:07:46 +00:00
|
|
|
|
1994-08-30 08:19:36 +00:00
|
|
|
#include <ctype.h>
|
|
|
|
|
1993-10-22 12:04:32 +00:00
|
|
|
#ifdef COUNT_ALLOCS
|
|
|
|
int null_strings, one_strings;
|
|
|
|
#endif
|
|
|
|
|
1994-09-28 15:51:32 +00:00
|
|
|
#ifdef HAVE_LIMITS_H
|
1993-10-22 12:04:32 +00:00
|
|
|
#include <limits.h>
|
|
|
|
#else
|
|
|
|
#ifndef UCHAR_MAX
|
|
|
|
#define UCHAR_MAX 255
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
static stringobject *characters[UCHAR_MAX + 1];
|
1993-11-01 13:46:50 +00:00
|
|
|
#ifndef DONT_SHARE_SHORT_STRINGS
|
1993-10-22 12:04:32 +00:00
|
|
|
static stringobject *nullstring;
|
1993-11-01 13:46:50 +00:00
|
|
|
#endif
|
1993-10-22 12:04:32 +00:00
|
|
|
|
|
|
|
/*
|
|
|
|
Newsizedstringobject() and newstringobject() try in certain cases
|
|
|
|
to share string objects. When the size of the string is zero,
|
|
|
|
these routines always return a pointer to the same string object;
|
|
|
|
when the size is one, they return a pointer to an already existing
|
|
|
|
object if the contents of the string is known. For
|
|
|
|
newstringobject() this is always the case, for
|
|
|
|
newsizedstringobject() this is the case when the first argument in
|
|
|
|
not NULL.
|
|
|
|
A common practice to allocate a string and then fill it in or
|
|
|
|
change it must be done carefully. It is only allowed to change the
|
|
|
|
contents of the string if the obect was gotten from
|
|
|
|
newsizedstringobject() with a NULL first argument, because in the
|
|
|
|
future these routines may try to do even more sharing of objects.
|
|
|
|
*/
|
1990-10-14 12:07:46 +00:00
|
|
|
object *
|
|
|
|
newsizedstringobject(str, size)
|
|
|
|
char *str;
|
|
|
|
int size;
|
|
|
|
{
|
1993-10-22 12:04:32 +00:00
|
|
|
register stringobject *op;
|
1993-11-01 13:46:50 +00:00
|
|
|
#ifndef DONT_SHARE_SHORT_STRINGS
|
1993-10-22 12:04:32 +00:00
|
|
|
if (size == 0 && (op = nullstring) != NULL) {
|
|
|
|
#ifdef COUNT_ALLOCS
|
|
|
|
null_strings++;
|
|
|
|
#endif
|
|
|
|
INCREF(op);
|
1993-10-26 15:25:16 +00:00
|
|
|
return (object *)op;
|
1993-10-22 12:04:32 +00:00
|
|
|
}
|
|
|
|
if (size == 1 && str != NULL && (op = characters[*str & UCHAR_MAX]) != NULL) {
|
|
|
|
#ifdef COUNT_ALLOCS
|
|
|
|
one_strings++;
|
|
|
|
#endif
|
|
|
|
INCREF(op);
|
1993-10-26 15:25:16 +00:00
|
|
|
return (object *)op;
|
1993-10-22 12:04:32 +00:00
|
|
|
}
|
1993-11-01 13:46:50 +00:00
|
|
|
#endif /* DONT_SHARE_SHORT_STRINGS */
|
1993-10-22 12:04:32 +00:00
|
|
|
op = (stringobject *)
|
1990-10-14 12:07:46 +00:00
|
|
|
malloc(sizeof(stringobject) + size * sizeof(char));
|
1990-10-21 22:15:08 +00:00
|
|
|
if (op == NULL)
|
|
|
|
return err_nomem();
|
|
|
|
op->ob_type = &Stringtype;
|
|
|
|
op->ob_size = size;
|
1993-10-22 12:04:32 +00:00
|
|
|
#ifdef CACHE_HASH
|
|
|
|
op->ob_shash = -1;
|
|
|
|
#endif
|
1993-10-11 12:54:31 +00:00
|
|
|
NEWREF(op);
|
1990-10-21 22:15:08 +00:00
|
|
|
if (str != NULL)
|
|
|
|
memcpy(op->ob_sval, str, size);
|
|
|
|
op->ob_sval[size] = '\0';
|
1993-11-01 13:46:50 +00:00
|
|
|
#ifndef DONT_SHARE_SHORT_STRINGS
|
1993-10-22 12:04:32 +00:00
|
|
|
if (size == 0) {
|
|
|
|
nullstring = op;
|
|
|
|
INCREF(op);
|
|
|
|
} else if (size == 1 && str != NULL) {
|
|
|
|
characters[*str & UCHAR_MAX] = op;
|
|
|
|
INCREF(op);
|
|
|
|
}
|
1993-11-01 13:46:50 +00:00
|
|
|
#endif
|
1990-10-14 12:07:46 +00:00
|
|
|
return (object *) op;
|
|
|
|
}
|
|
|
|
|
|
|
|
object *
|
|
|
|
newstringobject(str)
|
|
|
|
char *str;
|
|
|
|
{
|
|
|
|
register unsigned int size = strlen(str);
|
1993-10-22 12:04:32 +00:00
|
|
|
register stringobject *op;
|
1993-11-01 13:46:50 +00:00
|
|
|
#ifndef DONT_SHARE_SHORT_STRINGS
|
1993-10-22 12:04:32 +00:00
|
|
|
if (size == 0 && (op = nullstring) != NULL) {
|
|
|
|
#ifdef COUNT_ALLOCS
|
|
|
|
null_strings++;
|
|
|
|
#endif
|
|
|
|
INCREF(op);
|
1993-10-26 15:25:16 +00:00
|
|
|
return (object *)op;
|
1993-10-22 12:04:32 +00:00
|
|
|
}
|
|
|
|
if (size == 1 && (op = characters[*str & UCHAR_MAX]) != NULL) {
|
|
|
|
#ifdef COUNT_ALLOCS
|
|
|
|
one_strings++;
|
|
|
|
#endif
|
|
|
|
INCREF(op);
|
1993-10-26 15:25:16 +00:00
|
|
|
return (object *)op;
|
1993-10-22 12:04:32 +00:00
|
|
|
}
|
1993-11-01 13:46:50 +00:00
|
|
|
#endif /* DONT_SHARE_SHORT_STRINGS */
|
1993-10-22 12:04:32 +00:00
|
|
|
op = (stringobject *)
|
1990-10-14 12:07:46 +00:00
|
|
|
malloc(sizeof(stringobject) + size * sizeof(char));
|
1990-10-21 22:15:08 +00:00
|
|
|
if (op == NULL)
|
|
|
|
return err_nomem();
|
|
|
|
op->ob_type = &Stringtype;
|
|
|
|
op->ob_size = size;
|
1993-10-22 12:04:32 +00:00
|
|
|
#ifdef CACHE_HASH
|
|
|
|
op->ob_shash = -1;
|
|
|
|
#endif
|
1993-10-11 12:54:31 +00:00
|
|
|
NEWREF(op);
|
1990-10-21 22:15:08 +00:00
|
|
|
strcpy(op->ob_sval, str);
|
1993-11-01 13:46:50 +00:00
|
|
|
#ifndef DONT_SHARE_SHORT_STRINGS
|
1993-10-22 12:04:32 +00:00
|
|
|
if (size == 0) {
|
|
|
|
nullstring = op;
|
|
|
|
INCREF(op);
|
|
|
|
} else if (size == 1) {
|
|
|
|
characters[*str & UCHAR_MAX] = op;
|
|
|
|
INCREF(op);
|
|
|
|
}
|
1993-11-01 13:46:50 +00:00
|
|
|
#endif
|
1990-10-14 12:07:46 +00:00
|
|
|
return (object *) op;
|
|
|
|
}
|
|
|
|
|
1993-06-17 12:35:49 +00:00
|
|
|
static void
|
1993-03-16 12:15:04 +00:00
|
|
|
string_dealloc(op)
|
1992-03-27 17:31:02 +00:00
|
|
|
object *op;
|
|
|
|
{
|
|
|
|
DEL(op);
|
|
|
|
}
|
|
|
|
|
1995-01-02 19:07:15 +00:00
|
|
|
int
|
1990-10-14 12:07:46 +00:00
|
|
|
getstringsize(op)
|
|
|
|
register object *op;
|
|
|
|
{
|
|
|
|
if (!is_stringobject(op)) {
|
1990-10-21 22:15:08 +00:00
|
|
|
err_badcall();
|
1990-10-14 12:07:46 +00:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
return ((stringobject *)op) -> ob_size;
|
|
|
|
}
|
|
|
|
|
|
|
|
/*const*/ char *
|
|
|
|
getstringvalue(op)
|
|
|
|
register object *op;
|
|
|
|
{
|
|
|
|
if (!is_stringobject(op)) {
|
1990-10-21 22:15:08 +00:00
|
|
|
err_badcall();
|
1990-10-14 12:07:46 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
return ((stringobject *)op) -> ob_sval;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Methods */
|
|
|
|
|
1991-06-07 22:58:57 +00:00
|
|
|
static int
|
1993-03-16 12:15:04 +00:00
|
|
|
string_print(op, fp, flags)
|
1990-10-14 12:07:46 +00:00
|
|
|
stringobject *op;
|
|
|
|
FILE *fp;
|
|
|
|
int flags;
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
char c;
|
1993-10-26 15:25:16 +00:00
|
|
|
int quote;
|
1991-06-07 22:58:57 +00:00
|
|
|
/* XXX Ought to check for interrupts when writing long strings */
|
1990-10-14 12:07:46 +00:00
|
|
|
if (flags & PRINT_RAW) {
|
|
|
|
fwrite(op->ob_sval, 1, (int) op->ob_size, fp);
|
1991-06-07 22:58:57 +00:00
|
|
|
return 0;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
1993-10-26 15:25:16 +00:00
|
|
|
|
|
|
|
/* figure out which quote to use; single is prefered */
|
|
|
|
quote = '\'';
|
|
|
|
if (strchr(op->ob_sval, '\'') && !strchr(op->ob_sval, '"'))
|
|
|
|
quote = '"';
|
|
|
|
|
|
|
|
fputc(quote, fp);
|
1990-10-14 12:07:46 +00:00
|
|
|
for (i = 0; i < op->ob_size; i++) {
|
|
|
|
c = op->ob_sval[i];
|
1993-10-26 15:25:16 +00:00
|
|
|
if (c == quote || c == '\\')
|
1990-10-14 12:07:46 +00:00
|
|
|
fprintf(fp, "\\%c", c);
|
|
|
|
else if (c < ' ' || c >= 0177)
|
1993-10-26 15:25:16 +00:00
|
|
|
fprintf(fp, "\\%03o", c & 0377);
|
1990-10-14 12:07:46 +00:00
|
|
|
else
|
1993-10-26 15:25:16 +00:00
|
|
|
fputc(c, fp);
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
1993-10-26 15:25:16 +00:00
|
|
|
fputc(quote, fp);
|
1991-06-07 22:58:57 +00:00
|
|
|
return 0;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
1993-03-16 12:15:04 +00:00
|
|
|
string_repr(op)
|
1990-10-14 12:07:46 +00:00
|
|
|
register stringobject *op;
|
|
|
|
{
|
|
|
|
/* XXX overflow? */
|
|
|
|
int newsize = 2 + 4 * op->ob_size * sizeof(char);
|
|
|
|
object *v = newsizedstringobject((char *)NULL, newsize);
|
|
|
|
if (v == NULL) {
|
1991-06-07 22:58:57 +00:00
|
|
|
return NULL;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
else {
|
|
|
|
register int i;
|
|
|
|
register char c;
|
|
|
|
register char *p;
|
1993-10-26 15:25:16 +00:00
|
|
|
int quote;
|
|
|
|
|
|
|
|
/* figure out which quote to use; single is prefered */
|
|
|
|
quote = '\'';
|
|
|
|
if (strchr(op->ob_sval, '\'') && !strchr(op->ob_sval, '"'))
|
|
|
|
quote = '"';
|
|
|
|
|
1990-10-14 12:07:46 +00:00
|
|
|
p = ((stringobject *)v)->ob_sval;
|
1993-10-26 15:25:16 +00:00
|
|
|
*p++ = quote;
|
1990-10-14 12:07:46 +00:00
|
|
|
for (i = 0; i < op->ob_size; i++) {
|
|
|
|
c = op->ob_sval[i];
|
1993-10-26 15:25:16 +00:00
|
|
|
if (c == quote || c == '\\')
|
1990-10-14 12:07:46 +00:00
|
|
|
*p++ = '\\', *p++ = c;
|
|
|
|
else if (c < ' ' || c >= 0177) {
|
1993-10-26 15:25:16 +00:00
|
|
|
sprintf(p, "\\%03o", c & 0377);
|
1990-10-14 12:07:46 +00:00
|
|
|
while (*p != '\0')
|
|
|
|
p++;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
*p++ = c;
|
|
|
|
}
|
1993-10-26 15:25:16 +00:00
|
|
|
*p++ = quote;
|
1990-10-14 12:07:46 +00:00
|
|
|
*p = '\0';
|
|
|
|
resizestring(&v, (int) (p - ((stringobject *)v)->ob_sval));
|
1990-10-21 22:15:08 +00:00
|
|
|
return v;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
1993-03-16 12:15:04 +00:00
|
|
|
string_length(a)
|
1990-10-14 12:07:46 +00:00
|
|
|
stringobject *a;
|
|
|
|
{
|
|
|
|
return a->ob_size;
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
1993-03-16 12:15:04 +00:00
|
|
|
string_concat(a, bb)
|
1990-10-14 12:07:46 +00:00
|
|
|
register stringobject *a;
|
|
|
|
register object *bb;
|
|
|
|
{
|
|
|
|
register unsigned int size;
|
|
|
|
register stringobject *op;
|
|
|
|
if (!is_stringobject(bb)) {
|
1990-10-21 22:15:08 +00:00
|
|
|
err_badarg();
|
1990-10-14 12:07:46 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
#define b ((stringobject *)bb)
|
|
|
|
/* Optimize cases with empty left or right operand */
|
|
|
|
if (a->ob_size == 0) {
|
|
|
|
INCREF(bb);
|
|
|
|
return bb;
|
|
|
|
}
|
|
|
|
if (b->ob_size == 0) {
|
|
|
|
INCREF(a);
|
|
|
|
return (object *)a;
|
|
|
|
}
|
|
|
|
size = a->ob_size + b->ob_size;
|
|
|
|
op = (stringobject *)
|
|
|
|
malloc(sizeof(stringobject) + size * sizeof(char));
|
1990-10-21 22:15:08 +00:00
|
|
|
if (op == NULL)
|
|
|
|
return err_nomem();
|
|
|
|
op->ob_type = &Stringtype;
|
|
|
|
op->ob_size = size;
|
1993-10-22 12:04:32 +00:00
|
|
|
#ifdef CACHE_HASH
|
|
|
|
op->ob_shash = -1;
|
|
|
|
#endif
|
1993-10-11 12:54:31 +00:00
|
|
|
NEWREF(op);
|
1990-10-21 22:15:08 +00:00
|
|
|
memcpy(op->ob_sval, a->ob_sval, (int) a->ob_size);
|
|
|
|
memcpy(op->ob_sval + a->ob_size, b->ob_sval, (int) b->ob_size);
|
|
|
|
op->ob_sval[size] = '\0';
|
1990-10-14 12:07:46 +00:00
|
|
|
return (object *) op;
|
|
|
|
#undef b
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
1993-03-16 12:15:04 +00:00
|
|
|
string_repeat(a, n)
|
1990-10-14 12:07:46 +00:00
|
|
|
register stringobject *a;
|
|
|
|
register int n;
|
|
|
|
{
|
|
|
|
register int i;
|
|
|
|
register unsigned int size;
|
|
|
|
register stringobject *op;
|
|
|
|
if (n < 0)
|
|
|
|
n = 0;
|
|
|
|
size = a->ob_size * n;
|
|
|
|
if (size == a->ob_size) {
|
|
|
|
INCREF(a);
|
|
|
|
return (object *)a;
|
|
|
|
}
|
|
|
|
op = (stringobject *)
|
|
|
|
malloc(sizeof(stringobject) + size * sizeof(char));
|
1990-10-21 22:15:08 +00:00
|
|
|
if (op == NULL)
|
|
|
|
return err_nomem();
|
|
|
|
op->ob_type = &Stringtype;
|
|
|
|
op->ob_size = size;
|
1993-10-22 12:04:32 +00:00
|
|
|
#ifdef CACHE_HASH
|
|
|
|
op->ob_shash = -1;
|
|
|
|
#endif
|
1993-10-11 12:54:31 +00:00
|
|
|
NEWREF(op);
|
1990-10-21 22:15:08 +00:00
|
|
|
for (i = 0; i < size; i += a->ob_size)
|
|
|
|
memcpy(op->ob_sval+i, a->ob_sval, (int) a->ob_size);
|
|
|
|
op->ob_sval[size] = '\0';
|
1990-10-14 12:07:46 +00:00
|
|
|
return (object *) op;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* String slice a[i:j] consists of characters a[i] ... a[j-1] */
|
|
|
|
|
|
|
|
static object *
|
1993-03-16 12:15:04 +00:00
|
|
|
string_slice(a, i, j)
|
1990-10-14 12:07:46 +00:00
|
|
|
register stringobject *a;
|
|
|
|
register int i, j; /* May be negative! */
|
|
|
|
{
|
|
|
|
if (i < 0)
|
|
|
|
i = 0;
|
|
|
|
if (j < 0)
|
|
|
|
j = 0; /* Avoid signed/unsigned bug in next line */
|
|
|
|
if (j > a->ob_size)
|
|
|
|
j = a->ob_size;
|
|
|
|
if (i == 0 && j == a->ob_size) { /* It's the same as a */
|
|
|
|
INCREF(a);
|
|
|
|
return (object *)a;
|
|
|
|
}
|
|
|
|
if (j < i)
|
|
|
|
j = i;
|
|
|
|
return newsizedstringobject(a->ob_sval + i, (int) (j-i));
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
1993-03-16 12:15:04 +00:00
|
|
|
string_item(a, i)
|
1990-10-14 12:07:46 +00:00
|
|
|
stringobject *a;
|
|
|
|
register int i;
|
|
|
|
{
|
1991-04-04 10:48:33 +00:00
|
|
|
int c;
|
|
|
|
object *v;
|
1990-10-14 12:07:46 +00:00
|
|
|
if (i < 0 || i >= a->ob_size) {
|
1990-10-21 22:15:08 +00:00
|
|
|
err_setstr(IndexError, "string index out of range");
|
1990-10-14 12:07:46 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
1991-04-04 10:48:33 +00:00
|
|
|
c = a->ob_sval[i] & UCHAR_MAX;
|
1993-10-22 12:04:32 +00:00
|
|
|
v = (object *) characters[c];
|
|
|
|
#ifdef COUNT_ALLOCS
|
|
|
|
if (v != NULL)
|
|
|
|
one_strings++;
|
|
|
|
#endif
|
1991-04-04 10:48:33 +00:00
|
|
|
if (v == NULL) {
|
|
|
|
v = newsizedstringobject((char *)NULL, 1);
|
|
|
|
if (v == NULL)
|
|
|
|
return NULL;
|
1993-10-22 12:04:32 +00:00
|
|
|
characters[c] = (stringobject *) v;
|
1991-04-04 10:48:33 +00:00
|
|
|
((stringobject *)v)->ob_sval[0] = c;
|
|
|
|
}
|
|
|
|
INCREF(v);
|
|
|
|
return v;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
1993-03-16 12:15:04 +00:00
|
|
|
string_compare(a, b)
|
1990-10-14 12:07:46 +00:00
|
|
|
stringobject *a, *b;
|
|
|
|
{
|
1991-02-13 23:18:39 +00:00
|
|
|
int len_a = a->ob_size, len_b = b->ob_size;
|
|
|
|
int min_len = (len_a < len_b) ? len_a : len_b;
|
1993-10-22 12:04:32 +00:00
|
|
|
int cmp;
|
|
|
|
if (min_len > 0) {
|
|
|
|
cmp = *a->ob_sval - *b->ob_sval;
|
|
|
|
if (cmp == 0)
|
|
|
|
cmp = memcmp(a->ob_sval, b->ob_sval, min_len);
|
|
|
|
if (cmp != 0)
|
|
|
|
return cmp;
|
|
|
|
}
|
1991-02-13 23:18:39 +00:00
|
|
|
return (len_a < len_b) ? -1 : (len_a > len_b) ? 1 : 0;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
|
1993-03-29 10:43:31 +00:00
|
|
|
static long
|
|
|
|
string_hash(a)
|
|
|
|
stringobject *a;
|
|
|
|
{
|
1993-10-22 12:04:32 +00:00
|
|
|
register int len;
|
|
|
|
register unsigned char *p;
|
|
|
|
register long x;
|
|
|
|
|
|
|
|
#ifdef CACHE_HASH
|
|
|
|
if (a->ob_shash != -1)
|
|
|
|
return a->ob_shash;
|
|
|
|
#endif
|
|
|
|
len = a->ob_size;
|
|
|
|
p = (unsigned char *) a->ob_sval;
|
|
|
|
x = *p << 7;
|
1993-03-29 10:43:31 +00:00
|
|
|
while (--len >= 0)
|
1995-03-09 12:12:50 +00:00
|
|
|
x = (3*x) ^ *p++;
|
1993-03-29 10:43:31 +00:00
|
|
|
x ^= a->ob_size;
|
|
|
|
if (x == -1)
|
|
|
|
x = -2;
|
1993-10-22 12:04:32 +00:00
|
|
|
#ifdef CACHE_HASH
|
|
|
|
a->ob_shash = x;
|
|
|
|
#endif
|
1993-03-29 10:43:31 +00:00
|
|
|
return x;
|
|
|
|
}
|
|
|
|
|
1990-10-14 12:07:46 +00:00
|
|
|
static sequence_methods string_as_sequence = {
|
1994-08-30 08:19:36 +00:00
|
|
|
(inquiry)string_length, /*sq_length*/
|
|
|
|
(binaryfunc)string_concat, /*sq_concat*/
|
|
|
|
(intargfunc)string_repeat, /*sq_repeat*/
|
|
|
|
(intargfunc)string_item, /*sq_item*/
|
|
|
|
(intintargfunc)string_slice, /*sq_slice*/
|
1991-06-04 19:36:32 +00:00
|
|
|
0, /*sq_ass_item*/
|
|
|
|
0, /*sq_ass_slice*/
|
1990-10-14 12:07:46 +00:00
|
|
|
};
|
|
|
|
|
|
|
|
typeobject Stringtype = {
|
|
|
|
OB_HEAD_INIT(&Typetype)
|
|
|
|
0,
|
|
|
|
"string",
|
|
|
|
sizeof(stringobject),
|
|
|
|
sizeof(char),
|
1994-08-30 08:19:36 +00:00
|
|
|
(destructor)string_dealloc, /*tp_dealloc*/
|
|
|
|
(printfunc)string_print, /*tp_print*/
|
1990-10-14 12:07:46 +00:00
|
|
|
0, /*tp_getattr*/
|
|
|
|
0, /*tp_setattr*/
|
1994-08-30 08:19:36 +00:00
|
|
|
(cmpfunc)string_compare, /*tp_compare*/
|
|
|
|
(reprfunc)string_repr, /*tp_repr*/
|
1990-10-14 12:07:46 +00:00
|
|
|
0, /*tp_as_number*/
|
|
|
|
&string_as_sequence, /*tp_as_sequence*/
|
|
|
|
0, /*tp_as_mapping*/
|
1994-08-30 08:19:36 +00:00
|
|
|
(hashfunc)string_hash, /*tp_hash*/
|
1990-10-14 12:07:46 +00:00
|
|
|
};
|
|
|
|
|
|
|
|
void
|
|
|
|
joinstring(pv, w)
|
|
|
|
register object **pv;
|
|
|
|
register object *w;
|
|
|
|
{
|
|
|
|
register object *v;
|
1994-08-30 08:19:36 +00:00
|
|
|
if (*pv == NULL)
|
|
|
|
return;
|
|
|
|
if (w == NULL || !is_stringobject(*pv)) {
|
|
|
|
DECREF(*pv);
|
|
|
|
*pv = NULL;
|
1990-10-14 12:07:46 +00:00
|
|
|
return;
|
1994-08-30 08:19:36 +00:00
|
|
|
}
|
1993-03-16 12:15:04 +00:00
|
|
|
v = string_concat((stringobject *) *pv, w);
|
1990-10-14 12:07:46 +00:00
|
|
|
DECREF(*pv);
|
|
|
|
*pv = v;
|
|
|
|
}
|
|
|
|
|
1994-08-30 08:19:36 +00:00
|
|
|
void
|
|
|
|
joinstring_decref(pv, w)
|
|
|
|
register object **pv;
|
|
|
|
register object *w;
|
|
|
|
{
|
|
|
|
joinstring(pv, w);
|
|
|
|
XDECREF(w);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1990-10-14 12:07:46 +00:00
|
|
|
/* The following function breaks the notion that strings are immutable:
|
|
|
|
it changes the size of a string. We get away with this only if there
|
|
|
|
is only one module referencing the object. You can also think of it
|
|
|
|
as creating a new string object and destroying the old one, only
|
|
|
|
more efficiently. In any case, don't use this if the string may
|
|
|
|
already be known to some other part of the code... */
|
|
|
|
|
|
|
|
int
|
|
|
|
resizestring(pv, newsize)
|
|
|
|
object **pv;
|
|
|
|
int newsize;
|
|
|
|
{
|
1990-11-18 17:30:23 +00:00
|
|
|
register object *v;
|
|
|
|
register stringobject *sv;
|
|
|
|
v = *pv;
|
1990-10-14 12:07:46 +00:00
|
|
|
if (!is_stringobject(v) || v->ob_refcnt != 1) {
|
|
|
|
*pv = 0;
|
|
|
|
DECREF(v);
|
1990-10-21 22:15:08 +00:00
|
|
|
err_badcall();
|
|
|
|
return -1;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
1990-11-18 17:30:23 +00:00
|
|
|
/* XXX UNREF/NEWREF interface should be more symmetrical */
|
1990-11-18 17:41:19 +00:00
|
|
|
#ifdef REF_DEBUG
|
1995-03-29 16:57:48 +00:00
|
|
|
--_Py_RefTotal;
|
1990-11-18 17:30:23 +00:00
|
|
|
#endif
|
|
|
|
UNREF(v);
|
1990-10-14 12:07:46 +00:00
|
|
|
*pv = (object *)
|
|
|
|
realloc((char *)v,
|
|
|
|
sizeof(stringobject) + newsize * sizeof(char));
|
|
|
|
if (*pv == NULL) {
|
1990-11-18 17:30:23 +00:00
|
|
|
DEL(v);
|
1990-10-21 22:15:08 +00:00
|
|
|
err_nomem();
|
|
|
|
return -1;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
1990-11-18 17:30:23 +00:00
|
|
|
NEWREF(*pv);
|
|
|
|
sv = (stringobject *) *pv;
|
|
|
|
sv->ob_size = newsize;
|
|
|
|
sv->ob_sval[newsize] = '\0';
|
1990-10-14 12:07:46 +00:00
|
|
|
return 0;
|
|
|
|
}
|
1993-03-16 12:15:04 +00:00
|
|
|
|
|
|
|
/* Helpers for formatstring */
|
|
|
|
|
|
|
|
static object *
|
|
|
|
getnextarg(args, arglen, p_argidx)
|
|
|
|
object *args;
|
|
|
|
int arglen;
|
|
|
|
int *p_argidx;
|
|
|
|
{
|
|
|
|
int argidx = *p_argidx;
|
|
|
|
if (argidx < arglen) {
|
|
|
|
(*p_argidx)++;
|
|
|
|
if (arglen < 0)
|
|
|
|
return args;
|
|
|
|
else
|
|
|
|
return gettupleitem(args, argidx);
|
|
|
|
}
|
|
|
|
err_setstr(TypeError, "not enough arguments for format string");
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
#define F_LJUST (1<<0)
|
|
|
|
#define F_SIGN (1<<1)
|
|
|
|
#define F_BLANK (1<<2)
|
|
|
|
#define F_ALT (1<<3)
|
|
|
|
#define F_ZERO (1<<4)
|
|
|
|
|
|
|
|
extern double fabs PROTO((double));
|
|
|
|
|
|
|
|
static char *
|
|
|
|
formatfloat(flags, prec, type, v)
|
|
|
|
int flags;
|
|
|
|
int prec;
|
|
|
|
int type;
|
|
|
|
object *v;
|
|
|
|
{
|
|
|
|
char fmt[20];
|
|
|
|
static char buf[120];
|
|
|
|
double x;
|
|
|
|
if (!getargs(v, "d;float argument required", &x))
|
|
|
|
return NULL;
|
|
|
|
if (prec < 0)
|
|
|
|
prec = 6;
|
|
|
|
if (prec > 50)
|
|
|
|
prec = 50; /* Arbitrary limitation */
|
|
|
|
if (type == 'f' && fabs(x)/1e25 >= 1e25)
|
|
|
|
type = 'g';
|
|
|
|
sprintf(fmt, "%%%s.%d%c", (flags&F_ALT) ? "#" : "", prec, type);
|
|
|
|
sprintf(buf, fmt, x);
|
|
|
|
return buf;
|
|
|
|
}
|
|
|
|
|
|
|
|
static char *
|
|
|
|
formatint(flags, prec, type, v)
|
|
|
|
int flags;
|
|
|
|
int prec;
|
|
|
|
int type;
|
|
|
|
object *v;
|
|
|
|
{
|
|
|
|
char fmt[20];
|
|
|
|
static char buf[50];
|
|
|
|
long x;
|
|
|
|
if (!getargs(v, "l;int argument required", &x))
|
|
|
|
return NULL;
|
|
|
|
if (prec < 0)
|
|
|
|
prec = 1;
|
|
|
|
sprintf(fmt, "%%%s.%dl%c", (flags&F_ALT) ? "#" : "", prec, type);
|
|
|
|
sprintf(buf, fmt, x);
|
|
|
|
return buf;
|
|
|
|
}
|
|
|
|
|
|
|
|
static char *
|
|
|
|
formatchar(v)
|
|
|
|
object *v;
|
|
|
|
{
|
|
|
|
static char buf[2];
|
|
|
|
if (is_stringobject(v)) {
|
|
|
|
if (!getargs(v, "c;%c requires int or char", &buf[0]))
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
if (!getargs(v, "b;%c requires int or char", &buf[0]))
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
buf[1] = '\0';
|
|
|
|
return buf;
|
|
|
|
}
|
|
|
|
|
1994-08-30 08:19:36 +00:00
|
|
|
/* XXX this could be moved to object.c */
|
|
|
|
static object *
|
|
|
|
get_mapping_item(mo, ko)
|
|
|
|
object *mo;
|
|
|
|
object *ko;
|
|
|
|
{
|
|
|
|
mapping_methods *mm = mo->ob_type->tp_as_mapping;
|
|
|
|
object *val;
|
|
|
|
|
|
|
|
if (!mm || !mm->mp_subscript) {
|
|
|
|
err_setstr(TypeError, "subscript not implemented");
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
val = (*mm->mp_subscript)(mo, ko);
|
|
|
|
XDECREF(val); /* still in mapping */
|
|
|
|
|
|
|
|
return val;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1993-03-16 12:15:04 +00:00
|
|
|
/* fmt%(v1,v2,...) is roughly equivalent to sprintf(fmt, v1, v2, ...) */
|
|
|
|
|
|
|
|
object *
|
|
|
|
formatstring(format, args)
|
|
|
|
object *format;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
char *fmt, *res;
|
|
|
|
int fmtcnt, rescnt, reslen, arglen, argidx;
|
|
|
|
object *result;
|
1994-08-30 08:19:36 +00:00
|
|
|
object *dict = NULL;
|
1993-03-16 12:15:04 +00:00
|
|
|
if (format == NULL || !is_stringobject(format) || args == NULL) {
|
|
|
|
err_badcall();
|
|
|
|
return NULL;
|
|
|
|
}
|
1993-05-12 08:24:20 +00:00
|
|
|
fmt = getstringvalue(format);
|
|
|
|
fmtcnt = getstringsize(format);
|
|
|
|
reslen = rescnt = fmtcnt + 100;
|
1993-03-16 12:15:04 +00:00
|
|
|
result = newsizedstringobject((char *)NULL, reslen);
|
|
|
|
if (result == NULL)
|
|
|
|
return NULL;
|
|
|
|
res = getstringvalue(result);
|
|
|
|
if (is_tupleobject(args)) {
|
|
|
|
arglen = gettuplesize(args);
|
|
|
|
argidx = 0;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
arglen = -1;
|
|
|
|
argidx = -2;
|
|
|
|
}
|
1994-08-30 08:19:36 +00:00
|
|
|
if (args->ob_type->tp_as_mapping)
|
|
|
|
dict = args;
|
1993-03-16 12:15:04 +00:00
|
|
|
while (--fmtcnt >= 0) {
|
|
|
|
if (*fmt != '%') {
|
|
|
|
if (--rescnt < 0) {
|
1993-05-12 08:24:20 +00:00
|
|
|
rescnt = fmtcnt + 100;
|
|
|
|
reslen += rescnt;
|
1993-03-16 12:15:04 +00:00
|
|
|
if (resizestring(&result, reslen) < 0)
|
|
|
|
return NULL;
|
1993-05-12 08:24:20 +00:00
|
|
|
res = getstringvalue(result) + reslen - rescnt;
|
1994-08-30 08:19:36 +00:00
|
|
|
--rescnt;
|
1993-03-16 12:15:04 +00:00
|
|
|
}
|
|
|
|
*res++ = *fmt++;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
/* Got a format specifier */
|
|
|
|
int flags = 0;
|
|
|
|
char *fmtstart = fmt++;
|
|
|
|
int width = -1;
|
|
|
|
int prec = -1;
|
|
|
|
int size = 0;
|
1993-11-11 14:51:57 +00:00
|
|
|
int c = '\0';
|
1993-03-16 12:15:04 +00:00
|
|
|
int fill;
|
|
|
|
object *v;
|
1994-08-30 08:19:36 +00:00
|
|
|
object *temp = NULL;
|
1993-03-16 12:15:04 +00:00
|
|
|
char *buf;
|
|
|
|
int sign;
|
|
|
|
int len;
|
1994-08-30 08:19:36 +00:00
|
|
|
if (*fmt == '(') {
|
|
|
|
char *keystart;
|
|
|
|
int keylen;
|
|
|
|
object *key;
|
|
|
|
|
|
|
|
if (dict == NULL) {
|
|
|
|
err_setstr(TypeError,
|
|
|
|
"format requires a mapping");
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
++fmt;
|
|
|
|
--fmtcnt;
|
|
|
|
keystart = fmt;
|
|
|
|
while (--fmtcnt >= 0 && *fmt != ')')
|
|
|
|
fmt++;
|
|
|
|
keylen = fmt - keystart;
|
|
|
|
++fmt;
|
|
|
|
if (fmtcnt < 0) {
|
|
|
|
err_setstr(ValueError,
|
|
|
|
"incomplete format key");
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
key = newsizedstringobject(keystart, keylen);
|
|
|
|
if (key == NULL)
|
|
|
|
goto error;
|
|
|
|
args = get_mapping_item(dict, key);
|
|
|
|
DECREF(key);
|
|
|
|
if (args == NULL) {
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
arglen = -1;
|
|
|
|
argidx = -2;
|
|
|
|
}
|
1993-03-16 12:15:04 +00:00
|
|
|
while (--fmtcnt >= 0) {
|
|
|
|
switch (c = *fmt++) {
|
|
|
|
case '-': flags |= F_LJUST; continue;
|
|
|
|
case '+': flags |= F_SIGN; continue;
|
|
|
|
case ' ': flags |= F_BLANK; continue;
|
|
|
|
case '#': flags |= F_ALT; continue;
|
|
|
|
case '0': flags |= F_ZERO; continue;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (c == '*') {
|
|
|
|
v = getnextarg(args, arglen, &argidx);
|
|
|
|
if (v == NULL)
|
|
|
|
goto error;
|
|
|
|
if (!is_intobject(v)) {
|
|
|
|
err_setstr(TypeError, "* wants int");
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
width = getintvalue(v);
|
|
|
|
if (width < 0)
|
|
|
|
width = 0;
|
|
|
|
if (--fmtcnt >= 0)
|
|
|
|
c = *fmt++;
|
|
|
|
}
|
1995-02-10 17:00:37 +00:00
|
|
|
else if (c >= 0 && isdigit(c)) {
|
1993-03-16 12:15:04 +00:00
|
|
|
width = c - '0';
|
|
|
|
while (--fmtcnt >= 0) {
|
1995-02-10 17:00:37 +00:00
|
|
|
c = Py_CHARMASK(*fmt++);
|
1993-03-16 12:15:04 +00:00
|
|
|
if (!isdigit(c))
|
|
|
|
break;
|
|
|
|
if ((width*10) / 10 != width) {
|
|
|
|
err_setstr(ValueError,
|
|
|
|
"width too big");
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
width = width*10 + (c - '0');
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (c == '.') {
|
|
|
|
prec = 0;
|
|
|
|
if (--fmtcnt >= 0)
|
|
|
|
c = *fmt++;
|
|
|
|
if (c == '*') {
|
|
|
|
v = getnextarg(args, arglen, &argidx);
|
|
|
|
if (v == NULL)
|
|
|
|
goto error;
|
|
|
|
if (!is_intobject(v)) {
|
|
|
|
err_setstr(TypeError,
|
|
|
|
"* wants int");
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
prec = getintvalue(v);
|
|
|
|
if (prec < 0)
|
|
|
|
prec = 0;
|
|
|
|
if (--fmtcnt >= 0)
|
|
|
|
c = *fmt++;
|
|
|
|
}
|
1995-02-10 17:00:37 +00:00
|
|
|
else if (c >= 0 && isdigit(c)) {
|
1993-03-16 12:15:04 +00:00
|
|
|
prec = c - '0';
|
|
|
|
while (--fmtcnt >= 0) {
|
1995-02-10 17:00:37 +00:00
|
|
|
c = Py_CHARMASK(*fmt++);
|
1993-03-16 12:15:04 +00:00
|
|
|
if (!isdigit(c))
|
|
|
|
break;
|
|
|
|
if ((prec*10) / 10 != prec) {
|
|
|
|
err_setstr(ValueError,
|
|
|
|
"prec too big");
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
prec = prec*10 + (c - '0');
|
|
|
|
}
|
|
|
|
}
|
|
|
|
} /* prec */
|
|
|
|
if (fmtcnt >= 0) {
|
|
|
|
if (c == 'h' || c == 'l' || c == 'L') {
|
|
|
|
size = c;
|
|
|
|
if (--fmtcnt >= 0)
|
|
|
|
c = *fmt++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (fmtcnt < 0) {
|
|
|
|
err_setstr(ValueError, "incomplete format");
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
if (c != '%') {
|
|
|
|
v = getnextarg(args, arglen, &argidx);
|
|
|
|
if (v == NULL)
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
sign = 0;
|
|
|
|
fill = ' ';
|
|
|
|
switch (c) {
|
|
|
|
case '%':
|
|
|
|
buf = "%";
|
|
|
|
len = 1;
|
|
|
|
break;
|
|
|
|
case 's':
|
1994-08-30 08:19:36 +00:00
|
|
|
temp = strobject(v);
|
|
|
|
if (temp == NULL)
|
1993-03-16 12:15:04 +00:00
|
|
|
goto error;
|
1994-08-30 08:19:36 +00:00
|
|
|
buf = getstringvalue(temp);
|
|
|
|
len = getstringsize(temp);
|
1993-03-16 12:15:04 +00:00
|
|
|
if (prec >= 0 && len > prec)
|
|
|
|
len = prec;
|
|
|
|
break;
|
|
|
|
case 'i':
|
|
|
|
case 'd':
|
|
|
|
case 'u':
|
|
|
|
case 'o':
|
|
|
|
case 'x':
|
|
|
|
case 'X':
|
|
|
|
if (c == 'i')
|
|
|
|
c = 'd';
|
|
|
|
buf = formatint(flags, prec, c, v);
|
|
|
|
if (buf == NULL)
|
|
|
|
goto error;
|
|
|
|
len = strlen(buf);
|
|
|
|
sign = (c == 'd');
|
|
|
|
if (flags&F_ZERO)
|
|
|
|
fill = '0';
|
|
|
|
break;
|
|
|
|
case 'e':
|
|
|
|
case 'E':
|
|
|
|
case 'f':
|
|
|
|
case 'g':
|
|
|
|
case 'G':
|
|
|
|
buf = formatfloat(flags, prec, c, v);
|
|
|
|
if (buf == NULL)
|
|
|
|
goto error;
|
|
|
|
len = strlen(buf);
|
|
|
|
sign = 1;
|
|
|
|
if (flags&F_ZERO)
|
|
|
|
fill = '0';
|
|
|
|
break;
|
|
|
|
case 'c':
|
|
|
|
buf = formatchar(v);
|
|
|
|
if (buf == NULL)
|
|
|
|
goto error;
|
1993-11-11 14:51:57 +00:00
|
|
|
len = 1;
|
1993-03-16 12:15:04 +00:00
|
|
|
break;
|
|
|
|
default:
|
|
|
|
err_setstr(ValueError,
|
|
|
|
"unsupported format character");
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
if (sign) {
|
|
|
|
if (*buf == '-' || *buf == '+') {
|
|
|
|
sign = *buf++;
|
|
|
|
len--;
|
|
|
|
}
|
|
|
|
else if (flags & F_SIGN)
|
|
|
|
sign = '+';
|
|
|
|
else if (flags & F_BLANK)
|
|
|
|
sign = ' ';
|
|
|
|
else
|
|
|
|
sign = '\0';
|
|
|
|
}
|
|
|
|
if (width < len)
|
|
|
|
width = len;
|
|
|
|
if (rescnt < width + (sign != '\0')) {
|
1993-05-12 08:24:20 +00:00
|
|
|
reslen -= rescnt;
|
|
|
|
rescnt = width + fmtcnt + 100;
|
|
|
|
reslen += rescnt;
|
1993-03-16 12:15:04 +00:00
|
|
|
if (resizestring(&result, reslen) < 0)
|
|
|
|
return NULL;
|
1993-05-12 08:24:20 +00:00
|
|
|
res = getstringvalue(result) + reslen - rescnt;
|
1993-03-16 12:15:04 +00:00
|
|
|
}
|
|
|
|
if (sign) {
|
1993-11-11 15:03:51 +00:00
|
|
|
if (fill != ' ')
|
|
|
|
*res++ = sign;
|
1993-03-16 12:15:04 +00:00
|
|
|
rescnt--;
|
|
|
|
if (width > len)
|
|
|
|
width--;
|
|
|
|
}
|
|
|
|
if (width > len && !(flags&F_LJUST)) {
|
|
|
|
do {
|
|
|
|
--rescnt;
|
|
|
|
*res++ = fill;
|
|
|
|
} while (--width > len);
|
|
|
|
}
|
1993-11-11 15:03:51 +00:00
|
|
|
if (sign && fill == ' ')
|
1993-11-11 14:51:57 +00:00
|
|
|
*res++ = sign;
|
1993-03-16 12:15:04 +00:00
|
|
|
memcpy(res, buf, len);
|
|
|
|
res += len;
|
|
|
|
rescnt -= len;
|
|
|
|
while (--width >= len) {
|
|
|
|
--rescnt;
|
|
|
|
*res++ = ' ';
|
|
|
|
}
|
1995-02-10 17:00:37 +00:00
|
|
|
if (dict && (argidx < arglen) && c != '%') {
|
1994-08-30 08:19:36 +00:00
|
|
|
err_setstr(TypeError,
|
|
|
|
"not all arguments converted");
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
XDECREF(temp);
|
1993-03-16 12:15:04 +00:00
|
|
|
} /* '%' */
|
|
|
|
} /* until end */
|
1995-02-27 10:13:23 +00:00
|
|
|
if (argidx < arglen && !dict) {
|
1993-03-16 12:15:04 +00:00
|
|
|
err_setstr(TypeError, "not all arguments converted");
|
|
|
|
goto error;
|
|
|
|
}
|
|
|
|
resizestring(&result, reslen - rescnt);
|
|
|
|
return result;
|
|
|
|
error:
|
|
|
|
DECREF(result);
|
|
|
|
return NULL;
|
|
|
|
}
|