TABLE OF CONTENTS

::pwtk::q2ri::get

SYNOPSIS

proc ::pwtk::q2ri::get {} {

DESCRIPTION

Return the content of the q2r.x input.

SOURCE

    loadDefaults_

    # q2r.x uses INPUT namelist, but this name is too generic,
    # hence pwtk uses Q2R instead, hence we need to substitute the
    # Q2R string with INPUT

    set    input_ [regsub -- {\&Q2R} [::pwtk::input::namelistGet Q2R] {\&INPUT}]
    append input_ [::pwtk::input::cardGetContent Q2R.affixCards]
    
    return [::pwtk::skipEmptyLines $input_]
}