75 lines
1.3 KiB
C
75 lines
1.3 KiB
C
|
/*
|
||
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
||
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
||
|
|
*/
|
||
|
|
/* $Header$ */
|
||
|
|
/* PREPROCESSOR: PRAGMA INTERPRETER */
|
||
|
|
|
||
|
|
#include "arith.h"
|
||
|
|
#include "LLlex.h"
|
||
|
|
#include "Lpars.h"
|
||
|
|
#include "debug.h"
|
||
|
|
#include "idf.h"
|
||
|
|
#include "input.h"
|
||
|
|
#include "nopp.h"
|
||
|
|
|
||
|
|
#ifndef NOPP
|
||
|
|
#include "ifdepth.h"
|
||
|
|
#include "botch_free.h"
|
||
|
|
#include "nparams.h"
|
||
|
|
#include "parbufsize.h"
|
||
|
|
#include "textsize.h"
|
||
|
|
#include "idfsize.h"
|
||
|
|
#include "assert.h"
|
||
|
|
#include <alloc.h>
|
||
|
|
#include "class.h"
|
||
|
|
#include "macro.h"
|
||
|
|
|
||
|
|
#define P_UNKNOWN 0
|
||
|
|
#define P_FLAGS 1
|
||
|
|
|
||
|
|
struct pkey {
|
||
|
|
char *pk_name;
|
||
|
|
int pk_key;
|
||
|
|
} pragmas[] = {
|
||
|
|
{"flags", P_FLAGS},
|
||
|
|
{0, P_UNKNOWN}
|
||
|
|
};
|
||
|
|
|
||
|
|
extern struct idf *GetIdentifier();
|
||
|
|
|
||
|
|
|
||
|
|
do_pragma()
|
||
|
|
{
|
||
|
|
register struct pkey *pkp;
|
||
|
|
register struct idf *id;
|
||
|
|
struct token tk;
|
||
|
|
int flag;
|
||
|
|
|
||
|
|
if ((id = GetIdentifier()) != (struct idf *)0) {
|
||
|
|
/* Lineair search - why bother ?
|
||
|
|
*/
|
||
|
|
for (pkp = &pragmas[0]; pkp->pk_key != P_UNKNOWN; pkp++)
|
||
|
|
if (strcmp(pkp->pk_name, id->id_text) == 0)
|
||
|
|
break;
|
||
|
|
|
||
|
|
switch (pkp->pk_key) {
|
||
|
|
case P_FLAGS:
|
||
|
|
if (GetToken(&tk) == STRING)
|
||
|
|
do_option(tk.tk_bts);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case P_UNKNOWN:
|
||
|
|
strict("unknown pragma directive %s", id->id_text);
|
||
|
|
break;
|
||
|
|
|
||
|
|
default:
|
||
|
|
strict("unimplemented pragma directive");
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
SkipToNewLine(0);
|
||
|
|
|
||
|
|
}
|
||
|
|
#endif
|