[perl #132474] Add function for parsing sub signatures

This exposes a GRAMSUBSIGNATURE top-level production from perly.y for
toke.c to consume, which parses a subroutine signature, inside the
parens.

This needed a small change to the existing rules, to pull out a rule
that handles all of the insides of the parens but not the parens
themselves.

(h/t to ilmari for the suggestion)

1 files changed, 80 insertions, 79 deletions

diff --git a/perly.h b/perly.h
index 2021a8bde6..4660437cb9 100644
--- a/perly.h
+++ b/perly.h
@@ -62,84 +62,85 @@ extern int yydebug;
     GRAMBARESTMT = 261,
     GRAMFULLSTMT = 262,
     GRAMSTMTSEQ = 263,
-    BAREWORD = 264,
-    METHOD = 265,
-    FUNCMETH = 266,
-    THING = 267,
-    PMFUNC = 268,
-    PRIVATEREF = 269,
-    QWLIST = 270,
-    FUNC0OP = 271,
-    FUNC0SUB = 272,
-    UNIOPSUB = 273,
-    LSTOPSUB = 274,
-    PLUGEXPR = 275,
-    PLUGSTMT = 276,
-    LABEL = 277,
-    FORMAT = 278,
-    SUB = 279,
-    SIGSUB = 280,
-    ANONSUB = 281,
-    ANON_SIGSUB = 282,
-    PACKAGE = 283,
-    USE = 284,
-    WHILE = 285,
-    UNTIL = 286,
-    IF = 287,
-    UNLESS = 288,
-    ELSE = 289,
-    ELSIF = 290,
-    CONTINUE = 291,
-    FOR = 292,
-    GIVEN = 293,
-    WHEN = 294,
-    DEFAULT = 295,
-    LOOPEX = 296,
-    DOTDOT = 297,
-    YADAYADA = 298,
-    FUNC0 = 299,
-    FUNC1 = 300,
-    FUNC = 301,
-    UNIOP = 302,
-    LSTOP = 303,
-    RELOP = 304,
-    EQOP = 305,
-    MULOP = 306,
-    ADDOP = 307,
-    DOLSHARP = 308,
-    DO = 309,
-    HASHBRACK = 310,
-    NOAMP = 311,
-    LOCAL = 312,
-    MY = 313,
-    REQUIRE = 314,
-    COLONATTR = 315,
-    FORMLBRACK = 316,
-    FORMRBRACK = 317,
-    SUBLEXSTART = 318,
-    SUBLEXEND = 319,
-    PREC_LOW = 320,
-    OROP = 321,
-    DOROP = 322,
-    ANDOP = 323,
-    NOTOP = 324,
-    ASSIGNOP = 325,
-    OROR = 326,
-    DORDOR = 327,
-    ANDAND = 328,
-    BITOROP = 329,
-    BITANDOP = 330,
-    SHIFTOP = 331,
-    MATCHOP = 332,
-    UMINUS = 333,
-    REFGEN = 334,
-    POWOP = 335,
-    PREINC = 336,
-    PREDEC = 337,
-    POSTINC = 338,
-    POSTDEC = 339,
-    POSTJOIN = 340,
-    ARROW = 341
+    GRAMSUBSIGNATURE = 264,
+    BAREWORD = 265,
+    METHOD = 266,
+    FUNCMETH = 267,
+    THING = 268,
+    PMFUNC = 269,
+    PRIVATEREF = 270,
+    QWLIST = 271,
+    FUNC0OP = 272,
+    FUNC0SUB = 273,
+    UNIOPSUB = 274,
+    LSTOPSUB = 275,
+    PLUGEXPR = 276,
+    PLUGSTMT = 277,
+    LABEL = 278,
+    FORMAT = 279,
+    SUB = 280,
+    SIGSUB = 281,
+    ANONSUB = 282,
+    ANON_SIGSUB = 283,
+    PACKAGE = 284,
+    USE = 285,
+    WHILE = 286,
+    UNTIL = 287,
+    IF = 288,
+    UNLESS = 289,
+    ELSE = 290,
+    ELSIF = 291,
+    CONTINUE = 292,
+    FOR = 293,
+    GIVEN = 294,
+    WHEN = 295,
+    DEFAULT = 296,
+    LOOPEX = 297,
+    DOTDOT = 298,
+    YADAYADA = 299,
+    FUNC0 = 300,
+    FUNC1 = 301,
+    FUNC = 302,
+    UNIOP = 303,
+    LSTOP = 304,
+    RELOP = 305,
+    EQOP = 306,
+    MULOP = 307,
+    ADDOP = 308,
+    DOLSHARP = 309,
+    DO = 310,
+    HASHBRACK = 311,
+    NOAMP = 312,
+    LOCAL = 313,
+    MY = 314,
+    REQUIRE = 315,
+    COLONATTR = 316,
+    FORMLBRACK = 317,
+    FORMRBRACK = 318,
+    SUBLEXSTART = 319,
+    SUBLEXEND = 320,
+    PREC_LOW = 321,
+    OROP = 322,
+    DOROP = 323,
+    ANDOP = 324,
+    NOTOP = 325,
+    ASSIGNOP = 326,
+    OROR = 327,
+    DORDOR = 328,
+    ANDAND = 329,
+    BITOROP = 330,
+    BITANDOP = 331,
+    SHIFTOP = 332,
+    MATCHOP = 333,
+    UMINUS = 334,
+    REFGEN = 335,
+    POWOP = 336,
+    PREINC = 337,
+    PREDEC = 338,
+    POSTINC = 339,
+    POSTDEC = 340,
+    POSTJOIN = 341,
+    ARROW = 342
   };
 #endif
 
@@ -191,6 +192,6 @@ int yyparse (void);
 
 
 /* Generated from:
- * 41d458c12a47d69d8ab1315970582b2055ecea77bfc8a582b557e9b3df1c290a perly.y
+ * 4d7581de6482210c9b2f3302b589173c8d8c0a88724cc58b659ca9dcd2a35761 perly.y
  * 0947213b55d0ed11693554bea04987e886cf285f5c14cf9075fa1e7acc3f4061 regen_perly.pl
  * ex: set ro: */