~drizzle-trunk/drizzle/development : revision 1

1

/******************************************************

2

SQL parser: input file for the GNU Bison parser generator

3

4

5

6

Created 12/14/1997 Heikki Tuuri

7

Published under the GPL version 2

8

9

Look from pars0lex.l for instructions how to generate the C files for

10

the InnoDB parser.

11

*******************************************************/

12

13

%{

14

/* The value of the semantic attribute is a pointer to a query tree node

15

que_node_t */

16

17

#include "univ.i"

18

#include <math.h> /* Can't be before univ.i */

19

#include "pars0pars.h"

20

#include "mem0mem.h"

21

#include "que0types.h"

22

#include "que0que.h"

23

#include "row0sel.h"

24

25

#define YYSTYPE que_node_t*

26

27

/* #define __STDC__ */

28

29

int

30

yylex(void);

31

%}

32

33

%token PARS_INT_LIT

34

%token PARS_FLOAT_LIT

35

%token PARS_STR_LIT

36

%token PARS_FIXBINARY_LIT

37

%token PARS_BLOB_LIT

38

%token PARS_NULL_LIT

39

%token PARS_ID_TOKEN

40

%token PARS_AND_TOKEN

41

%token PARS_OR_TOKEN

42

%token PARS_NOT_TOKEN

43

%token PARS_GE_TOKEN

44

%token PARS_LE_TOKEN

45

%token PARS_NE_TOKEN

46

%token PARS_PROCEDURE_TOKEN

47

%token PARS_IN_TOKEN

48

%token PARS_OUT_TOKEN

49

%token PARS_BINARY_TOKEN

50

%token PARS_BLOB_TOKEN

51

%token PARS_INT_TOKEN

52

%token PARS_INTEGER_TOKEN

53

%token PARS_FLOAT_TOKEN

54

%token PARS_CHAR_TOKEN

55

%token PARS_IS_TOKEN

56

%token PARS_BEGIN_TOKEN

57

%token PARS_END_TOKEN

58

%token PARS_IF_TOKEN

59

%token PARS_THEN_TOKEN

60

%token PARS_ELSE_TOKEN

61

%token PARS_ELSIF_TOKEN

62

%token PARS_LOOP_TOKEN

63

%token PARS_WHILE_TOKEN

64

%token PARS_RETURN_TOKEN

65

%token PARS_SELECT_TOKEN

66

%token PARS_SUM_TOKEN

67

%token PARS_COUNT_TOKEN

68

%token PARS_DISTINCT_TOKEN

69

%token PARS_FROM_TOKEN

70

%token PARS_WHERE_TOKEN

71

%token PARS_FOR_TOKEN

72

%token PARS_DDOT_TOKEN

73

%token PARS_READ_TOKEN

74

%token PARS_ORDER_TOKEN

75

%token PARS_BY_TOKEN

76

%token PARS_ASC_TOKEN

77

%token PARS_DESC_TOKEN

78

%token PARS_INSERT_TOKEN

79

%token PARS_INTO_TOKEN

80

%token PARS_VALUES_TOKEN

81

%token PARS_UPDATE_TOKEN

82

%token PARS_SET_TOKEN

83

%token PARS_DELETE_TOKEN

84

%token PARS_CURRENT_TOKEN

85

%token PARS_OF_TOKEN

86

%token PARS_CREATE_TOKEN

87

%token PARS_TABLE_TOKEN

88

%token PARS_INDEX_TOKEN

89

%token PARS_UNIQUE_TOKEN

90

%token PARS_CLUSTERED_TOKEN

91

%token PARS_DOES_NOT_FIT_IN_MEM_TOKEN

92

%token PARS_ON_TOKEN

93

%token PARS_ASSIGN_TOKEN

94

%token PARS_DECLARE_TOKEN

95

%token PARS_CURSOR_TOKEN

96

%token PARS_SQL_TOKEN

97

%token PARS_OPEN_TOKEN

98

%token PARS_FETCH_TOKEN

99

%token PARS_CLOSE_TOKEN

100

%token PARS_NOTFOUND_TOKEN

101

%token PARS_TO_CHAR_TOKEN

102

%token PARS_TO_NUMBER_TOKEN

103

%token PARS_TO_BINARY_TOKEN

