750a6bc684
+ Addition of function prototypes and include files. + Change function definitions to ANSI C style. + Initial support for CMake + Scripts to generate compiler header is now sed based.
52 lines
838 B
C
52 lines
838 B
C
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
/* $Id$ */
|
|
/* PREPROCESSOR: PRAGMA INTERPRETER */
|
|
|
|
#include "parameters.h"
|
|
#include "pragma.h"
|
|
#include "skip.h"
|
|
|
|
#define P_UNKNOWN 0
|
|
#define NR_PRAGMAS 0
|
|
|
|
struct pkey
|
|
{
|
|
char *pk_name;
|
|
int pk_key;
|
|
} pragmas[NR_PRAGMAS + 1] =
|
|
{
|
|
{ 0, P_UNKNOWN } };
|
|
|
|
extern struct idf *GetIdentifier();
|
|
|
|
void do_pragma(void)
|
|
{
|
|
#if NR_PRAGMAS
|
|
register struct pkey *pkp = &pragmas[0];
|
|
#endif
|
|
register struct idf *id = GetIdentifier(1);
|
|
|
|
if (id != (struct idf *) 0)
|
|
{
|
|
#if NR_PRAGMAS
|
|
while(pkp->pk_name)
|
|
{
|
|
if (strcmp(pkp->pk_name, id->id_text) == 0)
|
|
break;
|
|
pkp++;
|
|
}
|
|
|
|
switch (pkp->pk_key)
|
|
{
|
|
case P_UNKNOWN:
|
|
default:
|
|
break;
|
|
}
|
|
#endif
|
|
SkipToNewLine();
|
|
}
|
|
}
|