firebird/firebird-mirror
firebird/firebird-mirror
8
0
Fork 1
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-22 16:43: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 as
begin begin
rdb$set_context('USER_SESSION', 'fb$out.enabled', '1'); rdb$set_context('USER_SESSION', 'fb$out.enabled', '1');
end; end
procedure disable procedure disable
as as
begin begin
rdb$set_context('USER_SESSION', 'fb$out.enabled', null); rdb$set_context('USER_SESSION', 'fb$out.enabled', null);
end; end
procedure put_line (line fb$out_type) procedure put_line (line fb$out_type)
as as
@ -49,14 +49,14 @@ begin
values (next value for fb$out_seq, :line); values (next value for fb$out_seq, :line);
end end
end end
end; end
procedure clear procedure clear
as as
begin begin
in autonomous transaction do in autonomous transaction do
delete from fb$out_table; delete from fb$out_table;
end; end
procedure get_lines returns (lines fb$out_type) procedure get_lines returns (lines fb$out_type)
as as
@ -77,7 +77,7 @@ begin
end end
execute procedure clear; execute procedure clear;
end; end
end! end!

7
src/dsql/parse.y
View File

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