ns-iface.tcl
上传用户:rrhhcc
上传日期:2015-12-11
资源大小:54129k
文件大小:1k
源码类别:

通讯编程

开发平台:

Visual C++

  1.  #
  2.  # tcl/interface/ns-iface.tcl
  3.  #
  4.  # Copyright (C) 1997 by USC/ISI
  5.  # All rights reserved.                                            
  6.  #                                                                
  7.  # Redistribution and use in source and binary forms are permitted
  8.  # provided that the above copyright notice and this paragraph are
  9.  # duplicated in all such forms and that any documentation, advertising
  10.  # materials, and other materials related to such distribution and use
  11.  # acknowledge that the software was developed by the University of
  12.  # Southern California, Information Sciences Institute.  The name of the
  13.  # University may not be used to endorse or promote products derived from
  14.  # this software without specific prior written permission.
  15.  # 
  16.  # THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
  17.  # WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
  18.  # MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  19.  # 
  20.  # Ported by Polly Huang (USC/ISI), http://www-scf.usc.edu/~bhuang
  21.  # 
  22.  #
  23. NetworkInterface set ifacenum_ 0
  24. NetworkInterface proc getid {} {
  25. $self instvar ifacenum_
  26. return [incr ifacenum_]
  27. }
  28. NetworkInterface instproc init {} {
  29. $self next
  30. $self cmd label [NetworkInterface getid]
  31. }