pragma.c 790 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546
  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$ */
  6. /* PREPROCESSOR: PRAGMA INTERPRETER */
  7. #include "debug.h"
  8. #include "idf.h"
  9. #define P_UNKNOWN 0
  10. #define NR_PRAGMAS 0
  11. struct pkey {
  12. char *pk_name;
  13. int pk_key;
  14. } pragmas[NR_PRAGMAS + 1] = {
  15. {0, P_UNKNOWN}
  16. };
  17. extern struct idf *GetIdentifier();
  18. do_pragma()
  19. {
  20. #if NR_PRAGMAS
  21. register struct pkey *pkp = &pragmas[0];
  22. #endif
  23. register struct idf *id = GetIdentifier(1);
  24. if (id != (struct idf *)0) {
  25. #if NR_PRAGMAS
  26. while(pkp->pk_name) {
  27. if (strcmp(pkp->pk_name, id->id_text) == 0)
  28. break;
  29. pkp++;
  30. }
  31. switch (pkp->pk_key) {
  32. case P_UNKNOWN:
  33. default:
  34. break;
  35. }
  36. #endif
  37. SkipToNewLine();
  38. }
  39. }