Changeset 120

Timestamp:

Dec 4, 2009 5:00:44 PM (14 years ago)

Author:

toby

Message:

# on 1999/11/17 22:05:04, toby did:
Add routines to delete history records

File:

• trunk/readexp.tcl (modified) (1 diff, 3 props)

trunk/readexp.tcl

@@ -1141 +1141 @@
     close $fp
 }
+
+# history commands -- delete all but last $keep history records, 
+# renumber if $renumber is true
+proc DeleteHistory {keep renumber} {
+    global exparray
+    foreach y [lrange [lsort -decreasing \
+            [array names exparray {    HSTRY*}]] $keep end] {
+        unset exparray($y)
+    }
+    if !$renumber return
+    # renumber 
+    set i 0
+    foreach y [lsort -increasing \
+            [array names exparray {    HSTRY*}]] {
+        set key [format "    HSTRY%3d" [incr i]]
+        set exparray($key) $exparray($y)
+        unset exparray($y)
+    }
+    # list all history
+    #    foreach y [lsort -decreasing [array names exparray {    HSTRY*}]] {puts "$y $exparray($y)"}
+}
+
+proc CountHistory {} {
+    global exparray
+    return [llength [array names exparray {    HSTRY*}]]
+}
+
+