input.tcl

::pwtk::input::card

::pwtk::input::card

SYNOPSIS

proc ::pwtk::input::card {name args} {

USAGE

   card name ?flags? content

PURPOSE

Set the card.

ARGUMENTS

name -- name of the card
flags -- (optional) strings (flags) present on the same line as the keyword in the input files
content -- content of the card in the syntax of a given card

SOURCE

    global ::pwtk::input::card ::pwtk::input::card_flags ::pwtk::input::card_content

    if { $args == "" || [llength $args] > 2 } {
        ::pwtk::error "wrong usage of ::pwtk::input::card, must be:  card ?flags? content\n\nwhile executing [::pwtk::procName] $name $args" 1
    }
    
    if { [llength $args] == 1 } {
        set flags ""
        set content [lindex $args 0]
    } else {
        set flags   [lindex $args 0]
        set content [lindex $args 1]
    }

    set ::pwtk::input::card($name)         exists
    set ::pwtk::input::card_flags($name)   [string trim $flags]
    set ::pwtk::input::card_content($name) [string trim $content]    
}

TABLE OF CONTENTS

::pwtk::input::card