pwtk.tcl

::pwtk::serial_postfix

::pwtk::serial_postfix

SYNOPSIS

proc ::pwtk::serial_postfix {args} {

PURPOSE

Set or query the prostfix for the serial execution of programs. In the serial mode, programs are run as:

     $serial_prefix program.x $serial_postfix.

An example would be: ESPRESSO_PSEUDO=~/pw/pseudo pw.x -environ

USAGE

   Set mode:

     ::pwtk::serial_postfix value

   Query mode:

     ::pwtk::serial_postfix

RETURN VALUE

The value of the serial_postfix.

SOURCE

    variable RUNopt
    if { [llength $args] == 0 } {
        return [expr { [info exists RUNopt(SERIAL_POSTFIX)] ? $RUNopt(SERIAL_POSTFIX) : {} }]       
    } elseif { [llength $args] == 1 } {
        eval set RUNopt(SERIAL_POSTFIX) $args
    } else {
        set RUNopt(SERIAL_POSTFIX) $args
    }
    return $RUNopt(SERIAL_POSTFIX)
}

TABLE OF CONTENTS

::pwtk::serial_postfix