home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / NeXT / GnuSource / cc-61.0.1 / cc / objc-parse.y-diffs < prev    next >
Text File  |  1991-06-19  |  33KB  |  1,250 lines
  1. *** c-parse.y    Wed Jun 12 15:26:45 1991
  2. --- objc-parse.y    Wed Jun 19 13:26:42 1991
  3. ***************
  4. *** 1,5 ****
  5. --- 1,6 ----
  6.   /* YACC parser for C syntax.
  7.      Copyright (C) 1987, 1988, 1989 Free Software Foundation, Inc.
  8. +    Objective-C extensions by s.naroff.
  9.   
  10.   This file is part of GNU CC.
  11.   
  12. ***************
  13. *** 48,53 ****
  14. --- 49,56 ----
  15.   #include "c-tree.h"
  16.   #include "flags.h"
  17.   
  18. + #include "objc-actions.h"
  19. + 
  20.   #ifdef MULTIBYTE_CHARS
  21.   #include <stdlib.h>
  22.   #include <locale.h>
  23. ***************
  24. *** 117,122 ****
  25. --- 120,129 ----
  26.   %token BREAK CONTINUE RETURN GOTO ASM TYPEOF ALIGNOF ALIGN
  27.   %token ATTRIBUTE EXTENSION LABEL
  28.   
  29. + /* the Objective-C keywords */
  30. + %token INTERFACE IMPLEMENTATION END SELECTOR DEFS ENCODE
  31. + %token CLASSNAME PUBLIC
  32. + 
  33.   /* Add precedence rules to solve dangling else s/r conflict */
  34.   %nonassoc IF
  35.   %nonassoc ELSE
  36. ***************
  37. *** 174,179 ****
  38. --- 181,196 ----
  39.   %type <filename> save_filename
  40.   %type <lineno> save_lineno
  41.   
  42. + /* the Objective-C nonterminals */
  43. + 
  44. + %type <ttype> ivar_decl_list ivar_decls ivar_decl ivars ivar_declarator
  45. + %type <ttype> methoddecl unaryselector keywordselector selector
  46. + %type <ttype> keyworddecl receiver objcmessageexpr messageargs
  47. + %type <ttype> keywordexpr keywordarglist keywordarg
  48. + %type <ttype> myparms myparm optparmlist reservedwords objcselectorexpr
  49. + %type <ttype> selectorarg keywordnamelist keywordname objcencodeexpr
  50. + %type <ttype> CLASSNAME
  51. + 
  52.   %{
  53.   /* the declaration found for the last IDENTIFIER token read in.
  54.      yylex must look this up to detect typedefs, which get token type TYPENAME,
  55. ***************
  56. *** 202,207 ****
  57. --- 219,238 ----
  58.   
  59.   static int yylex ();
  60.   
  61. + /* Objective-C specific information */
  62. + 
  63. + static tree objc_interface_context;
  64. + static tree objc_implementation_context;
  65. + static tree objc_method_context;
  66. + static tree objc_ivar_chain;
  67. + static tree objc_ivar_context;
  68. + static enum tree_code objc_inherit_code;
  69. + static int objc_receiver_context;
  70. + static int objc_public_flag;
  71. + 
  72. + static char *token_buffer;    /* Pointer to token buffer.
  73. +                    Actual allocated length is maxtoken + 2.  */
  74. + 
  75.   /* Tell yyparse how to print a token's value, if yydebug is set.  */
  76.   
  77.   #define YYPRINT(FILE,YYCHAR,YYLVAL) yyprint(FILE,YYCHAR,YYLVAL)
  78. ***************
  79. *** 250,257 ****
  80.   %%
  81.   program: /* empty */
  82.           { if (pedantic)
  83. !             pedwarn ("ANSI C forbids an empty source file"); }
  84.       | extdefs
  85.       ;
  86.   
  87.   /* the reason for the strange actions in this rule
  88. --- 281,290 ----
  89.   %%
  90.   program: /* empty */
  91.           { if (pedantic)
  92. !             pedwarn ("ANSI C forbids an empty source file");
  93. !           objc_finish (); }
  94.       | extdefs
  95. +         { objc_finish (); }
  96.       ;
  97.   
  98.   /* the reason for the strange actions in this rule
  99. ***************
  100. *** 266,271 ****
  101. --- 299,305 ----
  102.   extdef:
  103.       fndef
  104.       | datadef
  105. +     | objcdef
  106.       | ASM '(' string ')' ';'
  107.           { if (pedantic)
  108.               pedwarn ("ANSI C forbids use of `asm' keyword");
  109. ***************
  110. *** 330,335 ****
  111. --- 364,371 ----
  112.   identifier:
  113.       IDENTIFIER
  114.       | TYPENAME
  115. +         | CLASSNAME
  116. +         { $$ = CLASS_NAME ($1); }
  117.       ;
  118.   
  119.   unop:     '&'
  120. ***************
  121. *** 480,488 ****
  122.               yychar = YYLEX;
  123.                 if (yychar == '(')
  124.               {
  125. !               $$ = implicitly_declare ($1);
  126. !               assemble_external ($$);
  127. !               TREE_USED ($$) = 1;
  128.               }
  129.                 else if (current_function_decl == 0)
  130.               {
  131. --- 516,536 ----
  132.               yychar = YYLEX;
  133.                 if (yychar == '(')
  134.               {
  135. !               if (objc_receiver_context
  136. !                   && ! (objc_receiver_context
  137. !                     && strcmp (IDENTIFIER_POINTER ($1), "super")))
  138. !                 /* we have a message to super */
  139. !                 $$ = get_super_receiver ();
  140. !               else if (objc_method_context
  141. !                    && is_ivar (objc_ivar_chain, $1))
  142. !                 $$ = build_ivar_reference ($1);
  143. !               else
  144. !                 {
  145. !                   /* Ordinary implicit function declaration.  */
  146. !                   $$ = implicitly_declare ($1);
  147. !                   assemble_external ($$);
  148. !                   TREE_USED ($$) = 1;
  149. !                 }
  150.               }
  151.                 else if (current_function_decl == 0)
  152.               {
  153. ***************
  154. *** 492,521 ****
  155.               }
  156.                 else
  157.               {
  158. !               if (IDENTIFIER_GLOBAL_VALUE ($1) != error_mark_node
  159. !                   || IDENTIFIER_ERROR_LOCUS ($1) != current_function_decl)
  160.                   {
  161. !                   error ("`%s' undeclared (first use this function)",
  162. !                      IDENTIFIER_POINTER ($1));
  163. ! 
  164. !                   if (! undeclared_variable_notice)
  165.                   {
  166. !                   error ("(Each undeclared identifier is reported only once");
  167. !                   error ("for each function it appears in.)");
  168. !                   undeclared_variable_notice = 1;
  169.                   }
  170. !                 }
  171. !               $$ = error_mark_node;
  172. !               /* Prevent repeated error messages.  */
  173. !               IDENTIFIER_GLOBAL_VALUE ($1) = error_mark_node;
  174. !               IDENTIFIER_ERROR_LOCUS ($1) = current_function_decl;
  175.               }
  176.               }
  177. !           else if (! TREE_USED ($$))
  178.               {
  179. !               if (TREE_EXTERNAL ($$))
  180. !             assemble_external ($$);
  181. !               TREE_USED ($$) = 1;
  182.               }
  183.             if (TREE_CODE ($$) == CONST_DECL)
  184.               $$ = DECL_INITIAL ($$);
  185. --- 540,601 ----
  186.               }
  187.                 else
  188.               {
  189. !                   if (objc_receiver_context
  190. !                   && ! (objc_receiver_context
  191. !                     && strcmp (IDENTIFIER_POINTER ($1), "super")))
  192. !                 /* we have a message to super */
  193. !                 $$ = get_super_receiver ();
  194. !               else if (objc_method_context
  195. !                    && is_ivar (objc_ivar_chain, $1))
  196. !                 $$ = build_ivar_reference ($1);
  197. !               else
  198.                   {
  199. !                   if (IDENTIFIER_GLOBAL_VALUE ($1) != error_mark_node
  200. !                   || IDENTIFIER_ERROR_LOCUS ($1) != current_function_decl)
  201.                   {
  202. !                   error ("`%s' undeclared (first use this function)",
  203. !                      IDENTIFIER_POINTER ($1));
  204. ! 
  205. !                   if (! undeclared_variable_notice)
  206. !                     {
  207. !                       error ("(Each undeclared identifier is reported only once");
  208. !                       error ("for each function it appears in.)");
  209. !                       undeclared_variable_notice = 1;
  210. !                     }
  211.                   }
  212. !                   $$ = error_mark_node;
  213. !                   /* Prevent repeated error messages.  */
  214. !                   IDENTIFIER_GLOBAL_VALUE ($1) = error_mark_node;
  215. !                   IDENTIFIER_ERROR_LOCUS ($1) = current_function_decl;
  216. !                     }
  217.               }
  218.               }
  219. !           else
  220.               {
  221. !               if (! TREE_USED ($$))
  222. !             {
  223. !               if (TREE_EXTERNAL ($$))
  224. !                 assemble_external ($$);
  225. !               TREE_USED ($$) = 1;
  226. !             }
  227. !               /* we have a definition - still check if iVariable */
  228. ! 
  229. !               if (!objc_receiver_context
  230. !               || (objc_receiver_context
  231. !                   && strcmp (IDENTIFIER_POINTER ($1), "super")))
  232. !                         {
  233. !               if (objc_method_context
  234. !                   && is_ivar (objc_ivar_chain, $1))
  235. !                             {
  236. !                               if (IDENTIFIER_LOCAL_VALUE ($1))
  237. !                                 warning ("local declaration of `%s' hides instance variable",
  238. !                                      IDENTIFIER_POINTER ($1));
  239. !                               else
  240. !                                 $$ = build_ivar_reference ($1);
  241. !                             }
  242. !             }
  243. !                       else /* we have a message to super */
  244. !                 $$ = get_super_receiver ();
  245.               }
  246.             if (TREE_CODE ($$) == CONST_DECL)
  247.               $$ = DECL_INITIAL ($$);
  248. ***************
  249. *** 562,574 ****
  250.       | primary '[' expr ']'   %prec '.'
  251.           { $$ = build_array_ref ($1, $3); }
  252.       | primary '.' identifier
  253. !         { $$ = build_component_ref ($1, $3); }
  254.       | primary POINTSAT identifier
  255. !         { $$ = build_component_ref (build_indirect_ref ($1, "->"), $3); }
  256.       | primary PLUSPLUS
  257.           { $$ = build_unary_op (POSTINCREMENT_EXPR, $1, 0); }
  258.       | primary MINUSMINUS
  259.           { $$ = build_unary_op (POSTDECREMENT_EXPR, $1, 0); }
  260.       ;
  261.   
  262.   /* Produces a STRING_CST with perhaps more STRING_CSTs chained onto it.  */
  263. --- 642,682 ----
  264.       | primary '[' expr ']'   %prec '.'
  265.           { $$ = build_array_ref ($1, $3); }
  266.       | primary '.' identifier
  267. !         {
  268. !                   if (doing_objc_thang)
  269. !                     {
  270. !               if (is_public ($1, $3))
  271. !             $$ = build_component_ref ($1, $3);
  272. !               else
  273. !             $$ = error_mark_node;
  274. !             }
  275. !                   else
  276. !                     $$ = build_component_ref ($1, $3);
  277. !         }
  278.       | primary POINTSAT identifier
  279. !         {
  280. !                   tree anExpr = build_indirect_ref ($1, "->");
  281. ! 
  282. !                   if (doing_objc_thang)
  283. !                     {
  284. !               if (is_public (anExpr, $3))
  285. !             $$ = build_component_ref (anExpr, $3);
  286. !               else
  287. !             $$ = error_mark_node;
  288. !             }
  289. !                   else
  290. !                     $$ = build_component_ref (anExpr, $3);
  291. !         }
  292.       | primary PLUSPLUS
  293.           { $$ = build_unary_op (POSTINCREMENT_EXPR, $1, 0); }
  294.       | primary MINUSMINUS
  295.           { $$ = build_unary_op (POSTDECREMENT_EXPR, $1, 0); }
  296. +     | objcmessageexpr
  297. +         { $$ = build_message_expr ($1); }
  298. +     | objcselectorexpr
  299. +         { $$ = build_selector_expr ($1); }
  300. +     | objcencodeexpr
  301. +         { $$ = build_encode_expr ($1); }
  302.       ;
  303.   
  304.   /* Produces a STRING_CST with perhaps more STRING_CSTs chained onto it.  */
  305. ***************
  306. *** 701,706 ****
  307. --- 809,816 ----
  308.           { /* For a typedef name, record the meaning, not the name.
  309.                In case of `foo foo, bar;'.  */
  310.             $$ = lookup_name ($1); }
  311. +         | CLASSNAME
  312. +         { $$ = get_static_reference ($1); }
  313.       | TYPEOF '(' expr ')'
  314.           { $$ = TREE_TYPE ($3);
  315.             if (pedantic)
  316. ***************
  317. *** 1016,1021 ****
  318. --- 1126,1134 ----
  319.       | component_decl_list2 ';'
  320.           { if (pedantic)
  321.               warning ("extra semicolon in struct or union specified"); }
  322. +     /* foo(sizeof(struct{ @defs(ClassName)})); */
  323. +     | DEFS '(' CLASSNAME ')'
  324. +         { $$ = get_class_ivars ($3); }
  325.       ;
  326.   
  327.   /* There is a shift-reduce conflict here, because `components' may
  328. ***************
  329. *** 1161,1167 ****
  330.             pushlevel (0);
  331.             clear_last_expr ();
  332.             push_momentary ();
  333. !           expand_start_bindings (0); }
  334.       ;
  335.   
  336.   /* Read zero or more forward-declarations for labels
  337. --- 1274,1282 ----
  338.             pushlevel (0);
  339.             clear_last_expr ();
  340.             push_momentary ();
  341. !           expand_start_bindings (0);
  342. !           if (objc_method_context)
  343. !             add_objc_decls (); }
  344.       ;
  345.   
  346.   /* Read zero or more forward-declarations for labels
  347. ***************
  348. *** 1567,1572 ****
  349. --- 1682,2248 ----
  350.       | identifiers ',' IDENTIFIER
  351.           { $$ = chainon ($1, build_tree_list (NULL_TREE, $3)); }
  352.       ;
  353. + 
  354. + /*
  355. +  *    Objective-C productions.
  356. +  */
  357. + objcdef:
  358. +       classdef
  359. +     | methoddef
  360. +     | END
  361. +         {
  362. +           if (objc_implementation_context)
  363. +                     {
  364. +               finish_class (objc_implementation_context);
  365. +               objc_ivar_chain = NULL_TREE;
  366. +               objc_implementation_context = NULL_TREE;
  367. +             }
  368. +           else
  369. +             warning ("`@end' must appear in an implementation context");
  370. +         }
  371. +     ;
  372. + 
  373. + classdef:
  374. +       INTERFACE identifier '{'
  375. +         {
  376. +           objc_interface_context = objc_ivar_context
  377. +             = start_class (INTERFACE_TYPE, $2, NULL_TREE);
  378. +                   objc_public_flag = 0;
  379. +         }
  380. +       ivar_decl_list '}'
  381. +         {
  382. +                   continue_class (objc_interface_context);
  383. +         }
  384. +       methodprotolist
  385. +       END
  386. +         {
  387. +           finish_class (objc_interface_context);
  388. +           objc_interface_context = NULL_TREE;
  389. +         }
  390. + 
  391. +     | INTERFACE identifier
  392. +         {
  393. +           objc_interface_context
  394. +             = start_class (INTERFACE_TYPE, $2, NULL_TREE);
  395. +                   continue_class (objc_interface_context);
  396. +         }
  397. +       methodprotolist
  398. +       END
  399. +         {
  400. +           finish_class (objc_interface_context);
  401. +           objc_interface_context = NULL_TREE;
  402. +         }
  403. + 
  404. +     | INTERFACE identifier ':' identifier '{'
  405. +         {
  406. +           objc_interface_context = objc_ivar_context
  407. +             = start_class (INTERFACE_TYPE, $2, $4);
  408. +                   objc_public_flag = 0;
  409. +         }
  410. +       ivar_decl_list '}'
  411. +         {
  412. +                   continue_class (objc_interface_context);
  413. +         }
  414. +       methodprotolist
  415. +       END
  416. +         {
  417. +           finish_class (objc_interface_context);
  418. +           objc_interface_context = NULL_TREE;
  419. +         }
  420. + 
  421. +     | INTERFACE identifier ':' identifier
  422. +         {
  423. +           objc_interface_context
  424. +             = start_class (INTERFACE_TYPE, $2, $4);
  425. +                   continue_class (objc_interface_context);
  426. +         }
  427. +       methodprotolist
  428. +       END
  429. +         {
  430. +           finish_class (objc_interface_context);
  431. +           objc_interface_context = NULL_TREE;
  432. +         }
  433. + 
  434. +     | IMPLEMENTATION identifier '{'
  435. +         {
  436. +           objc_implementation_context = objc_ivar_context
  437. +             = start_class (IMPLEMENTATION_TYPE, $2, NULL_TREE);
  438. +                   objc_public_flag = 0;
  439. +         }
  440. +       ivar_decl_list '}'
  441. +         {
  442. +                   objc_ivar_chain
  443. +             = continue_class (objc_implementation_context);
  444. +         }
  445. + 
  446. +     | IMPLEMENTATION identifier
  447. +         {
  448. +           objc_implementation_context
  449. +             = start_class (IMPLEMENTATION_TYPE, $2, NULL_TREE);
  450. +                   objc_ivar_chain
  451. +             = continue_class (objc_implementation_context);
  452. +         }
  453. + 
  454. +     | IMPLEMENTATION identifier ':' identifier '{'
  455. +         {
  456. +           objc_implementation_context = objc_ivar_context
  457. +             = start_class (IMPLEMENTATION_TYPE, $2, $4);
  458. +                   objc_public_flag = 0;
  459. +         }
  460. +       ivar_decl_list '}'
  461. +         {
  462. +                   objc_ivar_chain
  463. +             = continue_class (objc_implementation_context);
  464. +         }
  465. + 
  466. +     | IMPLEMENTATION identifier ':' identifier
  467. +         {
  468. +           objc_implementation_context
  469. +             = start_class (IMPLEMENTATION_TYPE, $2, $4);
  470. +                   objc_ivar_chain
  471. +             = continue_class (objc_implementation_context);
  472. +         }
  473. + 
  474. +     | INTERFACE identifier '(' identifier ')'
  475. +         {
  476. +           objc_interface_context
  477. +             = start_class (PROTOCOL_TYPE, $2, $4);
  478. +                   continue_class (objc_interface_context);
  479. +         }
  480. +       methodprotolist
  481. +       END
  482. +         {
  483. +           finish_class (objc_interface_context);
  484. +           objc_interface_context = NULL_TREE;
  485. +         }
  486. + 
  487. +     | IMPLEMENTATION identifier '(' identifier ')'
  488. +         {
  489. +           objc_implementation_context
  490. +             = start_class (CATEGORY_TYPE, $2, $4);
  491. +                   objc_ivar_chain
  492. +             = continue_class (objc_implementation_context);
  493. +         }
  494. +     ;
  495. + 
  496. + ivar_decl_list:
  497. +           ivar_decls PUBLIC { objc_public_flag = 1; } ivar_decls
  498. +         | ivar_decls
  499. +         ;
  500. + 
  501. + ivar_decls:
  502. +           /* empty */
  503. +         {
  504. +                   $$ = NULL_TREE;
  505. +                 }
  506. +     | ivar_decls ivar_decl ';'
  507. +     | ivar_decls ';'
  508. +         {
  509. +                   if (pedantic)
  510. +             warning ("extra semicolon in struct or union specified");
  511. +                 }
  512. +     ;
  513. + 
  514. + 
  515. + /* There is a shift-reduce conflict here, because `components' may
  516. +    start with a `typename'.  It happens that shifting (the default resolution)
  517. +    does the right thing, because it treats the `typename' as part of
  518. +    a `typed_typespecs'.
  519. + 
  520. +    It is possible that this same technique would allow the distinction
  521. +    between `notype_initdecls' and `initdecls' to be eliminated.
  522. +    But I am being cautious and not trying it.  */
  523. + 
  524. + ivar_decl:
  525. +     typed_typespecs setspecs ivars
  526. +             {
  527. +                   $$ = $3;
  528. +           resume_momentary ($2);
  529. +                 }
  530. +     | nonempty_type_quals setspecs ivars
  531. +         {
  532. +                   $$ = $3;
  533. +           resume_momentary ($2);
  534. +                 }
  535. +     | error
  536. +         { $$ = NULL_TREE; }
  537. +     ;
  538. + 
  539. + ivars:
  540. +       /* empty */
  541. +         { $$ = NULL_TREE; }
  542. +     | ivar_declarator
  543. +     | ivars ',' ivar_declarator
  544. +     ;
  545. + 
  546. + ivar_declarator:
  547. +       declarator
  548. +         {
  549. +           $$ = add_instance_variable (objc_ivar_context,
  550. +                           objc_public_flag,
  551. +                           $1, current_declspecs,
  552. +                           NULL_TREE);
  553. +                 }
  554. +     | declarator ':' expr_no_commas
  555. +         {
  556. +           $$ = add_instance_variable (objc_ivar_context,
  557. +                           objc_public_flag,
  558. +                           $1, current_declspecs, $3);
  559. +                 }
  560. +     | ':' expr_no_commas
  561. +         {
  562. +           $$ = add_instance_variable (objc_ivar_context,
  563. +                           objc_public_flag,
  564. +                           NULL_TREE,
  565. +                           current_declspecs, $2);
  566. +                 }
  567. +     ;
  568. + 
  569. + methoddef:
  570. +       '+'
  571. +         {
  572. +           if (objc_implementation_context)
  573. +             objc_inherit_code = CLASS_METHOD_DECL;
  574. +                   else
  575. +             fatal ("method definition not in class context");
  576. +         }
  577. +       methoddecl
  578. +         {
  579. +           add_class_method (objc_implementation_context, $3);
  580. +           start_method_def ($3);
  581. +           objc_method_context = $3;
  582. +         }
  583. +       optarglist
  584. +         {
  585. +           continue_method_def ();
  586. +         }
  587. +       compstmt_or_error
  588. +         {
  589. +           finish_method_def ();
  590. +           objc_method_context = NULL_TREE;
  591. +         }
  592. + 
  593. +     | '-'
  594. +         {
  595. +           if (objc_implementation_context)
  596. +             objc_inherit_code = INSTANCE_METHOD_DECL;
  597. +                   else
  598. +             fatal ("method definition not in class context");
  599. +         }
  600. +       methoddecl
  601. +         {
  602. +           add_instance_method (objc_implementation_context, $3);
  603. +           start_method_def ($3);
  604. +           objc_method_context = $3;
  605. +         }
  606. +       optarglist
  607. +         {
  608. +           continue_method_def ();
  609. +         }
  610. +       compstmt_or_error
  611. +         {
  612. +           finish_method_def ();
  613. +           objc_method_context = NULL_TREE;
  614. +         }
  615. +     ;
  616. + 
  617. + /* the reason for the strange actions in this rule
  618. +  is so that notype_initdecls when reached via datadef
  619. +  can find a valid list of type and sc specs in $0. */
  620. + 
  621. + methodprotolist:
  622. +       /* empty  */
  623. +     | {$<ttype>$ = NULL_TREE; } methodprotolist2
  624. +     ;
  625. + 
  626. + methodprotolist2:         /* eliminates a shift/reduce conflict */
  627. +        methodproto
  628. +     |  datadef
  629. +     | methodprotolist2 methodproto
  630. +     | methodprotolist2 {$<ttype>$ = NULL_TREE; } datadef
  631. +     ;
  632. + 
  633. + semi_or_error:
  634. +       ';'
  635. +     | error
  636. +     ;
  637. + 
  638. + methodproto:
  639. +       '+'
  640. +         {
  641. +           objc_inherit_code = CLASS_METHOD_DECL;
  642. +         }
  643. +       methoddecl
  644. +         {
  645. +           add_class_method (objc_interface_context, $3);
  646. +         }
  647. +       semi_or_error
  648. + 
  649. +     | '-'
  650. +         {
  651. +           objc_inherit_code = INSTANCE_METHOD_DECL;
  652. +         }
  653. +       methoddecl
  654. +         {
  655. +           add_instance_method (objc_interface_context, $3);
  656. +         }
  657. +       semi_or_error
  658. +     ;
  659. + 
  660. + methoddecl:
  661. +       '(' typename ')' unaryselector
  662. +         {
  663. +           $$ = build_method_decl (objc_inherit_code, $2, $4, NULL_TREE);
  664. +         }
  665. + 
  666. +     | unaryselector
  667. +         {
  668. +           $$ = build_method_decl (objc_inherit_code, NULL_TREE, $1, NULL_TREE);
  669. +         }
  670. + 
  671. +     | '(' typename ')' keywordselector optparmlist
  672. +         {
  673. +           $$ = build_method_decl (objc_inherit_code, $2, $4, $5);
  674. +         }
  675. + 
  676. +     | keywordselector optparmlist
  677. +         {
  678. +           $$ = build_method_decl (objc_inherit_code, NULL_TREE, $1, $2);
  679. +         }
  680. +     ;
  681. + 
  682. + /* "optarglist" assumes that start_method_def has already been called...
  683. +    if it is not, the "xdecls" will not be placed in the proper scope */
  684. + 
  685. + optarglist:
  686. +       /* empty */
  687. +     | ';' myxdecls
  688. +     ;
  689. + 
  690. + /* to get around the following situation: "int foo (int a) int b; {}" that
  691. +    is synthesized when parsing "- a:a b:b; id c; id d; { ... }" */
  692. + 
  693. + myxdecls:
  694. +       /* empty */
  695. +     | mydecls
  696. +     ;
  697. + 
  698. + mydecls:
  699. +     mydecl
  700. +     | errstmt
  701. +     | mydecls mydecl
  702. +     | mydecl errstmt
  703. +     ;
  704. + 
  705. + mydecl:
  706. +     typed_declspecs setspecs myparms ';'
  707. +         { resume_momentary ($2); }
  708. +     | typed_declspecs ';'
  709. +         { shadow_tag ($1); }
  710. +     | declmods ';'
  711. +         { warning ("empty declaration"); }
  712. +     ;
  713. + 
  714. + myparms:
  715. +     myparm
  716. +         { push_parm_decl ($1); }
  717. +     | myparms ',' myparm
  718. +         { push_parm_decl ($3); }
  719. +     ;
  720. + 
  721. + /* A single parameter declaration or parameter type name,
  722. +    as found in a parmlist. DOES NOT ALLOW AN INITIALIZER OR ASMSPEC */
  723. + 
  724. + myparm:
  725. +       parm_declarator
  726. +         { $$ = build_tree_list (current_declspecs, $1)    ; }
  727. +     | notype_declarator
  728. +         { $$ = build_tree_list (current_declspecs, $1)    ; }
  729. +     | absdcl
  730. +         { $$ = build_tree_list (current_declspecs, $1)    ; }
  731. +     ;
  732. + 
  733. + optparmlist:
  734. +       /* empty */
  735. +         {
  736. +               $$ = NULL_TREE;
  737. +         }
  738. +     | ',' ELLIPSIS
  739. +         {
  740. +           /* oh what a kludge! */
  741. +           $$ = (tree)1;
  742. +         }
  743. +     | ','
  744. +         {
  745. +           pushlevel (0);
  746. +         }
  747. +       parmlist_2
  748. +         {
  749. +             /* returns a tree list node generated by get_parm_info */
  750. +           $$ = $3;
  751. +           poplevel (0, 0, 0);
  752. +         }
  753. +     ;
  754. + 
  755. + unaryselector:
  756. +       selector
  757. +     ;
  758. + 
  759. + keywordselector:
  760. +       keyworddecl
  761. + 
  762. +     | keywordselector keyworddecl
  763. +         {
  764. +           $$ = chainon ($1, $2);
  765. +         }
  766. +     ;
  767. + 
  768. + selector:
  769. +       IDENTIFIER
  770. +         | TYPENAME
  771. +     | reservedwords
  772. +     ;
  773. + 
  774. + reservedwords:
  775. +       ENUM { $$ = get_identifier (token_buffer); }
  776. +     | STRUCT { $$ = get_identifier (token_buffer); }
  777. +     | UNION { $$ = get_identifier (token_buffer); }
  778. +     | IF { $$ = get_identifier (token_buffer); }
  779. +     | ELSE { $$ = get_identifier (token_buffer); }
  780. +     | WHILE { $$ = get_identifier (token_buffer); }
  781. +     | DO { $$ = get_identifier (token_buffer); }
  782. +     | FOR { $$ = get_identifier (token_buffer); }
  783. +     | SWITCH { $$ = get_identifier (token_buffer); }
  784. +     | CASE { $$ = get_identifier (token_buffer); }
  785. +     | DEFAULT { $$ = get_identifier (token_buffer); }
  786. +     | BREAK { $$ = get_identifier (token_buffer); }
  787. +     | CONTINUE { $$ = get_identifier (token_buffer); }
  788. +     | RETURN  { $$ = get_identifier (token_buffer); }
  789. +     | GOTO { $$ = get_identifier (token_buffer); }
  790. +     | ASM { $$ = get_identifier (token_buffer); }
  791. +         | SIZEOF { $$ = get_identifier (token_buffer); }
  792. +     | TYPEOF { $$ = get_identifier (token_buffer); }
  793. +     | ALIGNOF { $$ = get_identifier (token_buffer); }
  794. +     | TYPESPEC | TYPE_QUAL
  795. +     ;
  796. + 
  797. + keyworddecl:
  798. +       selector ':' '(' typename ')' identifier
  799. +         {
  800. +           $$ = build_keyword_decl ($1, $4, $6);
  801. +         }
  802. + 
  803. +     | selector ':' identifier
  804. +         {
  805. +           $$ = build_keyword_decl ($1, NULL_TREE, $3);
  806. +         }
  807. + 
  808. +     | ':' '(' typename ')' identifier
  809. +         {
  810. +           $$ = build_keyword_decl (NULL_TREE, $3, $5);
  811. +         }
  812. + 
  813. +     | ':' identifier
  814. +         {
  815. +           $$ = build_keyword_decl (NULL_TREE, NULL_TREE, $2);
  816. +         }
  817. +     ;
  818. + 
  819. + messageargs:
  820. +       selector
  821. +         | keywordarglist
  822. +     ;
  823. + 
  824. + keywordarglist:
  825. +       keywordarg
  826. +     | keywordarglist keywordarg
  827. +         {
  828. +           $$ = chainon ($1, $2);
  829. +         }
  830. +     ;
  831. + 
  832. + 
  833. + keywordexpr:
  834. +       nonnull_exprlist
  835. +         {
  836. +           if (TREE_CHAIN ($1) == NULL_TREE)
  837. +             /* just return the expr., remove a level of indirection */
  838. +             $$ = TREE_VALUE ($1);
  839. +                   else
  840. +             /* we have a comma expr., we will collapse later */
  841. +             $$ = $1;
  842. +         }
  843. +     ;
  844. + 
  845. + keywordarg:
  846. +       selector ':' keywordexpr
  847. +         {
  848. +           $$ = build_tree_list ($1, $3);
  849. +         }
  850. +     | ':' keywordexpr
  851. +         {
  852. +           $$ = build_tree_list (NULL_TREE, $2);
  853. +         }
  854. +     ;
  855. + 
  856. + receiver:
  857. +       expr
  858. +     | CLASSNAME
  859. +         {
  860. +           $$ = get_class_reference ($1);
  861. +         }
  862. +     ;
  863. + 
  864. + objcmessageexpr:
  865. +       '['
  866. +         { objc_receiver_context = 1; }
  867. +       receiver
  868. +         { objc_receiver_context = 0; }
  869. +       messageargs ']'
  870. +         {
  871. +           $$ = build_tree_list ($3, $5);
  872. +         }
  873. +     ;
  874. + 
  875. + selectorarg:
  876. +       selector
  877. +         | keywordnamelist
  878. +     ;
  879. + 
  880. + keywordnamelist:
  881. +       keywordname
  882. +     | keywordnamelist keywordname
  883. +         {
  884. +           $$ = chainon ($1, $2);
  885. +         }
  886. +     ;
  887. + 
  888. + keywordname:
  889. +       selector ':'
  890. +         {
  891. +           $$ = build_tree_list ($1, NULL_TREE);
  892. +         }
  893. +     | ':'
  894. +         {
  895. +           $$ = build_tree_list (NULL_TREE, NULL_TREE);
  896. +         }
  897. +     ;
  898. + 
  899. + objcselectorexpr:
  900. +       SELECTOR '(' selectorarg ')'
  901. +         {
  902. +           $$ = $3;
  903. +         }
  904. +     ;
  905. + 
  906. + /* extension to support C-structures in the archiver */
  907. + 
  908. + objcencodeexpr:
  909. +       ENCODE '(' typename ')'
  910. +         {
  911. +           $$ = groktypename ($3);
  912. +         }
  913. +     ;
  914.   %%
  915.   
  916.   /* Return something to represent absolute declarators containing a *.
  917. ***************
  918. *** 1608,1660 ****
  919.   
  920.   int check_newline ();
  921.   
  922. ! /* C code produced by gperf version 2.5 (GNU C++ version) */
  923. ! /* Command-line: gperf -p -j1 -i 1 -g -o -t -N is_reserved_word -k1,3,$ c-parse.gperf  */ 
  924.   struct resword { char *name; short token; enum rid rid; };
  925.   
  926. - #define TOTAL_KEYWORDS 53
  927.   #define MIN_WORD_LENGTH 2
  928. ! #define MAX_WORD_LENGTH 13
  929. ! #define MIN_HASH_VALUE 7
  930. ! #define MAX_HASH_VALUE 102
  931. ! /* maximum key range = 96, duplicates = 0 */
  932.   
  933.   #ifdef __GNUC__
  934.   __inline
  935.   #endif
  936. ! static unsigned int
  937.   hash (str, len)
  938.        register char *str;
  939.        register int unsigned len;
  940.   {
  941. !   static unsigned char asso_values[] =
  942.       {
  943. !      103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
  944. !      103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
  945. !      103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
  946. !      103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
  947. !      103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
  948. !      103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
  949. !      103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
  950. !      103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
  951. !      103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
  952. !      103, 103, 103, 103, 103,   1, 103,   2,   1,  24,
  953. !        1,   5,  19,  39,  16,  13, 103,   1,  25,   1,
  954. !       34,  34,  24, 103,  13,  12,   1,  45,  24,   7,
  955. !      103, 103,   2, 103, 103, 103, 103, 103,
  956.       };
  957. !   register int hval = len;
  958.   
  959.     switch (hval)
  960.       {
  961. !       default:
  962. !       case 3:
  963. !         hval += asso_values[str[2]];
  964. !       case 2:
  965. !       case 1:
  966. !         hval += asso_values[str[0]];
  967.       }
  968. !   return hval + asso_values[str[len - 1]];
  969.   }
  970.   
  971.   #ifdef __GNUC__
  972. --- 2284,2333 ----
  973.   
  974.   int check_newline ();
  975.   
  976. ! /* Data type that represents the GNU C reserved words. */
  977.   struct resword { char *name; short token; enum rid rid; };
  978.   
  979.   #define MIN_WORD_LENGTH 2
  980. ! #define MAX_WORD_LENGTH     15     /* maximum size for C keyword */
  981. ! #define MIN_HASH_VALUE      9      /* range of the hash keys values  */
  982. ! #define MAX_HASH_VALUE      95     /* for the perfect hash generator */
  983.   
  984.   #ifdef __GNUC__
  985.   __inline
  986.   #endif
  987. ! static int
  988.   hash (str, len)
  989.        register char *str;
  990.        register int unsigned len;
  991.   {
  992. !   static unsigned char hash_table[] =
  993.       {
  994. !      95, 95, 95, 95, 95, 95, 95, 95, 95, 95,
  995. !      95, 95, 95, 95, 95, 95, 95, 95, 95, 95,
  996. !      95, 95, 95, 95, 95, 95, 95, 95, 95, 95,
  997. !      95, 95, 95, 95, 95, 95, 95, 95, 95, 95,
  998. !      95, 95, 95, 95, 95, 95, 95, 95, 95, 95,
  999. !      95, 95, 95, 95, 95, 95, 95, 95, 95, 95,
  1000. !      95, 95, 95, 95, 44, 95, 95, 95, 95, 95,
  1001. !      95, 95, 95, 95, 95, 95, 95, 95, 95, 95,
  1002. !      95, 95, 95, 95, 95, 95, 95, 95, 95, 95,
  1003. !      95, 95, 95, 95, 95,  1, 95, 28,  3, 35,
  1004. !       8,  7, 18, 20, 19, 13, 95,  1, 13, 18,
  1005. !       1, 62,  1, 95,  1,  2,  1,  3, 35,  6,
  1006. !      95, 95,  9, 95, 95, 95, 95, 95,
  1007.       };
  1008. !   register int hval = len ;
  1009.   
  1010.     switch (hval)
  1011.       {
  1012. !     default:
  1013. !     case 3:
  1014. !       hval += hash_table[str[2]];
  1015. !     case 2:
  1016. !     case 1:
  1017. !       hval += hash_table[str[0]];
  1018.       }
  1019. !   return hval + hash_table[str[len - 1]] ;
  1020.   }
  1021.   
  1022.   #ifdef __GNUC__
  1023. ***************
  1024. *** 1665,1744 ****
  1025.        register char *str;
  1026.        register unsigned int len;
  1027.   {
  1028. !   static struct resword wordlist[] =
  1029.       {
  1030. !       {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, 
  1031. !       {"asm",  ASM, NORID},
  1032. !       {"",}, 
  1033. !       {"__asm",  ASM, NORID},
  1034. !       {"",}, 
  1035. !       {"__asm__",  ASM, NORID},
  1036. !       {"break",  BREAK, NORID},
  1037. !       {"__typeof__",  TYPEOF, NORID},
  1038. !       {"",}, 
  1039. !       {"__alignof__",  ALIGNOF, NORID},
  1040. !       {"",}, 
  1041. !       {"__attribute__",  ATTRIBUTE, NORID},
  1042. !       {"int",  TYPESPEC, RID_INT},
  1043. !       {"__attribute",  ATTRIBUTE, NORID},
  1044. !       {"__extension__",  EXTENSION, NORID},
  1045. !       {"",}, 
  1046. !       {"__signed",  TYPESPEC, RID_SIGNED},
  1047. !       {"",}, 
  1048. !       {"__signed__",  TYPESPEC, RID_SIGNED},
  1049. !       {"__inline__",  SCSPEC, RID_INLINE},
  1050. !       {"else",  ELSE, NORID},
  1051. !       {"__inline",  SCSPEC, RID_INLINE},
  1052. !       {"default",  DEFAULT, NORID},
  1053. !       {"__typeof",  TYPEOF, NORID},
  1054. !       {"while",  WHILE, NORID},
  1055. !       {"__alignof",  ALIGNOF, NORID},
  1056. !       {"struct",  STRUCT, NORID},
  1057. !       {"__const",  TYPE_QUAL, RID_CONST},
  1058. !       {"if",  IF, NORID},
  1059. !       {"__const__",  TYPE_QUAL, RID_CONST},
  1060. !       {"__label__",  LABEL, NORID},
  1061. !       {"do",  DO, NORID},
  1062. !       {"__volatile__",  TYPE_QUAL, RID_VOLATILE},
  1063. !       {"sizeof",  SIZEOF, NORID},
  1064. !       {"__volatile",  TYPE_QUAL, RID_VOLATILE},
  1065. !       {"auto",  SCSPEC, RID_AUTO},
  1066. !       {"void",  TYPESPEC, RID_VOID},
  1067. !       {"char",  TYPESPEC, RID_CHAR},
  1068. !       {"static",  SCSPEC, RID_STATIC},
  1069. !       {"case",  CASE, NORID},
  1070. !       {"extern",  SCSPEC, RID_EXTERN},
  1071. !       {"switch",  SWITCH, NORID},
  1072. !       {"for",  FOR, NORID},
  1073. !       {"inline",  SCSPEC, RID_INLINE},
  1074. !       {"typeof",  TYPEOF, NORID},
  1075. !       {"typedef",  SCSPEC, RID_TYPEDEF},
  1076. !       {"short",  TYPESPEC, RID_SHORT},
  1077. !       {"",}, 
  1078. !       {"return",  RETURN, NORID},
  1079. !       {"enum",  ENUM, NORID},
  1080. !       {"",}, 
  1081. !       {"double",  TYPESPEC, RID_DOUBLE},
  1082. !       {"signed",  TYPESPEC, RID_SIGNED},
  1083. !       {"float",  TYPESPEC, RID_FLOAT},
  1084. !       {"",}, {"",}, 
  1085. !       {"volatile",  TYPE_QUAL, RID_VOLATILE},
  1086. !       {"",}, 
  1087. !       {"const",  TYPE_QUAL, RID_CONST},
  1088. !       {"",}, 
  1089. !       {"unsigned",  TYPESPEC, RID_UNSIGNED},
  1090. !       {"",}, {"",}, {"",}, {"",}, 
  1091. !       {"continue",  CONTINUE, NORID},
  1092. !       {"",}, 
  1093. !       {"register",  SCSPEC, RID_REGISTER},
  1094. !       {"",}, {"",}, {"",}, {"",}, 
  1095. !       {"goto",  GOTO, NORID},
  1096. !       {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, 
  1097. !       {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, 
  1098. !       
  1099. !       {"union",  UNION, NORID},
  1100. !       {"",}, {"",}, {"",}, {"",}, 
  1101. !       {"long",  TYPESPEC, RID_LONG},
  1102.       };
  1103.   
  1104.     if (len <= MAX_WORD_LENGTH && len >= MIN_WORD_LENGTH)
  1105. --- 2338,2416 ----
  1106.        register char *str;
  1107.        register unsigned int len;
  1108.   {
  1109. ! 
  1110. !   static struct resword  wordlist[] =
  1111.       {
  1112. !       { "",},{ "",},{ "",},{ "",},{ "",},{ "",},{ "",},{ "",},{ "",},
  1113. !       { "return", RETURN, NORID },
  1114. !       { "struct", STRUCT, NORID },
  1115. !       { "",},{ "",},
  1116. !       { "__typeof__", TYPEOF, NORID },
  1117. !       { "__signed__", TYPESPEC, RID_SIGNED },
  1118. !       { "extern", SCSPEC, RID_EXTERN },
  1119. !       { "break", BREAK, NORID },
  1120. !       { "",},
  1121. !       { "int", TYPESPEC, RID_INT },
  1122. !       { "__signed", TYPESPEC, RID_SIGNED },
  1123. !       { "else", ELSE, NORID },
  1124. !       { "unsigned", TYPESPEC, RID_UNSIGNED },
  1125. !       { "union", UNION, NORID },
  1126. !       { "for", FOR, NORID },
  1127. !       { "double", TYPESPEC, RID_DOUBLE },
  1128. !       { "__inline__", SCSPEC, RID_INLINE },
  1129. !       { "typeof", TYPEOF, NORID },
  1130. !       { "typedef", SCSPEC, RID_TYPEDEF },
  1131. !       { "__typeof", TYPEOF, NORID },
  1132. !       { "__inline", SCSPEC, RID_INLINE },
  1133. !       { "register", SCSPEC, RID_REGISTER },
  1134. !       { "while", WHILE, NORID },
  1135. !       { "enum", ENUM, NORID },
  1136. !       { "if", IF, NORID },
  1137. !       { "default", DEFAULT, NORID },
  1138. !       { "sizeof", SIZEOF, NORID },
  1139. !       { "signed", TYPESPEC, RID_SIGNED },
  1140. !       { "__asm__", ASM, NORID },
  1141. !       { "long", TYPESPEC, RID_LONG },
  1142. !       { "inline", SCSPEC, RID_INLINE },
  1143. !       { "switch", SWITCH, NORID },
  1144. !       { "__alignof__", ALIGNOF, NORID },
  1145. !       { "const", TYPE_QUAL, RID_CONST },
  1146. !       { "__attribute__", ATTRIBUTE, NORID },
  1147. !       { "__const", TYPE_QUAL, RID_CONST },
  1148. !       { "",},
  1149. !       { "__const__", TYPE_QUAL, RID_CONST },
  1150. !       { "__attribute", ATTRIBUTE, NORID },
  1151. !       { "case", CASE, NORID },
  1152. !       { "__volatile__", TYPE_QUAL, RID_VOLATILE },
  1153. !       { "",},
  1154. !       { "continue", CONTINUE, NORID },
  1155. !       { "__asm", ASM, NORID },
  1156. !       { "__volatile", TYPE_QUAL, RID_VOLATILE },
  1157. !       { "",},{ "",},
  1158. !       { "__alignof", ALIGNOF, NORID },
  1159. !       { "@end", END, NORID },
  1160. !       { "@defs", DEFS, NORID },
  1161. !       { "@encode", ENCODE, NORID },
  1162. !       { "void", TYPESPEC, RID_VOID },
  1163. !       { "@selector", SELECTOR, NORID },
  1164. !       { "@interface", INTERFACE, NORID },
  1165. !       { "volatile", TYPE_QUAL, RID_VOLATILE },
  1166. !       { "",},{ "",},{ "",},
  1167. !       { "asm", ASM, NORID },
  1168. !       { "char", TYPESPEC, RID_CHAR },
  1169. !       { "",},
  1170. !       { "short", TYPESPEC, RID_SHORT },
  1171. !       { "static", SCSPEC, RID_STATIC },
  1172. !       { "do", DO, NORID },
  1173. !       { "",},{ "",},{ "",},{ "",},{ "",},
  1174. !       { "@implementation", IMPLEMENTATION, NORID },
  1175. !       { "",},{ "",},{ "",},{ "",},{ "",},{ "",},{ "",},
  1176. !       { "float", TYPESPEC, RID_FLOAT },
  1177. !       { "goto", GOTO, NORID },
  1178. !       { "",},
  1179. !       { "@public", PUBLIC, NORID },
  1180. !       { "",},{ "",},{ "",},{ "",},{ "",},
  1181. !       { "auto", SCSPEC, RID_AUTO },
  1182.       };
  1183.   
  1184.     if (len <= MAX_WORD_LENGTH && len >= MIN_WORD_LENGTH)
  1185. ***************
  1186. *** 1745,1751 ****
  1187.       {
  1188.         register int key = hash (str, len);
  1189.   
  1190. !       if (key <= MAX_HASH_VALUE && key >= 0)
  1191.           {
  1192.             register char *s = wordlist[key].name;
  1193.   
  1194. --- 2417,2423 ----
  1195.       {
  1196.         register int key = hash (str, len);
  1197.   
  1198. !       if (key <= MAX_HASH_VALUE && key >= MIN_HASH_VALUE)
  1199.           {
  1200.             register char *s = wordlist[key].name;
  1201.   
  1202. ***************
  1203. *** 2385,2393 ****
  1204.       case 'u':  case 'v':  case 'w':  case 'x':  case 'y':
  1205.       case 'z':
  1206.       case '_':
  1207.       letter:
  1208.         p = token_buffer;
  1209. !       while (isalnum (c) || c == '_' || c == '$')
  1210.       {
  1211.         if (p >= token_buffer + maxtoken)
  1212.           p = extend_token_buffer (p);
  1213. --- 3057,3066 ----
  1214.       case 'u':  case 'v':  case 'w':  case 'x':  case 'y':
  1215.       case 'z':
  1216.       case '_':
  1217. +     case '@':
  1218.       letter:
  1219.         p = token_buffer;
  1220. !       while (isalnum (c) || c == '_' || c == '$' || c == '@')
  1221.       {
  1222.         if (p >= token_buffer + maxtoken)
  1223.           p = extend_token_buffer (p);
  1224. ***************
  1225. *** 2422,2432 ****
  1226. --- 3095,3117 ----
  1227.   
  1228.         if (value == IDENTIFIER)
  1229.       {
  1230. +       if (token_buffer[0] == '@')
  1231. +         error ("invalid identifier `%s'", token_buffer);
  1232.             yylval.ttype = get_identifier (token_buffer);
  1233.         lastiddecl = lookup_name (yylval.ttype);
  1234.   
  1235.         if (lastiddecl != 0 && TREE_CODE (lastiddecl) == TYPE_DECL)
  1236.           value = TYPENAME;
  1237. +           else if (doing_objc_thang)
  1238. +             {
  1239. +           tree objc_interface_decl = lookup_interface (yylval.ttype);
  1240. + 
  1241. +           if (objc_interface_decl)
  1242. +         {
  1243. +           value = CLASSNAME;
  1244. +           yylval.ttype = objc_interface_decl;
  1245. +         }
  1246. +         }
  1247.       }
  1248.   
  1249.         break;
  1250.