TABLE OF CONTENTS

::pwtk::pwi::getXSF

SYNOPSIS

proc ::pwtk::pwi::getXSF {} {

DESCRIPTION

Return the XSF-formatted structural data from the current pw.x input data.

SOURCE

    set input  [::tclu::tempFile name pwi]
    set output [::tclu::tempFile name xsf]

    ::pwtk::pwi_fprint $input
    
    set pwi2xsf [::pwtk::getVar_ PWI2XSF]
    if { $pwi2xsf == {} } {
        ::pwtk::error "can't run pwi2xsf.sh, because the PWI2XSF variable is not defined"
    }

    exec -- $pwi2xsf $input > $output
    return [::tclu::readFile $output]
}