-- Copyright © 1995, 2008, Oracle Corporation.  All Rights Reserved.
print 'Copyright © 1995, 2008, Oracle Corporation.  All Rights Reserved.';
declare :Rdb_DIALECT char(31);

-- save some session information
get environment (session)
    :Rdb_Dialect = DIALECT;

set warning nodeprecate;
set dialect 'SQLV40';
drop module Rdb$ORACLE_SQLFUNC_CHAR cascade if exists;
drop module Rdb$ORACLE_SQLFUNC_OCTET cascade if exists;
-- Rdb SQL functions fashioned after Oracle SQL functions:
-- Number functions:
drop function ABS cascade if exists;
drop function CEIL cascade if exists;
drop function ACOS cascade if exists;
drop function ACOSH cascade if exists;
drop function COS cascade if exists;
drop function COT cascade if exists;
drop function COSH cascade if exists;
drop function EXP cascade if exists;
drop function FLOOR cascade if exists;
drop function LN cascade if exists;
drop function LOG cascade if exists;
drop function MOD cascade if exists;
drop function POWER cascade if exists;
drop function ROUND cascade if exists;
drop function SIGN cascade if exists;
drop function BITAND cascade if exists;
drop function ASIN cascade if exists;
drop function ASINH cascade if exists;
drop function SIN cascade if exists;
drop function SINH cascade if exists;
drop function SQRT cascade if exists;
drop function ATAN cascade if exists;
drop function ATANH cascade if exists;
drop function ATAN2 cascade if exists;
drop function TAN cascade if exists;
drop function TANH cascade if exists;
drop function TRUNC cascade if exists;
-- Character functions returning character values:
drop function CHR cascade if exists;
-- Character functions returning number values:
drop function RDB$VARCHAR_TO_ASCII cascade if exists;
-- Other functions:
drop function HEXTORAW cascade if exists;
drop function RAWTOHEX cascade if exists;
drop function RDB$IS_DEC_MCS_ALPHANUM cascade if exists;
drop function RDB$IS_ALPHANUM cascade if exists;

drop domain Rdb$ORACLE_SQLFUNC_VCHAR_DOM cascade if exists;
drop domain Rdb$ORACLE_SQLFUNC_DATE_DOM cascade if exists;
drop domain Rdb$ORACLE_SQLFUNC_DEC_MCS_DOM cascade if exists;
drop domain Rdb$ORACLE_SQLFUNC_CHAR_DOM cascade if exists;
set warning deprecate;
set dialect :Rdb_DIALECT;
undeclare :Rdb_DIALECT;
commit;