Edit D:\app\Administrator\product\11.2.0\dbhome_1\owb\lib\int\tcl\lang\VariableCmd.class
?? - d tcl/lang/VariableCmd java/lang/Object tcl/lang/Command cmdProc )(Ltcl/lang/Interp;[Ltcl/lang/TclObject;)V Exceptions tcl/lang/TclException Code LineNumberTable LocalVariableTable toString ()Ljava/lang/String; tcl/lang/TclObject define lookupVar [(Ltcl/lang/Interp;Ljava/lang/String;Ljava/lang/String;ILjava/lang/String;ZZ)[Ltcl/lang/Var; tcl/lang/Var ! <init> &(Ltcl/lang/Interp;Ljava/lang/String;)V $ % flags I # ( % refCount ' + , setVar d(Ltcl/lang/Interp;Ltcl/lang/TclObject;Ltcl/lang/TclObject;Ltcl/lang/TclObject;I)Ltcl/lang/TclObject; * varValue Ltcl/lang/TclObject; 1 2 varFrame Ltcl/lang/CallFrame; 4 0 5 tcl/lang/Interp 7 8 isProcCallFrame Z : 6 ; tcl/lang/CallFrame = > length ()I @ < A java/lang/String C D charAt (I)C @ B tail cp I J substring (I)Ljava/lang/String; @ H M N makeUpvar `(Ltcl/lang/Interp;Ltcl/lang/CallFrame;Ljava/lang/String;Ljava/lang/String;ILjava/lang/String;I)V L len varName Ljava/lang/String; result [Ltcl/lang/Var; var Ltcl/lang/Var; array i this Ltcl/lang/VariableCmd; interp Ltcl/lang/Interp; objv [Ltcl/lang/TclObject; ()V _ ` SourceFile VariableCmd.java $ ?6 ? ?, 2? N+-? : ? ? Y+? "? 2: 2:? & ?~? Y? & ??? &Y? )`? ) `,? '+, 2, `2? -:? ? Y+? "?+? 3? \+? 3? 9? R-? ?6Y66? --?? E:? ? 6? -?? E:????+--? K? O `6 ,??? ? ! D E F G H J J N O R "