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