*** empty log message ***

lib/Components/ExtensionClass/PyErr_Format.c

-/***********************************************************
-Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
-The Netherlands.
-
-                        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 or Corporation for National Research Initiatives or
-CNRI not be used in advertising or publicity pertaining to
-distribution of the software without specific, written prior
-permission.
-
-While CWI is the initial source for this software, a modified version
-is made available by the Corporation for National Research Initiatives
-(CNRI) at the Internet address ftp://ftp.python.org.
-
-STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH
-REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH
-CENTRUM OR CNRI 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.
-
-******************************************************************/
-
-#include "Python.h"
-
-PyObject *
-#ifdef HAVE_STDARG_PROTOTYPES
-/* VARARGS 2 */
-PyErr_Format(PyObject *ErrType, char *stringformat, char *format, ...)
-#else
-/* VARARGS */
-PyErr_Format(va_alist) va_dcl
-#endif
-{
-  va_list va;
-  PyObject *args=0, *retval=0;
-#ifdef HAVE_STDARG_PROTOTYPES
-  va_start(va, format);
-#else
-  PyObject *ErrType;
-  char *stringformat, *format;
-  va_start(va);
-  ErrType = va_arg(va, PyObject *);
-  stringformat   = va_arg(va, char *);
-  format   = va_arg(va, char *);
-#endif
-  
-  if(format) args = Py_VaBuildValue(format, va);
-  va_end(va);
-  if(format && ! args) return NULL;
-  if(stringformat && !(retval=PyString_FromString(stringformat))) return NULL;
-
-  if(retval)
-    {
-      if(args)
-	{
-	  PyObject *v;
-	  v=PyString_Format(retval, args);
-	  Py_DECREF(retval);
-	  Py_DECREF(args);
-	  if(! v) return NULL;
-	  retval=v;
-	}
-    }
-  else
-    if(args) retval=args;
-    else
-      {
-	PyErr_SetObject(ErrType,Py_None);
-	return NULL;
-      }
-  PyErr_SetObject(ErrType,retval);
-  Py_DECREF(retval);
-  return NULL;
-}
-
-
-PyObject *
-#ifdef HAVE_STDARG_PROTOTYPES
-/* VARARGS 2 */
-PyString_Build(char *out_format, char *build_format, ...)
-#else
-/* VARARGS */
-PyString_Build(va_alist) va_dcl
-#endif
-{
-  va_list va;
-  PyObject *args, *retval, *fmt;
-#ifdef HAVE_STDARG_PROTOTYPES
-  va_start(va, build_format);
-#else
-  char *build_format;
-  char *out_format;
-  va_start(va);
-  out_format = va_arg(va, char *);
-  build_format   = va_arg(va, char *);
-#endif
-
-  if (build_format)
-    args = Py_VaBuildValue(build_format, va);
-  else
-    args = PyTuple_New(0);
-  
-  va_end(va);
-  
-  if(! args)
-    return NULL;
-
-  if (! PyTuple_Check(args))
-    {
-      PyObject *a;
-      
-      a=PyTuple_New(1);
-      if (! a)
-        return NULL;
-      
-      if (PyTuple_SetItem(a,0,args) == -1)
-        return NULL;
-      
-      args=a;
-    }
-
-  fmt = PyString_FromString(out_format);
-  
-  retval = PyString_Format(fmt, args);
-  
-  Py_DECREF(args);
-  Py_DECREF(fmt);
-  
-  return retval;
-}