input.tcl

::pwtk::input::fprint_

::pwtk::input::fprint_

SYNOPSIS

proc ::pwtk::input::fprint_ {namespaceName {filename {}}} {

DESCRIPTION

Collect and print the input data of a given namespace either to file or to stdout. Here namespace is related to particular input data, such as pwi (for pw.x input), ppi (for pp.x input), etc. ...

ARGUMENTS

namespaceName -- absolute name of namespace that handles input data (examples: ::pwtk::pwi, ::pwtk::phi, ::pwtk::ppi, ::pwtk::pri)
filename -- name of file to print to the input data (optional, default = {}, which means print to stdout)

SOURCE

    if { $filename == {} } {
        # print to stdout
        puts stdout [namespace eval $namespaceName get]
    } else {
        if { [::pwtk::backup_io] } {
            ::pwtk::file_backup $filename
        }
        ::pwtk::writeFile $filename [namespace eval $namespaceName get]
    }
}

TABLE OF CONTENTS

::pwtk::input::fprint_