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