104

%token PARS_BINARY_TO_NUMBER_TOKEN

105

%token PARS_SUBSTR_TOKEN

106

%token PARS_REPLSTR_TOKEN

107

%token PARS_CONCAT_TOKEN

108

%token PARS_INSTR_TOKEN

109

%token PARS_LENGTH_TOKEN

110

%token PARS_SYSDATE_TOKEN

111

%token PARS_PRINTF_TOKEN

112

%token PARS_ASSERT_TOKEN

113

%token PARS_RND_TOKEN

114

%token PARS_RND_STR_TOKEN

115

%token PARS_ROW_PRINTF_TOKEN

116

%token PARS_COMMIT_TOKEN

117

%token PARS_ROLLBACK_TOKEN

118

%token PARS_WORK_TOKEN

119

%token PARS_UNSIGNED_TOKEN

120

%token PARS_EXIT_TOKEN

121

%token PARS_FUNCTION_TOKEN

122

%token PARS_LOCK_TOKEN

123

%token PARS_SHARE_TOKEN

124

%token PARS_MODE_TOKEN

125

126

%left PARS_AND_TOKEN PARS_OR_TOKEN

127

%left PARS_NOT_TOKEN

128

%left '=' '<' '>' PARS_GE_TOKEN PARS_LE_TOKEN

129

%left '-' '+'

130

%left '*' '/'

131

%left NEG /* negation--unary minus */

132

%left '%'

133

134

/* Grammar follows */

135

%%

136

137

top_statement:

138

procedure_definition ';'

139

140

statement:

141

stored_procedure_call

142

| predefined_procedure_call ';'

143

| while_statement ';'

144

| for_statement ';'

145

| exit_statement ';'

146

| if_statement ';'

147

| return_statement ';'

148

| assignment_statement ';'

149

| select_statement ';'

150

| insert_statement ';'

151

| row_printf_statement ';'

152

| delete_statement_searched ';'

153

| delete_statement_positioned ';'

154

| update_statement_searched ';'

155

| update_statement_positioned ';'

156

| open_cursor_statement ';'

157

| fetch_statement ';'

158

| close_cursor_statement ';'

159

| commit_statement ';'

160

| rollback_statement ';'

161

| create_table ';'

162

| create_index ';'

163

;

164

165

statement_list:

166

statement { $$ = que_node_list_add_last(NULL, $1); }

167

| statement_list statement

168

{ $$ = que_node_list_add_last($1, $2); }

169

;

170

171

exp:

172

PARS_ID_TOKEN { $$ = $1;}

173

| function_name '(' exp_list ')'

174

{ $$ = pars_func($1, $3); }

175

| PARS_INT_LIT { $$ = $1;}

176

| PARS_FLOAT_LIT { $$ = $1;}

177

| PARS_STR_LIT { $$ = $1;}

178

| PARS_FIXBINARY_LIT { $$ = $1;}

179

| PARS_BLOB_LIT { $$ = $1;}

180

| PARS_NULL_LIT { $$ = $1;}

181

| PARS_SQL_TOKEN { $$ = $1;}

182

| exp '+' exp { $$ = pars_op('+', $1, $3); }

183

| exp '-' exp { $$ = pars_op('-', $1, $3); }

184

| exp '*' exp { $$ = pars_op('*', $1, $3); }

185

| exp '/' exp { $$ = pars_op('/', $1, $3); }

186

| '-' exp %prec NEG { $$ = pars_op('-', $2, NULL); }

187

| '(' exp ')' { $$ = $2; }

188

| exp '=' exp { $$ = pars_op('=', $1, $3); }

189

| exp '<' exp { $$ = pars_op('<', $1, $3); }

190

| exp '>' exp { $$ = pars_op('>', $1, $3); }

191

| exp PARS_GE_TOKEN exp { $$ = pars_op(PARS_GE_TOKEN, $1, $3); }

192

| exp PARS_LE_TOKEN exp { $$ = pars_op(PARS_LE_TOKEN, $1, $3); }

193

| exp PARS_NE_TOKEN exp { $$ = pars_op(PARS_NE_TOKEN, $1, $3); }

194

| exp PARS_AND_TOKEN exp{ $$ = pars_op(PARS_AND_TOKEN, $1, $3); }

