TABLE OF CONTENTS


::pwtk::lobster::getinfo

SYNOPSIS

proc ::pwtk::lobster::getinfo {file} {

PURPOSE

Get info about the LOBSTER *CAR*.lobster file. The info is returned as dictionary.

ARGUMENT

RETURN VALUE

For CO*CAR*.lobster files, the dictionary contains the following keys:

For DOSCAR*.lobster files, the dictionary contains the following keys:

SOURCE

    if { [regexp {^DOS} [file tail $file]] } {
        return [::pwtk::lobster::DOSCAR_info_ $file]
    } else {
        return [::pwtk::lobster::COXXCAR_info_ $file]
    }
}