Page MenuHomePhorge
Files F117749619

imparse.c
No OneTemporary
Actions

Authored By
Unknown
Size
4 KB
Referenced Files
None
Subscribers
None

imparse.c
View Options

/* imparse.c -- IMxP client-side parsing routines
$Id: imparse.c,v 1.6 1998/05/15 21:51:43 neplokh Exp $
# Copyright 1998 by Carnegie Mellon University
#
# All Rights Reserved
#
# Permission to use, copy, modify, and distribute this software and its
# documentation for any purpose and without fee is hereby granted,
# provided that the above copyright notice appear in all copies and that
# both that copyright notice and this permission notice appear in
# supporting documentation, and that the name of CMU not be
# used in advertising or publicity pertaining to distribution of the
# software without specific, written prior permission.
#
# CMU DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
# ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
# CMU BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
# ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
# WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
# ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
# SOFTWARE.
*
*/
#include <stdio.h>
#include <ctype.h>
#include "imparse.h"
/*
* Parse a word from the string starting at the pointer pointed to by 's'.
* Places a pointer to the parsed word in the pointer at 'retval',
* returns the character following the word, and modifies the pointer at
* 's' to point after the returned character. Modifies the input buffer.
*/
int imparse_word(s, retval)
char **s;
char **retval;
{
int c;
*retval = *s;
for (;;) {
c = *(*s)++;
if (!c || isspace(c) || c == '(' || c == ')' || c == '\"') {
(*s)[-1] = '\0';
return c;
}
}
}
/*
* Parse an astring from the string starting at the pointer pointed to
* by 's'. On success, places a pointer to the parsed word in the
* pointer at 'retval', returns the character following the word, and
* modifies the pointer at 's' to point after the returned character.
* On failure, returns EOF, modifies the pointer at 'retval' to point
* at the empty string, and modifies 's' to point around the syntax error.
* Modifies the input buffer.
*/
int imparse_astring(s, retval)
char **s;
char **retval;
{
int c;
char *d;
int len = 0;
int sawdigit;
switch (**s) {
case '\0':
case ' ':
case '(':
case ')':
case '\r':
case '\n':
/* Invalid starting character */
*retval = "";
return EOF;
default:
/*
* Atom -- parser is liberal in accepting specials other
* than whitespace, parens, or double quotes
*/
return imparse_word(s, retval);
case '\"':
/*
* Quoted-string. Parser is liberal in accepting qspecials
* other than double-quote, CR, and LF.
*/
*retval = d = ++(*s);
for (;;) {
c = *(*s)++;
if (c == '\\') {
c = *(*s)++;
}
else if (c == '\"') {
*d = '\0';
return *(*s)++;
}
else if (c == '\0' || c == '\r' || c == '\n') {
*retval = "";
return EOF;
}
*d++ = c;
}
case '{':
/* Literal */
(*s)++;
while (isdigit(c = *(*s)++)) {
sawdigit = 1;
len = len*10 + c - '0';
}
if (!sawdigit || c != '}' || *(*s)++ != '\r' || *(*s)++ != '\n') {
*retval = "";
return EOF;
}
*retval = *s;
*s += len;
c = **s;
*(*s)++ = '\0'; /* Note that 0 and '\0' mean the same thing */
return c;
}
}
/*
* Return nonzero if 's' matches the grammar for an atom
*/
int imparse_isatom(s)
const char *s;
{
int len = 0;
if (!*s) return 0;
for (; *s; s++) {
len++;
if (*s & 0x80 || *s < 0x1f || *s == 0x7f ||
*s == ' ' || *s == '{' || *s == '(' || *s == ')' ||
*s == '\"' || *s == '%' || *s == '*' || *s == '\\') return 0;
}
if (len >= 1024) return 0;
return 1;
}
/*
* Return nonzero if 's' matches the grammar for a sequence
*/
int imparse_issequence(s)
const char *s;
{
int c;
int len = 0;
int sawcolon = 0;
while (c = *s) {
if (c == ',') {
if (!len) return 0;
if (!isdigit(s[-1]) && s[-1] != '*') return 0;
sawcolon = 0;
}
else if (c == ':') {
if (sawcolon || !len) return 0;
if (!isdigit(s[-1]) && s[-1] != '*') return 0;
sawcolon = 1;
}
else if (c == '*') {
if (len && s[-1] != ',' && s[-1] != ':') return 0;
if (isdigit(s[1])) return 0;
}
else if (!isdigit(c)) {
return 0;
}
s++;
len++;
}
if (len == 0) return 0;
if (!isdigit(s[-1]) && s[-1] != '*') return 0;
return 1;
}
/*
* Return nonzero if 's' matches the grammar for a number
*/
int imparse_isnumber(s)
const char *s;
{
if (!*s) return 0;
for (; *s; s++) {
if (!isdigit(*s)) return 0;
}
return 1;
}

File Metadata

Mime Type
text/x-c
Expires
Sat, Apr 4, 1:42 AM (1 w, 4 d ago)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
18821983
Default Alt Text
imparse.c (4 KB)

Event Timeline