Distinguish C- and perly- literals - PERLY_AMPERSAND

1 files changed, 105 insertions, 103 deletions

diff --git a/perly.tab b/perly.tab
index c4b9f0f653..c5dcd1e454 100644
--- a/perly.tab
+++ b/perly.tab
@@ -18,7 +18,7 @@
 #define YYNSTATES  573
 
 #define YYUNDEFTOK  2
-#define YYMAXUTOK   351
+#define YYMAXUTOK   352
 
 
 /* YYTRANSLATE(TOKEN-NUM) -- Symbol number corresponding to TOKEN-NUM
@@ -33,7 +33,7 @@ static const yytype_int8 yytranslate[] =
        0,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-       2,     2,     2,    96,     2,     2,   109,    13,    14,     2,
+       2,     2,     2,    96,     2,     2,   109,    13,     2,     2,
      108,   107,   110,    11,    81,    10,     2,   111,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,    84,     2,
        2,     2,     2,    83,    12,     2,     2,     2,     2,     2,
@@ -56,52 +56,52 @@ static const yytype_int8 yytranslate[] =
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     1,     2,     3,     4,
-       5,     6,     7,     8,     9,    15,    16,    17,    18,    19,
-      20,    21,    22,    23,    24,    25,    26,    27,    28,    29,
-      30,    31,    32,    33,    34,    35,    36,    37,    38,    39,
-      40,    41,    42,    43,    44,    45,    46,    47,    48,    49,
-      50,    51,    52,    53,    54,    55,    56,    57,    58,    59,
-      60,    61,    62,    63,    64,    65,    66,    67,    68,    69,
-      70,    71,    72,    73,    74,    75,    76,    77,    78,    79,
-      80,    82,    85,    86,    87,    88,    89,    90,    91,    92,
-      93,    94,    95,    98,    99,   100,   101,   102,   103,   104,
-     105,   106
+       5,     6,     7,     8,     9,    14,    15,    16,    17,    18,
+      19,    20,    21,    22,    23,    24,    25,    26,    27,    28,
+      29,    30,    31,    32,    33,    34,    35,    36,    37,    38,
+      39,    40,    41,    42,    43,    44,    45,    46,    47,    48,
+      49,    50,    51,    52,    53,    54,    55,    56,    57,    58,
+      59,    60,    61,    62,    63,    64,    65,    66,    67,    68,
+      69,    70,    71,    72,    73,    74,    75,    76,    77,    78,
+      79,    80,    82,    85,    86,    87,    88,    89,    90,    91,
+      92,    93,    94,    95,    98,    99,   100,   101,   102,   103,
+     104,   105,   106
 };
 
 #if YYDEBUG
   /* YYRLINE[YYN] -- Source line where rule number YYN was defined.  */
 static const yytype_int16 yyrline[] =
 {
-       0,   129,   129,   128,   140,   139,   150,   149,   163,   162,
-     176,   175,   189,   188,   199,   198,   211,   219,   227,   231,
-     239,   245,   246,   256,   257,   266,   270,   274,   281,   291,
-     293,   306,   303,   327,   322,   343,   351,   350,   359,   365,
-     371,   376,   378,   380,   387,   395,   397,   394,   414,   419,
-     426,   425,   440,   448,   454,   461,   460,   475,   479,   484,
-     492,   510,   511,   515,   519,   521,   523,   525,   527,   529,
-     531,   534,   540,   541,   546,   557,   558,   564,   570,   571,
-     576,   579,   583,   588,   592,   596,   597,   601,   607,   612,
-     617,   618,   623,   624,   629,   630,   632,   637,   639,   651,
-     652,   657,   659,   663,   683,   684,   686,   692,   757,   759,
-     765,   767,   771,   777,   778,   783,   784,   788,   792,   792,
-     860,   861,   866,   877,   878,   881,   892,   894,   896,   898,
-     902,   904,   909,   913,   917,   921,   927,   932,   938,   944,
-     946,   948,   951,   950,   961,   962,   966,   970,   973,   978,
-     983,   986,   990,   994,  1000,  1008,  1015,  1021,  1023,  1025,
-    1030,  1032,  1034,  1039,  1041,  1043,  1045,  1047,  1049,  1051,
-    1053,  1055,  1057,  1059,  1063,  1065,  1067,  1069,  1073,  1075,
-    1079,  1081,  1083,  1085,  1089,  1091,  1096,  1098,  1101,  1103,
-    1105,  1108,  1111,  1122,  1125,  1132,  1134,  1136,  1138,  1140,
-    1143,  1149,  1151,  1155,  1156,  1157,  1158,  1159,  1161,  1163,
-    1165,  1167,  1169,  1171,  1173,  1175,  1177,  1179,  1181,  1183,
-    1185,  1187,  1197,  1207,  1217,  1227,  1229,  1231,  1234,  1239,
-    1243,  1245,  1247,  1249,  1252,  1254,  1257,  1259,  1261,  1263,
-    1265,  1267,  1269,  1271,  1273,  1276,  1278,  1280,  1282,  1284,
-    1286,  1290,  1293,  1292,  1305,  1306,  1307,  1311,  1313,  1315,
-    1320,  1322,  1325,  1327,  1329,  1334,  1336,  1341,  1342,  1347,
-    1348,  1354,  1358,  1359,  1360,  1363,  1364,  1367,  1368,  1371,
-    1375,  1379,  1385,  1391,  1393,  1397,  1401,  1402,  1406,  1407,
-    1411,  1412,  1417,  1419,  1421,  1424
+       0,   130,   130,   129,   141,   140,   151,   150,   164,   163,
+     177,   176,   190,   189,   200,   199,   212,   220,   228,   232,
+     240,   246,   247,   257,   258,   267,   271,   275,   282,   292,
+     294,   307,   304,   328,   323,   344,   352,   351,   360,   366,
+     372,   377,   379,   381,   388,   396,   398,   395,   415,   420,
+     427,   426,   441,   449,   455,   462,   461,   476,   480,   485,
+     493,   511,   512,   516,   520,   522,   524,   526,   528,   530,
+     532,   535,   541,   542,   547,   558,   559,   565,   571,   572,
+     577,   580,   584,   589,   593,   597,   598,   602,   608,   613,
+     618,   619,   624,   625,   630,   631,   633,   638,   640,   652,
+     653,   658,   660,   664,   684,   685,   687,   693,   758,   760,
+     766,   768,   772,   778,   779,   784,   785,   789,   793,   793,
+     861,   862,   867,   878,   879,   882,   893,   895,   897,   899,
+     903,   905,   910,   914,   918,   922,   928,   933,   939,   945,
+     947,   949,   952,   951,   962,   963,   967,   971,   974,   979,
+     984,   987,   991,   995,  1001,  1009,  1016,  1022,  1024,  1026,
+    1031,  1033,  1035,  1040,  1042,  1044,  1046,  1048,  1050,  1052,
+    1054,  1056,  1058,  1060,  1064,  1066,  1068,  1070,  1074,  1076,
+    1080,  1082,  1084,  1086,  1090,  1092,  1097,  1099,  1102,  1104,
+    1106,  1109,  1112,  1123,  1126,  1133,  1135,  1137,  1139,  1141,
+    1144,  1150,  1152,  1156,  1157,  1158,  1159,  1160,  1162,  1164,
+    1166,  1168,  1170,  1172,  1174,  1176,  1178,  1180,  1182,  1184,
+    1186,  1188,  1198,  1208,  1218,  1228,  1230,  1232,  1235,  1240,
+    1244,  1246,  1248,  1250,  1253,  1255,  1258,  1260,  1262,  1264,
+    1266,  1268,  1270,  1272,  1274,  1277,  1279,  1281,  1283,  1285,
+    1287,  1291,  1294,  1293,  1306,  1307,  1308,  1312,  1314,  1316,
+    1321,  1323,  1326,  1328,  1330,  1335,  1337,  1342,  1343,  1348,
+    1349,  1355,  1359,  1360,  1361,  1364,  1365,  1368,  1369,  1372,
+    1376,  1380,  1386,  1392,  1394,  1398,  1402,  1403,  1407,  1408,
+    1412,  1413,  1418,  1420,  1422,  1425
 };
 #endif
 
