All new accounts created on Gitlab now require administrator approval. If you invite any collaborators, please let Flux staff know so they can approve the accounts.

Commit 92614a39 authored by Christopher Alfeld's avatar Christopher Alfeld

Added magic to deal with symbolic links.

parent fffa420b
#!/usr/local/bin/tclsh
# Just parses the ir and prints out a basic human readible report.
set scriptdir [file dirname [info script]]
### Bootstrapping code. The whole purpose of this is to find the
# directory containing the script.
set file [info script]
while {![catch "file readlink $file" newfile]} {
set file $newfile
}
set scriptdir [file dirname $file]
if {$scriptdir == "."} {set scriptdir [pwd]}
###
set updir [file dirname $scriptdir]
source $updir/ir/libir.tcl
......@@ -13,7 +21,7 @@ sql selectdb $DB tbdb
namespace import TB_LIBIR::ir
if {[llength $argv] == 0 || [llength $argv] > 2} {
puts stderr "Syntax: $argv0 [-v] <irfile>"
puts stderr "Syntax: $argv0 \[-v\] <irfile>"
exit 1
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment