WAIT/Parse/Bibdb.pm

#                              -*- Mode: Perl -*- 
# Bibdb.pm -- 
# ITIID           : $ITI$ $Header $__Header$
# Author          : Ulrich Pfeifer
# Created On      : Thu Sep  5 16:17:38 1996
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Sun Nov 22 18:44:42 1998
# Language        : CPerl
# Update Count    : 50
# Status          : Unknown, Use with caution!
# 
# Copyright (c) 1996-1997, Ulrich Pfeifer
# 

package WAIT::Parse::Bibdb;
require WAIT::Parse::Base;
use strict;
use vars qw(@ISA);

@ISA = qw(WAIT::Parse::Base);

sub split {                     # called as method
  my %result;
  my $fld;

  for (split /\n/, $_[1]) {
    if (s/^(\S+):\s*//) {
      $fld = lc $1;
      $result{$fld} = '' unless exists $result{$fld} # -w
    }
    $result{$fld} .= WAIT::Filter::detex($_) if defined $fld;
  }
  return \%result;              # we go for speed
}


sub tag {                       # called as method
  my @result;
  my $tag;
  
  for (split /\n/, $_[1]) {
    next if /^\w\w:\s*$/;
    if (s/^(\S+)://) {
      push @result, {_b => 1}, "$1:";
      $tag = lc $1;
    }
    if (defined $tag) {         # detex changes character positions;
                                # it *must* be applied therefore
      push @result, {$tag => 1}, WAIT::Filter::detex("$_\n");
    } else {
      push @result, {}, WAIT::Filter::detex("$_\n");
    }
  }
  return @result;               # we don't go for speed
}

# Cusomized filters
package WAIT::Filter;
  
sub cctr {
  my $text = shift;
  $text =~ tr/A-Z/a-z/;
  $text =~ tr/a-z0-9./ /c;      # don't squeeze
  $text;
}

# Filter changes character position. It *must* be applied in the
# tagging function to yield propper hilighting!
sub detex {                     
  local($_) = @_;

  return '' unless defined $_;
  s/\\\"a/\344/g;               # ä
  s/\\\"A/\344/g;               # ä
  s/\\\"o/\366/g;               # ö
  s/\\\"O/\366/g;               # ö
  s/\\\"u/\374/g;               # ü
  s/\\\"U/\374/g;               # ü
  s/\\\"s/\337/g;               # ß
  s/\\ss\{\}/\337/g;            # ß
  $_;
}

1;

1	ulpfr	10	# -- Mode: Perl --
2			# Bibdb.pm --
3			# ITIID : $ITI$ $Header $__Header$
4			# Author : Ulrich Pfeifer
5			# Created On : Thu Sep 5 16:17:38 1996
6			# Last Modified By: Ulrich Pfeifer
7			# Last Modified On: Sun Nov 22 18:44:42 1998
8			# Language : CPerl
9			# Update Count : 50
10			# Status : Unknown, Use with caution!
11			#
12			# Copyright (c) 1996-1997, Ulrich Pfeifer
13			#
14
15			package WAIT::Parse::Bibdb;
16			require WAIT::Parse::Base;
17			use strict;
18			use vars qw(@ISA);
19
20			@ISA = qw(WAIT::Parse::Base);
21
22			sub split { # called as method
23			my %result;
24			my $fld;
25
26			for (split /\n/, $_[1]) {
27			if (s/^(\S+):\s*//) {
28			$fld = lc $1;
29			$result{$fld} = '' unless exists $result{$fld} # -w
30			}
31			$result{$fld} .= WAIT::Filter::detex($_) if defined $fld;
32			}
33			return \%result; # we go for speed
34			}
35
36
37			sub tag { # called as method
38			my @result;
39			my $tag;
40
41			for (split /\n/, $_[1]) {
42			next if /^\w\w:\s*$/;
43			if (s/^(\S+)://) {
44			push @result, {_b => 1}, "$1:";
45			$tag = lc $1;
46			}
47			if (defined $tag) { # detex changes character positions;
48			# it must be applied therefore
49			push @result, {$tag => 1}, WAIT::Filter::detex("$_\n");
50			} else {
51			push @result, {}, WAIT::Filter::detex("$_\n");
52			}
53			}
54			return @result; # we don't go for speed
55			}
56
57			# Cusomized filters
58			package WAIT::Filter;
59
60			sub cctr {
61			my $text = shift;
62			$text =~ tr/A-Z/a-z/;
63			$text =~ tr/a-z0-9./ /c; # don't squeeze
64			$text;
65			}
66
67			# Filter changes character position. It must be applied in the
68			# tagging function to yield propper hilighting!
69			sub detex {
70			local($_) = @_;
71
72			return '' unless defined $_;
73			s/\\\"a/\344/g; # ä
74			s/\\\"A/\344/g; # ä
75			s/\\\"o/\366/g; # ö
76			s/\\\"O/\366/g; # ö
77			s/\\\"u/\374/g; # ü
78			s/\\\"U/\374/g; # ü
79			s/\\\"s/\337/g; # ß
80			s/\\ss\{\}/\337/g; # ß
81			$_;
82			}
83
84			1;
85