From 98ab9c9d39c3f3f4b08366cfc78aa6f8d3b7de10 Mon Sep 17 00:00:00 2001
From: Matthew Webster <mwebster@fmrib.ox.ac.uk>
Date: Tue, 31 Jul 2007 14:26:54 +0000
Subject: [PATCH] output logfile for bedpostx
---
fdt.tcl | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/fdt.tcl b/fdt.tcl
index a98afd2..50a8988 100644
--- a/fdt.tcl
+++ b/fdt.tcl
@@ -645,6 +645,13 @@ proc fdt:apply { w dialog } {
}
if { $canwrite } {
puts "bedpostx $bedpost(directory) -n $bedpost(nfibres) -w $bedpost(weight) -b $bedpost(burnin)"
+
+ set filebase $bedpost(directory)/bedpostcom
+ set logfile "${filebase}_log.tcl"
+ set log [open "$logfile" w]
+ puts $log "bedpostx $bedpost(directory) -n $bedpost(nfibres) -w $bedpost(weight) -b $bedpost(burnin)"
+ close $log
+
fdt_monitor $w "${FSLDIR}/bin/bedpostx $bedpost(directory) -n $bedpost(nfibres) -w $bedpost(weight) -b $bedpost(burnin)"
}
}
--
GitLab