da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic const char id[] = "\n@(#)$Id: proto (AT&T Research) 2008-05-11 $\0\n";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "ppfsm.c"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <hashkey.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTO_STANDALONE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef O_RDONLY

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "pplib.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "ppfsm.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define MAGICGEN "/* : : generated by proto : : */\n"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define MAGICDIR "pragma" /* proto magic directive */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define MAGICARG "prototyped" /* proto magic directive arg */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define MAGICOFF "noticed" /* no notice if found in pragma */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define MAGICTOP 64 /* must be in these top lines */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define NOTICED "Copyright" /* no notice if found in magic */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#define PUBLICDOMAIN "Public Domain" /* no notice if found in magic */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstruct proto /* proto buffer state */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int brace; /* {..} level */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int call; /* call level */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int fd; /* input file descriptor */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* file; /* input file name */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin long flags; /* coupled flags */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin long options; /* uncoupled flags */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* package; /* header package */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int line; /* input line count */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int test; /* testing */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* tp; /* input token base */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int iz; /* input buffer size */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* ib; /* input buffer base */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* ip; /* input buffer pointer */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int oz; /* output buffer size */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* ob; /* output buffer base */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* op; /* output buffer pointer */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* ox; /* output buffer externalize */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char cc[3]; /* beg mid end comment char */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char pushback[4]; /* pushback area for caller */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char variadic[256]; /* variadic args buffer */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* output buffer */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* slide buffer */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* input buffer */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef CLASSIC

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define CLASSIC (1L<<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef DECLARE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define DECLARE (1L<<1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef DEFINE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define DEFINE (1L<<2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef DIRECTIVE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define DIRECTIVE (1L<<3)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef ERROR

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define ERROR (1L<<4)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef EXTERN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define EXTERN (1L<<5)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef EXTERNALIZE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define EXTERNALIZE (1L<<6)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef IDID

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define IDID (1L<<7)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef INDIRECT

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define INDIRECT (1L<<8)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef INIT

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define INIT (1L<<9)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef INIT_DEFINE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define INIT_DEFINE (1L<<10)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef INIT_INCLUDE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define INIT_INCLUDE (1L<<11)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef JUNK

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define JUNK (1L<<12)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef LINESYNC

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define LINESYNC (1L<<13)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef MANGLE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define MANGLE (1L<<14)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef MATCH

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define MATCH (1L<<15)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef MORE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define MORE (1L<<16)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef OTHER

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define OTHER (1L<<17)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef PASS

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define PASS (1L<<18)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef PLUSONLY

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define PLUSONLY (1L<<19)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef PLUSPLUS

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define PLUSPLUS (1L<<20)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef RECURSIVE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define RECURSIVE (1L<<21)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef SHARP

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SHARP (1L<<22)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef SKIP

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SKIP (1L<<23)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef SLIDE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SLIDE (1L<<24)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef TOKENS

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define TOKENS (1L<<25)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef TYPEDEF

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define TYPEDEF (1L<<26)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef VARIADIC

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define VARIADIC (1L<<27)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef VARIADIC2

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define VARIADIC2 (1L<<28)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef YACC

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define YACC (1L<<29)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef YACCSPLIT

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define YACCSPLIT (1L<<30)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef YACC2

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define YACC2 (1L<<31)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef GLOBAL

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define GLOBAL (MORE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef REGULAR

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define REGULAR (1L<<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifndef CHUNK

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define CHUNK 1024

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define BLOCK (8*CHUNK)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define T_VA_START (N_TOKEN+1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define RESERVED(b,e,n) ((((long)(b))<<16)|(((long)(e))<<8)|((long)(n)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinnumber(register char* p, register long n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register long d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (d = 1000000; d > 1; d /= 10)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (n >= d) *p++ = '0' + (n / d) % 10;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = '0' + n % 10;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int errors;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTO_STANDALONE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef memcpy

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define memcpy(t,f,n) memcopy(t,f,n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef strcpy

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define strcpy(t,f) strcopy(t,f)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef strlen

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define strlen(s) sstrlen(s)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef strncmp

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define strncmp(s,t,n) sstrncmp(s,t,n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinsstrlen(register const char* s)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register const char* b;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (b = s; *s; s++);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return s - b;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinsstrncmp(register const char* s, register char* t, register int n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register const char* e = s + n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (s < e)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*s != *t || !*s)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return *s - *t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstrcopy(register char* s, register const char* t)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*s++ = *t++);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return s - 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinproto_error(char* iob, int level, char* msg, char* arg)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char buf[1024];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = strcopy(buf, "proto: ");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (iob)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register struct proto* proto = (struct proto*)(iob - sizeof(struct proto));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (proto->line)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (proto->file)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = '"';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = strcopy(p, proto->file);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = '"';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = ',';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = ' ';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = strcopy(p, "line ");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = number(p, proto->line);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (proto->file)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = strcopy(p, proto->file);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = strcopy(p, msg);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin msg = arg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*(p - 1) != ' ')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = ':';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = ' ';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (level == 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = strcopy(p, "warning: ");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = strcopy(p, msg);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (arg)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = ' ';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = strcopy(p, arg);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = '\n';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin write(2, buf, p - buf);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (level >= 3)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin exit(level - 2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (level >= 2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errors++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinmemcopy(register char* s, register char* t, int n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* e = t + n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (t < e) *s++ = *t++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "../libast/port/astlicense.c"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define memcopy(s,t,n) (((char*)memcpy(s,t,n))+(n))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinlinesync(register struct proto* proto, register char* p, register long n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (proto->flags & LINESYNC)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = strcopy(p, "\n#line ");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = strcopy(p, "\n# ");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = number(p, n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = '\n';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chininit(struct proto* proto, char* op, int flags)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & INIT_DEFINE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(op, "\

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(op, "\

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (proto->package)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = "\

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (*op++ = *s++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '%':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(op - 1, proto->package);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return op;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define BACKOUT() (op=ko)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define CACHE() do{CACHEIN();CACHEOUT();call=proto->call;}while(0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define CACHEIN() (ip=proto->ip)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define CACHEOUT() (op=proto->op)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define GETCHR() (*(unsigned char*)ip++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define KEEPOUT() (ko=op)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define LASTOUT() (*(op-1))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define PUTCHR(c) (*op++=(c))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SYNC() do{SYNCIN();SYNCOUT();proto->flags&=~(EXTERN|INIT|OTHER|VARIADIC|VARIADIC2);proto->flags|=flags&(EXTERN|INIT|OTHER|VARIADIC|VARIADIC2);proto->call=call;}while(0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SYNCIN() (proto->ip=ip)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SYNCOUT() (proto->op=op)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define UNGETCHR() (ip--)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define UNPUTCHR() (op--)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinnns(register char* s)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*s == ' ' || *s == '\t' || *s == '\n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define DIR_if 01

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define DIR_el 02

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define DIR_en 03

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define DIR 03

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chindirective(register char* s, int dir)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (*(s = nns(s)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'e':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'i':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dir <<= 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (*++s)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'f':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dir |= DIR_if;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'l':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dir |= DIR_el;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'n':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dir |= DIR_en;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return dir;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinlex(register struct proto* proto, register long flags)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* op;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int state;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register short* rp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* m;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* e;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* bp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* v;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* im;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* ko;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* aom;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int line;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int quot;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int brack;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int sub;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int x;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int vc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* ie = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* om = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* aim = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* aie = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* func = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int call = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int dir = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int group = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int last = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int paren = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* qe = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int qn = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int args = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin CACHE();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & EXTERN) KEEPOUT();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fsm_start:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin proto->tp = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin state = PROTO;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bp = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin rp = fsm[state];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fsm_get:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (!(state = rp[c = GETCHR()]));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fsm_next:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while (state > 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((n = ip - bp - 1) > 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ip = bp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin MEMCPY(op, ip, n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ip++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin state = ~state;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fsm_terminal:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (TERM(state))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_CHR:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (op > proto->ob && *(op - 1) == '=' && (op == proto->ob + 1 || *(op - 2) != '=')) switch (c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '+':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '-':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '*':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '&':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(' ');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_CHRB:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin UNGETCHR();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = LASTOUT();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_COMMENT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\n':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (INCOMMENTXX(rp)) goto fsm_newline;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin proto->line++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin rp = fsm[COM2];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '/':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((flags & (EXTERN|MATCH)) == EXTERN) BACKOUT();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (INCOMMENTXX(rp))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin rp = fsm[COM5];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_start;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case EOF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((flags & (EXTERN|MATCH)) == EXTERN) BACKOUT();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin rp = fsm[INCOMMENTXX(rp) ? COM5 : COM3];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bp = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_get;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_EOB:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (state = fsm[TERMINAL][INDEX(rp)+1])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_terminal;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SYNC();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin UNGETCHR();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fsm_eob:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((flags & (DECLARE|GLOBAL|RECURSIVE)) == GLOBAL && (proto->flags & MORE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & EXTERN)) /* XXX */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= SLIDE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = ip - proto->ib;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & MATCH))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin im = proto->tp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (ip > proto->ib)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = ip - im;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (ip - n < proto->ib)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin proto->flags |= ERROR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin memcopy(proto->ib - n, ip - n, n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ip = proto->ib;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin proto->tp -= c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & MATCH)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin im -= c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ie -= c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (aim)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin aim -= c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (aie)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin aie -= c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((n = read(proto->fd, ip, proto->iz)) > 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((proto->options & REGULAR) && n < proto->iz)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin proto->flags &= ~MORE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin close(proto->fd);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *(ip + n) = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (state & SPLICE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_splice;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bp = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_get;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *ip = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin proto->flags &= ~MORE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin close(proto->fd);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (state & SPLICE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_splice;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* NOTE: RECURSIVE lex() should really SLIDE too */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & RECURSIVE) && (state = rp[c = EOF]))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bp = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_next;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SYNC();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_LITBEG:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin quot = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == '"' && qe)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (n = 0, t = qe + 1; t < op && (*t == ' ' || *t == '\t' || *t == '\n' && ++n || *t >= 'A' && *t <= 'Z' || *t == '_'); t++);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (t == op)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = qe;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin qe = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin qn = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else PUTCHR(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin rp = fsm[LIT1];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bp = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_get;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_LITEND:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == quot)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & DIRECTIVE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin qe = (c == '"') ? op : (char*)0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (qn > 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin qn--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR('\n');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c != '\n' && c != EOF)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bp = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_get;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (qn > 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin qn--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR('\n');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin UNGETCHR();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_INVALID;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_LITESC:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & CLASSIC) PUTCHR(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'a':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = CC_bel;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_oct;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'E':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = CC_esc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_oct;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'v':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = CC_vt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_oct;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'x':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SYNC();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lex(proto, (flags & GLOBAL) | RECURSIVE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (n = x = 0; (c = GETCHR()), x < 3; x++) switch (c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '0': case '1': case '2': case '3':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '4': case '5': case '6': case '7':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '8': case '9':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = (n << 4) + c - '0';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'a': case 'b': case 'c': case 'd':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'e': case 'f':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = (n << 4) + c - 'a' + 10;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'A': case 'B': case 'C': case 'D':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'E': case 'F':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = (n << 4) + c - 'A' + 10;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_hex;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fsm_hex:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin UNGETCHR();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fsm_oct:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(((n >> 6) & 07) + '0');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(((n >> 3) & 07) + '0');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR((n & 07) + '0');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin rp = fsm[LIT1];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bp = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_get;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_MACRO:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin UNGETCHR();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((flags & EXTERN) && *proto->tp == 's' && !strncmp(proto->tp, "static", 6))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_EXTERN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*proto->tp == '_' && !strncmp(proto->tp, "__STDPP__directive", 6)) c = '#';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else c = T_ID;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_NL:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fsm_newline:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin proto->line++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & EXTERN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (op != proto->ob && LASTOUT() != ' ' && LASTOUT() != '\n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(' ');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & DIRECTIVE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & CLASSIC)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & EXTERN) BACKOUT();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & JUNK)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *(ip - 1) = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(om, "/* ");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(op, im);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(op, " */\n");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= ~(DEFINE|DIRECTIVE|IDID|INDIRECT|JUNK|MATCH|SHARP|TYPEDEF);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((flags & (DEFINE|SHARP)) == (DEFINE|SHARP))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *(ip - 1) = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(om, "#if defined(__STDC__) || defined(__STDPP__)\n");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(op, im);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(op, "\n#else\n");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bp = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ip = im;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *op++ = *ip++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*op = *ip++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*op++ == '#' && *ip != '(')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*--op == ' ' || *op == '\t');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*ip == '#')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(op + 1, "/**/");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*++ip == ' ' || *ip == '\t');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*op != '"') *++op = '"';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*ip == ' ' || *ip == '\t') ip++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while ((c = *ip) >= 'A' && c <= 'Z' || c >= 'a' && c <= 'z' || c >= '0' && c <= '9' || c == '_') *op++ = *ip++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*ip == ' ' || *ip == '\t') ip++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*ip == '"') ip++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else *op++ = '"';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ip = bp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(op, "\n#endif\n");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = linesync(proto, op, proto->line);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= ~(DEFINE|DIRECTIVE|IDID|INDIRECT|MATCH|OTHER|SHARP|SKIP|TOKENS|TYPEDEF);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin call = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin group = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin paren = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin last = '\n';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (paren == 0 && (flags & (MATCH|RECURSIVE|SKIP|SLIDE)) == SLIDE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & EXTERN) BACKOUT();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SYNC();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_start;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_QUAL:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin rp = fsm[NEXT(state)];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bp = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_get;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_TOK:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = TYPE(state);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_TOKB:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin UNGETCHR();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = TYPE(state);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_RESERVED:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin UNGETCHR();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_ID;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & DECLARE)) switch (RESERVED(*proto->tp, *(ip - 1), ip - proto->tp))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RESERVED('N', 'N', 3):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (proto->tp[1] == 'o')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_DO;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RESERVED('d', 'o', 2):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_DO;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RESERVED('e', 'e', 4):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & RECURSIVE) && (flags & (DIRECTIVE|TOKENS)) != DIRECTIVE && !strncmp(proto->tp, "else", 4))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_ELSE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_id;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RESERVED('e', 'n', 6):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!strncmp(proto->tp, "extern", 6))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_EXTERN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RESERVED('f', 'r', 3):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & RECURSIVE) && !strncmp(proto->tp, "for", 3))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_FOR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_id;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RESERVED('i', 'f', 2):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_IF;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RESERVED('i', 'e', 6):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!strncmp(proto->tp, "inline", 6) && !(flags & (MATCH|SKIP|TOKENS|TYPEDEF)) && proto->brace == 0 && paren == 0 && group == 0 && (last == ';' || last == '}' || last == '\n' || last == 0))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= SKIP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SYNC();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin line = proto->line;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(op - 6, "__INLINE__");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SYNC();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RESERVED('r', 'n', 6):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & RECURSIVE) && !strncmp(proto->tp, "return", 6))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_RETURN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_id;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RESERVED('s', 'c', 6):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((proto->options & EXTERNALIZE) && !strncmp(proto->tp, "static", 6))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin proto->ox = op - 6;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= EXTERNALIZE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RESERVED('t', 'f', 7):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & RECURSIVE) && !strncmp(proto->tp, "typedef", 7))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= TYPEDEF;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_EXTERN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RESERVED('v', 't', 8):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*ip == '(' && !strncmp(proto->tp, "va_start", 8)) c = T_VA_START;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RESERVED('v', 'd', 4):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!strncmp(proto->tp, "void", 4))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & (CLASSIC|PLUSONLY|INIT_DEFINE|INIT_INCLUDE)) c = T_VOID;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SYNC();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin line = proto->line;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (lex(proto, (flags & GLOBAL) | RECURSIVE) == '*')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin memcopy(op - 4, "__V_", 4);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin memcopy(ip - 4, "__V_", 4);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else c = T_VOID;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin proto->line = line;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SYNC();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bp = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RESERVED('w', 'e', 5):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & RECURSIVE) && !strncmp(proto->tp, "while", 5))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_WHILE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_id;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((flags & CLASSIC) && c != T_EXTERN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_ID;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_VS:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_start;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case S_WS:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin UNGETCHR();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((flags & (EXTERN|MATCH)) == EXTERN)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (op > proto->ob && (*(op - 1) == ' ' || *(op - 1) == '\t'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (op > proto->ob && *(op - 1) != '\n') *op++ = ' ';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_start;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (state & SPLICE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == '\\')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(n = GETCHR()))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_eob;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fsm_splice:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\\';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = GETCHR();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (n == '\n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin proto->line++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR('\\');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR('\n');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bp = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_get;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin UNGETCHR();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin state &= ~SPLICE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (state >= TERMINAL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_terminal;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin rp = fsm[state];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUTCHR(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bp = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fsm_get;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & (INIT_DEFINE|INIT_INCLUDE|RECURSIVE)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & DIRECTIVE)) switch (c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '(':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & CLASSIC) || proto->brace == 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (paren++ == 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & CLASSIC) || group <= 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin args = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (group++ == 0) group++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (flags & INDIRECT) call++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= MATCH;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin im = ip - 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin om = op - 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sub = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (paren == 2 && !aim)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sub++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (last == '(')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= ~MATCH;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin om = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (flags & INDIRECT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin aim = ip - 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin aom = op - 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if ((flags & (MATCH|TOKENS)) == MATCH)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (m = ip - 2; m > im && (*m == ' ' || *m == '\t'); m--);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (m != im && sub == 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = im + (*nns(ip) == '*');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (m == im)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= ~MATCH;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin om = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if ((flags & MATCH) && sub == 1 && *nns(ip) != '*')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= ~MATCH;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin om = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= ~TOKENS;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ')':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & CLASSIC) || proto->brace == 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (--paren == 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & CLASSIC)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (group != 2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_ID;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin group++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ie = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (paren == 1 && (flags & INDIRECT) && !aie)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin aie = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '*':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (last == '(' && group == 2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin group--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (paren == 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= INDIRECT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin aim = aie = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '#':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dir = directive(ip, dir);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (proto->brace == 0 && paren == 0 && last != '=' && (flags & (CLASSIC|DECLARE|DIRECTIVE|MATCH|PLUSONLY|SKIP|TOKENS)) == (MATCH|TOKENS) && ((dir & DIR) != DIR_en || ((dir>>2) & DIR) != DIR_if))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= DIRECTIVE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (!(flags & (DECLARE|DIRECTIVE)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= DIRECTIVE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & PLUSONLY))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bp = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*ip == ' ' || *ip == '\t') ip++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*ip == 'l' && *++ip == 'i' && *++ip == 'n' && *++ip == 'e')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*++ip == ' ' || *ip == '\t')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin proto->line = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*++ip >= '0' && *ip <= '9')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin proto->line = proto->line * 10 + *ip - '0';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin proto->line--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if PROTOMAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if ((flags & (CLASSIC|EXTERN)) == CLASSIC)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t = ip + 6;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (ip < t && *ip >= 'a' && *ip <= 'z')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = HASHKEYPART(n, *ip++);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case HASHKEY4('e','l','s','e'):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case HASHKEY5('e','n','d','i','f'):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*ip == ' ' || *ip == '\t') ip++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*ip != '\n' && *ip != '/' && *(ip + 1) != '*')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= JUNK|MATCH;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin im = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin om = op + (ip - bp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case HASHKEY4('e','l','i','f'):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case HASHKEY5('e','r','r','o','r'):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case HASHKEY2('i','f'):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case HASHKEY5('i','f','d','e','f'):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case HASHKEY6('i','f','n','d','e','f'):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case HASHKEY5('u','n','d','e','f'):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case HASHKEY6('i','n','c','l','u','d'):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*ip == 'e') ip++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*FALLTHROUGH*/

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case HASHKEY6('d','e','f','i','n','e'):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case HASHKEY6('p','r','a','g','m','a'):

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*ip < 'a' || *ip > 'z') break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*FALLTHROUGH*/

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= JUNK|MATCH;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin im = bp - 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin om = op - 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*ip == 'i' && *++ip == 'n' && *++ip == 'c' && *++ip == 'l' && *++ip == 'u' && *++ip == 'd' && *++ip == 'e')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*++ip == ' ' || *ip == '\t');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*ip++ == '<' && *ip++ == 's' && *ip++ == 't' && *ip++ == 'd' && *ip++ == 'a' && *ip++ == 'r' && *ip++ == 'g' && *ip++ == '.' && *ip++ == 'h' && *ip++ == '>')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(op, "\

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = linesync(proto, op, proto->line);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (*ip == 'd' && *++ip == 'e' && *++ ip == 'f' && *++ip == 'i' && *++ip == 'n' && *++ip == 'e' && (*++ip == ' ' || *ip == '\t'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*++ip == ' ' || *ip == '\t');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*ip == 'e' && *++ip == 'x' && *++ ip == 't' && *++ip == 'e' && *++ip == 'r' && *++ip == 'n' && (*++ip == ' ' || *ip == '\t'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*++t == ' ' || *t == '\t');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*t == 'e' && *++t == 'x' && *++ t == 't' && *++t == 'e' && *++t == 'r' && *++t == 'n' && (*++t == ' ' || *t == '\t' || *t == '\n' || *t == '\r'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ip = t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t = ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*++t == ' ' || *t == '\t');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*t == '_' && *(t + 1) == '_')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(op, "undef __MANGLE__\n");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = linesync(proto, op, proto->line);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = strcopy(op, "#define __MANGLE__ __LINKAGE__");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }