12345678910111213141516171819202122232425262728293031323334353637383940414243444546 |
- /*
- * (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 "debug.h"
- #include "idf.h"
- #include "skip.h"
- #include "domacro.h"
- #define P_UNKNOWN 0
- #define NR_PRAGMAS 0
- struct pkey {
- char *pk_name;
- int pk_key;
- } pragmas[NR_PRAGMAS + 1] = {
- {0, P_UNKNOWN}
- };
- void do_pragma()
- {
- #if NR_PRAGMAS
- struct pkey *pkp = &pragmas[0];
- #endif
- 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();
- }
- }
|