Edit D:\app\Administrator\product\11.2.0\dbhome_1\owb\lib\int\tcl\lang\SocketCmd.class
?? - ? tcl/lang/SocketCmd java/lang/Object tcl/lang/Command validCmds [Ljava/lang/String; OPT_ASYNC I ConstantValue OPT_MYADDR OPT_MYPORT OPT_SERVER cmdProc )(Ltcl/lang/Interp;[Ltcl/lang/TclObject;)V Exceptions tcl/lang/TclException Code LineNumberTable LocalVariableTable toString ()Ljava/lang/String; ! " tcl/lang/TclObject $ % length ()I ' # ( java/lang/String * + charAt (I)C ' ) - 0 option 2 3 get N(Ltcl/lang/Interp;Ltcl/lang/TclObject;[Ljava/lang/String;Ljava/lang/String;I)I 5 1 6 tcl/lang/TclIndex index 9 +cannot set -async option for server sockets ; < <init> &(Ltcl/lang/Interp;Ljava/lang/String;)V : ? $no argument given for -myaddr option A $no argument given for -myport option C D getPort ((Ltcl/lang/Interp;Ltcl/lang/TclObject;)I B G $no argument given for -server option I java/lang/StringBuffer ; K ()V H J N bad option " P Q append ,(Ljava/lang/String;)Ljava/lang/StringBuffer; H O P T ,(Ljava/lang/Object;)Ljava/lang/StringBuffer; H S W $", must be -async, -myaddr, -myport, Y or -server H i ] 'Option -myport is not valid for servers _ < errorWrongNumArgs ^ b c newInstance ((Ljava/lang/String;)Ltcl/lang/TclObject; e a f tcl/lang/TclString h tcl/lang/ServerSocketChannel ; j ;(Ltcl/lang/Interp;Ljava/lang/String;ILtcl/lang/TclObject;)V g i m n registerChannel &(Ltcl/lang/Interp;Ltcl/lang/Channel;)V p l q tcl/lang/TclIO s getChanName u r v tcl/lang/Channel x y setResult (Ljava/lang/String;)V { w | tcl/lang/Interp scr Ltcl/lang/TclObject; sock Ltcl/lang/ServerSocketChannel; ? tcl/lang/SocketChannel ; ? <(Ltcl/lang/Interp;ILjava/lang/String;IZLjava/lang/String;I)V ? ? Ltcl/lang/SocketChannel; ? cannot open socket: ; y H ? ? getMessage ? ? ? java/lang/Throwable e Ljava/io/IOException; ? java/io/IOException server Z async channelId Ljava/lang/String; myaddr script host myport port this Ltcl/lang/SocketCmd; interp Ltcl/lang/Interp; argv [Ltcl/lang/TclObject; ? wrong # args: should be either: ? 4 ?-myaddr addr? ?-myport myport? ?-async? host port ? $ -server command ?-myaddr addr? port cmdName ? ? getInt &(Ltcl/lang/Interp;Ljava/lang/String;)I ? ? ? tcl/lang/Util ?? ? *couldn't open socket: port number too high num tobj J <clinit> ? -async ? -myaddr ? -myport ? -server SourceFile SocketCmd.java ? >6::::6 6 6? ,2? ? &? &,2? ? ,-? +,2? ./? 46? ? ?? ? 3 T v? ? Y+8? =?6? ?,? ? Y+>? =?,2? :? ?,? ? Y+@? =?+,2? E6 ? _? ? Y+8? =?>?,? ? Y+F? =?,2? :? ,? Y+? HY? LM? R,2? UV? RX? R? Z? =?,??? : ? ? Y+\? =? %`,? ,2? :?? +,2? ? `,?d? +,2? E6 ? +,2? ? `? ,? d: ? gY+ ? k:+? o+? t? z? I? ?+ ? ?: + ? o+ ? t? z? ": ? Y+? HY? ? ? ? R? Z? =? ??? ? @ 0 1 2 3 4 5 6 7 8 9 ; ; ! <