Minor improvements

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@248 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-02-22 20:46:54 +00:00
commit 840a4f83ff
2 changed files with 25 additions and 2 deletions

View file

@ -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
* ----------------------------------------------------------------------------- */

View file

@ -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 */