Minor improvements

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@248 626c5289-ae23-0410-ae9c-e8d60b6d4f22

SWIG/Source/DOH/Doh/string.c

@@ -142,10 +142,13 @@ int String_dump(DOH *so, DOH *out) {
  * NewString(const char *c) - Create a new string
  * ----------------------------------------------------------------------------- */
 DOH *
-NewString(char *s)
+NewString(DOH *so)
 {
     int l = 0, max;
     String *str;
+    char *s;
+    if (DohCheck(so)) s = Char(so);
+    else s = (char *) so;
     str = (String *) DohObjMalloc(sizeof(String));
     str->objinfo = &StringType;
     DohXInit(str);
@@ -172,6 +175,24 @@ NewString(char *s)
     return (DOH *) str;
 }
 
+/* -----------------------------------------------------------------------------
+ * NewStringf(DOH *fmt, ...)
+ *
+ * Create a new string from a list of objects.
+ * ----------------------------------------------------------------------------- */
+
+DOH *
+NewStringf(DOH *fmt, ...)
+{
+  va_list ap;
+  DOH *r;
+  va_start(ap,fmt);
+  r = NewString("");
+  DohvPrintf(r,Char(fmt),ap);
+  va_end(ap);
+  return r;
+}
+
 /* -----------------------------------------------------------------------------
  * CopyString(DOH *s) - Copy a string
  * ----------------------------------------------------------------------------- */

SWIG/Source/DOH/Include/doh.h

@@ -326,7 +326,9 @@ typedef struct {
  * Strings.   
  * ----------------------------------------------------------------------------- */
 
-extern DOH   *NewString(char *c);
+extern DOH   *NewString(DOH *c);
+extern DOH   *NewStringf(DOH *fmt, ...);
+
 extern int    String_check(DOH *s);
 
 /* String replacement flags */