recognize but ignore #pragma

diff --git a/lang/cem/cemcom/domacro.c b/lang/cem/cemcom/domacro.c
index ee52883..1b2592d 100644 (file)
--- a/lang/cem/cemcom/domacro.c
+++ b/lang/cem/cemcom/domacro.c
@@ -107,6 +107,11 @@ domacro()
                case K_UNDEF:                           /* "undef"      */
                        do_undef();
                        break;
+               case K_PRAGMA:                          /* "pragma"     */
+                       /*      ignore for now
+                       */
+                       SkipRestOfLine();
+                       break;
                default:
                        /* invalid word seen after the '#'      */
                        lexerror("%s: unknown control", tk.tk_idf->id_text);

diff --git a/lang/cem/cemcom/init.c b/lang/cem/cemcom/init.c
index df86c5d..a330ffe 100644 (file)
--- a/lang/cem/cemcom/init.c
+++ b/lang/cem/cemcom/init.c
@@ -29,6 +29,7 @@ PRIVATE struct mkey   {
        {"include",     K_INCLUDE},
        {"line",        K_LINE},
        {"undef",       K_UNDEF},
+       {"pragma",      K_PRAGMA},
        {0,             K_UNKNOWN}
 };
 

diff --git a/lang/cem/cemcom/macro.str b/lang/cem/cemcom/macro.str
index 3979ecb..5e12940 100644 (file)
--- a/lang/cem/cemcom/macro.str
+++ b/lang/cem/cemcom/macro.str
@@ -55,4 +55,5 @@ struct mlist {
 #define        K_INCLUDE       8
 #define        K_LINE          9
 #define        K_UNDEF         10
+#define K_PRAGMA       11
 #endif NOPP