162 lines
3.8 KiB
C
162 lines
3.8 KiB
C
/* $NetBSD: opattern.c,v 1.5 2009/02/02 12:35:01 joerg Exp $ */
|
|
|
|
/*
|
|
* FreeBSD install - a package for the installation and maintainance
|
|
* of non-core utilities.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
*
|
|
* Jordan K. Hubbard
|
|
* 18 July 1993
|
|
*
|
|
* Miscellaneous string utilities.
|
|
*
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <fnmatch.h>
|
|
#include <ctype.h>
|
|
#include <sys/param.h>
|
|
|
|
#include "xbps_api_impl.h"
|
|
|
|
/*
|
|
* Perform alternate match on "pkg" against "pattern",
|
|
* calling pkg_match (recursively) to resolve any other patterns.
|
|
* Return 1 on match, 0 otherwise or -1 on error.
|
|
*/
|
|
static int
|
|
alternate_match(const char *pattern, const char *pkg)
|
|
{
|
|
char *sep;
|
|
char buf[PATH_MAX];
|
|
char *last;
|
|
char *alt;
|
|
char *cp;
|
|
int cnt;
|
|
int found;
|
|
|
|
if ((sep = strchr(pattern, '{')) == (char *)NULL)
|
|
return -1;
|
|
|
|
(void)strncpy(buf, pattern, (size_t)(sep - pattern));
|
|
alt = &buf[sep - pattern];
|
|
last = (char *)NULL;
|
|
for (cnt = 0, cp = sep; *cp && last == (char *)NULL; cp++) {
|
|
if (*cp == '{') {
|
|
cnt++;
|
|
} else if (*cp == '}' && --cnt == 0 && last == (char *)NULL) {
|
|
last = cp + 1;
|
|
}
|
|
}
|
|
if (cnt != 0)
|
|
return -1;
|
|
|
|
for (found = 0, cp = sep + 1; *sep != '}'; cp = sep + 1) {
|
|
for (cnt = 0, sep = cp; cnt > 0 || (cnt == 0 && *sep != '}' && *sep != ','); sep++) {
|
|
if (*sep == '{') {
|
|
cnt++;
|
|
} else if (*sep == '}') {
|
|
cnt--;
|
|
}
|
|
}
|
|
(void)snprintf(alt, sizeof(buf) - (alt - buf), "%.*s%s", (int)(sep - cp), cp, last);
|
|
if (xbps_pkgpattern_match(buf, pkg) == 1)
|
|
found = 1;
|
|
}
|
|
return found;
|
|
}
|
|
|
|
/*
|
|
* Perform glob match on "pkg" against "pattern".
|
|
* Return 1 on match, 0 otherwise
|
|
*/
|
|
static int
|
|
glob_match(const char *pattern, const char *pkg)
|
|
{
|
|
return fnmatch(pattern, pkg, FNM_PERIOD) == 0;
|
|
}
|
|
|
|
/*
|
|
* Perform simple match on "pkg" against "pattern".
|
|
* Return 1 on match, 0 otherwise
|
|
*/
|
|
static int
|
|
simple_match(const char *pattern, const char *pkg)
|
|
{
|
|
return strcmp(pattern, pkg) == 0;
|
|
}
|
|
|
|
/*
|
|
* Performs a fast check if pattern can ever match pkg.
|
|
* Returns 1 if a match is possible and 0 otherwise.
|
|
*/
|
|
static int
|
|
quick_pkg_match(const char *pattern, const char *pkg)
|
|
{
|
|
#define simple(x) (isalnum((unsigned char)(x)) || (x) == '-')
|
|
if (!simple(pattern[0]))
|
|
return 1;
|
|
if (pattern[0] != pkg[0])
|
|
return 0;
|
|
|
|
if (!simple(pattern[1]))
|
|
return 1;
|
|
if (pattern[1] != pkg[1])
|
|
return 0;
|
|
return 1;
|
|
#undef simple
|
|
}
|
|
|
|
/*
|
|
* Match pkg against pattern, return 1 if matching, 0 otherwise or -1 on error.
|
|
*/
|
|
int
|
|
xbps_pkgpattern_match(const char *pkg, const char *pattern)
|
|
{
|
|
if (!quick_pkg_match(pattern, pkg))
|
|
return 0;
|
|
|
|
if (strchr(pattern, '{') != (char *)NULL) {
|
|
/* emulate csh-type alternates */
|
|
return alternate_match(pattern, pkg);
|
|
}
|
|
if (strpbrk(pattern, "<>") != (char *)NULL) {
|
|
/* perform relational dewey match on version number */
|
|
return dewey_match(pattern, pkg);
|
|
}
|
|
if (strpbrk(pattern, "*?[]") != (char *)NULL) {
|
|
/* glob match */
|
|
if (glob_match(pattern, pkg))
|
|
return 1;
|
|
}
|
|
|
|
/* no alternate, dewey or glob match -> simple compare */
|
|
if (simple_match(pattern, pkg))
|
|
return 1;
|
|
|
|
/* globbing patterns and simple matches may be specified with or
|
|
* without the version number, so check for both cases. */
|
|
{
|
|
char *pattern_ver;
|
|
int retval;
|
|
|
|
pattern_ver = xbps_xasprintf("%s-[0-9]*", pattern);
|
|
if (pattern_ver == NULL)
|
|
return -1;
|
|
|
|
retval = glob_match(pattern_ver, pkg);
|
|
free(pattern_ver);
|
|
return retval;
|
|
}
|
|
}
|