B

#!/usr/bin/env tclsh
#
# open one or more files with "ma", or locate already open instance


set exec_prefix ""

if {[info exists env(HERE)]} {
    set exec_prefix $env(HERE)/exec/
}

if {$argc == 0} {
    puts stderr "usage: B FILENAME[:ADDR] ..."
    exit 1
}

foreach x $argv {
    if {[regexp {^(.*):([^:]*)$} $x whole file addr]} {
        set fname [file normalize $whole]
        if {[file exists $fname]} {
            exec ${exec_prefix}ma-eval -async MA-registry FindFile "{$fname}" &
            continue
        }
        set fname [file normalize $file]
        if {[file exists $fname]} {
            exec ${exec_prefix}ma-eval -async MA-registry FindFile "{$fname}" $addr &
            continue
        }
    } else {
        set fname [file normalize $x]
        exec ${exec_prefix}ma-eval -async MA-registry FindFile "{$fname}" &
    }
}