lang/cem/cemcom.ansi/pragma.c

   1 /*
   2  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3  * See the copyright notice in the ACK home directory, in the file "Copyright".
   4  */
   5 /* $Id: pragma.c,v 1.9 1994/06/27 08:01:50 ceriel Exp $ */
   6 /* PREPROCESSOR: PRAGMA INTERPRETER */
   7
   8 #include        "debug.h"
   9 #include        "idf.h"
  10
  11 #define P_UNKNOWN       0
  12 #define NR_PRAGMAS      0
  13
  14 struct pkey {
  15         char *pk_name;
  16         int pk_key;
  17 } pragmas[NR_PRAGMAS + 1] = {
  18         {0,             P_UNKNOWN}
  19 };
  20
  21 extern struct idf *GetIdentifier();
  22
  23 do_pragma()
  24 {
  25 #if     NR_PRAGMAS
  26         register struct pkey *pkp = &pragmas[0];
  27 #endif
  28         register struct idf *id = GetIdentifier(1);
  29
  30         if (id != (struct idf *)0) {
  31 #if     NR_PRAGMAS
  32                 while(pkp->pk_name) {
  33                         if (strcmp(pkp->pk_name, id->id_text) == 0)
  34                                 break;
  35                         pkp++;
  36                 }
  37
  38                 switch (pkp->pk_key) {
  39                 case P_UNKNOWN:
  40                 default:
  41                         break;
  42                 }
  43 #endif
  44                 SkipToNewLine();
  45         }
  46 }