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
    }
}