2 * Copyright (C) 1994, Index Data I/S
4 * Sebastian Hammer, Adam Dickmeiss
7 * Revision 1.2 1995-02-07 17:52:58 quinn
8 * A damn mess, but now things work, I think.
10 * Revision 1.1 1995/02/02 16:21:52 quinn
16 #include <netinet/in.h>
19 static int ber_encinteger(unsigned char *buf, int val, int maxlen);
20 static int ber_decinteger(unsigned char *buf, int *val);
22 int ber_integer(ODR o, int *val)
29 if ((res = ber_decinteger(o->bp, val)) <= 0)
35 if ((res = ber_encinteger(o->bp, *val, o->left)) <= 0)
40 case ODR_PRINT: return 1;
46 * Returns: number of bytes written or -1 for error (out of bounds).
48 int ber_encinteger(unsigned char *buf, int val, int maxlen)
50 unsigned char *b = buf, *lenpos;
52 union { int i; unsigned char c[sizeof(int)]; } tmp;
58 tmp.i = htonl(val); /* ensure that that we're big-endian */
59 for (a = 0; a < sizeof(int) - 1; a++) /* skip superfluous octets */
60 if (!((tmp.c[a] == 0 && !(tmp.c[a+1] & 0X80)) ||
61 (tmp.c[a] == 0XFF && (tmp.c[a+1] & 0X80))))
63 if ((len = sizeof(int) - a) > maxlen)
65 memcpy(b, tmp.c + a, len);
67 if (ber_enclen(lenpos, len, 1, 1) != 1)
69 fprintf(stderr, "[val=%d]", val);
74 * Returns: Number of bytes read or 0 if no match, -1 if error.
76 int ber_decinteger(unsigned char *buf, int *val)
78 unsigned char *b = buf, fill;
79 int res, len, remains;
80 union { int i; unsigned char c[sizeof(int)]; } tmp;
82 if ((res = ber_declen(b, &len)) < 0)
84 if (len > sizeof(int)) /* let's be reasonable, here */
88 remains = sizeof(int) - len;
89 memcpy(tmp.c + remains, b, len);
94 memset(tmp.c, fill, remains);
98 fprintf(stderr, "[val=%d]", *val);