#include <stdlib.h>
#include <ctype.h>
#include <strings.h>
#include <limits.h>
#include <errno.h>
#include <dhcp_impl.h>
#include "dhcp_symbol.h"
typedef struct dsym_cat {
char *dc_string;
int dc_minlen;
dsym_category_t dc_id;
boolean_t dc_dhcptab;
ushort_t dc_min;
ushort_t dc_max;
} dsym_cat_t;
static dsym_cat_t cats[] = {
{ "Extend", 6, DSYM_EXTEND, B_TRUE, DHCP_LAST_STD + 1,
DHCP_SITE_OPT - 1 },
{ "Vendor=", 6, DSYM_VENDOR, B_TRUE, DHCP_FIRST_OPT,
DHCP_LAST_OPT },
{ "Site", 4, DSYM_SITE, B_TRUE, DHCP_SITE_OPT, DHCP_LAST_OPT },
{ "Standard", 8, DSYM_STANDARD, B_FALSE, DHCP_FIRST_OPT,
DHCP_LAST_STD },
{ "Field", 5, DSYM_FIELD, B_FALSE, CD_PACKET_START,
CD_PACKET_END },
{ "Internal", 8, DSYM_INTERNAL, B_FALSE, CD_INTRNL_START,
CD_INTRNL_END }
};
typedef struct dsym_type {
char *dt_string;
dsym_cdtype_t dt_id;
boolean_t dt_dhcptab;
} dsym_type_t;
static dsym_type_t types[] = {
{ "ASCII", DSYM_ASCII, B_TRUE },
{ "OCTET", DSYM_OCTET, B_TRUE },
{ "IP", DSYM_IP, B_TRUE },
{ "NUMBER", DSYM_NUMBER, B_TRUE },
{ "BOOL", DSYM_BOOL, B_TRUE },
{ "INCLUDE", DSYM_INCLUDE, B_FALSE },
{ "UNUMBER8", DSYM_UNUMBER8, B_TRUE },
{ "UNUMBER16", DSYM_UNUMBER16, B_TRUE },
{ "UNUMBER24", DSYM_UNUMBER24, B_TRUE },
{ "UNUMBER32", DSYM_UNUMBER32, B_TRUE },
{ "UNUMBER64", DSYM_UNUMBER64, B_TRUE },
{ "SNUMBER8", DSYM_SNUMBER8, B_TRUE },
{ "SNUMBER16", DSYM_SNUMBER16, B_TRUE },
{ "SNUMBER32", DSYM_SNUMBER32, B_TRUE },
{ "SNUMBER64", DSYM_SNUMBER64, B_TRUE },
{ "IPV6", DSYM_IPV6, B_TRUE },
{ "DUID", DSYM_DUID, B_TRUE },
{ "DOMAIN", DSYM_DOMAIN, B_TRUE }
};
#define DSYM_CLASS_DEL " \t\n"
#define DSYM_FIELD_DEL ","
#define DSYM_VENDOR_DEL '='
#define DSYM_QUOTE '"'
static void
dsym_trim(char **str)
{
char *tmpstr = *str;
while (*tmpstr != '\0' && isspace(*tmpstr)) {
tmpstr++;
}
*str = tmpstr;
if (*tmpstr == '\0') {
tmpstr = *str + strlen(*str) - 1;
while (tmpstr >= *str && isspace(*tmpstr)) {
tmpstr--;
}
*(tmpstr+1) = '\0';
}
}
static char *
dsym_get_token(char *str, char *dels, char **lasts, boolean_t quote_support)
{
char *ptr = str;
char *del;
boolean_t found = B_FALSE;
boolean_t in_quote = B_FALSE;
if (*ptr == '\0') {
return (NULL);
}
while (!found && *ptr != '\0') {
if (!in_quote) {
for (del = dels; !found && *del != '\0'; del++) {
if (*del == *ptr) {
*ptr++ = '\0';
found = B_TRUE;
}
}
}
if (!found) {
if (quote_support && *ptr == DSYM_QUOTE) {
in_quote = !in_quote;
}
ptr++;
}
}
*lasts = ptr;
return (str);
}
static dsym_errcode_t
dsym_get_long(const char *str, long *val)
{
int ret = DSYM_SUCCESS;
int i;
for (i = 0; str[i] != '\0'; i++) {
if (!isdigit(str[i])) {
return (DSYM_SYNTAX_ERROR);
}
}
errno = 0;
*val = strtol(str, NULL, 10);
if (errno != 0) {
ret = DSYM_VALUE_OUT_OF_RANGE;
}
return (ret);
}
void
dsym_free_classes(dhcp_classes_t *classes)
{
int i;
if (classes->dc_names == NULL) {
return;
}
for (i = 0; i < classes->dc_cnt; i++) {
free(classes->dc_names[i]);
}
free(classes->dc_names);
classes->dc_names = NULL;
classes->dc_cnt = 0;
}
static dsym_errcode_t
dsym_parse_classes(char *ptr, dhcp_classes_t *classes_ret)
{
char **classes = NULL;
char *cp;
int len;
int ret = DSYM_SUCCESS;
int i;
while (*ptr != '\0') {
if (*ptr == DSYM_VENDOR_DEL) {
ptr++;
break;
}
ptr++;
}
if (*ptr == '\0') {
return (DSYM_INVALID_CAT);
}
if (strlen(ptr) > DSYM_MAX_CLASS_SIZE) {
return (DSYM_EXCEEDS_MAX_CLASS_SIZE);
}
dsym_trim(&ptr);
classes_ret->dc_cnt = 0;
for (i = 0; ret == DSYM_SUCCESS; i++) {
cp = dsym_get_token(ptr, DSYM_CLASS_DEL, &ptr, B_TRUE);
if (cp == NULL) {
break;
}
len = strlen(cp);
if (len == 0) {
continue;
} else if (len > DSYM_CLASS_SIZE) {
ret = DSYM_EXCEEDS_CLASS_SIZE;
continue;
}
if (cp[0] == DSYM_QUOTE && cp[len-1] != DSYM_QUOTE) {
ret = DSYM_SYNTAX_ERROR;
continue;
}
if (cp[0] == DSYM_QUOTE) {
cp[len-1] = '\0';
cp++;
}
classes = realloc(classes_ret->dc_names,
(sizeof (char **)) * (classes_ret->dc_cnt + 1));
if (classes == NULL ||
(classes[classes_ret->dc_cnt] = strdup(cp))
== NULL) {
ret = DSYM_NO_MEMORY;
continue;
}
classes_ret->dc_names = classes;
classes_ret->dc_cnt++;
}
if (ret != DSYM_SUCCESS) {
dsym_free_classes(classes_ret);
}
return (ret);
}
static dsym_errcode_t
dsym_get_cat_by_name(const char *cat, dsym_cat_t **entry, boolean_t cs)
{
dsym_cat_t *entryp = NULL;
int ret = DSYM_SUCCESS;
int cnt = sizeof (cats) / sizeof (dsym_cat_t);
int result;
int len;
int i;
for (i = 0; i < cnt; i++) {
len = cats[i].dc_minlen;
if (cs) {
result = strncmp(cat, cats[i].dc_string, len);
} else {
result = strncasecmp(cat, cats[i].dc_string, len);
}
if (result == 0) {
entryp = &cats[i];
break;
}
}
if (entryp != NULL) {
const char *ptr = cat + entryp->dc_minlen;
if (entryp->dc_id == DSYM_VENDOR) {
while (*ptr != '\0' && isspace(*ptr)) {
ptr++;
}
if (*ptr != DSYM_VENDOR_DEL) {
ret = DSYM_INVALID_CAT;
}
} else {
if (*ptr != '\0') {
ret = DSYM_INVALID_CAT;
}
}
} else {
ret = DSYM_INVALID_CAT;
}
if (ret == DSYM_SUCCESS) {
*entry = entryp;
}
return (ret);
}
static dsym_errcode_t
dsym_parse_cat(const char *field, dsym_category_t *cat)
{
dsym_cat_t *entry;
int ret;
ret = dsym_get_cat_by_name(field, &entry, B_TRUE);
if (ret == DSYM_SUCCESS) {
if (entry->dc_dhcptab) {
*cat = entry->dc_id;
} else {
ret = DSYM_INVALID_CAT;
}
}
return (ret);
}
static dsym_errcode_t
dsym_parse_intrange(const char *field, int *intval, int min, int max)
{
int ret;
long longval;
ret = dsym_get_long(field, &longval);
if (ret == DSYM_SUCCESS) {
if (longval < min || longval > max) {
ret = DSYM_VALUE_OUT_OF_RANGE;
} else {
*intval = (int)longval;
}
}
return (ret);
}
static dsym_errcode_t
dsym_validate_code(dsym_category_t cat, ushort_t code)
{
int cnt = sizeof (cats) / sizeof (dsym_cat_t);
int i;
for (i = 0; i < cnt; i++) {
dsym_cat_t *entry;
if (cat == cats[i].dc_id) {
entry = &cats[i];
if (code < entry->dc_min || code > entry->dc_max) {
return (DSYM_CODE_OUT_OF_RANGE);
}
return (DSYM_SUCCESS);
}
}
return (DSYM_INVALID_CAT);
}
static dsym_errcode_t
dsym_validate_granularity(dsym_cdtype_t type, uchar_t gran)
{
if (gran == 0 && type != DSYM_BOOL) {
return (DSYM_VALUE_OUT_OF_RANGE);
}
return (DSYM_SUCCESS);
}
static dsym_errcode_t
dsym_get_type_by_name(const char *type, dsym_type_t **entry, boolean_t cs)
{
int cnt = sizeof (types) / sizeof (dsym_type_t);
int result;
int i;
for (i = 0; i < cnt; i++) {
if (cs) {
result = strcmp(type, types[i].dt_string);
} else {
result = strcasecmp(type, types[i].dt_string);
}
if (result == 0) {
*entry = &types[i];
return (DSYM_SUCCESS);
}
}
return (DSYM_INVALID_TYPE);
}
static dsym_errcode_t
dsym_parse_type(char *field, dsym_cdtype_t *type)
{
dsym_type_t *entry;
int ret;
ret = dsym_get_type_by_name(field, &entry, B_TRUE);
if (ret == DSYM_SUCCESS) {
if (entry->dt_dhcptab) {
*type = entry->dt_id;
} else {
ret = DSYM_INVALID_TYPE;
}
}
return (ret);
}
void
dsym_free_fields(char **fields)
{
int i;
if (fields != NULL) {
for (i = 0; i < DSYM_NUM_FIELDS; i++) {
free(fields[i]);
}
free(fields);
}
}
void
dsym_close_parser(char **fields, dhcp_symbol_t *sym)
{
dsym_free_fields(fields);
dsym_free_classes(&sym->ds_classes);
}
dsym_errcode_t
dsym_init_parser(const char *name, const char *value, char ***fields_ret,
dhcp_symbol_t *sym)
{
int ret = DSYM_SUCCESS;
char *cp;
char *next;
char *field;
char **fields;
int i;
sym->ds_category = 0;
sym->ds_code = 0;
(void) strlcpy(sym->ds_name, name, DSYM_MAX_SYM_LEN);
sym->ds_type = 0;
sym->ds_gran = 0;
sym->ds_max = 0;
sym->ds_classes.dc_names = NULL;
sym->ds_classes.dc_cnt = 0;
if ((cp = strdup(value)) == NULL ||
(fields = calloc(DSYM_NUM_FIELDS, sizeof (char *))) == NULL) {
ret = DSYM_NO_MEMORY;
}
next = cp;
for (i = 0; ret == DSYM_SUCCESS && i < DSYM_NUM_FIELDS; i++) {
field = dsym_get_token(next, DSYM_FIELD_DEL, &next,
B_FALSE);
if (field == NULL) {
ret = DSYM_NULL_FIELD;
continue;
}
dsym_trim(&field);
if (strlen(field) == 0) {
ret = DSYM_NULL_FIELD;
continue;
}
if ((fields[i] = strdup(field)) == NULL) {
ret = DSYM_NO_MEMORY;
continue;
}
}
if (ret == DSYM_SUCCESS &&
dsym_get_token(next, DSYM_FIELD_DEL, &next, B_FALSE) != NULL) {
ret = DSYM_TOO_MANY_FIELDS;
}
if (ret != DSYM_SUCCESS) {
dsym_free_fields(fields);
} else {
*fields_ret = fields;
}
free(cp);
return (ret);
}
dsym_errcode_t
dsym_parse_field(int field_num, char **fields, dhcp_symbol_t *sym)
{
int ret = DSYM_SUCCESS;
int intval;
switch (field_num) {
case DSYM_CAT_FIELD:
ret = dsym_parse_cat(fields[field_num], &sym->ds_category);
if (ret == DSYM_SUCCESS && sym->ds_category == DSYM_VENDOR) {
ret = dsym_parse_classes(fields[field_num],
&sym->ds_classes);
}
break;
case DSYM_CODE_FIELD:
ret = dsym_parse_intrange(fields[field_num], &intval, 0,
USHRT_MAX);
if (ret == DSYM_SUCCESS) {
sym->ds_code = (ushort_t)intval;
ret = dsym_validate_code(sym->ds_category,
sym->ds_code);
}
break;
case DSYM_TYPE_FIELD:
ret = dsym_parse_type(fields[field_num], &sym->ds_type);
break;
case DSYM_GRAN_FIELD:
ret = dsym_parse_intrange(fields[field_num], &intval, 0,
UCHAR_MAX);
if (ret == DSYM_SUCCESS) {
sym->ds_gran = (uchar_t)intval;
ret = dsym_validate_granularity(sym->ds_type,
sym->ds_gran);
}
break;
case DSYM_MAX_FIELD:
ret = dsym_parse_intrange(fields[field_num], &intval, 0,
UCHAR_MAX);
if (ret == DSYM_SUCCESS) {
sym->ds_max = (uchar_t)intval;
}
break;
default:
ret = DSYM_INVALID_FIELD_NUM;
}
return (ret);
}
dsym_errcode_t
dsym_parser(char **fields, dhcp_symbol_t *sym, int *lastField,
boolean_t bestEffort)
{
int ret = DSYM_SUCCESS;
int tret = DSYM_SUCCESS;
int i;
*lastField = -1;
for (i = DSYM_FIRST_FIELD;
tret == DSYM_SUCCESS && i < DSYM_NUM_FIELDS; i++) {
tret = dsym_parse_field(i, fields, sym);
if (tret != DSYM_SUCCESS) {
if (ret == DSYM_SUCCESS) {
ret = tret;
}
if (bestEffort) {
*lastField = i;
tret = DSYM_SUCCESS;
}
}
}
if (*lastField == -1) {
*lastField = i - 1;
}
return (ret);
}
dsym_errcode_t
dsym_get_cat_id(const char *cat, dsym_category_t *id, boolean_t cs)
{
dsym_cat_t *entry;
int ret;
ret = dsym_get_cat_by_name(cat, &entry, cs);
if (ret == DSYM_SUCCESS) {
*id = entry->dc_id;
}
return (ret);
}
dsym_errcode_t
dsym_get_code_ranges(const char *cat, ushort_t *min, ushort_t *max,
boolean_t cs)
{
dsym_cat_t *entry;
int ret;
ret = dsym_get_cat_by_name(cat, &entry, cs);
if (ret == DSYM_SUCCESS) {
*min = entry->dc_min;
*max = entry->dc_max;
}
return (ret);
}
dsym_errcode_t
dsym_get_type_id(const char *type, dsym_cdtype_t *id, boolean_t cs)
{
dsym_type_t *entry;
int ret;
ret = dsym_get_type_by_name(type, &entry, cs);
if (ret == DSYM_SUCCESS) {
*id = entry->dt_id;
}
return (ret);
}