TABLE OF CONTENTS
::pwtk::input::cardFlags
SYNOPSIS
proc ::pwtk::input::cardFlags {name flags} {
PURPOSE
Set the card's flag(s) if and only if the card exists.
ARGUMENTS
- name -- name of the card
- flags -- flags of the card (i.e. strings (flags) present on the same line as the keyword in the input files)
RETURN VALUE
- $flags if $name card exists
- empty string otherwise
SOURCE
global ::pwtk::input::card ::pwtk::input::card_flags ::pwtk::input::card_content if { [info exists ::pwtk::input::card($name)] } { return [set ::pwtk::input::card_flags($name) [string trim $flags]] } return "" }