Add #warning directive

compiler/sc.h

@@ -497,6 +497,7 @@ enum TokenKind {
   tpENDINPUT,
   tpENDSCRPT,
   tpERROR,
+  tpWARNING,
   tpFILE,
   tpIF,         /* #if */
   tINCLUDE,

compiler/sc2.cpp

@@ -1292,6 +1292,12 @@ static int command(void)
     if (!SKIPPING)
       error(FATAL_ERROR_USER_ERROR,lptr);  /* user error */
     break;
+  case tpWARNING:
+    while (*lptr<=' ' && *lptr!='\0')
+      lptr++;
+    if (!SKIPPING)
+      error(224,lptr);  /* user warning */
+    break;
   default:
     error(31);          /* unknown compiler directive */
     ret=SKIPPING ? CMD_CONDFALSE : CMD_NONE;  /* process as normal line */
@@ -1946,8 +1952,8 @@ const char *sc_tokens[] = {
          "while",
          "with",
          "#assert", "#define", "#else", "#elseif", "#endif", "#endinput",
-         "#endscript", "#error", "#file", "#if", "#include", "#line", "#pragma",
-         "#tryinclude", "#undef",
+         "#endscript", "#error", "#warning", "#file", "#if", "#include",
+         "#line", "#pragma", "#tryinclude", "#undef",
          ";", ";", "-integer value-", "-rational value-", "-identifier-",
          "-label-", "-string-", "-string-"
 };

compiler/sc5-in.scp

@@ -257,7 +257,7 @@ static const char *warnmsg[] = {
 /*221*/  "label name \"%s\" shadows tag name\n",
 /*222*/  "number of digits exceeds rational number precision\n",
 /*223*/  "redundant \"sizeof\": argument size is always 1 (symbol \"%s\")\n",
-/*224*/  "unused\n",
+/*224*/  "user warning: %s\n",
 /*225*/  "unreachable code\n",
 /*226*/  "a variable is assigned to itself (symbol \"%s\")\n",
 /*227*/  "more initializers than enum fields\n",

compiler/tests/warn-user-warning.sp

@@ -0,0 +1,6 @@
+#warning test
+
+public void main()
+{
+
+}

compiler/tests/warn-user-warning.txt

@@ -0,0 +1 @@
+(1) : warning 224: user warning: test