view release on metacpan or  search on metacpan

Seek.xs  view on Meta::CPAN

#include "imgdb.cpp"
#include "haar.cpp"
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "const-c.inc"


MODULE = Image::Seek		PACKAGE = Image::Seek

PROTOTYPES: DISABLE		

INCLUDE: const-xs.inc

PROTOTYPES: ENABLE

void
removeID(id)
    long id

void 
addImage(id, red, green, blue)
    long id
    unsigned char* red
    unsigned char* green
    unsigned char* blue

void
queryImgID(id, numres)
    long id
    int numres

void
loaddb(filename)
    char* filename

void
savedb(filename)
    char* filename

void
cleardb()

void
results()
    PPCODE:
        while(!pqResults.empty()) {
            curResult = pqResults.top();
            pqResults.pop();
            EXTEND(SP, 2);
            PUSHs(sv_2mortal(newSViv(curResult.id)));
            PUSHs(sv_2mortal(newSVnv(curResult.score)));
        }