@@ -112,37 +112,38 @@ static const char *const yytname[] =
 {
   "$end", "error", "$undefined", "GRAMPROG", "GRAMEXPR", "GRAMBLOCK",
   "GRAMBARESTMT", "GRAMFULLSTMT", "GRAMSTMTSEQ", "GRAMSUBSIGNATURE", "'-'",
-  "'+'", "'@'", "'%'", "'&'", "PERLY_BRACE_OPEN", "PERLY_BRACE_CLOSE",
-  "PERLY_BRACKET_OPEN", "PERLY_BRACKET_CLOSE", "PERLY_DOT",
-  "PERLY_EQUAL_SIGN", "PERLY_SEMICOLON", "BAREWORD", "METHOD", "FUNCMETH",
-  "THING", "PMFUNC", "PRIVATEREF", "QWLIST", "FUNC0OP", "FUNC0SUB",
-  "UNIOPSUB", "LSTOPSUB", "PLUGEXPR", "PLUGSTMT", "LABEL", "FORMAT", "SUB",
-  "SIGSUB", "ANONSUB", "ANON_SIGSUB", "PACKAGE", "USE", "WHILE", "UNTIL",
-  "IF", "UNLESS", "ELSE", "ELSIF", "CONTINUE", "FOR", "GIVEN", "WHEN",
-  "DEFAULT", "LOOPEX", "DOTDOT", "YADAYADA", "FUNC0", "FUNC1", "FUNC",
-  "UNIOP", "LSTOP", "MULOP", "ADDOP", "DOLSHARP", "DO", "HASHBRACK",
-  "NOAMP", "LOCAL", "MY", "REQUIRE", "COLONATTR", "FORMLBRACK",
-  "FORMRBRACK", "SUBLEXSTART", "SUBLEXEND", "PREC_LOW", "OROP", "DOROP",
-  "ANDOP", "NOTOP", "','", "ASSIGNOP", "'?'", "':'", "OROR", "DORDOR",
-  "ANDAND", "BITOROP", "BITANDOP", "CHEQOP", "NCEQOP", "CHRELOP",
-  "NCRELOP", "SHIFTOP", "MATCHOP", "'!'", "'~'", "UMINUS", "REFGEN",
-  "POWOP", "PREINC", "PREDEC", "POSTINC", "POSTDEC", "POSTJOIN", "ARROW",
-  "')'", "'('", "'$'", "'*'", "'/'", "$accept", "grammar", "@1", "@2",
-  "@3", "@4", "@5", "@6", "@7", "block", "formblock", "remember", "mblock",
-  "mremember", "stmtseq", "formstmtseq", "fullstmt", "labfullstmt",
-  "barestmt", "$@8", "$@9", "$@10", "$@11", "$@12", "@13", "$@14",
-  "formline", "formarg", "condition", "sideff", "else", "cont", "mintro",
-  "nexpr", "texpr", "iexpr", "mexpr", "mnexpr", "formname", "startsub",
-  "startanonsub", "startformsub", "subname", "proto", "subattrlist",
-  "myattrlist", "sigvarname", "sigslurpsigil", "sigslurpelem",
-  "sigdefault", "sigscalarelem", "sigelem", "siglist", "siglistornull",
-  "optsubsignature", "subsignature", "subsigguts", "$@15", "optsubbody",
-  "subbody", "optsigsubbody", "sigsubbody", "expr", "listexpr", "listop",
-  "@16", "method", "subscripted", "termbinop", "termrelop", "relopchain",
-  "termeqop", "eqopchain", "termunop", "anonymous", "termdo", "term",
-  "@17", "myattrterm", "myterm", "optlistexpr", "optexpr", "optrepl",
-  "my_scalar", "my_var", "refgen_topic", "my_refgen", "amper", "scalar",
-  "ary", "hsh", "arylen", "star", "sliceme", "kvslice", "gelem", "indirob", YY_NULLPTR
+  "'+'", "'@'", "'%'", "PERLY_AMPERSAND", "PERLY_BRACE_OPEN",
+  "PERLY_BRACE_CLOSE", "PERLY_BRACKET_OPEN", "PERLY_BRACKET_CLOSE",
+  "PERLY_DOT", "PERLY_EQUAL_SIGN", "PERLY_SEMICOLON", "BAREWORD", "METHOD",
+  "FUNCMETH", "THING", "PMFUNC", "PRIVATEREF", "QWLIST", "FUNC0OP",
+  "FUNC0SUB", "UNIOPSUB", "LSTOPSUB", "PLUGEXPR", "PLUGSTMT", "LABEL",
+  "FORMAT", "SUB", "SIGSUB", "ANONSUB", "ANON_SIGSUB", "PACKAGE", "USE",
+  "WHILE", "UNTIL", "IF", "UNLESS", "ELSE", "ELSIF", "CONTINUE", "FOR",
+  "GIVEN", "WHEN", "DEFAULT", "LOOPEX", "DOTDOT", "YADAYADA", "FUNC0",
+  "FUNC1", "FUNC", "UNIOP", "LSTOP", "MULOP", "ADDOP", "DOLSHARP", "DO",
+  "HASHBRACK", "NOAMP", "LOCAL", "MY", "REQUIRE", "COLONATTR",
+  "FORMLBRACK", "FORMRBRACK", "SUBLEXSTART", "SUBLEXEND", "PREC_LOW",
+  "OROP", "DOROP", "ANDOP", "NOTOP", "','", "ASSIGNOP", "'?'", "':'",
+  "OROR", "DORDOR", "ANDAND", "BITOROP", "BITANDOP", "CHEQOP", "NCEQOP",
+  "CHRELOP", "NCRELOP", "SHIFTOP", "MATCHOP", "'!'", "'~'", "UMINUS",
+  "REFGEN", "POWOP", "PREINC", "PREDEC", "POSTINC", "POSTDEC", "POSTJOIN",
+  "ARROW", "')'", "'('", "'$'", "'*'", "'/'", "$accept", "grammar", "@1",
+  "@2", "@3", "@4", "@5", "@6", "@7", "block", "formblock", "remember",
+  "mblock", "mremember", "stmtseq", "formstmtseq", "fullstmt",
+  "labfullstmt", "barestmt", "$@8", "$@9", "$@10", "$@11", "$@12", "@13",
+  "$@14", "formline", "formarg", "condition", "sideff", "else", "cont",
+  "mintro", "nexpr", "texpr", "iexpr", "mexpr", "mnexpr", "formname",
+  "startsub", "startanonsub", "startformsub", "subname", "proto",
+  "subattrlist", "myattrlist", "sigvarname", "sigslurpsigil",
+  "sigslurpelem", "sigdefault", "sigscalarelem", "sigelem", "siglist",
+  "siglistornull", "optsubsignature", "subsignature", "subsigguts", "$@15",
+  "optsubbody", "subbody", "optsigsubbody", "sigsubbody", "expr",
+  "listexpr", "listop", "@16", "method", "subscripted", "termbinop",
+  "termrelop", "relopchain", "termeqop", "eqopchain", "termunop",
+  "anonymous", "termdo", "term", "@17", "myattrterm", "myterm",
+  "optlistexpr", "optexpr", "optrepl", "my_scalar", "my_var",
+  "refgen_topic", "my_refgen", "amper", "scalar", "ary", "hsh", "arylen",
+  "star", "sliceme", "kvslice", "gelem", "indirob", YY_NULLPTR
 };
 #endif
 
