Edit D:\app\Administrator\product\11.2.0\dbhome_1\owb\lib\int\tcl\lang\RegexpCmd.class
?? - ? tcl/lang/RegexpCmd java/lang/Object tcl/lang/Command validOpts [Ljava/lang/String; OPT_INDICES I ConstantValue OPT_NOCASE OPT_LAST init (Ltcl/lang/Interp;)V Code LineNumberTable LocalVariableTable regexp <init> ()V createCommand '(Ljava/lang/String;Ltcl/lang/Command;)V ! tcl/lang/Interp # regsub % tcl/lang/RegsubCmd $ interp Ltcl/lang/Interp; cmdProc )(Ltcl/lang/Interp;[Ltcl/lang/TclObject;)V Exceptions - tcl/lang/TclException . 1 switch 3 4 get N(Ltcl/lang/Interp;Ltcl/lang/TclObject;[Ljava/lang/String;Ljava/lang/String;I)I 6 2 7 tcl/lang/TclIndex index : ; toString ()Ljava/lang/String; = 9 > tcl/lang/TclObject @ - B C startsWith (Ljava/lang/String;)Z E A F java/lang/String H I compile K(Ltcl/lang/Interp;Ltcl/lang/TclObject;Z)Lsunlabs/brazil/util/regexp/Regexp; K G L tcl/lang/TclRegexp N O match (Ljava/lang/String;[I)Z Q M R !sunlabs/brazil/util/regexp/Regexp T U newInstance ()Ltcl/lang/TclObject; W S X tcl/lang/TclList T Z (I)Ltcl/lang/TclObject; \ Y ] tcl/lang/TclInteger _ ` append <(Ltcl/lang/Interp;Ltcl/lang/TclObject;Ltcl/lang/TclObject;)V W ^ obj Ltcl/lang/TclObject; e f substring (II)Ljava/lang/String; E d i T k ((Ljava/lang/String;)Ltcl/lang/TclObject; m j n tcl/lang/TclString range Ljava/lang/String; r s setVar =(Ljava/lang/String;Ltcl/lang/TclObject;I)Ltcl/lang/TclObject; q v java/lang/StringBuffer u y couldn't set variable " _ { ,(Ljava/lang/String;)Ljava/lang/StringBuffer; u z _ ~ ,(Ljava/lang/Object;)Ljava/lang/StringBuffer; u } ? " u 9 ? &(Ltcl/lang/Interp;Ljava/lang/String;)V , ? e Ltcl/lang/TclException; start end ? ? setResult (Z)V ? i exp string matches r #Lsunlabs/brazil/util/regexp/Regexp; args [I matched Z ? tcl/lang/TclNumArgsException ? >?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...? ? <(Ltcl/lang/Interp;I[Ltcl/lang/TclObject;Ljava/lang/String;)V ? ? %Ljava/lang/IndexOutOfBoundsException; ? #java/lang/IndexOutOfBoundsException nocase indices this Ltcl/lang/RegexpCmd; argv [Ltcl/lang/TclObject; <clinit> ? -indices ? -nocase ? -- SourceFile RegexpCmd.java M *? Y? ? *"? $Y? &? ? <