TABLE OF CONTENTS

::pwtk::gp::output

SYNOPSIS

proc ::pwtk::gp::output {term {head {p}} {pageNo {}}} {

PURPOSE

Get the output filename for a given file terminal or empty string if a terminal is not among $gp(file.terminals).

SOURCE

    variable gp
    set ext  [gp2pwtk $term]
    set term [pwtk2gp $term]
    if { $term in $gp(file.terminals) } {
        switch -glob -- $term {
            postscript - pdf* {
                return $head.$ext
            }
            default {
                if { $pageNo ne {} } {
                    return $head-$pageNo.$ext
                } else {
                    return $head.$ext
                }
            }
        }
    } else {
        return {}
    }            
}