binutils/defparse.y

   1 %{ /* defparse.y - parser for .def files */
   2
   3 /*   Copyright (C) 1995, 1997, 1998 Free Software Foundation, Inc.
   4
   5 This file is part of GNU Binutils.
   6
   7 This program is free software; you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation; either version 2 of the License, or
  10 (at your option) any later version.
  11
  12 This program is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with this program; if not, write to the Free Software
  19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  20
  21 #include "bfd.h"
  22 #include "bucomm.h"
  23 #include "dlltool.h"
  24 %}
  25
  26 %union {
  27   char *id;
  28   int number;
  29 };
  30
  31 %token NAME, LIBRARY, DESCRIPTION, STACKSIZE, HEAPSIZE, CODE, DATA
  32 %token SECTIONS, EXPORTS, IMPORTS, VERSIONK, BASE, CONSTANT
  33 %token READ WRITE EXECUTE SHARED NONAME
  34 %token <id> ID
  35 %token <number> NUMBER
  36 %type  <number> opt_base opt_ordinal opt_NONAME opt_CONSTANT opt_DATA
  37 %type  <number> attr attr_list opt_number
  38 %type  <id> opt_name opt_equal_name
  39
  40 %%
  41
  42 start: start command
  43         | command
  44         ;
  45
  46 command:
  47                 NAME opt_name opt_base { def_name ($2, $3); }
  48         |       LIBRARY opt_name opt_base { def_library ($2, $3); }
  49         |       EXPORTS explist
  50         |       DESCRIPTION ID { def_description ($2);}
  51         |       STACKSIZE NUMBER opt_number { def_stacksize ($2, $3);}
  52         |       HEAPSIZE NUMBER opt_number { def_heapsize ($2, $3);}
  53         |       CODE attr_list { def_code ($2);}
  54         |       DATA attr_list  { def_data ($2);}
  55         |       SECTIONS seclist
  56         |       IMPORTS implist
  57         |       VERSIONK NUMBER { def_version ($2,0);}
  58         |       VERSIONK NUMBER '.' NUMBER { def_version ($2,$4);}
  59         ;
  60
  61
  62 explist:
  63                 /* EMPTY */
  64         |       expline
  65         |       explist expline
  66         ;
  67
  68 expline:
  69                 ID opt_equal_name opt_ordinal opt_NONAME opt_CONSTANT opt_DATA
  70                         { def_exports ($1, $2, $3, $4, $5, $6);}
  71         ;
  72 implist:
  73                 implist impline
  74         |       impline
  75         ;
  76
  77 impline:
  78                ID '=' ID '.' ID '.' ID     { def_import ($1,$3,$5,$7, 0); }
  79        |       ID '=' ID '.' ID '.' NUMBER { def_import ($1,$3,$5, 0,$7); }
  80        |       ID '=' ID '.' ID            { def_import ($1,$3, 0,$5, 0); }
  81        |       ID '=' ID '.' NUMBER        { def_import ($1,$3, 0, 0,$5); }
  82        |       ID '.' ID '.' ID            { def_import ( 0,$1,$3,$5, 0); }
  83        |       ID '.' ID '.' NUMBER        { def_import ( 0,$1,$3, 0,$5); }
  84        |       ID '.' ID                   { def_import ( 0,$1, 0,$3, 0); }
  85        |       ID '.' NUMBER               { def_import ( 0,$1, 0, 0,$3); }
  86 ;
  87
  88 seclist:
  89                 seclist secline
  90         |       secline
  91         ;
  92
  93 secline:
  94         ID attr_list { def_section ($1,$2);}
  95         ;
  96
  97 attr_list:
  98         attr_list opt_comma attr
  99         | attr
 100         ;
 101
 102 opt_comma:
 103         ','
 104         |
 105         ;
 106 opt_number: ',' NUMBER { $$=$2;}
 107         |          { $$=-1;}
 108         ;
 109
 110 attr:
 111                 READ { $$ = 1;}
 112         |       WRITE { $$ = 2;}
 113         |       EXECUTE { $$=4;}
 114         |       SHARED { $$=8;}
 115         ;
 116
 117 opt_CONSTANT:
 118                 CONSTANT {$$=1;}
 119         |                {$$=0;}
 120         ;
 121
 122 opt_NONAME:
 123                 NONAME {$$=1;}
 124         |                {$$=0;}
 125         ;
 126
 127 opt_DATA:
 128                 DATA { $$ = 1; }
 129         |            { $$ = 0; }
 130         ;
 131
 132 opt_name: ID            { $$ =$1; }
 133         | ID '.' ID
 134           {
 135             char *name = xmalloc (strlen ($1) + 1 + strlen ($3) + 1);
 136             sprintf (name, "%s.%s", $1, $3);
 137             $$ = name;
 138           }
 139         |               { $$=""; }
 140         ;
 141
 142 opt_ordinal:
 143           '@' NUMBER     { $$=$2;}
 144         |                { $$=-1;}
 145         ;
 146
 147 opt_equal_name:
 148           '=' ID        { $$ = $2; }
 149         |               { $$ =  0; }
 150         ;
 151
 152 opt_base: BASE  '=' NUMBER      { $$= $3;}
 153         |       { $$=-1;}
 154         ;
 155
 156
 157