Edit D:\app\Administrator\product\11.2.0\dbhome_1\owb\lib\int\tcl\lang\CaseCmd.class
?? - ? tcl/lang/CaseCmd java/lang/Object tcl/lang/Command cmdProc )(Ltcl/lang/Interp;[Ltcl/lang/TclObject;)V Exceptions tcl/lang/TclException Code LineNumberTable LocalVariableTable tcl/lang/TclNumArgsException +string ?in? patList body ... ?default body? <init> <(Ltcl/lang/Interp;I[Ltcl/lang/TclObject;Ljava/lang/String;)V toString ()Ljava/lang/String; tcl/lang/TclObject in ! equals (Ljava/lang/Object;)Z # $ java/lang/String i I ( ) getElements <(Ltcl/lang/Interp;Ltcl/lang/TclObject;)[Ltcl/lang/TclObject; + ' , tcl/lang/TclList . extra case pattern with no body 0 &(Ltcl/lang/Interp;Ljava/lang/String;)V / 3 4 length ()I # 2 7 8 charAt (I)C # 6 ; < isWhitespace (C)Z >