ns-iface.tcl
上传用户:rrhhcc
上传日期:2015-12-11
资源大小:54129k
文件大小:1k
- #
- # tcl/interface/ns-iface.tcl
- #
- # Copyright (C) 1997 by USC/ISI
- # All rights reserved.
- #
- # Redistribution and use in source and binary forms are permitted
- # provided that the above copyright notice and this paragraph are
- # duplicated in all such forms and that any documentation, advertising
- # materials, and other materials related to such distribution and use
- # acknowledge that the software was developed by the University of
- # Southern California, Information Sciences Institute. The name of the
- # University may not be used to endorse or promote products derived from
- # this software without specific prior written permission.
- #
- # THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
- # WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
- # MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
- #
- # Ported by Polly Huang (USC/ISI), http://www-scf.usc.edu/~bhuang
- #
- #
- NetworkInterface set ifacenum_ 0
- NetworkInterface proc getid {} {
- $self instvar ifacenum_
- return [incr ifacenum_]
- }
- NetworkInterface instproc init {} {
- $self next
- $self cmd label [NetworkInterface getid]
- }