WAIT/Parse/Base.pm

#                              -*- Mode: Cperl -*- 
# Base.pm -- 
# ITIID           : $ITI$ $Header $__Header$
# Author          : Ulrich Pfeifer
# Created On      : Fri Sep  6 09:50:53 1996
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Sun Nov 22 18:44:42 1998
# Language        : CPerl
# Update Count    : 23
# Status          : Unknown, Use with caution!
# 
# Copyright (c) 1996-1997, Ulrich Pfeifer
# 

package WAIT::Parse::Base;
use Carp;

sub new {
  my $type = shift;

  bless {}, ref($type) || $type;
}

sub split {
  my $self = shift;
  my %result;
  my @in = $self->tag(@_);

  while (@in) {
    my $tags = shift @in;
    my $text = shift @in;
    my @tags = grep /^[^_]/, keys %$tags;
    for my $field (@tags) {
      if (exists $result{$field}) { #  make perl -w happy
        $result{$field} .= ' ' . $text;
      } else {
        $result{$field} = $text; 
      }
    }
  }
  return \%result;              # we go for speed
}

sub tag {
  ({text => 1}, $_[0]);
}

1;
1	# -- Mode: Cperl --
2	# Base.pm --
3	# ITIID : $ITI$ $Header $__Header$
4	# Author : Ulrich Pfeifer
5	# Created On : Fri Sep 6 09:50:53 1996
6	# Last Modified By: Ulrich Pfeifer
7	# Last Modified On: Sun Nov 22 18:44:42 1998
8	# Language : CPerl
9	# Update Count : 23
10	# Status : Unknown, Use with caution!
11	#
12	# Copyright (c) 1996-1997, Ulrich Pfeifer
13	#
14
15	package WAIT::Parse::Base;
16	use Carp;
17
18	sub new {
19	my $type = shift;
20
21	bless {}, ref($type) \|\| $type;
22	}
23
24	sub split {
25	my $self = shift;
26	my %result;
27	my @in = $self->tag(@_);
28
29	while (@in) {
30	my $tags = shift @in;
31	my $text = shift @in;
32	my @tags = grep /^[^_]/, keys %$tags;
33	for my $field (@tags) {
34	if (exists $result{$field}) { # make perl -w happy
35	$result{$field} .= ' ' . $text;
36	} else {
37	$result{$field} = $text;
38	}
39	}
40	}
41	return \%result; # we go for speed
42	}
43
44	sub tag {
45	({text => 1}, $_[0]);
46	}
47
48	1;