31 lines
489 B
Text
31 lines
489 B
Text
#include "EXTERN.h"
|
|
#include "perl.h"
|
|
#include "XSUB.h"
|
|
|
|
#include <dewey.h>
|
|
|
|
MODULE = pkgsrc::Dewey PACKAGE = pkgsrc::Dewey
|
|
|
|
int
|
|
dewey_match(pattern, package)
|
|
const char * pattern
|
|
const char * package
|
|
PROTOTYPE: $;$
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
int
|
|
dewey_cmp(lhs, op, rhs)
|
|
const char * lhs
|
|
const char * op
|
|
const char * rhs
|
|
PROTOTYPE: $;$;$
|
|
INIT:
|
|
int opi;
|
|
CODE:
|
|
if (dewey_mktest(&opi, op) < 0)
|
|
RETVAL = -1;
|
|
else
|
|
RETVAL = dewey_cmp(lhs, opi, rhs);
|
|
OUTPUT:
|
|
RETVAL
|