#!/bin/sh
# the next line restarts using wish \
exec tclsh "$0" "$@"

source [ file join $env(TCLTOOLS_HOME) TclToolInits.tcl ]
TclToolInits UDF UDFDB UTILS
                                                                                
# This is the NDX file to dump

set NDXname [lindex $argv 0]

# Open NDX file and read header information

set V ""
DBndxOpen $NDXname nxInfo

set SLen [llength $nxInfo(Pos)]

puts stdout "\n\nFILE    = $NDXname"
puts stdout "RECORDS = $SLen\n"

puts stdout "Entry          NDX Key           DBF Offset"
puts stdout "-----   -----------------------  ----------" 
for { set I 0 } { $I < $SLen } { incr I } {
   set PoS [lindex $nxInfo(Pos) $I]
   set KeY [lindex $nxInfo(Key) $I]
   set Num "    $I"
   set Len [string length $Num]
   set Beg [expr $Len - 5]
   set Num [string range $Num $Beg end]
   set Pos "    $PoS"
   set Len [string length $Pos]
   set Beg [expr $Len - 5]
   set Pos [string range $Pos $Beg end]
   puts stdout "$Num   $KeY    $Pos"
}

exit 0
