#include <NetInfo/dsrecord.h>
#include <NetInfo/dsutil.h>
#include <NetInfo/dsx500.h>
#include <string.h>
#include <stdlib.h>
#include <stdio.h>
char *
copyString(char *s)
{
int len;
char *t;
if (s == NULL) return NULL;
len = strlen(s) + 1;
t = malloc(len);
memmove(t, s, len);
return t;
}
char *
concatString(char *s, char *t)
{
int len;
if (t == NULL) return s;
len = strlen(s) + strlen(t) + 1;
s = realloc(s, len);
strcat(s, t);
return s;
}
char **
insertString(char *s, char **l, unsigned int x)
{
int i, len;
if (s == NULL) return l;
if (l == NULL)
{
l = (char **)malloc(2 * sizeof(char *));
l[0] = copyString(s);
l[1] = NULL;
return l;
}
for (i = 0; l[i] != NULL; i++);
len = i + 1;
l = (char **)realloc(l, (len + 1) * sizeof(char *));
if ((x >= (len - 1)) || (x == IndexNull))
{
l[len - 1] = copyString(s);
l[len] = NULL;
return l;
}
for (i = len; i > x; i--) l[i] = l[i - 1];
l[x] = copyString(s);
return l;
}
char **
appendString(char *s, char **l)
{
return insertString(s, l, IndexNull);
}
void
freeList(char **l)
{
int i;
if (l == NULL) return;
for (i = 0; l[i] != NULL; i++)
{
if (l[i] != NULL) free(l[i]);
l[i] = NULL;
}
free(l);
}
void
freeString(char *s)
{
if (s == NULL) return;
free(s);
}
unsigned int
listLength(char **l)
{
int i;
if (l == NULL) return 0;
for (i = 0; l[i] != NULL; i++);
return i;
}
unsigned int
listIndex(char *s, char **l)
{
int i;
if (l == NULL) return IndexNull;
for (i = 0; l[i] != NULL; i++)
{
if (strcmp(s, l[i]) == 0) return i;
}
return IndexNull;
}
char *
prefix(char *s, char c)
{
int i;
char *t;
if (s == NULL) return NULL;
for (i = 0; ((s[i] != '\0') && (s[i] != c)); i++);
if (i == 0) return NULL;
if (s[i] == '\0') return copyString(s);
t = malloc(i + 1);
bcopy(s, t, i);
t[i] = '\0';
return t;
}
char *
postfix(char *s, char c)
{
int i, len;
char *t;
if (s == NULL) return NULL;
for (i = 0; ((s[i] != '\0') && (s[i] != c)); i++);
if (s[i] == '\0') return NULL;
len = strlen(s) - i;
if (len == 1) return NULL;
t = malloc(len);
len--;
bcopy((s + i + 1), t, len);
t[len] = '\0';
return t;
}
char *
presuffix(char *s, char c)
{
int i, len;
char *t;
if (s == NULL) return NULL;
len = strlen(s);
for (i = len - 1; ((i >= 0) && (s[i] != c)); i--);
if (i == 0) return NULL;
if (s[0] == '\0') return NULL;
t = malloc(i + 1);
bcopy(s, t, i);
t[i] = '\0';
return t;
}
char *
suffix(char *s, char c)
{
int i, len;
char *t;
if (s == NULL) return NULL;
len = strlen(s);
for (i = len - 1; ((i >= 0) && (s[i] != c)); i--);
if (i == 0) return NULL;
len -= i;
if (len == 1) return NULL;
t = malloc(len);
len--;
bcopy((s + i + 1), t, len);
t[len] = '\0';
return t;
}
char *
lowerCase(char *s)
{
int i;
char *t;
if (s == NULL) return NULL;
t = malloc(strlen(s) + 1);
for (i = 0; s[i] != '\0'; i++)
{
if ((s[i] >= 'A') && (s[i] <= 'Z')) t[i] = s[i] + 32;
else t[i] = s[i];
}
t[i] = '\0';
return t;
}
unsigned int
stringIndex(char c, char *s)
{
int i;
char *p;
if (s == NULL) return IndexNull;
for (i = 0, p = s; p[0] != '\0'; p++, i++)
{
if (p[0] == c) return i;
}
return IndexNull;
}
char **
explode(char *s, char *delim)
{
char **l = NULL;
char *p, *t;
int i, n;
if (s == NULL) return NULL;
p = s;
while (p[0] != '\0')
{
for (i = 0; ((p[i] != '\0') && (stringIndex(p[i], delim) == IndexNull)); i++);
n = i;
t = malloc(n + 1);
for (i = 0; i < n; i++) t[i] = p[i];
t[n] = '\0';
l = appendString(t, l);
free(t);
t = NULL;
if (p[i] == '\0') return l;
if (p[i + 1] == '\0') l = appendString("", l);
p = p + i + 1;
}
return l;
}
char *
itoa(int n)
{
char s[64];
sprintf(s, "%d", n);
return copyString(s);
}
dsrecord *
dsutil_parse_netinfo_string_path(char *path)
{
dsrecord *p;
char *c, *s, *eq;
u_int32_t i, n, m;
dsdata *k, *v;
dsattribute *a;
if (path == NULL) return NULL;
p = dsrecord_new();
c = path;
while (c[0] == '/') c++;
while (c[0] != '\0')
{
for (i = 0; c[i] != '\0'; i++)
{
if (c[i] == '\\')
{
if (c [i+1] == '\0') c[i] = '\0';
else i++;
continue;
}
if (c[i] == '/') break;
}
if (i == 0) break;
s = malloc(i + 1);
m = 0;
eq = NULL;
for (n = 0; n < i; n++)
{
if (c[n] == '\\')
{
if (c[n+1] == '\\') s[m++] = c[n];
continue;
}
if (c[n] == '=') eq = s + m;
s[m++] = c[n];
}
s[m] = '\0';
if (eq != NULL)
{
*eq = '\0';
k = cstring_to_dsdata(s);
v = cstring_to_dsdata(eq+1);
}
else
{
k = cstring_to_dsdata("name");
v = cstring_to_dsdata(s);
}
free(s);
a = dsattribute_new(k);
dsattribute_append(a, v);
dsdata_release(k);
dsdata_release(v);
dsrecord_append_attribute(p, a, SELECT_ATTRIBUTE);
dsattribute_release(a);
c += i;
while (c[0] == '/') c++;
}
return p;
}
dsrecord *
dsutil_parse_x500_string_path(char *path)
{
dsrecord *r;
char **exploded;
u_int32_t max;
int i;
char *k, *v;
dsdata *_k, *_v;
dsattribute *a;
if (path == NULL) return NULL;
exploded = dsx500_explode_dn(path, 0);
if (exploded == NULL) return NULL;
r = dsrecord_new();
max = listLength(exploded);
if (max > 0) max--;
for (i = max; i >= 0; --i)
{
k = dsx500_rdn_attr_type(exploded[i]);
_k = cstring_to_dsdata(k);
free(k);
if (_k == NULL)
{
freeList(exploded);
dsrecord_release(r);
return NULL;
}
v = dsx500_rdn_attr_value(exploded[i]);
_v = cstring_to_dsdata(v);
free(v);
if (_v == NULL)
{
freeList(exploded);
dsdata_release(_k);
dsrecord_release(r);
return NULL;
}
a = dsattribute_new(_k);
dsattribute_append(a, _v);
dsdata_release(_k);
dsdata_release(_v);
dsrecord_append_attribute(r, a, SELECT_ATTRIBUTE);
dsattribute_release(a);
}
freeList(exploded);
return r;
}
dsattribute *
dsattribute_from_cstrings(char *key, ...)
{
dsattribute *a;
dsdata *d;
char *s;
va_list ap;
if (key == NULL) return NULL;
d = cstring_to_dsdata(key);
a = dsattribute_new(d);
dsdata_release(d);
va_start(ap, key);
while (NULL != (s = va_arg(ap, char *)))
{
d = cstring_to_dsdata(s);
dsattribute_append(a, d);
dsdata_release(d);
}
va_end(ap);
return a;
}
void
dsattribute_append_cstring_value(dsattribute *a, char *v)
{
dsdata *d;
if (a == NULL) return;
if (v == NULL) return;
d = cstring_to_dsdata(v);
dsattribute_append(a, d);
dsdata_release(d);
}