195

| exp PARS_OR_TOKEN exp { $$ = pars_op(PARS_OR_TOKEN, $1, $3); }

196

| PARS_NOT_TOKEN exp { $$ = pars_op(PARS_NOT_TOKEN, $2, NULL); }

197

| PARS_ID_TOKEN '%' PARS_NOTFOUND_TOKEN

198

{ $$ = pars_op(PARS_NOTFOUND_TOKEN, $1, NULL); }

199

| PARS_SQL_TOKEN '%' PARS_NOTFOUND_TOKEN

200

{ $$ = pars_op(PARS_NOTFOUND_TOKEN, $1, NULL); }

201

;

202

203

function_name:

204

PARS_TO_CHAR_TOKEN { $$ = &pars_to_char_token; }

205

| PARS_TO_NUMBER_TOKEN { $$ = &pars_to_number_token; }

206

| PARS_TO_BINARY_TOKEN { $$ = &pars_to_binary_token; }

207

| PARS_BINARY_TO_NUMBER_TOKEN

208

{ $$ = &pars_binary_to_number_token; }

209

| PARS_SUBSTR_TOKEN { $$ = &pars_substr_token; }

210

| PARS_CONCAT_TOKEN { $$ = &pars_concat_token; }

211

| PARS_INSTR_TOKEN { $$ = &pars_instr_token; }

212

| PARS_LENGTH_TOKEN { $$ = &pars_length_token; }

213

| PARS_SYSDATE_TOKEN { $$ = &pars_sysdate_token; }

214

| PARS_RND_TOKEN { $$ = &pars_rnd_token; }

215

| PARS_RND_STR_TOKEN { $$ = &pars_rnd_str_token; }

216

;

217

218

question_mark_list:

219

/* Nothing */

220

| '?'

221

| question_mark_list ',' '?'

222

;

223

224

stored_procedure_call:

225

'{' PARS_ID_TOKEN '(' question_mark_list ')' '}'

226

{ $$ = pars_stored_procedure_call($2); }

227

;

228

229

predefined_procedure_call:

230

predefined_procedure_name '(' exp_list ')'

231

{ $$ = pars_procedure_call($1, $3); }

232

;

233

234

predefined_procedure_name:

235

PARS_REPLSTR_TOKEN { $$ = &pars_replstr_token; }

236

| PARS_PRINTF_TOKEN { $$ = &pars_printf_token; }

237

| PARS_ASSERT_TOKEN { $$ = &pars_assert_token; }

238

;

239

240

user_function_call:

241

PARS_ID_TOKEN '(' ')' { $$ = $1; }

242

;

243

244

table_list:

245

PARS_ID_TOKEN { $$ = que_node_list_add_last(NULL, $1); }

246

| table_list ',' PARS_ID_TOKEN

247

{ $$ = que_node_list_add_last($1, $3); }

248

;

249

250

variable_list:

251

/* Nothing */ { $$ = NULL; }

252

| PARS_ID_TOKEN { $$ = que_node_list_add_last(NULL, $1); }

253

| variable_list ',' PARS_ID_TOKEN

254

{ $$ = que_node_list_add_last($1, $3); }

255

;

256

257

exp_list:

258

/* Nothing */ { $$ = NULL; }

259

| exp { $$ = que_node_list_add_last(NULL, $1);}

260

| exp_list ',' exp { $$ = que_node_list_add_last($1, $3); }

261

;

262

263

select_item:

264

exp { $$ = $1; }

265

| PARS_COUNT_TOKEN '(' '*' ')'

266

{ $$ = pars_func(&pars_count_token,

267

que_node_list_add_last(NULL,

268

sym_tab_add_int_lit(

269

pars_sym_tab_global, 1))); }

270

| PARS_COUNT_TOKEN '(' PARS_DISTINCT_TOKEN PARS_ID_TOKEN ')'

271

{ $$ = pars_func(&pars_count_token,

272

que_node_list_add_last(NULL,

273

pars_func(&pars_distinct_token,

274

que_node_list_add_last(

275

NULL, $4)))); }

276

| PARS_SUM_TOKEN '(' exp ')'

277

{ $$ = pars_func(&pars_sum_token,

278

que_node_list_add_last(NULL,

279

$3)); }

