TABLE OF CONTENTS

::pwtk::sh::init

SYNOPSIS

proc ::pwtk::sh::init {} {

DESCRIPTION

Initialization of the sh emulation of batch queuing system. This command is used only internally by PWTK.

SOURCE

    # initialize the parent QUEUE 
    ::pwtk::queue::init sh

    if { ! [info exists ::pwtk::sh::profile(default)] } {
        set ::pwtk::sh::profile(default) {
            #!/bin/sh
        }
    }
    
    foreach elem [array names ::pwtk::sh::profile] {
        set ::pwtk::queue::profile(sh,$elem) $::pwtk::sh::profile($elem)
    }
}