TABLE OF CONTENTS

::pwtk::pwo::job_done

SYNOPSIS

proc ::pwtk::pwo::job_done {file} {

PURPOSE

Check if a given pw.x output-file corresponds to normally finished job (it searches for "JOB DONE." string). It returns 1 if this string is found, and zero otherwise. Note that this proc returns 1 even if "Program stopped by user request".

ARGUMENTS

SOURCE

    ::pwtk::deprecated "::pwtk::pwo::job_done is deprecated, use ::pwtk::job_done instead"
    
    if { ! [file exists $file] } {
        return 0
    }

    set result 0

    pwtk::lineread line $file {
        if { [string match {*JOB DONE.*} $line] } {
            set result 1
        }
    }
    return $result
}