TABLE OF CONTENTS
::pwtk::input::cardGetPWTK
SYNOPSIS
proc ::pwtk::input::cardGetPWTK {name} {
PURPOSE
Return the card as a PWTK script.
ARGUMENTS
- name -- name of the card
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 "" }