static void writeValue(OFile *fp, VObject *o, unsigned long size, bool nosemi)
{
if (o == 0) return;
switch (VALUE_TYPE(o)) {
case VCVT_STRINGZ: {
writeEncString(fp, STRINGZ_VALUE_OF(o), nosemi);
break;
}
case VCVT_UINT: {
char buf[16];
sprintf(buf,"%u", INTEGER_VALUE_OF(o));
appendsOFile(fp,buf);
break;
}
case VCVT_ULONG: {
char buf[16];
sprintf(buf,"%lu", LONG_VALUE_OF(o));
appendsOFile(fp,buf);
break;
}
case VCVT_RAW: {
appendcOFile(fp,'\n');
writeBase64(fp,(unsigned char*)(ANY_VALUE_OF(o)),size);
break;
}
case VCVT_VOBJECT:
appendcOFile(fp,'\n');
writeVObject_(fp,VOBJECT_VALUE_OF(o));
break;
}
}
DLLEXPORT(void) cleanVObject(VObject *o)
{
if (o == 0) return;
if (o->prop) {
/* destroy time: cannot use the iterator here.
Have to break the cycle in the circular link
list and turns it into regular NULL-terminated
list -- since at some point of destruction,
the reference entry for the iterator to work
will not longer be valid.
*/
VObject *p;
p = o->prop->next;
o->prop->next = 0;
do {
VObject *t = p->next;
cleanVObject(p);
p = t;
} while (p);
}
switch (VALUE_TYPE(o)) {
case VCVT_STRINGZ:
case VCVT_RAW:
// assume they are all allocated by malloc.
free((char*)STRINGZ_VALUE_OF(o));
break;
case VCVT_VOBJECT:
cleanVObject(VOBJECT_VALUE_OF(o));
break;
}
deleteVObject(o);
}
static void printValue(FILE *fp, VObject *o, int level)
{
switch (VALUE_TYPE(o)) {
case VCVT_USTRINGZ: {
char c;
char *t,*s;
s = t = fakeCString(USTRINGZ_VALUE_OF(o));
fputc('"',fp);
while (c=*t,c) {
fputc(c,fp);
if (c == '\n') indent(fp,level+2);
t++;
}
fputc('"',fp);
deleteStr(s);
break;
}
case VCVT_STRINGZ: {
char c;
const char *s = STRINGZ_VALUE_OF(o);
fputc('"',fp);
while (c=*s,c) {
fputc(c,fp);
if (c == '\n') indent(fp,level+2);
s++;
}
fputc('"',fp);
break;
}
case VCVT_UINT:
fprintf(fp,"%d", INTEGER_VALUE_OF(o)); break;
case VCVT_ULONG:
fprintf(fp,"%ld", LONG_VALUE_OF(o)); break;
case VCVT_RAW:
fprintf(fp,"[raw data]"); break;
case VCVT_VOBJECT:
fprintf(fp,"[vobject]\n");
printVObject_(fp,VOBJECT_VALUE_OF(o),level+1);
break;
case 0:
fprintf(fp,"[none]"); break;
default:
fprintf(fp,"[unknown]"); break;
}
}
static void writeValue(OFile *fp, VObject *o, unsigned long size)
{
if (o == 0) return;
switch (VALUE_TYPE(o)) {
case VCVT_USTRINGZ: {
char *s = fakeCString(USTRINGZ_VALUE_OF(o));
if (isAPropertyOf(o, VCQuotedPrintableProp))
writeQPString(fp, s, 1);
else
writeQPString(fp, s, 0);
deleteStr(s);
break;
}
case VCVT_STRINGZ: {
if (isAPropertyOf(o, VCQuotedPrintableProp))
writeQPString(fp, STRINGZ_VALUE_OF(o), 1);
else
writeQPString(fp, STRINGZ_VALUE_OF(o), 0);
break;
}
case VCVT_UINT: {
char buf[16];
snprintf(buf,sizeof(buf),"%u", INTEGER_VALUE_OF(o));
appendsOFile(fp,buf);
break;
}
case VCVT_ULONG: {
char buf[16];
snprintf(buf,sizeof(buf),"%lu", LONG_VALUE_OF(o));
appendsOFile(fp,buf);
break;
}
case VCVT_RAW: {
appendcOFile(fp,'\n');
writeBase64(fp,(unsigned char*)(ANY_VALUE_OF(o)),size);
break;
}
case VCVT_VOBJECT:
appendcOFile(fp,'\n');
writeVObject_(fp,VOBJECT_VALUE_OF(o));
break;
}
}
DLLEXPORT(void) setVObjectVObjectValue(VObject *o, VObject *p)
{
VOBJECT_VALUE_OF(o) = p;
VALUE_TYPE(o) = VCVT_VOBJECT;
}
DLLEXPORT(VObject*) vObjectVObjectValue(VObject *o)
{
return VOBJECT_VALUE_OF(o);
}
VObject* vObjectVObjectValue(VObject *o)
{
return VOBJECT_VALUE_OF(o);
}