WAIT/Table/Disjoint.pm

#                              -*- Mode: Cperl -*- 
# Disjoint.pm -- 
# ITIID           : $ITI$ $Header $__Header$
# Author          : Ulrich Pfeifer
# Created On      : Fri Sep 13 14:00:01 1996
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Sun Nov 22 18:44:37 1998
# Language        : CPerl
# Update Count    : 5
# Status          : Unknown, Use with caution!
# 
# Copyright (c) 1996-1997, Ulrich Pfeifer
# 

package WAIT::Table::Disjoint;
use vars qw(@ISA);

@ISA = qw(WAIT::Table);

sub insert {
  my $self   = shift;
  my $weight = shift;
  
  $self->SUPER::insert(_weight => $weight, @_);
}

sub fetch {
  my $self = shift;
  my $key   = shift;
  my $name = $self->{name};

  my %tattr = $self->SUPER::fetch($key);
  if (%tattr) {
    $tattr{'_ee'} = join ('_', map($tattr{$_} || 'undef', @{$self->{djk}}))."_$key";
  }
  %tattr;
}

1;
1	ulpfr	13	# -- Mode: Cperl --
2	ulpfr	10	# Disjoint.pm --
3			# ITIID : $ITI$ $Header $__Header$
4			# Author : Ulrich Pfeifer
5			# Created On : Fri Sep 13 14:00:01 1996
6			# Last Modified By: Ulrich Pfeifer
7			# Last Modified On: Sun Nov 22 18:44:37 1998
8			# Language : CPerl
9			# Update Count : 5
10			# Status : Unknown, Use with caution!
11			#
12			# Copyright (c) 1996-1997, Ulrich Pfeifer
13			#
14
15			package WAIT::Table::Disjoint;
16			use vars qw(@ISA);
17
18			@ISA = qw(WAIT::Table);
19
20			sub insert {
21			my $self = shift;
22			my $weight = shift;
23
24			$self->SUPER::insert(_weight => $weight, @_);
25			}
26
27			sub fetch {
28			my $self = shift;
29			my $key = shift;
30			my $name = $self->{name};
31	ulpfr	13
32			my %tattr = $self->SUPER::fetch($key);
33			if (%tattr) {
34			$tattr{'_ee'} = join ('_', map($tattr{$_} \|\| 'undef', @{$self->{djk}}))."_$key";
35	ulpfr	10	}
36	ulpfr	13	%tattr;
37	ulpfr	10	}
38
39			1;