File: dat2log.tcl

package info (click to toggle)
ns2 2.35%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 78,796 kB
  • sloc: cpp: 172,923; tcl: 107,130; perl: 6,391; sh: 6,143; ansic: 5,846; makefile: 816; awk: 525; csh: 355
file content (25 lines) | stat: -rw-r--r-- 547 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
proc getopt {argc argv} {
        global opt
	lappend optlist tr 

        for {set i 0} {$i < $argc} {incr i} {
                set arg [lindex $argv $i]
                if {[string range $arg 0 0] != "-"} continue

	                set name [string range $arg 1 end]
	                set opt($name) [lindex $argv [expr $i+1]]
        }
}
		
getopt $argc $argv

set f [open $opt(file) r]
while {[gets $f line] >= 0} {

 set xitem [lindex $line 0]
 set yitem [lindex $line 2]

 if { [expr $xitem] != 0} {
 	puts "[expr log10($xitem)] $yitem"
 }
}