ibec_Trim

Trims leading and trailing spaces and control characters from a string.

function ibec_Trim(S : string): string;

execute IBEBlock
returns (proc_name varchar(31), proc_src varchar(255))
as
begin
  for
    select rdb$procedure_name, rdb$procedure_source
    from rdb$procedures
    order by rdb$procedure_name
    into :proc_name, :proc_src
  do
  begin
    proc_src = ibec_Trim(ibec_Copy(proc_src, 1, 255));
    suspend;
  end
end