Edit D:\app\Administrator\product\11.2.0\dbhome_1\owb\lib\int\tcl\lang\JavaCastCmd.class
?? - j tcl/lang/JavaCastCmd java/lang/Object tcl/lang/Command cmdProc )(Ltcl/lang/Interp;[Ltcl/lang/TclObject;)V Exceptions tcl/lang/TclException Code LineNumberTable LocalVariableTable tcl/lang/TclNumArgsException class javaObj <init> <(Ltcl/lang/Interp;I[Ltcl/lang/TclObject;Ljava/lang/String;)V get 8(Ltcl/lang/Interp;Ltcl/lang/TclObject;)Ljava/lang/Class; tcl/lang/ClassRep isAccessible (Ljava/lang/Class;)Z ! " tcl/lang/reflect/PkgInvoker $ java/lang/StringBuffer & ()V # % ) Class " + , append ,(Ljava/lang/String;)Ljava/lang/StringBuffer; # * / 0 getName ()Ljava/lang/String; 2 . 3 java/lang/Class 5 " is not accessible 7 0 toString # 6 : &(Ltcl/lang/Interp;Ljava/lang/String;)V 9 = 9(Ltcl/lang/Interp;Ltcl/lang/TclObject;)Ljava/lang/Object; ? < @ tcl/lang/ReflectObject B C newInstance J(Ltcl/lang/Interp;Ljava/lang/Class;Ljava/lang/Object;)Ltcl/lang/TclObject; ? A F G setResult (Ltcl/lang/TclObject;)V I E J tcl/lang/Interp L M getClass ()Ljava/lang/Class; K P isAssignableFrom 2 O S could not cast from U V getNameFromClass %(Ljava/lang/Class;)Ljava/lang/String; X T Y tcl/lang/JavaInfoCmd [ to cast_to Ljava/lang/Class; obj Ljava/lang/Object; cast_from this Ltcl/lang/JavaCastCmd; interp Ltcl/lang/Interp; argv [Ltcl/lang/TclObject; % SourceFile JavaCastCmd.java 8 ?,?? ? Y+,? ?+,2? N-? ? '? Y+? #Y? '(? --? 1? -4? -? 8? ;?+,2? >:? ++-? D? H?? N:-? Q? ++-? D? H? Y+? #Y? 'R? -? W? -Z? --? W? -? 8? ;? : 4 5 9 <