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
- name -- name of namelist or card
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 } }