Added the git tag step for releases from Yves
[perl.git] / lib / abbrev.pl
1 ;# Usage:
2 ;#      %foo = ();
3 ;#      &abbrev(*foo,LIST);
4 ;#      ...
5 ;#      $long = $foo{$short};
6
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 # This legacy library is deprecated and will be removed in a future
11 # release of perl.
12 #
13 # In particular, this should not be used as an example of modern Perl
14 # programming techniques.
15 #
16 # Suggested alternative: Text::Abbrev
17 #
18
19 package abbrev;
20
21 warn( "The 'abbrev.pl' legacy library is deprecated and will be"
22       . " removed in the next major release of perl. Please use the"
23       . " Text::Abbrev module instead." );
24
25 sub main'abbrev {
26     local(*domain) = @_;
27     shift(@_);
28     @cmp = @_;
29     local($[) = 0;
30     foreach $name (@_) {
31         @extra = split(//,$name);
32         $abbrev = shift(@extra);
33         $len = 1;
34         foreach $cmp (@cmp) {
35             next if $cmp eq $name;
36             while (@extra && substr($cmp,0,$len) eq $abbrev) {
37                 $abbrev .= shift(@extra);
38                 ++$len;
39             }
40         }
41         $domain{$abbrev} = $name;
42         while ($#extra >= 0) {
43             $abbrev .= shift(@extra);
44             $domain{$abbrev} = $name;
45         }
46     }
47 }
48
49 1;