ack/lang/cem/cemcom.ansi/skip.c

/*
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 */
/* $Id$ */
/* PREPROCESSOR: INPUT SKIP FUNCTIONS */

#include	"parameters.h"
#include	"arith.h"
#include	"LLlex.h"
#include	"class.h"
#include	"input.h"

#ifndef NOPP
extern int InputLevel;

int
skipspaces(ch, skipnl)
	register int ch;
{
	/*	skipspaces() skips any white space and returns the first
		non-space character.
	*/
	register int nlseen = 0;

	for (;;) {
		while (class(ch) == STSKIP)
			ch = GetChar();
		if (skipnl && class(ch) == STNL) {
			ch = GetChar();
			LineNumber++;
			nlseen++;
			continue;
		}
		if (ch == TOKSEP && InputLevel) {
			ch = GetChar();
			continue;
		}

		/* \\\n are handled by trigraph */

		if (ch == '/') {
			ch = GetChar();
			if (ch == '*' && !InputLevel) {
				skipcomment();
				ch = GetChar();
			}
			else	{
				UnGetChar();
				return '/';
			}
		}
		else if (nlseen && ch == '#') {
			domacro();
			ch = GetChar();
		} else
			return ch;
	}
}
#endif /* NOPP */

SkipToNewLine()
{
	register int ch;
	register int garbage = 0;
#ifndef	NOPP
	register int delim = 0;
#endif

	while ((ch = GetChar()) != '\n') {
#ifndef NOPP
		if (delim) {
			if (ch == '\\') {
				if (GetChar() == '\n') break;
			} else if (ch == delim) {
				delim = 0;
			}
			continue;
		}
		else if (ch == '\'' || ch == '\"') {
			delim = ch;
			garbage = 1;
		} else if (ch == '/') {
			if (GetChar() == '*'
			    && !InputLevel
			) {
				skipcomment();
				continue;
			}
			else UnGetChar();
		}
		else if (ch == TOKSEP && InputLevel) {
			continue;
		}
#endif
		if (!is_wsp(ch))
			garbage = 1;
	}
#ifndef	NOPP
	if (delim) strict("unclosed opening %c", delim);
#endif
	++LineNumber;
	return garbage;
}