I don't think trying to bracket the hires time with lores
[p5sagit/p5-mst-13.2.git] / lib / abbrev.pl
CommitLineData
a687059c 1;# Usage:
2;# %foo = ();
3;# &abbrev(*foo,LIST);
4;# ...
5;# $long = $foo{$short};
6
a6d71656 7#
8# This library is no longer being maintained, and is included for backward
9# compatibility with Perl 4 programs which may require it.
10#
11# In particular, this should not be used as an example of modern Perl
12# programming techniques.
13#
14# Suggested alternative: Text::Abbrev
15#
16
a687059c 17package abbrev;
18
19sub main'abbrev {
20 local(*domain) = @_;
21 shift(@_);
22 @cmp = @_;
449aadca 23 local($[) = 0;
a687059c 24 foreach $name (@_) {
25 @extra = split(//,$name);
26 $abbrev = shift(@extra);
27 $len = 1;
28 foreach $cmp (@cmp) {
29 next if $cmp eq $name;
55497cff 30 while (@extra && substr($cmp,0,$len) eq $abbrev) {
a687059c 31 $abbrev .= shift(@extra);
32 ++$len;
33 }
34 }
35 $domain{$abbrev} = $name;
36 while ($#extra >= 0) {
37 $abbrev .= shift(@extra);
38 $domain{$abbrev} = $name;
39 }
40 }
41}
42
431;