Return to lexi.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / B / src / bed

BSD 4.3tahoe

/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */
static char rcsid[] = "$Header: /var/lib/cvsd/repos/CSRG/43BSDTahoe/new/B/src/bed/lexi.c,v 1.1.1.1 2018/04/24 16:12:58 root Exp $";

/*
 * B editor -- Lexical elements (identifiers, keywords, numbers etc.)
 */

#include <ctype.h>

#include "b.h"
#include "bobj.h"
#include "node.h"
#include "gram.h"


/*
 * Table defining lexical elements.
 *
 * ********** Indexed by (symbol-LEXICAL).
 */

Hidden char lowercase[] = "0123456789'\"abcdefghijklmnopqrstuvwxyz";
Hidden char uppercase[] = "0123456789'\"ABCDEFGHIJKLMNOPQRSTUVWXYZ";
Hidden char digits[] = "0123456789";

Hidden struct {
	string l_start;
	string l_continue;
} chclass[] = {
	{lowercase+12, lowercase,}, /* IDENT */
	{uppercase+12, uppercase,}, /* KEYWORD */
	{digits, digits,}, /* NUMBER */
	{"\\", "^",}, /* COMMENT */
	{"^`'", "^`'",}, /* TEXT1 */
	{"^`\"", "^`\"",}, /* TEXT2 */
	{".+-*/#^~@|<=>", "",}, /* OPERATORS */
	{"^", "^",}, /* RAW_INPUT */
	{"", "",}, /* SUGGESTION (dummy) */
};

#define NCHCLASS (sizeof(chclass)/sizeof(chclass[0]))


/*
 * Test whether character `c' may start a lexical element with
 * symbolic name `lex'.
 */

Visible bool
maystart(c, lex)
	char c;
	int lex;
{
	string cp;

	lex -= LEXICAL;
	Assert(lex >= 0);
	if (lex >= NCHCLASS || !isascii(c) || c != ' ' && !isprint(c))
		return No;
	cp = chclass[lex].l_start;
	if (*cp == '^')
		return !index(cp+1, c);
	return index(cp, c) != 0;
}


/*
 * Test whether character `c' may continue a lexical element with
 * symbolic name `lex'.
 */

Visible bool
maycontinue(c, lex)
	char c;
	int lex;
{
	string cp;

	lex -= LEXICAL;
	Assert(lex >= 0);
	if (lex >= NCHCLASS || !isascii(c) || c != ' ' && !isprint(c))
		return No;
	cp = chclass[lex].l_continue;
	if (*cp == '^')
		return !index(cp+1, c);
	return index(cp, c) != 0;
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.