| Commit | Line | Data |
|---|
| a0d0e21e |
1 | package Text::Abbrev; |
| 2 | require 5.000; |
| 3 | require Exporter; |
| 4 | |
| f06db76b |
5 | =head1 NAME |
| 6 | |
| 7 | abbrev - create an abbreviation table from a list |
| 8 | |
| 9 | =head1 SYNOPSIS |
| 10 | |
| 11 | use Abbrev; |
| 12 | abbrev *HASH, LIST |
| 13 | |
| 14 | |
| 15 | =head1 DESCRIPTION |
| 16 | |
| 17 | Stores all unambiguous truncations of each element of LIST |
| 18 | as keys key in the associative array indicated by C<*hash>. |
| 19 | The values are the original list elements. |
| 20 | |
| 21 | =head1 EXAMPLE |
| 22 | |
| 23 | abbrev(*hash,qw("list edit send abort gripe")); |
| 24 | |
| 25 | =cut |
| 26 | |
| a0d0e21e |
27 | @ISA = qw(Exporter); |
| 28 | @EXPORT = qw(abbrev); |
| 29 | |
| 30 | # Usage: |
| 31 | # &abbrev(*foo,LIST); |
| 32 | # ... |
| 33 | # $long = $foo{$short}; |
| 34 | |
| 35 | sub abbrev { |
| 36 | local(*domain) = shift; |
| 37 | @cmp = @_; |
| 38 | %domain = (); |
| 39 | foreach $name (@_) { |
| 40 | @extra = split(//,$name); |
| 41 | $abbrev = shift(@extra); |
| 42 | $len = 1; |
| 43 | foreach $cmp (@cmp) { |
| 44 | next if $cmp eq $name; |
| 45 | while (substr($cmp,0,$len) eq $abbrev) { |
| 46 | $abbrev .= shift(@extra); |
| 47 | ++$len; |
| 48 | } |
| 49 | } |
| 50 | $domain{$abbrev} = $name; |
| 51 | while (@extra) { |
| 52 | $abbrev .= shift(@extra); |
| 53 | $domain{$abbrev} = $name; |
| 54 | } |
| 55 | } |
| 56 | } |
| 57 | |
| 58 | 1; |
| 59 | |
projects / p5sagit/p5-mst-13.2.git / blame