TABLE OF CONTENTS
::pwtk::input::printAll
SYNOPSIS
proc ::pwtk::input::printAll {} {
PURPOSE
Print to stdout all user-defined namelists and cards.
SOURCE
global ::pwtk::input::namelist ::pwtk::input::card foreach name [array names ::pwtk::input::namelist] { if { ! [regexp , $name] } { # t.k. Mon Mar 11 2024 (it's safe to use namelist.affixPrint instead of namelistPrint) namelist.affixPrint $name } } foreach name [array names ::pwtk::input::card] { cardPrint $name } foreach name [array names ::pwtk::input::script] { scriptPrint $name } }