Wais length.
[yaz-moved-to-github.git] / comstack / waislen.c
1 /*
2  * Copyright (c) 1995, Index Data.
3  * See the file LICENSE for details.
4  * Sebastian Hammer, Adam Dickmeiss
5  *
6  * $Log: waislen.c,v $
7  * Revision 1.1  1996-02-20 13:02:58  quinn
8  * Wais length.
9  *
10  *
11  */
12
13 /*
14  * Return length of WAIS package or 0
15  */
16 int completeWAIS(unsigned char *buf, int len)
17 {
18     int i, lval = 0;
19
20     if (*buf != '0')
21         return 0;
22     if (len < 25)
23         return 0;
24     /* calculate length */
25     for (i = 0; i < 10; i++)
26         lval = lval * 10 + buf[i];
27     lval += 25;
28     if (len >= lval)
29         return lval;
30     return 0;
31 }