dp_MakeRPCServer $argv

set outFile stderr
proc DebugOn {str} {
    global outFile
    traceProc $str "PrintTrace $outFile"
}

proc PrintTrace {f traceId level args} {
    set fmtstr "%[set level]s"
    set argstr [format %s $args]
    if {[string length $argstr] > 60} {
	set argstr "[string range $argstr 0 60] ..."
    }
    set cr [string first "\n" $argstr]
    if {$cr != -1} {
	incr cr -1
	set argstr "[string range $argstr 0 $cr] ..."
    }
    puts $f "[format $fmtstr ""] $argstr"
}

source point.lib
