1: %{
    2: /* arparse.y - Stange script language parser */
    3: 
    4: /* Copyright 1992, 1993, 1995, 1997, 1999, 2002, 2003, 2007
    5:    Free Software Foundation, Inc.
    6: 
    7:    This file is part of GNU Binutils.
    8: 
    9:    This program is free software; you can redistribute it and/or modify
   10:    it under the terms of the GNU General Public License as published by
   11:    the Free Software Foundation; either version 3 of the License, or
   12:    (at your option) any later version.
   13: 
   14:    This program is distributed in the hope that it will be useful,
   15:    but WITHOUT ANY WARRANTY; without even the implied warranty of
   16:    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   17:    GNU General Public License for more details.
   18: 
   19:    You should have received a copy of the GNU General Public License
   20:    along with this program; if not, write to the Free Software
   21:    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
   22:    MA 02110-1301, USA.  */
   23: 
   24: 
   25: /* Contributed by Steve Chamberlain
   26:                   sac@cygnus.com
   27: 
   28: */
   29: #define DONTDECLARE_MALLOC
   30: #include "sysdep.h"
   31: #include "bfd.h"
   32: #include "arsup.h"
   33: extern int verbose;
   34: extern int yylex (void);
   35: static int yyerror (const char *);
   36: %}
   37: 
   38: %union {
   39:   char *name;
   40: struct list *list ;
   41: 
   42: };
   43: 
   44: %token NEWLINE
   45: %token VERBOSE
   46: %token <name> FILENAME
   47: %token ADDLIB
   48: %token LIST
   49: %token ADDMOD
   50: %token CLEAR
   51: %token CREATE
   52: %token DELETE
   53: %token DIRECTORY
   54: %token END
   55: %token EXTRACT
   56: %token FULLDIR
   57: %token HELP
   58: %token QUIT
   59: %token REPLACE
   60: %token SAVE
   61: %token OPEN
   62: 
   63: %type <list> modulelist 
   64: %type <list> modulename
   65: %type <name> optional_filename
   66: %%
   67: 
   68: start:
   69:         { prompt(); } session
   70:         ;
   71: 
   72: session:
   73:             session command_line
   74:         |
   75:         ;
   76: 
   77: command_line:
   78:                 command NEWLINE { prompt(); }
   79:         ;
   80: 
   81: command:
   82:                 open_command  
   83:         |      create_command       
   84:         |      verbose_command
   85:         |      directory_command
   86:         |      addlib_command
   87:         |      clear_command
   88:         |      addmod_command
   89:         |      save_command
   90:         |       extract_command
   91:         |      replace_command
   92:         |      delete_command
   93:         |      list_command
   94:         |      END  { ar_end(); return 0; }
   95:         |      error
   96:         |       FILENAME { yyerror("foo"); }
   97:         |
   98:         ;
   99: 
  100: 
  101: extract_command:
  102:                 EXTRACT modulename
  103:                 { ar_extract($2); }
  104:         ;
  105: 
  106: replace_command:        
  107:                 REPLACE modulename
  108:                 { ar_replace($2); }
  109:         ;
  110:         
  111: clear_command:
  112:                 CLEAR
  113:                 { ar_clear(); }
  114:         ;
  115: 
  116: delete_command:
  117:                 DELETE modulename
  118:                 { ar_delete($2); }
  119:         ;
  120: addmod_command:
  121:         ADDMOD modulename
  122:                 { ar_addmod($2); }
  123:         ;
  124: 
  125: list_command:   
  126:                 LIST
  127:                 { ar_list(); }
  128:         ;
  129: 
  130: save_command:   
  131:                 SAVE
  132:                 { ar_save(); }
  133:         ;
  134: 
  135: 
  136: 
  137: open_command:
  138:                 OPEN FILENAME 
  139:                 { ar_open($2,0); }
  140:         ;
  141: 
  142: create_command:
  143:                 CREATE FILENAME 
  144:                 { ar_open($2,1); }
  145:         ;
  146: 
  147: 
  148: addlib_command:
  149:                 ADDLIB FILENAME modulelist
  150:                 { ar_addlib($2,$3); }
  151:         ;
  152: directory_command:
  153:                 DIRECTORY FILENAME modulelist optional_filename
  154:                 { ar_directory($2, $3, $4); }
  155:         ;
  156: 
  157: 
  158: 
  159: optional_filename:
  160:                 FILENAME
  161:                 { $$ = $1; }
  162:         |      { $$ = 0; }
  163:         ;
  164: 
  165: modulelist:
  166:         '(' modulename ')' 
  167:                 { $$ = $2; }
  168:         |
  169:                 { $$ = 0; }
  170:         ;
  171: 
  172: modulename:
  173:                 modulename optcomma FILENAME
  174:                 {     struct list *n  = (struct list *) malloc(sizeof(struct list));
  175:                         n->next = $1; 
  176:                         n->name = $3;
  177:                         $$ = n;
  178:                  }
  179:         |      { $$ = 0; }
  180:         ;
  181:         
  182: 
  183: optcomma:
  184:                 ','
  185:         |
  186:         ;
  187:         
  188:                 
  189: verbose_command:
  190:         VERBOSE 
  191:                 { verbose = !verbose; }
  192:         ;
  193: 
  194: 
  195: %%
  196: 
  197: static int
  198: yyerror (const char *x ATTRIBUTE_UNUSED)
  199: {
  200:   extern int linenumber;
  201: 
  202:   printf (_("Syntax error in archive script, line %d\n"), linenumber + 1);
  203:   return 0;
  204: }