280

;

281

282

select_item_list:

283

/* Nothing */ { $$ = NULL; }

284

| select_item { $$ = que_node_list_add_last(NULL, $1); }

285

| select_item_list ',' select_item

286

{ $$ = que_node_list_add_last($1, $3); }

287

;

288

289

select_list:

290

'*' { $$ = pars_select_list(&pars_star_denoter,

291

NULL); }

292

| select_item_list PARS_INTO_TOKEN variable_list

293

{ $$ = pars_select_list($1, $3); }

294

| select_item_list { $$ = pars_select_list($1, NULL); }

295

;

296

297

search_condition:

298

/* Nothing */ { $$ = NULL; }

299

| PARS_WHERE_TOKEN exp { $$ = $2; }

300

;

301

302

for_update_clause:

303

/* Nothing */ { $$ = NULL; }

304

| PARS_FOR_TOKEN PARS_UPDATE_TOKEN

305

{ $$ = &pars_update_token; }

306

;

307

308

lock_shared_clause:

309

/* Nothing */ { $$ = NULL; }

310

| PARS_LOCK_TOKEN PARS_IN_TOKEN PARS_SHARE_TOKEN PARS_MODE_TOKEN

311

{ $$ = &pars_share_token; }

312

;

313

314

order_direction:

315

/* Nothing */ { $$ = &pars_asc_token; }

316

| PARS_ASC_TOKEN { $$ = &pars_asc_token; }

317

| PARS_DESC_TOKEN { $$ = &pars_desc_token; }

318

;

319

320

order_by_clause:

321

/* Nothing */ { $$ = NULL; }

322

| PARS_ORDER_TOKEN PARS_BY_TOKEN PARS_ID_TOKEN order_direction

323

{ $$ = pars_order_by($3, $4); }

324

;

325

326

select_statement:

327

PARS_SELECT_TOKEN select_list

328

PARS_FROM_TOKEN table_list

329

search_condition

330

for_update_clause

331

lock_shared_clause

332

order_by_clause { $$ = pars_select_statement($2, $4, $5,

333

$6, $7, $8); }

334

;

335

336

insert_statement_start:

337

PARS_INSERT_TOKEN PARS_INTO_TOKEN

338

PARS_ID_TOKEN { $$ = $3; }

339

;

340

341

insert_statement:

342

insert_statement_start PARS_VALUES_TOKEN '(' exp_list ')'

343

{ $$ = pars_insert_statement($1, $4, NULL); }

344

| insert_statement_start select_statement

345

{ $$ = pars_insert_statement($1, NULL, $2); }

346

;

347

348

column_assignment:

349

PARS_ID_TOKEN '=' exp { $$ = pars_column_assignment($1, $3); }

350

;

351

352

column_assignment_list:

353

column_assignment { $$ = que_node_list_add_last(NULL, $1); }

354

| column_assignment_list ',' column_assignment

355

{ $$ = que_node_list_add_last($1, $3); }

356

;

357

358

cursor_positioned:

359

PARS_WHERE_TOKEN

360

PARS_CURRENT_TOKEN PARS_OF_TOKEN

361

PARS_ID_TOKEN { $$ = $4; }

362

;

363

364

update_statement_start:

365

PARS_UPDATE_TOKEN PARS_ID_TOKEN

366

PARS_SET_TOKEN

367

column_assignment_list { $$ = pars_update_statement_start(FALSE,

368

$2, $4); }

369

;

370

371

update_statement_searched:

372

update_statement_start

373

search_condition { $$ = pars_update_statement($1, NULL, $2); }

374

;

375

376

update_statement_positioned:

377

update_statement_start

378

cursor_positioned { $$ = pars_update_statement($1, $2, NULL); }

379

;

380

381

delete_statement_start:

382

PARS_DELETE_TOKEN PARS_FROM_TOKEN

383

PARS_ID_TOKEN { $$ = pars_update_statement_start(TRUE,

384

$3, NULL); }

385

;

386

387

delete_statement_searched:

388

delete_statement_start

389

search_condition { $$ = pars_update_statement($1, NULL, $2); }

390

;

391

392

delete_statement_positioned:

393

delete_statement_start

394

cursor_positioned { $$ = pars_update_statement($1, $2, NULL); }

