* Sebastian Hammer, Adam Dickmeiss
*
* $Log: odr_oct.c,v $
- * Revision 1.3 1995-02-03 17:04:38 quinn
+ * Revision 1.6 1995-02-10 18:57:26 quinn
+ * More in the way of error-checking.
+ *
+ * Revision 1.5 1995/02/09 15:51:49 quinn
+ * Works better now.
+ *
+ * Revision 1.4 1995/02/07 14:13:46 quinn
+ * Bug fixes.
+ *
+ * Revision 1.3 1995/02/03 17:04:38 quinn
* *** empty log message ***
*
* Revision 1.2 1995/02/02 20:38:51 quinn
o->t_class = ODR_UNIVERSAL;
o->t_tag = ODR_OCTETSTRING;
}
- if ((res = ber_tag(o, *p, o->t_class, o->t_tag, &cons)) < 0)
+ if ((res = ber_tag(o, p, o->t_class, o->t_tag, &cons)) < 0)
return 0;
if (!res)
- {
- *p = 0;
return opt;
- }
if (o->direction == ODR_PRINT)
{
- fprintf(o->print, "OCTETSTRING(len=%d)\n", (*p)->len);
+ fprintf(o->print, "%sOCTETSTRING(len=%d)\n", odr_indent(o), (*p)->len);
return 1;
}
- if (o->direction == ODR_DECODE && !*p)
+ if (o->direction == ODR_DECODE)
{
*p = nalloc(o, sizeof(Odr_oct));
(*p)->size= 0;
(*p)->len = 0;
(*p)->buf = 0;
}
- return ber_octetstring(o, *p, cons);
+ if (ber_octetstring(o, *p, cons))
+ return 1;
+ *p = 0;
+ return 0;
}
/*
o->t_class = ODR_UNIVERSAL;
o->t_tag = ODR_OCTETSTRING;
}
- if ((res = ber_tag(o, *p, o->t_class, o->t_tag, &cons)) < 0)
+ if ((res = ber_tag(o, p, o->t_class, o->t_tag, &cons)) < 0)
return 0;
if (!res)
- {
- *p = 0;
return opt;
- }
if (o->direction == ODR_PRINT)
{
- fprintf(o->print, "'%s'\n", *p);
+ fprintf(o->print, "%s'%s'\n", odr_indent(o), *p);
return 1;
}
t = nalloc(o, sizeof(Odr_oct)); /* wrapper for octstring */