@@ -152,16 +153,16 @@ static const char *const yytname[] =
 static const yytype_int16 yytoknum[] =
 {
        0,   256,   257,   258,   259,   260,   261,   262,   263,   264,
-      45,    43,    64,    37,    38,   265,   266,   267,   268,   269,
-     270,   271,   272,   273,   274,   275,   276,   277,   278,   279,
-     280,   281,   282,   283,   284,   285,   286,   287,   288,   289,
-     290,   291,   292,   293,   294,   295,   296,   297,   298,   299,
-     300,   301,   302,   303,   304,   305,   306,   307,   308,   309,
-     310,   311,   312,   313,   314,   315,   316,   317,   318,   319,
-     320,   321,   322,   323,   324,   325,   326,   327,   328,   329,
-     330,    44,   331,    63,    58,   332,   333,   334,   335,   336,
-     337,   338,   339,   340,   341,   342,    33,   126,   343,   344,
-     345,   346,   347,   348,   349,   350,   351,    41,    40,    36,
+      45,    43,    64,    37,   265,   266,   267,   268,   269,   270,
+     271,   272,   273,   274,   275,   276,   277,   278,   279,   280,
+     281,   282,   283,   284,   285,   286,   287,   288,   289,   290,
+     291,   292,   293,   294,   295,   296,   297,   298,   299,   300,
+     301,   302,   303,   304,   305,   306,   307,   308,   309,   310,
+     311,   312,   313,   314,   315,   316,   317,   318,   319,   320,
+     321,   322,   323,   324,   325,   326,   327,   328,   329,   330,
+     331,    44,   332,    63,    58,   333,   334,   335,   336,   337,
+     338,   339,   340,   341,   342,   343,    33,   126,   344,   345,
+     346,   347,   348,   349,   350,   351,   352,    41,    40,    36,
       42,    47
 };
 # endif
