d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Run through clang-format before editing.

Browse source
This commit is contained in:
David Given 2018-09-02 11:49:40 +02:00
parent dd00b81080
commit 274ed3cb6a
2 changed files with 96 additions and 59 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

81
lang/cem/cemcom.ansi/skip.c
View file

@ -5,55 +5,61 @@
/* $Id$ */
/* PREPROCESSOR: INPUT SKIP FUNCTIONS */
#include "parameters.h"
#include "arith.h"
#include "LLlex.h"
#include "class.h"
#include "input.h"
#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;
int skipspaces(ch, skipnl) register int ch;
{
/* skipspaces() skips any white space and returns the first
non-space character.
non-space character.
*/
register int nlseen = 0;
for (;;) {
for (;;)
{
while (class(ch) == STSKIP)
ch = GetChar();
if (skipnl && class(ch) == STNL) {
if (skipnl && class(ch) == STNL)
{
ch = GetChar();
LineNumber++;
nlseen++;
continue;
}
if (ch == TOKSEP && InputLevel) {
if (ch == TOKSEP && InputLevel)
{
ch = GetChar();
continue;
}
/* \\\n are handled by trigraph */
if (ch == '/') {
if (ch == '/')
{
ch = GetChar();
if (ch == '*' && !InputLevel) {
if (ch == '*' && !InputLevel)
{
skipcomment();
ch = GetChar();
}
else {
else
{
UnGetChar();
return '/';
}
}
else if (nlseen && ch == '#') {
else if (nlseen && ch == '#')
{
domacro();
ch = GetChar();
} else
}
else
return ch;
}
}
@ -63,41 +69,52 @@ SkipToNewLine()
{
register int ch;
register int garbage = 0;
#ifndef NOPP
#ifndef NOPP
register int delim = 0;
#endif
while ((ch = GetChar()) != '\n') {
while ((ch = GetChar()) != '\n')
{
#ifndef NOPP
if (delim) {
if (ch == '\\') {
if (GetChar() == '\n') break;
} else if (ch == delim) {
if (delim)
{
if (ch == '\\')
{
if (GetChar() == '\n')
break;
}
else if (ch == delim)
{
delim = 0;
}
continue;
}
else if (ch == '\'' || ch == '\"') {
else if (ch == '\'' || ch == '\"')
{
delim = ch;
garbage = 1;
} else if (ch == '/') {
if (GetChar() == '*'
&& !InputLevel
) {
}
else if (ch == '/')
{
if (GetChar() == '*' && !InputLevel)
{
skipcomment();
continue;
}
else UnGetChar();
else
UnGetChar();
}
else if (ch == TOKSEP && InputLevel) {
else if (ch == TOKSEP && InputLevel)
{
continue;
}
#endif
if (!is_wsp(ch))
garbage = 1;
}
#ifndef NOPP
if (delim) strict("unclosed opening %c", delim);
#ifndef NOPP
if (delim)
strict("unclosed opening %c", delim);
#endif
++LineNumber;
return garbage;

74
lang/cem/cpp.ansi/skip.c
View file

@ -5,53 +5,59 @@
/* $Id$ */
/* PREPROCESSOR: INPUT SKIP FUNCTIONS */
#include "arith.h"
#include "LLlex.h"
#include "class.h"
#include "input.h"
#include "arith.h"
#include "LLlex.h"
#include "class.h"
#include "input.h"
extern int InputLevel;
int
skipspaces(ch, skipnl)
register int ch;
int skipspaces(ch, skipnl) register int ch;
{
/* skipspaces() skips any white space and returns the first
non-space character.
non-space character.
*/
register int nlseen = 0;
for (;;) {
for (;;)
{
while (class(ch) == STSKIP)
ch = GetChar();
if (skipnl && class(ch) == STNL) {
if (skipnl && class(ch) == STNL)
{
ch = GetChar();
LineNumber++;
nlseen++;
continue;
}
if (ch == TOKSEP && InputLevel) {
if (ch == TOKSEP && InputLevel)
{
ch = GetChar();
continue;
}
/* \\\n are handled by trigraph */
if (ch == '/') {
if (ch == '/')
{
ch = GetChar();
if (ch == '*' && !InputLevel) {
if (ch == '*' && !InputLevel)
{
skipcomment();
ch = GetChar();
}
else {
else
{
UnGetChar();
return '/';
}
}
else if (nlseen && ch == '#') {
else if (nlseen && ch == '#')
{
domacro();
ch = GetChar();
} else
}
else
return ch;
}
}
@ -62,31 +68,45 @@ SkipToNewLine()
register int garbage = 0;
register int delim = 0;
while ((ch = GetChar()) != '\n') {
if (delim) {
if (ch == '\\') {
if (GetChar() == '\n') break;
} else if (ch == delim) {
while ((ch = GetChar()) != '\n')
{
if (delim)
{
if (ch == '\\')
{
if (GetChar() == '\n')
break;
}
else if (ch == delim)
{
delim = 0;
}
continue;
} else if (ch == '\'' || ch == '\"') {
}
else if (ch == '\'' || ch == '\"')
{
delim = ch;
garbage = 1;
} else if (ch == '/') {
if (GetChar() == '*' && !InputLevel) {
}
else if (ch == '/')
{
if (GetChar() == '*' && !InputLevel)
{
skipcomment();
continue;
}
else UnGetChar();
else
UnGetChar();
}
else if (ch == TOKSEP && InputLevel) {
else if (ch == TOKSEP && InputLevel)
{
continue;
}
if (!is_wsp(ch))
garbage = 1;
}
if (delim) strict("unclosed opening %c", delim);
if (delim)
strict("unclosed opening %c", delim);
++LineNumber;
return garbage;
}