142: end;
143:
144: procedure setloading as
145: begin
146: dbms_registry.loading('JAVAVM',
147: 'JServer JAVA Virtual Machine',
148: 'initjvmaux.validate_javavm');
149: end;
150:
149: end;
150:
151: procedure setloaded as
152: begin
153: dbms_registry.loaded('JAVAVM');
154: validate_javavm;
155: end;
156:
157: procedure validate_javavm as
157: procedure validate_javavm as
158: begin
159: execute immediate
160: 'declare junk varchar2(10) := dbms_java.longname(''foo''); begin null; end;';
161: dbms_registry.valid('JAVAVM');
162: exception when others then
163: dbms_registry.invalid('JAVAVM');
164: end;
165:
159: execute immediate
160: 'declare junk varchar2(10) := dbms_java.longname(''foo''); begin null; end;';
161: dbms_registry.valid('JAVAVM');
162: exception when others then
163: dbms_registry.invalid('JAVAVM');
164: end;
165:
166: function registrystatus return varchar2 as
167: result varchar2(30) := dbms_registry.status('JAVAVM');
163: dbms_registry.invalid('JAVAVM');
164: end;
165:
166: function registrystatus return varchar2 as
167: result varchar2(30) := dbms_registry.status('JAVAVM');
168: begin
169: if result = 'VALID' then result := 'LOADED'; end if;
170: return result;
171: end;
319: end;
320:
321: function jvmversion return varchar2 as
322: begin
323: return dbms_registry.version('JAVAVM');
324: end;
325:
326: function current_release_version return varchar2 as
327: v varchar2(20);