begin 

declare
	procedure exec(p_stmt in varchar2)
	is
	begin
		execute immediate p_stmt;
	exception
		when others
		then
			null;
	end;
begin
	exec('create public synonym "org/w3c/dom/Node" for "org/w3c/dom/Node"');
	exec('create public synonym "org/w3c/dom/NodeList" for "org/w3c/dom/NodeList"');
	exec('create public synonym "org/w3c/dom/NamedNodeMap" for "org/w3c/dom/NamedNodeMap"');
	exec('create public synonym "org/w3c/dom/Element" for "org/w3c/dom/Element"');
	exec('create public synonym "oracle/xml/parser/v2/XMLDocument" for "oracle/xml/parser/v2/XMLDocument"');
	exec('create public synonym "org/w3c/dom/DOMException" for "org/w3c/dom/DOMException"');
	exec('create public synonym "oracle/xml/parser/v2/DOMParser" for "oracle/xml/parser/v2/DOMParser"');
	exec('create public synonym "oracle/xml/parser/v2/XMLNode" for "oracle/xml/parser/v2/XMLNode"');

	exec('grant execute on "org/w3c/dom/Node" to public');
	exec('grant execute on "org/w3c/dom/NodeList" to public');
	exec('grant execute on "org/w3c/dom/NamedNodeMap" to public');
	exec('grant execute on "org/w3c/dom/Element" to public');
	exec('grant execute on "oracle/xml/parser/v2/XMLDocument" to public');
	exec('grant execute on "org/w3c/dom/DOMException" to public');
	exec('grant execute on "oracle/xml/parser/v2/DOMParser" to public');
	exec('grant execute on "oracle/xml/parser/v2/XMLNode" to public');
end; 

end;