mirror of
https://github.com/FirebirdSQL/firebird.git
synced 2025-01-24 23:23:03 +01:00
140 lines
2.6 KiB
Plaintext
140 lines
2.6 KiB
Plaintext
%{
|
|
/*
|
|
* The contents of this file are subject to the Interbase Public
|
|
* License Version 1.0 (the "License"); you may not use this file
|
|
* except in compliance with the License. You may obtain a copy
|
|
* of the License at http://www.Inprise.com/IPL.html
|
|
*
|
|
* Software distributed under the License is distributed on an
|
|
* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
|
|
* or implied. See the License for the specific language governing
|
|
* rights and limitations under the License.
|
|
*
|
|
* The Original Code was created by Inprise Corporation
|
|
* and its predecessors. Portions created by Inprise Corporation are
|
|
* Copyright (C) Inprise Corporation.
|
|
*
|
|
* All Rights Reserved.
|
|
* Contributor(s): ______________________________________.
|
|
*/
|
|
#include "../jrd/dbg.h"
|
|
extern int *prior_frame;
|
|
#define SYM_FIELD(ptr, field) (((SYMB) ptr)->field)
|
|
%}
|
|
|
|
%token NUMBER, ROUTINE, OFFSET, SYMBOL, OTHER, ARROW, PRINTER
|
|
%left "+","-"
|
|
%left '*'
|
|
%right ARROW, "."
|
|
%left '$'
|
|
%%
|
|
|
|
list :
|
|
| list statement '\n'
|
|
| list statement ';'
|
|
| list error '\n'
|
|
{
|
|
yyerrok;
|
|
}
|
|
| list 'A' /* dummy to get routines loaded */
|
|
{
|
|
DMP_active();
|
|
}
|
|
;
|
|
|
|
statement : PRINTER expr
|
|
{
|
|
int (*routine)();
|
|
SYMB symbol;
|
|
SLONG stuff;
|
|
symbol = (SYMB) ($1);
|
|
stuff = $2;
|
|
if (routine = *symbol->symb_value)
|
|
(*routine) (stuff, 0);
|
|
}
|
|
| '*' PRINTER expr
|
|
{
|
|
int (*routine)();
|
|
SYMB symbol;
|
|
|
|
symbol = (SYMB) ($2);
|
|
if (routine = *symbol->symb_value)
|
|
{
|
|
DBG_open();
|
|
(*routine) ((SLONG) $3, 0);
|
|
DBG_close();
|
|
}
|
|
}
|
|
| ROUTINE
|
|
{
|
|
int (*routine)();
|
|
SYMB symbol;
|
|
|
|
symbol = (SYMB) ($1);
|
|
if (routine = *symbol->symb_value)
|
|
(*routine) (0);
|
|
}
|
|
| '!'
|
|
{
|
|
system ("csh");
|
|
printf ("\n");
|
|
}
|
|
| /* Nothing */
|
|
;
|
|
|
|
expr : SYMBOL
|
|
{
|
|
SYMB symbol;
|
|
|
|
symbol = (SYMB) ($1);
|
|
$$ = (YYSTYPE) symbol->symb_value;
|
|
}
|
|
| NUMBER
|
|
| expr '+' expr
|
|
{
|
|
$$ = $1 + $3;
|
|
}
|
|
| expr '-' expr
|
|
{
|
|
$$ = $1 - $3;
|
|
}
|
|
| OFFSET
|
|
{
|
|
SYMB symbol;
|
|
|
|
symbol = (SYMB) ($1);
|
|
$$ = (YYSTYPE) symbol->symb_value;
|
|
}
|
|
| expr '.' OFFSET
|
|
{
|
|
SYMB symbol;
|
|
|
|
symbol = (SYMB) ($3);
|
|
$$ = $1 + (int) symbol->symb_value;
|
|
}
|
|
| expr ARROW OFFSET
|
|
{
|
|
SYMB symbol;
|
|
|
|
symbol = (SYMB) ($3);
|
|
$$ = *(int *) ($1 + symbol->symb_value);
|
|
}
|
|
| '$' expr
|
|
{
|
|
$$ = prior_frame [$2 + 1];
|
|
}
|
|
| '*' expr
|
|
{
|
|
$$ = *(int *) $2;
|
|
}
|
|
| '(' expr ')'
|
|
{
|
|
$$ = $2;
|
|
}
|
|
;
|
|
%%
|
|
|
|
#define JLX_C_INCLUDED_BY_GRAMMAR_CPP
|
|
#include "../jrd/jlx.c"
|
|
#undef JLX_C_INCLUDED_BY_GRAMMAR_CPP
|