#!/usr/bin/tclsh8.3

proc addpath {p before after default} {
    upvar #0 env($p) lc
    if {[info exists lc]} {
	set l [split $lc :]
    } else {
	set l $default
    }
    set l [append $before $l $after]
    set lc [join $l :]
}

addpath LD_LIBRARY_PATH {../base ../hbytes} {} {}

load ./chiark_tcl_cdb-1.so

#
# CURRENTLY TESTING WITH
#  rm -f test-out.*
#  LD_LIBRARY_PATH=../base:../hbytes:. ../../sauce/convertdb test-out 0 db.addr-list.main db.addr-list.log 
#  LD_LIBRARY_PATH=../base:../hbytes:. strace ../../sauce/convertdb test-out 0 db.addr-list.main db.addr-list.log 
#  LD_LIBRARY_PATH=../base:../hbytes:. valgrind --db-attach=yes tclsh8.3 ../../sauce/convertdb test-out 0 db.addr-list.main db.addr-list.log