AltaVista-PerlSDK

 view release on metacpan or  search on metacpan

PerlSDK.pm  view on Meta::CPAN

	     avs_search
	     avs_search_close
	     avs_search_ex
	     avs_search_genrank
	     avs_search_getdata
	     avs_search_getdatalen
	     avs_search_getdate
	     avs_search_getdocid
	     avs_search_getdocidlen
	     avs_search_getrelevance
	     avs_setdocdata
	     avs_setdocdate
	     avs_setdocdatetime
	     avs_setparseflags
	     avs_setrankval
	     avs_startdoc
	     avs_timer
	     avs_total_docs
	     avs_version
	     avs_create_options
	     avs_create_parameters

PerlSDK.pm  view on Meta::CPAN

avs_search_getdatalen(searchHdl)

avs_search_getdate(psearchHdl, year, month, day)

avs_search_getdocid(searchHdl)

avs_search_getdocidlen(searchHdl)

avs_search_getrelevance(psearchHdl)

avs_setdocdata(idx, pDocData, len)

avs_setdocdate(idx, year, month, day)

avs_setdocdatetime(idx, year, month, day, hour, minute, second)

avs_setparseflags(idx, parseflags)

avs_setrankval(idx, valtype, value)

avs_startdoc(idx, pDocId, flags, pStartLoc)

PerlSDK.xs  view on Meta::CPAN

     char p[20];
     float f;
   CODE:
     f = avs_search_getrelevance(psearchHdl);
     sprintf(p, "%f", f);
     RETVAL = strdup(p);
   OUTPUT:
     RETVAL

int
avs_setdocdata(idx, pDocData, len)
     	avs_idxHdl_t idx
        char *pDocData
	int len
   CODE:
     RETVAL = avs_setdocdata(idx, pDocData, len);
   OUTPUT:
     RETVAL

int
avs_setdocdate(idx, year, month, day)
     	avs_idxHdl_t idx
	int year
	int month
	int day

Readme  view on Meta::CPAN

    avs_search_getdatalen(searchHdl)

    avs_search_getdate(psearchHdl, year, month, day)

    avs_search_getdocid(searchHdl)

    avs_search_getdocidlen(searchHdl)

    avs_search_getrelevance(psearchHdl)

    avs_setdocdata(idx, pDocData, len)

    avs_setdocdate(idx, year, month, day)

    avs_setdocdatetime(idx, year, month, day, hour, minute, second)

    avs_setparseflags(idx, parseflags)

    avs_setrankval(idx, valtype, value)

    avs_startdoc(idx, pDocId, flags, pStartLoc)

test.pl  view on Meta::CPAN

# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)

BEGIN { $| = 1; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use AltaVista::PerlSDK qw(avs_open AVS_OK avs_querymode avs_define_valtype 
			  avs_getindexmode avs_errmsg
			  avs_buildmode avs_startdoc
			  avs_setdocdate avs_addword avs_adddate avs_addfield
			  avs_setdocdata avs_enddoc
			  avs_makestable avs_compact
			  avs_create_options
			  avs_create_parameters
			  avs_search
			  avs_getsearchterms
			  avs_getsearchresults
			  avs_search_getdatalen
			  avs_search_getdocid
			  avs_search_getdata
			  avs_search_getdate

test.pl  view on Meta::CPAN

$status = avs_addfield($av_idx, $fieldname, $startloc, $endloc);
if ($status eq AVS_OK) {
    print "ok avs_addfield\n";
} else {
    $err = avs_errmsg($status);
    print "not ok\n";
}

$str = "This is a test document";
$status = avs_setdocdata($av_idx, $str, length($str));
if ($status eq AVS_OK) {
    print "ok avs_setdocdata\n";
} else {
    $err = avs_errmsg($status);
    print "not ok 8\n";
}

$status = avs_enddoc($av_idx);
if ($status eq AVS_OK) {
    print "ok avs_enddoc\n";
} else {
    $err = avs_errmsg($status);