395

;

396

397

row_printf_statement:

398

PARS_ROW_PRINTF_TOKEN select_statement

399

{ $$ = pars_row_printf_statement($2); }

400

;

401

402

assignment_statement:

403

PARS_ID_TOKEN PARS_ASSIGN_TOKEN exp

404

{ $$ = pars_assignment_statement($1, $3); }

405

;

406

407

elsif_element:

408

PARS_ELSIF_TOKEN

409

exp PARS_THEN_TOKEN statement_list

410

{ $$ = pars_elsif_element($2, $4); }

411

;

412

413

elsif_list:

414

elsif_element { $$ = que_node_list_add_last(NULL, $1); }

415

| elsif_list elsif_element

416

{ $$ = que_node_list_add_last($1, $2); }

417

;

418

419

else_part:

420

/* Nothing */ { $$ = NULL; }

421

| PARS_ELSE_TOKEN statement_list

422

{ $$ = $2; }

423

| elsif_list { $$ = $1; }

424

;

425

426

if_statement:

427

PARS_IF_TOKEN exp PARS_THEN_TOKEN statement_list

428

else_part

429

PARS_END_TOKEN PARS_IF_TOKEN

430

{ $$ = pars_if_statement($2, $4, $5); }

431

;

432

433

while_statement:

434

PARS_WHILE_TOKEN exp PARS_LOOP_TOKEN statement_list

435

PARS_END_TOKEN PARS_LOOP_TOKEN

436

{ $$ = pars_while_statement($2, $4); }

437

;

438

439

for_statement:

440

PARS_FOR_TOKEN PARS_ID_TOKEN PARS_IN_TOKEN

441

exp PARS_DDOT_TOKEN exp

442

PARS_LOOP_TOKEN statement_list

443

PARS_END_TOKEN PARS_LOOP_TOKEN

444

{ $$ = pars_for_statement($2, $4, $6, $8); }

445

;

446

447

exit_statement:

448

PARS_EXIT_TOKEN { $$ = pars_exit_statement(); }

449

;

450

451

return_statement:

452

PARS_RETURN_TOKEN { $$ = pars_return_statement(); }

453

;

454

455

open_cursor_statement:

456

PARS_OPEN_TOKEN PARS_ID_TOKEN

457

{ $$ = pars_open_statement(

458

ROW_SEL_OPEN_CURSOR, $2); }

459

;

460

461

close_cursor_statement:

462

PARS_CLOSE_TOKEN PARS_ID_TOKEN

463

{ $$ = pars_open_statement(

464

ROW_SEL_CLOSE_CURSOR, $2); }

465

;

466

467

fetch_statement:

468

PARS_FETCH_TOKEN PARS_ID_TOKEN PARS_INTO_TOKEN variable_list

469

{ $$ = pars_fetch_statement($2, $4, NULL); }

470

| PARS_FETCH_TOKEN PARS_ID_TOKEN PARS_INTO_TOKEN user_function_call

471

{ $$ = pars_fetch_statement($2, NULL, $4); }

472

;

473

474

column_def:

475

PARS_ID_TOKEN type_name opt_column_len opt_unsigned opt_not_null

476

{ $$ = pars_column_def($1, $2, $3, $4, $5); }

477

;

478

479

column_def_list:

480

column_def { $$ = que_node_list_add_last(NULL, $1); }

481

| column_def_list ',' column_def

482

{ $$ = que_node_list_add_last($1, $3); }

483

;

484

485

opt_column_len:

486

/* Nothing */ { $$ = NULL; }

487

| '(' PARS_INT_LIT ')'

488

{ $$ = $2; }

489

;

490

491

opt_unsigned:

492

/* Nothing */ { $$ = NULL; }

493

| PARS_UNSIGNED_TOKEN

494

{ $$ = &pars_int_token;

495

/* pass any non-NULL pointer */ }

496

;

497

498

opt_not_null:

499

/* Nothing */ { $$ = NULL; }

500

| PARS_NOT_TOKEN PARS_NULL_LIT

501

{ $$ = &pars_int_token;

502

/* pass any non-NULL pointer */ }

503

;

504

505

not_fit_in_memory:

506

/* Nothing */ { $$ = NULL; }

507

