[Xen-devel] [OSSTEST PATCH 32/33] tcl daemons: Provide with-db

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

This makes it easier to get the matching of db-open and db-close right.

Signed-off-by: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx>
---
 tcl/JobDB-Executive.tcl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl
index 0fc0a6d..07a0438 100644
--- a/tcl/JobDB-Executive.tcl
+++ b/tcl/JobDB-Executive.tcl
@@ -303,6 +303,22 @@ proc step-set-status {flight job stepno st} {
     }
 }
 
+proc with-db {script} {
+    global errorInfo errorCode
+    set rc [catch {
+       db-open
+       uplevel 1 $script
+    } result]
+    set ei $errorInfo
+    set ec $errorCode
+    if {$rc} {
+       catch { db-close }
+    } else {
+       db-close
+    }
+    return -code $rc -errorinfo $ei -errorcode $ec $result
+}
+    
 proc transaction {tables script {autoreconnect 0}} {
     global errorInfo errorCode
     set retries 100
-- 
2.1.4


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxx
https://lists.xen.org/xen-devel