🚀 go-pugleaf

flee@shire.cs.psu.edu (Felix Lee) writes:

>>...,alt.sex,!alt.sex.all,alt.sex.bondage,...

>I wrote an &ngmatch function in perl that handles this "correctly".
>It uses the best match, where "best" is defined as the one with the
>least number of pieces matching "all".

>The other thing B news matches that C news doesn't is patterns like
>"comp.all.binaries".  (My perl function doesn't handle this yet.)

Here's one that does, but doesn't count the number of "all" matches
(I use this in my local backend inews).  Maybe we should merge our
versions?

sub ngmatch {
  local($ng,$pt) = @_;
  local(@ng_w,@pt_w);

  #
  # immediate match?
  #
  return 1 if ($ng eq $pt || $pt eq "all" || $pt eq "backbone");

  #
  # check for match on each word, using "all" as a wildcard
  #
  @ng_w = split(/\./, $ng);
  @pt_w = split(/\./, $pt);
  while ($#ng_w >= 0) {
    if ($#pt_w < 0) {
      shift(ng_w);
    } elsif ($ng_w[0] eq $pt_w[0] || $pt_w[0] eq "all") {
      shift(pt_w) if ($pt_w[0] ne "all" || $#pt_w >= $#ng_w);
      shift(ng_w);
    } else {
      return 0;
    }
  }
  return ($#ng_w == $#pt_w);
}
--
Mark Nagel
UC Irvine Department of ICS   +----------------------------------------+
ARPA: nagel@ics.uci.edu       | Six plus six equals fourteen for large |
UUCP: ucbvax!ucivax!nagel     | values of six -- Dave Ackerman         |