Essence

IDF

Methods description

Methods code

    my $word = shift;

    unless (defined $current_dbmname) {
	open_nidf($DEFAULT_DBMNAME);
    }
    
    if (defined $nidf{$word}) {
	return $nidf{$word};
    }
    
    return $DEFAULT_UNKNOWN_IDF;

    my $dbmname = shift || $DEFAULT_DBMNAME;

    $dbmname = File::Spec->rel2abs($dbmname, $IDFDIR);

    if ($current_dbmname && $current_dbmname eq $dbmname) {
	return 1;
    }

    unless (dbmopen %nidf, $dbmname, 0666) {
	die "Cannot open DBM $dbmname";
    }

    unless (scalar(keys(%nidf))) {
        die "Empty DBM $dbmname";
    }

    $current_dbmname = $dbmname;

    return 1;

General documentation