firebird/firebird-mirror
firebird/firebird-mirror
8
0
Fork 1
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-22 16:03:03 +01:00
Code Issues

Changed package routines syntax to not need (nor accept) a semi-colon after "END".

Browse Source
This commit is contained in:
asfernandes 2013-05-13 01:49:34 +00:00
parent fc16bb34e4
commit 6e4fbfdba7
2 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
examples/package/fbout-body.sql
View File

@ -30,13 +30,13 @@ begin
as
begin
rdb$set_context('USER_SESSION', 'fb$out.enabled', '1');
end;
end
procedure disable
as
begin
rdb$set_context('USER_SESSION', 'fb$out.enabled', null);
end;
end
procedure put_line (line fb$out_type)
as
@ -49,14 +49,14 @@ begin
values (next value for fb$out_seq, :line);
end
end
end;
end
procedure clear
as
begin
in autonomous transaction do
delete from fb$out_table;
end;
end
procedure get_lines returns (lines fb$out_type)
as
@ -77,7 +77,7 @@ begin
end
execute procedure clear;
end;
end
end!

7
src/dsql/parse.y
View File

@ -2403,8 +2403,7 @@ package_body_clause
%type <packageItems> package_body_items_opt
package_body_items_opt
:
{ $$ = newNode<Array<CreateAlterPackageNode::Item> >(); }
: /* nothing */ { $$ = newNode<Array<CreateAlterPackageNode::Item> >(); }
| package_body_items
;
@ -2424,9 +2423,9 @@ package_body_items
%type <packageItem> package_body_item
package_body_item
: FUNCTION function_clause ';'
: FUNCTION function_clause
{ $$ = CreateAlterPackageNode::Item::create($2); }
| PROCEDURE procedure_clause ';'
| PROCEDURE procedure_clause
{ $$ = CreateAlterPackageNode::Item::create($2); }
;