recognize but ignore #pragma

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);

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}
 };
 

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