如何删除Firebird数据库的注释和存储过程代码

因为发布一个项目的需要，稍微研究了一下如何清除给用户的Firebird数据库中的各种注释以及存储过程、触发器的源码。

/* --- 清除注释和代码 --- */
/* view description */
update RDB$RELATIONS set RDB$DESCRIPTION = null;

/* Table fields description */
update rdb$relation_fields set rdb$description = null;

/* domain description */
update RDB$FIELDS  set RDB$DESCRIPTION = null;

/* procedure description */
update RDB$PROCEDURES set RDB$DESCRIPTION = null;
update rdb$procedure_parameters set rdb$description = null;

/* trigger description */
update RDB$TRIGGERS set RDB$DESCRIPTION = null where RDB$DESCRIPTION is not null;

/* exception description */
update RDB$EXCEPTIONS set RDB$DESCRIPTION = null;

/* udf description */
update RDB$FUNCTIONS set RDB$DESCRIPTION = null;

/* procedure code */
update rdb$procedures set rdb$procedure_source = null;

/* trigger code */
update RDB$TRIGGERS set RDB$TRIGGER_SOURCE=null where RDB$SYSTEM_FLAG<>1;