summaryrefslogtreecommitdiff
path: root/lib/ZReadAscii.c
blob: b5ead0ef00c773a918c4b72f62800339baa793c0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
/* This file is part of the Project Athena Zephyr Notification System.
 * It contains source for the ZReadAscii function.
 *
 *	Created by:	Robert French
 *
 *	$Source$
 *	$Author$
 *
 *	Copyright (c) 1987 by the Massachusetts Institute of Technology.
 *	For copying and distribution information, see the file
 *	"mit-copyright.h". 
 */
/* $Header$ */

#ifndef lint
static char rcsid_ZReadAscii_c[] = "$Header$";
#endif lint

#include <zephyr/mit-copyright.h>

#include <zephyr/zephyr_internal.h>

int ZReadAscii(ptr, len, field, num)
    char *ptr;
    int len;
    unsigned char *field;
    int num;
{
    int i;
    unsigned int hexbyte;
    register char c1, c2;

    for (i=0;i<num;i++) {
	if (*ptr == ' ') {
	    ptr++;
	    if (--len < 0)
		return (ZERR_BADFIELD);
	} 
	if (ptr[0] == '0' && ptr[1] == 'x') {
	    ptr += 2;
	    len -= 2;
	    if (len < 0)
		return (ZERR_BADFIELD);
	} 
	c1 = cnvt_xtoi(ptr[0]);
	c2 = cnvt_xtoi(ptr[1]);
	if (c1 < 0 || c2 < 0)
		return(ZERR_BADFIELD);
	hexbyte = (c1 << 4) | c2;
	field[i] = hexbyte;
	ptr += 2;
	len -= 2;
	if (len < 0)
	    return (ZERR_BADFIELD);
    }

    if (*ptr)
	return (ZERR_BADFIELD);

    return (ZERR_NONE);
}

cnvt_xtoi(c)
    char c;
{
    c -= '0';
    if (c < 10)
	return (c);
    c -= 'A'-'9'-1;
    if (c < 16)
	return (c);
    c -= 'a'-'A';
    if (c > 15)
	return (-1);
    return (c);
}