@@ -1165,40 +1166,41 @@ static const toketypes yy_type_tab[] =
 {
   toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
   toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
-  toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
+  toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
   toketype_ival, toketype_ival, toketype_ival,
-  toketype_ival, toketype_ival, toketype_opval, toketype_opval, toketype_opval,
+  toketype_ival, toketype_ival, toketype_ival, toketype_opval, toketype_opval,
+  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
   toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
-  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_ival, toketype_ival,
   toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
   toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
   toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
-  toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
-  toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
-  toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
   toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
   toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
+  toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
+  toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
+  toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
   toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
   toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
   toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
-  toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_opval, toketype_opval, toketype_ival, toketype_opval,
-  toketype_ival, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
-  toketype_opval, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
-  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_ival,
-  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_ival,
-  toketype_ival, toketype_ival, toketype_opval, toketype_opval, toketype_opval,
-  toketype_opval, toketype_opval, toketype_ival, toketype_opval,
+  toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_opval, toketype_opval, toketype_ival,
+  toketype_opval, toketype_ival, toketype_opval, toketype_opval, toketype_opval,
+  toketype_opval, toketype_opval, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
+  toketype_ival, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
+  toketype_ival, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
+  toketype_ival, toketype_ival, toketype_ival, toketype_opval, toketype_opval,
+  toketype_opval, toketype_opval, toketype_opval, toketype_ival,
+  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
+  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_ival,
+  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
+  toketype_opval, toketype_opval, toketype_ival, toketype_opval, toketype_opval, toketype_opval,
   toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
-  toketype_opval, toketype_opval, toketype_opval, toketype_ival, toketype_opval,
-  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
-  toketype_ival, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
-  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
-  toketype_ival, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
   toketype_opval, toketype_opval, toketype_opval, toketype_ival, toketype_opval, toketype_opval,
-  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval
+  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
+  toketype_opval, toketype_ival, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
+  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval
 };
 
 /* Generated from:
- * 73ee434ba96b92f48b5072443bb2c4bcd9bdf40ef9685a6c1ec4a8ea8a0ebe8b perly.y
+ * 2e61cf01f0e14707d220536eb9865fe226c153c967f8aa51eea0786f6a56feb9 perly.y
  * acf1cbfd2545faeaaa58b1cf0cf9d7f98b5be0752eb7a54528ef904a9e2e1ca7 regen_perly.pl
  * ex: set ro: */