首次提交

ssp_tx/sim/functions.tcl

@@ -0,0 +1,39 @@
+#usage: "do xxx.tcl timing" for timing simulation and "do xxx.tcl" for functional simulation
+
+#get the current script file name by [info frame],walk through all frame return lines
+#here we use the "do ..." command to start this script,so we can't use the [info script]
+#command to start this script
+#with the "do ..." command,we can start this script with command line options,and we 
+#can refercen these options by $1,$2,etc.
+proc get_file_name { } {
+
+    set file_name 0
+    catch {
+       set max_info [info frame]
+       puts "maxinfo=$max_info"
+        puts "...................................."
+       for {set a $max_info} {$a>0} {incr a -1} {
+            puts $a
+            set framestring [info frame $a];
+            puts $framestring;
+            set cmdstring [dict get $framestring cmd];                  #extract command with "cmd" key
+            if {[string match *case*.tcl* $cmdstring]} {                     #search "do xxx.tcl timing" patten
+                puts $cmdstring
+                set ary [split $cmdstring " "]
+                puts $ary
+                set file_name [lindex $ary 1]
+                puts $file_name
+                break
+            }
+        }
+    }
+    return $file_name
+}
+
+
+proc get_case_num {case_name} {
+    regsub {[a-z]*} $case_name {} case_num
+#   puts $case_num
+    return $case_num
+}
+