__nameof

source/compiler/sc.h

@@ -376,6 +376,7 @@ enum {
   tFORWARD,
   tGOTO,
   tIF,
+  t__NAMEOF,
   tNATIVE,
   tNEW,
   tOPERATOR,

source/compiler/sc2.c

@@ -2172,8 +2172,9 @@ char *sc_tokens[] = {
          "...", "..",
          "__addressof", "assert", "*begin", "break", "case", "char", "const", "continue",
          "default", "defined", "do", "else", "__emit", "*end", "enum", "exit", "for",
-         "forward", "goto", "if", "native", "new", "operator", "public", "return", "sizeof",
-         "sleep", "state", "static", "stock", "switch", "tagof", "*then", "while",
+         "forward", "goto", "if", "__nameof", "native", "new", "operator", "public",
+         "return", "sizeof", "sleep", "state", "static", "stock", "switch", "tagof",
+         "*then", "while",
          "#assert", "#define", "#else", "#elseif", "#emit", "#endif", "#endinput",
          "#endscript", "#error", "#file", "#if", "#include", "#line", "#pragma",
          "#tryinclude", "#undef", "#warning",

source/compiler/sc3.c

@@ -1435,6 +1435,30 @@ static int hier2(value *lval)
     while (paranthese--)
       needtoken(')');
     return FALSE;
+  case t__NAMEOF:
+    paranthese = 0;
+    while (matchtoken('('))
+      paranthese++;
+    tok=lex(&val, &st);
+    ldconst((litidx +glb_declared)*sizeof(cell),sPRI);
+    if (tok!=tSYMBOL)
+      return error_suggest(20, st, NULL, estNONSYMBOL, tok);    /* illegal symbol name */
+    sym = findloc(st);
+    if (sym==NULL)
+      sym=findglb(st, sSTATEVAR);
+    if (sym==NULL)
+      return error_suggest(17, st, NULL, estSYMBOL, esfVARCONST);   /* undefined symbol */
+    else if ((sym->usage & uDEFINE)==0)
+      return error_suggest(17, st, NULL, estSYMBOL, esfVARCONST);   /* undefined symbol (symbol is in the table, but it is "used" only) */
+    clear_value(lval);
+    for (tag=0; sym->name[tag]; ++tag)
+      litadd(sym->name[tag]);
+    litadd(0);
+    lval->ident=iARRAY;
+    lval->constval=-1-tag;
+    while (paranthese--)
+      needtoken(')');
+    return FALSE;
   case tSIZEOF:
     paranthese=0;
     while (matchtoken('('))

source/compiler/tests/__nameof_1.meta

@@ -0,0 +1,5 @@
+{
+  'test_type': 'output_check',
+  'errors': """
+  """
+}

source/compiler/tests/__nameof_1.pwn

@@ -0,0 +1,38 @@
+const SYMBOL_1 = 4;
+
+new symbol_2 = 4;
+
+#pragma unused symbol_2
+
+enum SYMBOL_3
+{
+	SYMBOL_4,
+};
+
+UnusedFunc()
+{
+	return 5;
+}
+
+#pragma unused UnusedFunc
+
+TestFunc(local_1, const local_2[])
+{
+	#pragma unused local_1, local_2
+	new dest[32];
+	dest = __nameof(SYMBOL_1);
+	dest = __nameof(symbol_2);
+	dest = __nameof(SYMBOL_3);
+	dest = __nameof(SYMBOL_4);
+	dest = __nameof(local_1);
+	dest = __nameof(local_2);
+	dest = __nameof(dest);
+	dest = __nameof(TestFunc);
+	dest = __nameof(UnusedFunc);
+}
+
+main()
+{
+	TestFunc(0, "__nameof");
+}
+

source/compiler/tests/__nameof_2.meta

@@ -0,0 +1,16 @@
+{
+  'test_type': 'output_check',
+  'errors': """
+__nameof_2.pwn(7) : error 017: undefined symbol "main"
+__nameof_2.pwn(7) : error 029: invalid expression, assumed zero
+__nameof_2.pwn(7) : warning 215: expression has no effect
+__nameof_2.pwn(9) : error 017: undefined symbol "DoesntExist"
+__nameof_2.pwn(9) : error 029: invalid expression, assumed zero
+__nameof_2.pwn(9) : warning 215: expression has no effect
+__nameof_2.pwn(10) : error 017: undefined symbol "local_3"; did you mean "local_1"?
+__nameof_2.pwn(10) : error 029: invalid expression, assumed zero
+__nameof_2.pwn(10) : warning 215: expression has no effect
+__nameof_2.pwn(3) : warning 203: symbol is never used: "local_1"
+__nameof_2.pwn(1) : warning 203: symbol is never used: "symbol_1"
+  """
+}

source/compiler/tests/__nameof_2.pwn

@@ -0,0 +1,17 @@
+new symbol_1 = 4;
+
+TestFunc(local_1)
+{
+	new dest[32];
+	dest = __nameof(symbol_1);
+	dest = __nameof(main);
+	dest = __nameof(local_1);
+	dest = __nameof(DoesntExist);
+	dest = __nameof(local_3);
+}
+
+main()
+{
+	TestFunc(0);
+}
+