|
|
BSD 4.3reno
/* str2sel.c - string to selector */
#ifndef lint
static char *rcsid = "$Header: /var/lib/cvsd/repos/CSRG/43BSDReno/contrib/isode-beta/compat/str2sel.c,v 1.1.1.1 2018/04/24 16:12:56 root Exp $";
#endif
/*
* $Header: /var/lib/cvsd/repos/CSRG/43BSDReno/contrib/isode-beta/compat/str2sel.c,v 1.1.1.1 2018/04/24 16:12:56 root Exp $
*
*
* $Log: str2sel.c,v $
* Revision 1.1.1.1 2018/04/24 16:12:56 root
* BSD 4.3reno
*
* Revision 7.0 89/11/23 21:23:37 mrose
* Release 6.0
*
*/
/*
* NOTICE
*
* Acquisition, use, and distribution of this module and related
* materials are subject to the restrictions of a license agreement.
* Consult the Preface in the User's Manual for the full terms of
* this agreement.
*
*/
/* LINTLIBRARY */
#include <ctype.h>
#include <stdio.h>
#include "general.h"
#include "manifest.h"
#include "tailor.h"
#define QUOTE '\\'
/* STR2SEL */
int str2sel (s, quoted, sel, n)
char *s,
*sel;
int quoted,
n;
{
int i,
r;
register char *cp;
if (*s == NULL)
return 0;
if (quoted <= 0) {
for (cp = s; *cp; cp++)
if (!isxdigit (*cp))
break;
if (*cp == NULL && (i = (cp - s)) >= 2 && (i & 0x01) == 0) {
if (i > (r = n * 2))
i = r;
i = implode ((u_char *) sel, s, i);
if ((r = (n - i)) > 0)
bzero (sel + i, r);
return i;
}
if (*s == '#') { /* gosip style, network byte-order */
i = atoi (s + 1);
sel[0] = (i >> 8) & 0xff;
sel[1] = i & 0xff;
return 2;
}
DLOG (compat_log, LLOG_EXCEPTIONS, ("invalid selector \"%s\"", s));
}
for (cp = sel; *s && n > 0; cp++, s++, n--)
if (*s != QUOTE)
*cp = *s;
else
switch (*++s) {
case 'b':
*cp = '\b';
break;
case 'f':
*cp = '\f';
break;
case 'n':
*cp = '\n';
break;
case 'r':
*cp = '\r';
break;
case 't':
*cp = '\t';
break;
case NULL:
s--;
case QUOTE:
*cp = QUOTE;
break;
default:
if (!isdigit (*s)) {
*cp++ = QUOTE;
*cp = *s;
break;
}
r = *s != '0' ? 10 : 8;
for (i = 0; isdigit (*s); s++)
i = i * r + *s - '0';
s--;
*cp = toascii (i);
break;
}
if (n > 0)
*cp = NULL;
return (cp - sel);
}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.