Run through clang-format before editing.
This commit is contained in:
David Given
parent
274ed3cb6a
commit
0e9736fdca
|
|
@ -5,77 +5,88 @@
|
|||
/* $Id$ */
|
||||
/* PREPROCESSOR DRIVER */
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <stdio.h>
|
||||
#include <system.h>
|
||||
#include <alloc.h>
|
||||
#include "input.h"
|
||||
#include "parameters.h"
|
||||
#include "arith.h"
|
||||
#include "LLlex.h"
|
||||
#include "class.h"
|
||||
#include "macro.h"
|
||||
#include "idf.h"
|
||||
#include "bits.h"
|
||||
#include <stdlib.h>
|
||||
#include <stdio.h>
|
||||
#include <system.h>
|
||||
#include <alloc.h>
|
||||
#include "input.h"
|
||||
#include "parameters.h"
|
||||
#include "arith.h"
|
||||
#include "LLlex.h"
|
||||
#include "class.h"
|
||||
#include "macro.h"
|
||||
#include "idf.h"
|
||||
#include "bits.h"
|
||||
|
||||
char _obuf[OBUFSIZE];
|
||||
char _obuf[OBUFSIZE];
|
||||
#ifdef DOBITS
|
||||
char bits[128];
|
||||
char bits[128];
|
||||
#endif
|
||||
extern int InputLevel;
|
||||
|
||||
extern char *sprint();
|
||||
extern char* sprint();
|
||||
|
||||
Xflush()
|
||||
{
|
||||
sys_write(STDOUT, _obuf, OBUFSIZE);
|
||||
}
|
||||
|
||||
static char *SkipComment();
|
||||
static char* SkipComment();
|
||||
extern char options[];
|
||||
|
||||
/* #pragma directives are saved here and passed to the compiler later on.
|
||||
*/
|
||||
struct prag_info {
|
||||
int pr_linnr;
|
||||
char *pr_fil;
|
||||
char *pr_text;
|
||||
struct prag_info
|
||||
{
|
||||
int pr_linnr;
|
||||
char* pr_fil;
|
||||
char* pr_text;
|
||||
};
|
||||
static struct prag_info *pragma_tab;
|
||||
static struct prag_info* pragma_tab;
|
||||
static int pragma_nr;
|
||||
|
||||
do_pragma()
|
||||
{
|
||||
register int size = ITEXTSIZE;
|
||||
char *cur_line = Malloc((unsigned)size);
|
||||
register char *c_ptr = cur_line;
|
||||
char* cur_line = Malloc((unsigned)size);
|
||||
register char* c_ptr = cur_line;
|
||||
register int c = GetChar();
|
||||
register int delim = 0;
|
||||
|
||||
while(c != '\n') {
|
||||
if (c_ptr + 1 - cur_line == size) {
|
||||
while (c != '\n')
|
||||
{
|
||||
if (c_ptr + 1 - cur_line == size)
|
||||
{
|
||||
cur_line = Realloc(cur_line, (unsigned)(size + ITEXTSIZE));
|
||||
c_ptr = cur_line + size - 1;
|
||||
size += ITEXTSIZE;
|
||||
}
|
||||
if (delim) {
|
||||
if (c == delim) {
|
||||
if (delim)
|
||||
{
|
||||
if (c == delim)
|
||||
{
|
||||
delim = 0;
|
||||
}
|
||||
else if (c == '\\') {
|
||||
else if (c == '\\')
|
||||
{
|
||||
*c_ptr++ = c;
|
||||
c = GetChar();
|
||||
if (c == '\n') break;
|
||||
if (c == '\n')
|
||||
break;
|
||||
}
|
||||
}
|
||||
else if (c == '\'' || c == '"') {
|
||||
else if (c == '\'' || c == '"')
|
||||
{
|
||||
delim = c;
|
||||
}
|
||||
else if (c == '/') {
|
||||
if ((c = GetChar()) != '*' || InputLevel) {
|
||||
else if (c == '/')
|
||||
{
|
||||
if ((c = GetChar()) != '*' || InputLevel)
|
||||
{
|
||||
*c_ptr++ = '/';
|
||||
}
|
||||
else {
|
||||
else
|
||||
{
|
||||
skipcomment();
|
||||
continue;
|
||||
}
|
||||
|
|
@ -84,13 +95,17 @@ do_pragma()
|
|||
c = GetChar();
|
||||
}
|
||||
*c_ptr = '\0';
|
||||
if (!pragma_nr) {
|
||||
pragma_tab = (struct prag_info *)Malloc(sizeof(struct prag_info));
|
||||
} else {
|
||||
pragma_tab = (struct prag_info *)Realloc((char *)pragma_tab
|
||||
, (unsigned)(sizeof(struct prag_info) * (pragma_nr+1)));
|
||||
if (!pragma_nr)
|
||||
{
|
||||
pragma_tab = (struct prag_info*)Malloc(sizeof(struct prag_info));
|
||||
}
|
||||
if (delim) {
|
||||
else
|
||||
{
|
||||
pragma_tab = (struct prag_info*)Realloc(
|
||||
(char*)pragma_tab, (unsigned)(sizeof(struct prag_info) * (pragma_nr + 1)));
|
||||
}
|
||||
if (delim)
|
||||
{
|
||||
error("unclosed opening %c", delim);
|
||||
}
|
||||
pragma_tab[pragma_nr].pr_linnr = LineNumber;
|
||||
|
|
@ -102,138 +117,176 @@ do_pragma()
|
|||
|
||||
char Xbuf[256];
|
||||
|
||||
void
|
||||
preprocess(fn)
|
||||
char *fn;
|
||||
void preprocess(fn) char* fn;
|
||||
{
|
||||
register int c;
|
||||
register char *op = _obuf;
|
||||
register char *ob = &_obuf[OBUFSIZE];
|
||||
register char* op = _obuf;
|
||||
register char* ob = &_obuf[OBUFSIZE];
|
||||
int lineno = 0;
|
||||
int startline;
|
||||
|
||||
#define flush(X) (sys_write(STDOUT,_obuf,X))
|
||||
#define echo(ch) if (op == ob) { Xflush(); op = _obuf; } *op++ = (ch);
|
||||
#define newline() op--; while (op >= _obuf && (*op == ' ' || *op == '\t')) op--; op++; echo('\n')
|
||||
#define flush(X) (sys_write(STDOUT, _obuf, X))
|
||||
#define echo(ch) \
|
||||
if (op == ob) \
|
||||
{ \
|
||||
Xflush(); \
|
||||
op = _obuf; \
|
||||
} \
|
||||
*op++ = (ch);
|
||||
#define newline() \
|
||||
op--; \
|
||||
while (op >= _obuf && (*op == ' ' || *op == '\t')) \
|
||||
op--; \
|
||||
op++; \
|
||||
echo('\n')
|
||||
|
||||
if (!options['P']) {
|
||||
if (!options['P'])
|
||||
{
|
||||
/* Generate a line directive communicating the
|
||||
source filename
|
||||
*/
|
||||
register char *p = Xbuf;
|
||||
register char* p = Xbuf;
|
||||
|
||||
sprint(p, "%s 1 \"%s\"\n",
|
||||
LINE_PREFIX,
|
||||
FileName);
|
||||
while (*p) {
|
||||
sprint(p, "%s 1 \"%s\"\n", LINE_PREFIX, FileName);
|
||||
while (*p)
|
||||
{
|
||||
echo(*p++);
|
||||
}
|
||||
}
|
||||
|
||||
#define do_line_dir(lineno, fn) \
|
||||
if (lineno != LineNumber || fn != FileName) { \
|
||||
fn = FileName; \
|
||||
lineno = LineNumber; \
|
||||
if (! options['P']) { \
|
||||
register char *p = Xbuf; \
|
||||
sprint(Xbuf, "%s %d \"%s\"\n", \
|
||||
LINE_PREFIX, \
|
||||
(int)LineNumber, \
|
||||
FileName); \
|
||||
op--; \
|
||||
while (op >= _obuf \
|
||||
&& (class(*op) == STSKIP \
|
||||
|| *op == '\n')) op--; \
|
||||
op++; \
|
||||
newline(); \
|
||||
while (*p) { \
|
||||
echo(*p++); \
|
||||
} \
|
||||
} \
|
||||
}
|
||||
#define do_line_dir(lineno, fn) \
|
||||
if (lineno != LineNumber || fn != FileName) \
|
||||
{ \
|
||||
fn = FileName; \
|
||||
lineno = LineNumber; \
|
||||
if (!options['P']) \
|
||||
{ \
|
||||
register char* p = Xbuf; \
|
||||
sprint(Xbuf, "%s %d \"%s\"\n", LINE_PREFIX, (int)LineNumber, FileName); \
|
||||
op--; \
|
||||
while (op >= _obuf && (class(*op) == STSKIP || *op == '\n')) \
|
||||
op--; \
|
||||
op++; \
|
||||
newline(); \
|
||||
while (*p) \
|
||||
{ \
|
||||
echo(*p++); \
|
||||
} \
|
||||
} \
|
||||
}
|
||||
|
||||
for (;;) {
|
||||
for (;;)
|
||||
{
|
||||
LineNumber++;
|
||||
lineno++;
|
||||
startline = 1;
|
||||
c = GetChar();
|
||||
while (startline) {
|
||||
/* first flush the saved pragma's */
|
||||
if (pragma_nr) {
|
||||
while (startline)
|
||||
{
|
||||
/* first flush the saved pragma's */
|
||||
if (pragma_nr)
|
||||
{
|
||||
register int i = 0;
|
||||
int LiNo = LineNumber;
|
||||
char *FiNam = FileName;
|
||||
|
||||
while (i < pragma_nr) {
|
||||
register char *c_ptr = "#pragma";
|
||||
|
||||
LineNumber = pragma_tab[i].pr_linnr;
|
||||
FileName = pragma_tab[i].pr_fil;
|
||||
do_line_dir(lineno, fn);
|
||||
while (*c_ptr) { echo(*c_ptr++); }
|
||||
c_ptr = pragma_tab[i].pr_text;
|
||||
while (*c_ptr) { echo(*c_ptr++); }
|
||||
newline(); lineno++;
|
||||
free(pragma_tab[i].pr_text);
|
||||
i++;
|
||||
char* FiNam = FileName;
|
||||
|
||||
while (i < pragma_nr)
|
||||
{
|
||||
register char* c_ptr = "#pragma";
|
||||
|
||||
LineNumber = pragma_tab[i].pr_linnr;
|
||||
FileName = pragma_tab[i].pr_fil;
|
||||
do_line_dir(lineno, fn);
|
||||
while (*c_ptr)
|
||||
{
|
||||
echo(*c_ptr++);
|
||||
}
|
||||
c_ptr = pragma_tab[i].pr_text;
|
||||
while (*c_ptr)
|
||||
{
|
||||
echo(*c_ptr++);
|
||||
}
|
||||
newline();
|
||||
lineno++;
|
||||
free(pragma_tab[i].pr_text);
|
||||
i++;
|
||||
}
|
||||
free((char *) pragma_tab);
|
||||
pragma_tab = (struct prag_info *)0;
|
||||
free((char*)pragma_tab);
|
||||
pragma_tab = (struct prag_info*)0;
|
||||
pragma_nr = 0;
|
||||
LineNumber = LiNo;
|
||||
FileName = FiNam;
|
||||
do_line_dir(lineno, fn);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
while (class(c) == STSKIP || c == '/') {
|
||||
if (c == '/') {
|
||||
if (!InputLevel) {
|
||||
c = GetChar();
|
||||
if (c == '*') {
|
||||
op = SkipComment(op, &lineno);
|
||||
if (!op) return;
|
||||
if (!options['C']) { echo(' '); }
|
||||
c = GetChar();
|
||||
continue;
|
||||
while (class(c) == STSKIP || c == '/')
|
||||
{
|
||||
if (c == '/')
|
||||
{
|
||||
if (!InputLevel)
|
||||
{
|
||||
c = GetChar();
|
||||
if (c == '*')
|
||||
{
|
||||
op = SkipComment(op, &lineno);
|
||||
if (!op)
|
||||
return;
|
||||
if (!options['C'])
|
||||
{
|
||||
echo(' ');
|
||||
}
|
||||
c = GetChar();
|
||||
continue;
|
||||
}
|
||||
UnGetChar();
|
||||
c = '/';
|
||||
}
|
||||
UnGetChar();
|
||||
c = '/';
|
||||
}
|
||||
break;
|
||||
break;
|
||||
}
|
||||
echo(c);
|
||||
c = GetChar();
|
||||
}
|
||||
}
|
||||
|
||||
if (c == '#') {
|
||||
if (c == '#')
|
||||
{
|
||||
domacro();
|
||||
lineno++;
|
||||
newline();
|
||||
do_line_dir(lineno, fn);
|
||||
c = GetChar();
|
||||
} else startline = 0;
|
||||
}
|
||||
else
|
||||
startline = 0;
|
||||
}
|
||||
do_line_dir(lineno, fn);
|
||||
for (;;) {
|
||||
for (;;)
|
||||
{
|
||||
|
||||
/* illegal character */
|
||||
if (c & 0200) {
|
||||
if (c == EOI) {
|
||||
if (c & 0200)
|
||||
{
|
||||
if (c == EOI)
|
||||
{
|
||||
newline();
|
||||
flush((int)(op-_obuf));
|
||||
flush((int)(op - _obuf));
|
||||
return;
|
||||
}
|
||||
fatal("non-ascii character read");
|
||||
}
|
||||
|
||||
/* comments */
|
||||
if (c == '/' && !InputLevel) {
|
||||
if (c == '/' && !InputLevel)
|
||||
{
|
||||
c = GetChar();
|
||||
if (c == '*') {
|
||||
if (c == '*')
|
||||
{
|
||||
op = SkipComment(op, &lineno);
|
||||
if (!op) return;
|
||||
if (!options['C']) { echo(' '); }
|
||||
if (!op)
|
||||
return;
|
||||
if (!options['C'])
|
||||
{
|
||||
echo(' ');
|
||||
}
|
||||
c = GetChar();
|
||||
continue;
|
||||
}
|
||||
|
|
@ -242,164 +295,221 @@ preprocess(fn)
|
|||
}
|
||||
|
||||
/* switch on character */
|
||||
switch(class(c)) {
|
||||
case STNL:
|
||||
newline();
|
||||
break;
|
||||
case STSTR:
|
||||
case STCHAR:
|
||||
switch (class(c))
|
||||
{
|
||||
case STNL:
|
||||
newline();
|
||||
break;
|
||||
case STSTR:
|
||||
case STCHAR:
|
||||
{
|
||||
register int stopc = c;
|
||||
int escaped;
|
||||
register int stopc = c;
|
||||
int escaped;
|
||||
|
||||
do {
|
||||
escaped = 0;
|
||||
echo(c);
|
||||
c = GetChar();
|
||||
if (c == '\n') {
|
||||
/* the compiler will complain */
|
||||
break;
|
||||
}
|
||||
else if (c == EOI) {
|
||||
newline();
|
||||
flush((int)(op-_obuf));
|
||||
return;
|
||||
}
|
||||
if (c == '\\') {
|
||||
do
|
||||
{
|
||||
escaped = 0;
|
||||
echo(c);
|
||||
c = GetChar();
|
||||
if (c == '\n') {
|
||||
++LineNumber;
|
||||
lineno++;
|
||||
} else escaped = 1;
|
||||
}
|
||||
} while (escaped || c != stopc);
|
||||
echo(c);
|
||||
if (c == '\n')
|
||||
break; /* Don't eat # */
|
||||
c = GetChar();
|
||||
continue;
|
||||
}
|
||||
case STNUM:
|
||||
/* The following code is quit ugly. This because
|
||||
* ..3 == . .3 , whereas ...3 == ... 3
|
||||
*/
|
||||
echo(c);
|
||||
if (c == '.') {
|
||||
if (c == '\n')
|
||||
{
|
||||
/* the compiler will complain */
|
||||
break;
|
||||
}
|
||||
else if (c == EOI)
|
||||
{
|
||||
newline();
|
||||
flush((int)(op - _obuf));
|
||||
return;
|
||||
}
|
||||
if (c == '\\')
|
||||
{
|
||||
echo(c);
|
||||
c = GetChar();
|
||||
if (c == '\n')
|
||||
{
|
||||
++LineNumber;
|
||||
lineno++;
|
||||
}
|
||||
else
|
||||
escaped = 1;
|
||||
}
|
||||
} while (escaped || c != stopc);
|
||||
echo(c);
|
||||
if (c == '\n')
|
||||
break; /* Don't eat # */
|
||||
c = GetChar();
|
||||
if (c == '.') {
|
||||
if ((c = GetChar()) == '.') {
|
||||
echo('.'); echo('.');
|
||||
continue;
|
||||
}
|
||||
case STNUM:
|
||||
/* The following code is quit ugly. This because
|
||||
* ..3 == . .3 , whereas ...3 == ... 3
|
||||
*/
|
||||
echo(c);
|
||||
if (c == '.')
|
||||
{
|
||||
c = GetChar();
|
||||
if (c == '.')
|
||||
{
|
||||
if ((c = GetChar()) == '.')
|
||||
{
|
||||
echo('.');
|
||||
echo('.');
|
||||
c = GetChar();
|
||||
continue;
|
||||
}
|
||||
UnGetChar();
|
||||
c = '.';
|
||||
continue;
|
||||
}
|
||||
else if (!is_dig(c))
|
||||
{
|
||||
continue;
|
||||
}
|
||||
else
|
||||
{
|
||||
echo(c);
|
||||
}
|
||||
}
|
||||
c = GetChar();
|
||||
while (in_idf(c) || c == '.')
|
||||
{
|
||||
echo(c);
|
||||
if (c == 'e' || c == 'E')
|
||||
{
|
||||
c = GetChar();
|
||||
if (c == '+' || c == '-')
|
||||
{
|
||||
echo(c);
|
||||
c = GetChar();
|
||||
}
|
||||
}
|
||||
else
|
||||
c = GetChar();
|
||||
}
|
||||
continue;
|
||||
case STELL:
|
||||
c = GetChar();
|
||||
UnGetChar();
|
||||
if (c == '"' || c == '\'')
|
||||
{
|
||||
echo('L');
|
||||
continue;
|
||||
}
|
||||
c = 'L';
|
||||
case STIDF:
|
||||
{
|
||||
extern int idfsize; /* ??? */
|
||||
char buf[IDFSIZE + 1];
|
||||
register char* tg = &buf[0];
|
||||
register char* maxpos = &buf[idfsize];
|
||||
register struct idf* idef;
|
||||
int NoExpandNext = 0;
|
||||
|
||||
#define tstmac(bx) \
|
||||
if (!(bits[c] & bx)) \
|
||||
goto nomac
|
||||
#define cpy *tg++ = c
|
||||
#define load \
|
||||
c = GetChar(); \
|
||||
if (!in_idf(c)) \
|
||||
goto endidf
|
||||
|
||||
/* unstack macro's when allowed. */
|
||||
if (Unstacked)
|
||||
EnableMacros();
|
||||
if (c == NOEXPM)
|
||||
{
|
||||
NoExpandNext = 1;
|
||||
c = GetChar();
|
||||
}
|
||||
|
||||
#ifdef DOBITS
|
||||
cpy;
|
||||
tstmac(bit0);
|
||||
load;
|
||||
cpy;
|
||||
tstmac(bit1);
|
||||
load;
|
||||
cpy;
|
||||
tstmac(bit2);
|
||||
load;
|
||||
cpy;
|
||||
tstmac(bit3);
|
||||
load;
|
||||
cpy;
|
||||
tstmac(bit4);
|
||||
load;
|
||||
cpy;
|
||||
tstmac(bit5);
|
||||
load;
|
||||
cpy;
|
||||
tstmac(bit6);
|
||||
load;
|
||||
cpy;
|
||||
tstmac(bit7);
|
||||
load;
|
||||
#endif
|
||||
|
||||
for (;;)
|
||||
{
|
||||
if (tg < maxpos)
|
||||
{
|
||||
cpy;
|
||||
}
|
||||
load;
|
||||
}
|
||||
endidf:
|
||||
if (c != EOF)
|
||||
UnGetChar();
|
||||
*tg = '\0'; /* mark the end of the identifier */
|
||||
if ((idef = findidf(buf)) && idef->id_macro && ReplaceMacros && !NoExpandNext)
|
||||
{
|
||||
if (replace(idef))
|
||||
{
|
||||
echo(' ');
|
||||
c = GetChar();
|
||||
continue;
|
||||
}
|
||||
UnGetChar();
|
||||
c = '.';
|
||||
continue;
|
||||
} else if (!is_dig(c)) {
|
||||
continue;
|
||||
} else { echo(c); }
|
||||
}
|
||||
c = GetChar();
|
||||
while (in_idf(c) || c == '.') {
|
||||
echo(c);
|
||||
if (c == 'e' || c == 'E') {
|
||||
c = GetChar();
|
||||
if (c == '+' || c == '-') {
|
||||
echo(c);
|
||||
c = GetChar();
|
||||
tg = buf;
|
||||
while (*tg)
|
||||
{
|
||||
echo(*tg++);
|
||||
}
|
||||
} else c = GetChar();
|
||||
}
|
||||
continue;
|
||||
case STELL:
|
||||
c = GetChar();
|
||||
UnGetChar();
|
||||
if (c == '"' || c == '\'') {
|
||||
echo('L');
|
||||
continue;
|
||||
}
|
||||
c = 'L';
|
||||
case STIDF: {
|
||||
extern int idfsize; /* ??? */
|
||||
char buf[IDFSIZE + 1];
|
||||
register char *tg = &buf[0];
|
||||
register char *maxpos = &buf[idfsize];
|
||||
register struct idf *idef;
|
||||
int NoExpandNext = 0;
|
||||
|
||||
#define tstmac(bx) if (!(bits[c] & bx)) goto nomac
|
||||
#define cpy *tg++ = c
|
||||
#define load c = GetChar(); if (!in_idf(c)) goto endidf
|
||||
|
||||
/* unstack macro's when allowed. */
|
||||
if (Unstacked)
|
||||
EnableMacros();
|
||||
if (c == NOEXPM) {
|
||||
NoExpandNext = 1;
|
||||
c = GetChar();
|
||||
}
|
||||
|
||||
#ifdef DOBITS
|
||||
cpy; tstmac(bit0); load;
|
||||
cpy; tstmac(bit1); load;
|
||||
cpy; tstmac(bit2); load;
|
||||
cpy; tstmac(bit3); load;
|
||||
cpy; tstmac(bit4); load;
|
||||
cpy; tstmac(bit5); load;
|
||||
cpy; tstmac(bit6); load;
|
||||
cpy; tstmac(bit7); load;
|
||||
#endif
|
||||
|
||||
for(;;) {
|
||||
if (tg < maxpos) {
|
||||
cpy;
|
||||
}
|
||||
load;
|
||||
}
|
||||
endidf:
|
||||
if (c != EOF) UnGetChar();
|
||||
*tg = '\0'; /* mark the end of the identifier */
|
||||
if ((idef = findidf(buf))
|
||||
&& idef->id_macro
|
||||
&& ReplaceMacros && !NoExpandNext) {
|
||||
if (replace(idef)) {
|
||||
echo(' ');
|
||||
c = GetChar();
|
||||
if (in_idf(c))
|
||||
{
|
||||
echo(' ');
|
||||
}
|
||||
continue;
|
||||
}
|
||||
nomac:
|
||||
*tg = '\0';
|
||||
tg = buf;
|
||||
while (*tg) {
|
||||
while (*tg)
|
||||
{
|
||||
echo(*tg++);
|
||||
}
|
||||
c = GetChar();
|
||||
if (in_idf(c)) { echo(' '); }
|
||||
while (in_idf(c))
|
||||
{
|
||||
echo(c);
|
||||
c = GetChar();
|
||||
}
|
||||
continue;
|
||||
}
|
||||
nomac:
|
||||
*tg = '\0';
|
||||
tg = buf;
|
||||
while (*tg) {
|
||||
echo(*tg++);
|
||||
}
|
||||
c = GetChar();
|
||||
while (in_idf(c)) {
|
||||
case STMSPEC:
|
||||
if (InputLevel)
|
||||
{
|
||||
echo(' '); /* seperate tokens */
|
||||
c = GetChar();
|
||||
continue;
|
||||
}
|
||||
/* else fallthrough */
|
||||
default:
|
||||
echo(c);
|
||||
c = GetChar();
|
||||
}
|
||||
continue;
|
||||
}
|
||||
case STMSPEC:
|
||||
if (InputLevel) {
|
||||
echo(' '); /* seperate tokens */
|
||||
c = GetChar();
|
||||
continue;
|
||||
}
|
||||
/* else fallthrough */
|
||||
default:
|
||||
echo(c);
|
||||
c = GetChar();
|
||||
continue;
|
||||
}
|
||||
break;
|
||||
}
|
||||
|
|
@ -407,49 +517,60 @@ preprocess(fn)
|
|||
/*NOTREACHED*/
|
||||
}
|
||||
|
||||
static char *
|
||||
SkipComment(op, lineno)
|
||||
char *op;
|
||||
int *lineno;
|
||||
static char* SkipComment(op, lineno) char* op;
|
||||
int* lineno;
|
||||
{
|
||||
char *ob = &_obuf[OBUFSIZE];
|
||||
char* ob = &_obuf[OBUFSIZE];
|
||||
register int c, oldc = '\0';
|
||||
|
||||
NoUnstack++;
|
||||
if (options['C']) {
|
||||
if (options['C'])
|
||||
{
|
||||
echo('/');
|
||||
echo('*');
|
||||
}
|
||||
c = GetChar();
|
||||
for(;;) {
|
||||
if (c == EOI) {
|
||||
for (;;)
|
||||
{
|
||||
if (c == EOI)
|
||||
{
|
||||
newline();
|
||||
flush((int)(op - _obuf));
|
||||
op = 0;
|
||||
break;
|
||||
}
|
||||
if (options['C']) {
|
||||
if (options['C'])
|
||||
{
|
||||
echo(c);
|
||||
}
|
||||
if (c == '\n') {
|
||||
if (c == '\n')
|
||||
{
|
||||
++LineNumber;
|
||||
++*lineno;
|
||||
if (!options['C']) {
|
||||
if (!options['C'])
|
||||
{
|
||||
echo(c);
|
||||
}
|
||||
}
|
||||
if (c == '*') {
|
||||
if (c == '*')
|
||||
{
|
||||
c = GetChar();
|
||||
if (c == '/') {
|
||||
if (options['C']) {
|
||||
if (c == '/')
|
||||
{
|
||||
if (options['C'])
|
||||
{
|
||||
echo(c);
|
||||
}
|
||||
break; /* for(;;) */
|
||||
} else if (oldc == '/') {
|
||||
break; /* for(;;) */
|
||||
}
|
||||
else if (oldc == '/')
|
||||
{
|
||||
warning("comment inside comment ?");
|
||||
}
|
||||
oldc = '*';
|
||||
} else {
|
||||
}
|
||||
else
|
||||
{
|
||||
oldc = c;
|
||||
c = GetChar();
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in a new issue