CREATE PACKAGE METADATA_UTILS
AS
begin
  function ExtractScript returns blob sub_type text;
end

RECREATE PACKAGE BODY METADATA_UTILS
AS
begin
  function GetHeader(AName char(31)) returns blob sub_type text
  as
  begin
    -- ну тут дофига всего
    return 'CREATE OR ALTER PROCEDURE ' || AName || ASCII_CHAR(13) || 'AS';
  end

  procedure GetProcedures returns (OutText blob sub_type text, OutDelim varchar(10))
  as
  begin
    for
      select
        GetHeader(P.RDB$PROCEDURE_NAME) as header,
        P.RDB$PROCEDURE_SOURCE as source,
        P.RDB$DESCRIPTION as description
      from RDB$PROCEDURES P
      as cursor C
    do begin
      OutText = C.header;
      OutDelim = '^' ||  ASCII_CHAR(13) || ASCII_CHAR(13);
      suspend;
      OutText = C.source;
      OutDelim = ASCII_CHAR(13);
      suspend;
      if (OutText is not null) then
      begin
        OutText = 'COMMENT ON ''' || C.description || '''';
        OutDelim = '^' || ASCII_CHAR(13) || ASCII_CHAR(13);
        suspend;
      end
    end
  end

  function ExtractScript returns blob sub_type text
  as
  begin
    return 'SET TERM ^; ' || ASCII_CHAR(13) || ASCII_CHAR(13) ||
      (select LIST(OutText, OutDelim)
       from GetProcedures) || ASCII_CHAR(13) || ASCII_CHAR(13) || 'SET TERM ;^ ';
  end
end

select METADATA_UTILS.ExtractScript()
from rdb$database