TABLE OF CONTENTS
::pwtk::pdos_kresolved
SYNOPSIS
proc ::pwtk::pdos_kresolved {pdosFile} {
DESCRIPTION
Query if $pdosFile is k-resolved
RETURN VALUE
1 -- if k-resolved 0 -- otherwise
SOURCE
::pwtk::fileMustExist $pdosFile PDOS set fid [open $pdosFile r] gets $fid line close $fid set kresolved 0 if { [lindex $line 1] == "ik" } { set kresolved 1 } return $kresolved }