ns-key-meta.tcl

来自「无线传感器网络中,基于协商的SPIN路由协议在NS-2下仿真实现的源代码」· TCL 代码 · 共 31 行

Class KeyMetaData -superclass Set/KeySet

KeyMetaData instproc metatostring {} {
    
    return [$self settolist]
}

KeyMetaData instproc stringtometa {l} {
    
    $self addlist $l
}

KeyMetaData instproc maptosize {} {

    # By default, the size of the data is 500 times the number
    # of elements of meta-data
    set els [$self numelements]

    return [expr $els * 500]
}

Class ListMetaData -superclass KeyMetaData

ListMetaData instproc getkey {element} {
    
    return [lindex $element 0]
}