Edit D:\app\Administrator\product\11.2.0\dbhome_1\owb\lib\int\tcl\lang\UpvarCmd.class
?? - Y tcl/lang/UpvarCmd java/lang/Object tcl/lang/Command cmdProc )(Ltcl/lang/Interp;[Ltcl/lang/TclObject;)V Exceptions tcl/lang/TclException Code LineNumberTable LocalVariableTable tcl/lang/TclNumArgsException 1?level? otherVar localVar ?otherVar localVar ...? <init> <(Ltcl/lang/Interp;I[Ltcl/lang/TclObject;Ljava/lang/String;)V toString ()Ljava/lang/String; tcl/lang/TclObject tcl/lang/CallFrame ! getFrame ;(Ltcl/lang/Interp;Ljava/lang/String;[Ltcl/lang/CallFrame;)I $ % length ()I ' # ( java/lang/String * + indexOf (I)I ' ) . / charAt (I)C ' - 2 3 substring (II)Ljava/lang/String; ' 1 6 7 makeUpvar `(Ltcl/lang/Interp;Ltcl/lang/CallFrame;Ljava/lang/String;Ljava/lang/String;ILjava/lang/String;I)V 9 5 : tcl/lang/Var myVarName Ljava/lang/String; otherVarName otherLength I p B C resetResult ()V E A F tcl/lang/Interp objc frameSpec frameArr [Ltcl/lang/CallFrame; result frame Ltcl/lang/CallFrame; objv_index this Ltcl/lang/UpvarCmd; interp Ltcl/lang/Interp; objv [Ltcl/lang/TclObject; C U SourceFile UpvarCmd.java ? ?,?6,?? ? Y+,? ?,2? :? :+? "6 2N `d6~? ? Y+,? ? `6 ? n, `2? :, 2? :? &6(? ,6? 2d? 0)? $+-? 4`d? 4? 8? +-? 8?? ??+? D? r ! "