X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=marc.c;h=d3ba72fce989ebf7283225ec29b43bcce58cd25d;hb=f20928a0fccad0c1f312bb40377198a74c323e31;hp=6322dc609049803cadcc864b49358edf478e129a;hpb=ed6b88adb8132f4668c60113532d5c2da34523e7;p=ir-tcl-moved-to-github.git diff --git a/marc.c b/marc.c index 6322dc6..d3ba72f 100644 --- a/marc.c +++ b/marc.c @@ -5,7 +5,12 @@ * Sebastian Hammer, Adam Dickmeiss * * $Log: marc.c,v $ - * Revision 1.3 1995-05-29 08:44:26 adam + * Revision 1.4 1995-06-22 13:15:09 adam + * Feature: SUTRS. Setting getSutrs implemented. + * Work on display formats. + * Preferred record syntax can be set by the user. + * + * Revision 1.3 1995/05/29 08:44:26 adam * Work on delete of objects. * * Revision 1.2 1995/05/26 11:44:11 adam @@ -36,6 +41,8 @@ static int atoi_n (const char *buf, int len) { if (isdigit (*buf)) val = val*10 + (*buf - '0'); + else if (*buf != ' ') + return 0; buf++; } return val; @@ -103,6 +110,11 @@ int ir_tcl_get_marc (Tcl_Interp *interp, const char *buf, Tcl_AppendResult (interp, "Unknown MARC extract mode", NULL); return TCL_ERROR; } + if (!buf) + { + Tcl_AppendResult (interp, "Not a MARC record", NULL); + return TCL_ERROR; + } record_length = atoi_n (buf, 5); if (record_length < 25) {