X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=odr%2Fdumpber.c;h=b52cabdb3e391feb32084f82da6a0fceea1cb5e2;hb=e37f1b24803ae41bba736eabdc14851018578abc;hp=3daba15cc65117bef4427e83459d54f1137b3347;hpb=9f397feecfd366f335e8a7e30b13431790c00f84;p=yaz-moved-to-github.git diff --git a/odr/dumpber.c b/odr/dumpber.c index 3daba15..b52cabd 100644 --- a/odr/dumpber.c +++ b/odr/dumpber.c @@ -4,7 +4,16 @@ * Sebastian Hammer, Adam Dickmeiss * * $Log: dumpber.c,v $ - * Revision 1.2 1995-06-27 13:20:51 quinn + * Revision 1.5 1995-10-18 16:12:55 quinn + * Better diagnostics. Added special case in NULL to handle WAIS server. + * + * Revision 1.4 1995/09/29 17:12:21 quinn + * Smallish + * + * Revision 1.3 1995/09/27 15:02:57 quinn + * Modified function heads & prototypes. + * + * Revision 1.2 1995/06/27 13:20:51 quinn * Fixed sign-clash. Non-fatal warning * * Revision 1.1 1995/06/19 12:38:45 quinn @@ -16,7 +25,7 @@ #include #include -static int do_dumpBER(FILE *f, char *buf, int len, int level) +static int do_dumpBER(FILE *f, char *buf, int len, int level, int offset) { int res, ll, class, tag, cons; char *b = buf; @@ -32,7 +41,7 @@ static int do_dumpBER(FILE *f, char *buf, int len, int level) fprintf(stderr, "Unexpected end of buffer\n"); return 0; } - fprintf(stderr, "%*s", level * 4, ""); + fprintf(stderr, "%5d: %*s", offset, level * 4, ""); if (class == ODR_UNIVERSAL) { static char *nl[] = @@ -88,7 +97,7 @@ static int do_dumpBER(FILE *f, char *buf, int len, int level) { if (ll == -1 && *b == 0 && *(b + 1) == 0) break; - if (!(res = do_dumpBER(f, b, len, level + 1))) + if (!(res = do_dumpBER(f, b, len, level + 1, offset + (b - buf)))) { fprintf(stderr, "Dump of content element failed.\n"); return 0; @@ -110,5 +119,5 @@ static int do_dumpBER(FILE *f, char *buf, int len, int level) int odr_dumpBER(FILE *f, char *buf, int len) { - return do_dumpBER(f, buf, len, 0); + return do_dumpBER(f, buf, len, 0, 0); }