Implement __pragma("warning")

Author: Daniel-Cortez

source/compiler/sc.h

@@ -704,6 +704,7 @@ SC_FUNC stkitem popstk(void);
 SC_FUNC void clearstk(void);
 SC_FUNC int plungequalifiedfile(char *name);  /* explicit path included */
 SC_FUNC int plungefile(char *name,int try_currentpath,int try_includepaths);   /* search through "include" paths */
+SC_FUNC int number(cell *val,const unsigned char *curptr);
 SC_FUNC void preprocess(void);
 SC_FUNC void lexinit(void);
 SC_FUNC int lex(cell *lexvalue,char **lexsym);

source/compiler/sc1.c

@@ -8252,6 +8252,33 @@ static void dopragma(void)
     } else if (!strcmp(str,"naked")) {
       pc_attributes |= (1U << attrNAKED);
       if (str[i]!='\0') goto unknown_pragma;
+    } else if (!strcmp(str,"warning")) {
+      str += i;
+      while (*str==' ') str++;
+      for (i=0; str[i]!='\0' && str[i]!=' '; i++)
+        /* nothing */;
+      if (str[i]!='\0') {
+        str[i]='\0';
+        while (str[++i]==' ')
+          /* nothing */;
+      } /* if */
+      if (strcmp(str,"enable")==0 || strcmp(str,"disable")==0) {
+        int len=number(&val,&str[i]);
+        if (len==0)
+          goto unknown_pragma;
+        pc_enablewarning((int)val,(str[0]=='e') ? warnENABLE : warnDISABLE);
+        /* warn if there are extra characters after the warning number */
+        for (i += len; str[i]==' '; i++)
+          /* nothing */;
+        if (str[i]!='\0')
+          goto unknown_pragma;
+      } else if (strcmp(str,"push")==0 && str[i]=='\0') {
+        pc_pushwarnings();
+      } else if (strcmp(str,"pop")==0 && str[i]=='\0') {
+        pc_popwarnings();
+      } else {
+        goto unknown_pragma;
+      } /* if */
     } else {
 unknown_pragma:
       error(207);       /* unknown #pragma */

source/compiler/sc2.c

@@ -843,7 +843,7 @@ static int ftoi(cell *val,const unsigned char *curptr)
  *        for at "hier2()" (in fact, it is viewed as an operator, not as a
  *        sign) and the + is invalid (as in K&R C, and unlike ANSI C).
  */
-static int number(cell *val,const unsigned char *curptr)
+SC_FUNC int number(cell *val,const unsigned char *curptr)
 {
   int i;
   cell value;