TABLE OF CONTENTS


::pwtk::input::print

SYNOPSIS

proc ::pwtk::input::print {name} {

PURPOSE

Print to stdout a given namelist or card if it exists.

ARGUMENTS

SOURCE

    global ::pwtk::input::namelist
    global ::pwtk::input::card
        
    if { [info exists ::pwtk::input::namelist($name)] } {
        #namelistPrint $name
        # t.k. Mon Mar 11 2024 (it's safe to use namelist.affixPrint instead of namelistPrint)
        namelist.affixPrint $name        
    } 
    if { [info exists ::pwtk::input::card($name)] } {
        cardPrint $name
    }
    if { [info exists ::pwtk::input::script($name)] } {
        scriptPrint $name
    }
}