Tcl Source Code

Artifact 75847558d46207441fdb60cf05251df7aea1f4c2:

proc istcl85 {} {
    return [expr {$::tcl_version == "8.5"} ? 1 : 0]
}


proc boolvalYES {val} {
}

proc boolvalPASS {val} {
}

proc boolvalON {val} {
}

proc boolstring {val} {
}

proc lssort {args} {
}
proc lssortRegexp {regexp cmp1 cmp2} {
}

proc lexclude {args} {
}

proc lprepend {var args} {
}

proc lswap {list} {
}


proc lindices {list} {
}

proc list_iszero { l } {
}

proc lvalues {list {regexp {}}} {
}

proc ltrim {list text} {
}

proc lglobaltail {list} {
}

proc leval {list command {rtype lappend}} {
}

proc lapply {function list} {
}

proc llindex {list index} {
}

proc llscm {args} {
}

proc lappendUnique {listName args} {
}

proc join2 {list delim1 delim2} {
}
proc join3 {list delim1 delim2 delim3} {
}
proc ljoin {args} {
}
proc lmerge {args} {
}
proc lformat {format list} {
}
proc lremdup {list} {
}
proc lremrep {list} {
}
proc lsortunique {list {sort_option -dictionary}} {
}
proc tlimit {text width} {
}
proc niceParamValues {list} {
}
proc lvarpop {args} {
}
proc dummyServerPorts {args} {
}
proc rejectConnection {sock host port} {
}

proc arraydump {aname {glob *}} {
}

proc removetags {window tags} {
}

proc appendtags {window tags} {
}

proc getDidYouMeanString {value comparators args} {
}
proc getComparisonProbabilitys {value comparators args} {
}
proc getComparisonProbabilityDouble {value comparator args} {
}
proc getComparisonProbability {value comparator args} {
}
proc doidle {{time 1000}} {
}

proc idle {time} {
}

proc wait_ms {waitTime {doStep 0}} {
}


proc cv_list { l1 l2 } {
}

proc expandIndex {index} {
}

proc unexpandIndex {index} {
}


proc expandData {index data} {
}

proc unexpandData {index data} {
}

proc selectData {index data} {
}

proc getColorRGB {window color} {
}

proc unparse {parameter_list} {
}

proc gets_csv {csfile varname} {
}

proc list2csv {list} {
}

proc killproc {pattern} {
}


proc getBacktrace {args} {
}

proc discInfo {args} {
}

proc i2bin {v {mask 0xFFFF}} {
}

proc i2mask {v {chars ESBTM}} {
}

proc i2maskL {v {chars {SAS Bus Batt}} {sep /} } {
}

proc i2maskL2 {v {chars {SAS Bus Batt}} {sep /} } {
}

proc i2maskColor {v {chars {red}} } {
}
proc bitmaskMap {{map {0 Bit0 1 Bit1 5 Bit5}} {sep /} {zeroName Ok}} {
}
proc bitmaskColorMap  {{map {0 red 1 orange 5 yellow}} {zeroColor {white}}} {
}

proc debug {msg} {
}

proc keyval_list {args} {
}
proc get_loaded_packages {} {
}
proc do {script arg2 {arg3 {}}} {
}

proc checkPacketType {args} {
}

proc esource {args} {
}

## remove reset devices if they are already declared as childs
proc sortDevices {deviceList} {
}

proc isnumeric {value} {
}

proc globaltail {object} {
}

proc xxx_recurse {} {
}

proc recursion_depth {} {
}

proc hexDump {data {delimiter "|"}} {
}

proc charcount {str char} {
}

proc remark {args} {}

proc set_if_changed {vName val} {}

proc getclock {args} {}