| PARS_DOES_NOT_FIT_IN_MEM_TOKEN

508

{ $$ = &pars_int_token;

509

/* pass any non-NULL pointer */ }

510

;

511

512

create_table:

513

PARS_CREATE_TOKEN PARS_TABLE_TOKEN

514

PARS_ID_TOKEN '(' column_def_list ')'

515

not_fit_in_memory { $$ = pars_create_table($3, $5, $7); }

516

;

517

518

column_list:

519

PARS_ID_TOKEN { $$ = que_node_list_add_last(NULL, $1); }

520

| column_list ',' PARS_ID_TOKEN

521

{ $$ = que_node_list_add_last($1, $3); }

522

;

523

524

unique_def:

525

/* Nothing */ { $$ = NULL; }

526

| PARS_UNIQUE_TOKEN { $$ = &pars_unique_token; }

527

;

528

529

clustered_def:

530

/* Nothing */ { $$ = NULL; }

531

| PARS_CLUSTERED_TOKEN { $$ = &pars_clustered_token; }

532

;

533

534

create_index:

535

PARS_CREATE_TOKEN unique_def

536

clustered_def

537

PARS_INDEX_TOKEN

538

PARS_ID_TOKEN PARS_ON_TOKEN PARS_ID_TOKEN

539

'(' column_list ')' { $$ = pars_create_index($2, $3, $5, $7, $9); }

540

;

541

542

commit_statement:

543

PARS_COMMIT_TOKEN PARS_WORK_TOKEN

544

{ $$ = pars_commit_statement(); }

545

;

546

547

rollback_statement:

548

PARS_ROLLBACK_TOKEN PARS_WORK_TOKEN

549

{ $$ = pars_rollback_statement(); }

550

;

551

552

type_name:

553

PARS_INT_TOKEN { $$ = &pars_int_token; }

554

| PARS_INTEGER_TOKEN { $$ = &pars_int_token; }

555

| PARS_CHAR_TOKEN { $$ = &pars_char_token; }

556

| PARS_BINARY_TOKEN { $$ = &pars_binary_token; }

557

| PARS_BLOB_TOKEN { $$ = &pars_blob_token; }

558

;

559

560

parameter_declaration:

561

PARS_ID_TOKEN PARS_IN_TOKEN type_name

562

{ $$ = pars_parameter_declaration($1,

563

PARS_INPUT, $3); }

564

| PARS_ID_TOKEN PARS_OUT_TOKEN type_name

565

{ $$ = pars_parameter_declaration($1,

566

PARS_OUTPUT, $3); }

567

;

568

569

parameter_declaration_list:

570

/* Nothing */ { $$ = NULL; }

571

| parameter_declaration { $$ = que_node_list_add_last(NULL, $1); }

572

| parameter_declaration_list ',' parameter_declaration

573

{ $$ = que_node_list_add_last($1, $3); }

574

;

575

576

variable_declaration:

577

PARS_ID_TOKEN type_name ';'

578

{ $$ = pars_variable_declaration($1, $2); }

579

;

580

581

variable_declaration_list:

582

/* Nothing */

583

| variable_declaration

584

| variable_declaration_list variable_declaration

585

;

586

587

cursor_declaration:

588

PARS_DECLARE_TOKEN PARS_CURSOR_TOKEN PARS_ID_TOKEN

589

PARS_IS_TOKEN select_statement ';'

590

{ $$ = pars_cursor_declaration($3, $5); }

591

;

592

593

function_declaration:

594

PARS_DECLARE_TOKEN PARS_FUNCTION_TOKEN PARS_ID_TOKEN ';'

595

{ $$ = pars_function_declaration($3); }

596

;

597

598

declaration:

599

cursor_declaration

600

| function_declaration

601

;

602

603

declaration_list:

604

/* Nothing */

605

| declaration

606

| declaration_list declaration

607

;

608

609

procedure_definition:

610

PARS_PROCEDURE_TOKEN PARS_ID_TOKEN '(' parameter_declaration_list ')'

611

PARS_IS_TOKEN

612

variable_declaration_list

613

declaration_list

614

PARS_BEGIN_TOKEN

615

statement_list

616

PARS_END_TOKEN { $$ = pars_procedure_definition($2, $4,

617

$10); }

618

;

619

620

%%