TABLE OF CONTENTS


::pwtk::input::cardGetPWTK

SYNOPSIS

proc ::pwtk::input::cardGetPWTK {name} {

PURPOSE

Return the card as a PWTK script.

ARGUMENTS

SOURCE

    variable card
    variable card_flags
        
    if { [info exists card($name)] } {
        # card's line (keyword + flags)
        set cardline "$name"
        if { [info exists card_flags($name)] && $card_flags($name) ne {} } {
            append cardline " $card_flags($name)"
        }
        # take care of "K_POINTS gamma"
        if { $name eq "K_POINTS" \
                 && [string match *gamma* $card_flags($name)] } {
            return "$cardline\n\n"
        } else {
            return "$cardline \{\n[string trimright [cardGetContent $name]]\n\}\n\n"
        }
    }
    return ""
}