view release on metacpan or search on metacpan
void
DESTROY (obj)
SV* obj
PREINIT:
I32* temp;
PPCODE:
/* this is stolen from Inline::C documentation */
temp = PL_markstack_ptr++;
DESTROY(obj);
if(PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
view release on metacpan or search on metacpan
MacArabic.xs view on Meta::CPAN
SV *src, *dst;
STRLEN srclen;
U8 *s, *e, *p, uni[UTF8_MAXLEN + 1];
UV uv;
STDCHAR curdir, predir;
PPCODE:
if (0 < items && SvROK(ST(0))) {
croak(PkgName " 1st argument is REF, but handler for decode is NG.");
}
src = (0 < items) ? ST(0) : &PL_sv_undef;
MacArabic.xs view on Meta::CPAN
STDCHAR b, *t, **table;
UV uv;
STDCHAR dir;
bool has_cv = FALSE;
bool has_pv = FALSE;
PPCODE:
ref = NULL;
if (0 < items && SvROK(ST(0))) {
ref = SvRV(ST(0));
if (SvTYPE(ref) == SVt_PVCV)
has_cv = TRUE;
view release on metacpan or search on metacpan
lib/Lingua/CollinsParser.xs view on Meta::CPAN
void
parse_sentence (self, words_in, tags_in)
SV *self
SV *words_in
SV *tags_in
PPCODE:
{
int i, j, best, numwords;
sentence_type *s;
SV *output, **fetched;
AV *words, *tags;
lib/Lingua/CollinsParser.xs view on Meta::CPAN
}
void dump_events_hash (self, file)
SV *self
char *file
PPCODE:
{
PERL_UNUSED_VAR(self);
hash_dump(&new_hash, file);
}
void undump_events_hash (self, file)
SV *self
char *file
PPCODE:
{
hash_table *my_hash;
PERL_UNUSED_VAR(self);
hash_undump(&my_hash, file);
new_hash.num = my_hash->num;
view release on metacpan or search on metacpan
MacFarsi.xs view on Meta::CPAN
SV *src, *dst;
STRLEN srclen;
U8 *s, *e, *p, uni[UTF8_MAXLEN + 1];
UV uv;
STDCHAR curdir, predir;
PPCODE:
if (0 < items && SvROK(ST(0))) {
croak(PkgName " 1st argument is REF, but handler for decode is NG.");
}
src = (0 < items) ? ST(0) : &PL_sv_undef;
MacFarsi.xs view on Meta::CPAN
STDCHAR b, *t, **table;
UV uv;
STDCHAR dir;
bool has_cv = FALSE;
bool has_pv = FALSE;
PPCODE:
ref = NULL;
if (0 < items && SvROK(ST(0))) {
ref = SvRV(ST(0));
if (SvTYPE(ref) == SVt_PVCV)
has_cv = TRUE;
view release on metacpan or search on metacpan
MacHebrew.xs view on Meta::CPAN
SV *src, *dst;
STRLEN srclen;
U8 *s, *e, *p;
STDCHAR *str, *utf_string;
STDCHAR curdir, predir;
PPCODE:
if (0 < items && SvROK(ST(0))) {
croak(PkgName " 1st argument is REF, but handler for decode is NG.");
}
src = (0 < items) ? ST(0) : &PL_sv_undef;
MacHebrew.xs view on Meta::CPAN
struct macbidi_contra *p_contra, *cel_contra, **row_contra;
UV uv;
STDCHAR dir;
bool has_cv = FALSE;
bool has_pv = FALSE;
PPCODE:
ref = NULL;
if (0 < items && SvROK(ST(0))) {
ref = SvRV(ST(0));
if (SvTYPE(ref) == SVt_PVCV)
has_cv = TRUE;
view release on metacpan or search on metacpan
xsp/CLD2.xsp view on Meta::CPAN
char* content_language_hint
char* tld_hint
int encoding_hint
SV* language_hint
bool returnVectors
PPCODE:
char *buffer_str;
STRLEN buffer_length;
buffer_str = SvPVutf8(buffer, buffer_length);
CLDHints cld_hints_struct;
view release on metacpan or search on metacpan
MacJapanese.xs view on Meta::CPAN
bool has_pv = 0;
STDCHAR **lb, *tb;
UV uv;
U8 unibuf[UTF8_MAXLEN + 1];
STRLEN ulen;
PPCODE:
ref = NULL;
if (0 < items && SvROK(ST(0))) {
ref = SvRV(ST(0));
if (SvTYPE(ref) == SVt_PVCV)
has_cv = TRUE;
MacJapanese.xs view on Meta::CPAN
U16 mc, *t;
struct mbc_contra *p_contra, *cel_contra, **row_contra;
UV uv;
bool has_cv = 0;
bool has_pv = 0;
PPCODE:
ref = NULL;
if (0 < items && SvROK(ST(0))) {
ref = SvRV(ST(0));
if (SvTYPE(ref) == SVt_PVCV)
has_cv = TRUE;
view release on metacpan or search on metacpan
U8 *s, *p, *e, *d;
UV uv;
STRLEN srclen, dstlen, retlen;
LKHU_CompStruct *i, *complist;
bool fcomposed;
PPCODE:
s = (U8*)sv_2pvunicode(src,&srclen);
e = s + srclen;
dstlen = srclen + 1; /* equal or shorter */
dst = newSV(dstlen);
PREINIT:
SV *dst;
U8 *s, *p, *e, *d;
UV lastuv, nextuv, lindex, vindex, tindex;
STRLEN srclen, dstlen, curlen, retlen;
PPCODE:
s = (U8*)sv_2pvunicode(src,&srclen);
e = s + srclen;
dstlen = srclen + 1; /* equal or shorter */
dst = newSV(dstlen);
UV sindex, lindex, vindex, tindex;
SV *decomp;
U8 *t, temp[3 * UTF8_MAXLEN + 1];
STRLEN tlen;
int notwantarray;
PPCODE:
notwantarray = (GIMME_V != G_ARRAY);
if (! Hangul_IsS(code)) {
if (notwantarray)
XSRETURN_UNDEF;
else
UV uv
UV uv2
PROTOTYPE: $$
PREINIT:
UV ret_uv;
PPCODE:
ret_uv = compositeHangul(uv, uv2);
if (ret_uv)
XPUSHs(sv_2mortal(newSVuv(ret_uv)));
else
XSRETURN_UNDEF;
view release on metacpan or search on metacpan
MacKorean.xs view on Meta::CPAN
STRLEN srclen, mblen;
U8 *s, *e, *p;
bool has_cv = 0;
bool has_pv = 0;
STDCHAR **lb, *tb;
PPCODE:
ref = NULL;
if (0 < items && SvROK(ST(0))) {
ref = SvRV(ST(0));
if (SvTYPE(ref) == SVt_PVCV)
has_cv = TRUE;
MacKorean.xs view on Meta::CPAN
U16 mc, *t;
struct mbc_contra *p_contra, *cel_contra, **row_contra;
UV uv;
bool has_cv = 0;
bool has_pv = 0;
PPCODE:
ref = NULL;
if (0 < items && SvROK(ST(0))) {
ref = SvRV(ST(0));
if (SvTYPE(ref) == SVt_PVCV)
has_cv = TRUE;
view release on metacpan or search on metacpan
LinkParser.xs view on Meta::CPAN
Linkage linkage
int index
PREINIT:
int j;
const char **names;
PPCODE:
names = linkage_get_link_domain_names(linkage, index);
for (j=0; j<linkage_get_link_num_domains(linkage, index); ++j) {
XPUSHs(newSVpv(names[j],0));
}
LinkParser.xs view on Meta::CPAN
call_linkage_get_words(linkage)
Linkage linkage
PREINIT:
int j;
const char **words;
PPCODE:
words = linkage_get_words(linkage);
for (j=0; j<linkage_get_num_words(linkage); ++j) {
XPUSHs(newSVpv(words[j],0));
}
view release on metacpan or search on metacpan
MODULE = Lingua::RU::Money::XS PACKAGE = Lingua::RU::Money::XS
void
rur2words(SV *amount)
PROTOTYPE: $
PPCODE:
ST(0) = money2words(aTHX_ SvNV(amount), true, false);
XSRETURN(1);
void
all2words(SV *amount)
PROTOTYPE: $
PPCODE:
ST(0) = money2words(aTHX_ SvNV(amount), true, true);
XSRETURN(1);
view release on metacpan or search on metacpan
StarDict.xs view on Meta::CPAN
StarDict::DESTROY()
void
StarDict::dictionaries()
PPCODE:
dTARG;
// result array
AV* dicts = (AV *)sv_2mortal((SV *)newAV());
StarDict.xs view on Meta::CPAN
void
StarDict::search( str )
char * str
PPCODE:
LibCore::SearchResultsList res;
bool is_found=false;
view release on metacpan or search on metacpan
lib/Lingua/Stem/Snowball/Ca.xs view on Meta::CPAN
}
void
_derive_stemmer(self_hash)
HV *self_hash;
PPCODE:
{
SV **sv_ptr;
char *lang;
char *encoding;
int i;
lib/Lingua/Stem/Snowball/Ca.xs view on Meta::CPAN
void
stem_in_place(self_hash, words_av)
HV *self_hash;
AV *words_av;
PPCODE:
{
IV stemmer_id;
SV **sv_ptr;
Stemmifier *stemmifier;
SV *stemmifier_sv;
lib/Lingua/Stem/Snowball/Ca.xs view on Meta::CPAN
OUTPUT: RETVAL
void
DESTROY(self_sv)
SV *self_sv;
PPCODE:
{
int i;
IV temp = SvIV( SvRV(self_sv) );
Stemmifier *stemmifier = INT2PTR(Stemmifier*, temp);
for (i = 0; i < NUMSTEM; i++) {
view release on metacpan or search on metacpan
lib/Lingua/Stem/Snowball/Lt.xs view on Meta::CPAN
}
void
_derive_stemmer(self_hash)
HV *self_hash;
PPCODE:
{
SV **sv_ptr;
char *lang;
char *encoding;
int i;
lib/Lingua/Stem/Snowball/Lt.xs view on Meta::CPAN
void
stem_in_place(self_hash, words_av)
HV *self_hash;
AV *words_av;
PPCODE:
{
IV stemmer_id;
SV **sv_ptr;
Stemmifier *stemmifier;
SV *stemmifier_sv;
lib/Lingua/Stem/Snowball/Lt.xs view on Meta::CPAN
OUTPUT: RETVAL
void
DESTROY(self_sv)
SV *self_sv;
PPCODE:
{
int i;
IV temp = SvIV( SvRV(self_sv) );
Stemmifier *stemmifier = INT2PTR(Stemmifier*, temp);
for (i = 0; i < NUMSTEM; i++) {
view release on metacpan or search on metacpan
lib/Lingua/Stem/Snowball.xs view on Meta::CPAN
}
void
_derive_stemmer(self_hash)
HV *self_hash;
PPCODE:
{
SV **sv_ptr;
char *lang;
char *encoding;
int i;
lib/Lingua/Stem/Snowball.xs view on Meta::CPAN
}
OUTPUT: RETVAL
void
stemmers(...)
PPCODE:
{
int i;
for (i = 0; i < NUMLANG; i++) {
XPUSHs( sv_2mortal(
newSVpvn( lang_encs[i].lang, strlen(lang_encs[i].lang) )
lib/Lingua/Stem/Snowball.xs view on Meta::CPAN
void
stem_in_place(self_hash, words_av)
HV *self_hash;
AV *words_av;
PPCODE:
{
IV stemmer_id;
SV **sv_ptr;
Stemmifier *stemmifier;
SV *stemmifier_sv;
lib/Lingua/Stem/Snowball.xs view on Meta::CPAN
OUTPUT: RETVAL
void
DESTROY(self_sv)
SV *self_sv;
PPCODE:
{
int i;
IV temp = SvIV( SvRV(self_sv) );
Stemmifier *stemmifier = INT2PTR(Stemmifier*, temp);
for (i = 0; i < NUMSTEM; i++) {
view release on metacpan or search on metacpan
Simplified.xs view on Meta::CPAN
STRLEN srclen, mblen;
U8 *s, *e, *p;
bool has_cv = 0;
bool has_pv = 0;
STDCHAR **lb, *tb;
PPCODE:
ref = NULL;
if (0 < items && SvROK(ST(0))) {
ref = SvRV(ST(0));
if (SvTYPE(ref) == SVt_PVCV)
has_cv = TRUE;
Simplified.xs view on Meta::CPAN
U16 mc, *t;
struct mbc_contra *p_contra, *cel_contra, **row_contra;
UV uv;
bool has_cv = 0;
bool has_pv = 0;
PPCODE:
ref = NULL;
if (0 < items && SvROK(ST(0))) {
ref = SvRV(ST(0));
if (SvTYPE(ref) == SVt_PVCV)
has_cv = TRUE;
view release on metacpan or search on metacpan
Traditional.xs view on Meta::CPAN
STRLEN srclen, mblen;
U8 *s, *e, *p;
bool has_cv = 0;
bool has_pv = 0;
STDCHAR **lb, *tb;
PPCODE:
ref = NULL;
if (0 < items && SvROK(ST(0))) {
ref = SvRV(ST(0));
if (SvTYPE(ref) == SVt_PVCV)
has_cv = TRUE;
Traditional.xs view on Meta::CPAN
U16 mc, *t;
struct mbc_contra *p_contra, *cel_contra, **row_contra;
UV uv;
bool has_cv = 0;
bool has_pv = 0;
PPCODE:
ref = NULL;
if (0 < items && SvROK(ST(0))) {
ref = SvRV(ST(0));
if (SvTYPE(ref) == SVt_PVCV)
has_cv = TRUE;
view release on metacpan or search on metacpan
void
chunk(chu, i=0, tmp=NULL)
Chu chu
unsigned long int i
SV* tmp
PPCODE:
if (chu->num_chunk <= 0) XSRETURN_EMPTY;
EXTEND(SP, chu->num_chunk);
for (; i < chu->num_chunk; i++) {
tmp = newSV(0);
sv_setref_pv(tmp, "Lingua::ZH::TaBE::Chunk", &(chu->chunk[i]));
void
tsi(chunk, i=0, tmp=NULL)
Chunk chunk
unsigned long int i
SV* tmp
PPCODE:
if (chunk->num_tsi <= 0) XSRETURN_EMPTY;
EXTEND(SP, chunk->num_tsi);
for (; i < chunk->num_tsi; i++) {
tmp = newSV(0);
sv_setref_pv(tmp, "Lingua::ZH::TaBE::Tsi", &(chunk->tsi[i]));
void
yindata(tsi, i=0, tmp=NULL)
Tsi tsi
unsigned long int i
SV* tmp
PPCODE:
if (tsi->yinnum <= 0) XSRETURN_EMPTY;
EXTEND(SP, tsi->yinnum);
for (; i < tsi->yinnum; i++) {
tmp = newSV(0);
sv_setref_uv(tmp, "Lingua::ZH::TaBE::Yin", tsi->yindata[i]);
tsidata(tsiyin, i=0, tmp=NULL, tsi=NULL)
TsiYin tsiyin
unsigned long int i
Tsi tsi
SV * tmp
PPCODE:
if (tsiyin->tsinum <= 0) XSRETURN_EMPTY;
EXTEND(SP, tsiyin->tsinum);
for (; i < tsiyin->tsinum; i++) {
New(0, tsi, 1, struct TsiInfo);
strncpy(
view release on metacpan or search on metacpan
MODULE = Linux::ACL PACKAGE = Linux::ACL
void
getfacl(filename)
SV * filename;
PPCODE:
HV *acl, *default_acl;
STRLEN filename_string_length;
char *filename_string = SvPV(filename, filename_string_length);
int count = getfacl_internal(filename_string, &acl, &default_acl);
void
setfacl(filename, acl_hashref, ...)
SV *filename;
SV *acl_hashref;
PPCODE:
STRLEN filename_string_length;
char* filename_string = SvPV(filename, filename_string_length);
HV *acl_hash = derefHV(acl_hashref);
HV *default_acl_hash = NULL;
if( items > 2 )
view release on metacpan or search on metacpan
fallback/const-xs.inc view on Meta::CPAN
/* NV nv; Uncomment this if you need to return NVs */
/* const char *pv; Uncomment this if you need to return PVs */
INPUT:
SV * sv;
const char * s = SvPV(sv, len);
PPCODE:
/* Change this to constant(aTHX_ s, len, &iv, &nv);
if you need to return both NVs and IVs */
type = constant(aTHX_ s, len, &iv);
/* Return 1 or 2 items. First is error message, or undef if no error.
Second, if present, is found value */
view release on metacpan or search on metacpan
xs/DVBT-ad-tie.c view on Meta::CPAN
ADA_METHOD(EXISTS);
HV *results ;
int frame ;
PPCODE:
ADA_CHECK_THIS ;
if (THIS->type == ADAV_ADATA)
{
if ((idx >= THIS->user_data->results_list_size) || (idx < 0))
view release on metacpan or search on metacpan
PROTOTYPES: DISABLE
void
_consts ()
PPCODE:
const struct consts *c;
for (c = consts;
c < consts + sizeof (consts) / sizeof (consts[0]);
c++)
{
view release on metacpan or search on metacpan
lib/Linux/FD/Mem.xs view on Meta::CPAN
void
get_seals(file_handle)
SV* file_handle;
PREINIT:
int seals, fd, i;
PPCODE:
fd = get_fd(file_handle);
seals = fcntl(fd, F_GET_SEALS, 0);
for (i = 0; i < sizeof seal_flags / sizeof *seal_flags; ++i) {
if (seal_flags[i].value & seals)
mXPUSHp(seal_flags[i].key, seal_flags[i].length);
view release on metacpan or search on metacpan
lib/Linux/FD.xs view on Meta::CPAN
RETVAL
void get_timeout(Fd timerfd)
PREINIT:
struct itimerspec value;
PPCODE:
if (timerfd_gettime(timerfd, &value) == -1)
die_sys("Couldn't get_timeout: %s");
mXPUSHn(timespec_to_nv(&value.it_value));
if (GIMME_V == G_ARRAY)
mXPUSHn(timespec_to_nv(&value.it_interval));
SV* set_timeout(Fd timerfd, struct timespec new_value, struct timespec new_interval = NEVER, bool abstime = FALSE)
PREINIT:
struct itimerspec new_itimer, old_itimer;
PPCODE:
new_itimer.it_value = new_value;
new_itimer.it_interval = new_interval;
if (timerfd_settime(timerfd, (abstime ? TIMER_ABSTIME : 0), &new_itimer, &old_itimer) == -1)
die_sys("Couldn't set_timeout: %s");
mXPUSHn(timespec_to_nv(&old_itimer.it_value));
lib/Linux/FD.xs view on Meta::CPAN
RETVAL
void clocks(SV* classname)
INIT:
int i;
PPCODE:
for (i = 0; i < sizeof clocks / sizeof *clocks; ++i)
mXPUSHp(clocks[i].key, clocks[i].length);
view release on metacpan or search on metacpan
Fanotify.xs view on Meta::CPAN
ssize_t len;
int size;
int fd;
SV *event;
SV *eventref;
PPCODE:
/*
* Check arguments and allocate read buffer
*/
if (max < 1) {
max = 170; // Results in a buffer slightly smaller than 4k
view release on metacpan or search on metacpan
Inotify2.xs view on Meta::CPAN
CODE:
fcntl (fd, F_SETFL, blocking ? 0 : O_NONBLOCK);
void
inotify_read (int fd, int size = 8192)
PPCODE:
{
char buf [size], *cur, *end;
int got = read (fd, buf, size);
if (got < 0)
view release on metacpan or search on metacpan
fallback/const-xs.inc view on Meta::CPAN
/* NV nv; Uncomment this if you need to return NVs */
/* const char *pv; Uncomment this if you need to return PVs */
INPUT:
SV * sv;
const char * s = SvPV(sv, len);
PPCODE:
type = constant(aTHX_ s, len);
/* Return 1 or 2 items. First is error message, or undef if no error.
Second, if present, is found value */
switch (type) {
case PERL_constant_NOTFOUND:
view release on metacpan or search on metacpan
const-xs.inc view on Meta::CPAN
/* NV nv; Uncomment this if you need to return NVs */
/* const char *pv; Uncomment this if you need to return PVs */
INPUT:
SV * sv;
const char * s = SvPV(sv, len);
PPCODE:
/* Change this to constant(aTHX_ s, len, &iv, &nv);
if you need to return both NVs and IVs */
type = constant(aTHX_ s, len, &iv);
/* Return 1 or 2 items. First is error message, or undef if no error.
Second, if present, is found value */
view release on metacpan or search on metacpan
Linux::Proc::Cpuinfo
new(package, ...)
char *package
PREINIT:
char *filename = NULL;
PPCODE:
if (items > 1) {
filename = (char *)SvPV_nolen(ST(1));
proccpuinfo_set_filename(filename);
}
view release on metacpan or search on metacpan
lib/Linux/RTC/Ioctl.xs view on Meta::CPAN
INCLUDE: const-xs.inc
void
wait_for_timer(HV *rtc)
PROTOTYPE: \%
PPCODE:
int fd = -1;
char const *node = "";
unsigned long record = 0;
ssize_t read_size = -1;
SV **device = hv_fetch(rtc, "device", 6, 0);
lib/Linux/RTC/Ioctl.xs view on Meta::CPAN
#if defined(RTC_IRQP_SET) && defined(RTC_IRQP_READ)
void
periodic_frequency(HV *rtc, ...)
PROTOTYPE: \%;$
PPCODE:
int fd = -1;
SV **device = hv_fetch(rtc, "device", 6, 0);;
if (device)
{
lib/Linux/RTC/Ioctl.xs view on Meta::CPAN
#if defined(RTC_PIE_ON) && defined(RTC_PIE_OFF)
void
periodic_interrupt(HV *rtc, bool fEnable)
PROTOTYPE: \%$
PPCODE:
int fd = -1;
SV **device = hv_fetch(rtc, "device", 6, 0);;
if (device)
{
lib/Linux/RTC/Ioctl.xs view on Meta::CPAN
#if defined(RTC_UIE_ON) && defined(RTC_UIE_OFF)
void
update_interrupt(HV *rtc, bool fEnable)
PROTOTYPE: \%$
PPCODE:
int fd = -1;
SV **device = hv_fetch(rtc, "device", 6, 0);;
if (device)
{
lib/Linux/RTC/Ioctl.xs view on Meta::CPAN
#if defined(RTC_AIE_ON) && defined(RTC_AIE_OFF)
void
alarm_interrupt(HV *rtc, bool fEnable)
PROTOTYPE: \%$
PPCODE:
int fd = -1;
SV **device = hv_fetch(rtc, "device", 6, 0);;
if (device)
{
lib/Linux/RTC/Ioctl.xs view on Meta::CPAN
#if defined(RTC_RD_TIME)
void
read_time(HV *rtc)
PROTOTYPE: \%
PPCODE:
struct rtc_time tm = { 0, 0, 0, 0, 0, 0, -1, -1, -1 };
int fd = -1;
SV **device = hv_fetch(rtc, "device", 6, 0);
int result;
lib/Linux/RTC/Ioctl.xs view on Meta::CPAN
#if defined(RTC_SET_TIME)
void
set_time(HV *rtc, ...)
PROTOTYPE: \*%;$$$$$$$$$
PPCODE:
int args_count = items;
struct rtc_time tm = { 0, 0, 0, 0, 0, 0, -1, -1, -1 };
int fd = -1;
SV **device = hv_fetch(rtc, "device", 6, 0);;
lib/Linux/RTC/Ioctl.xs view on Meta::CPAN
#if defined(RTC_ALM_READ)
void
read_alarm(HV *rtc)
PROTOTYPE: \%
PPCODE:
struct rtc_time tm = { 0, 0, 0, 0, 0, 0, -1, -1, -1 };
int fd = -1;
SV **device = hv_fetch(rtc, "device", 6, 0);;
int result;
lib/Linux/RTC/Ioctl.xs view on Meta::CPAN
#if defined(RTC_ALM_SET)
void
set_alarm(HV *rtc, ...)
PROTOTYPE: \*%;$$$$$$$$$
PPCODE:
int args_count = items;
struct rtc_time tm = { 0, 0, 0, 0, 0, 0, -1, -1, -1 };
int fd = -1;
SV **device = hv_fetch(rtc, "device", 6, 0);;
lib/Linux/RTC/Ioctl.xs view on Meta::CPAN
#if defined(RTC_WKALM_RD)
void
read_wakeup_alarm(HV *rtc)
PROTOTYPE: \%
PPCODE:
struct rtc_wkalrm tm = { 0, 0, { 0, 0, 0, 0, 0, 0, -1, -1, -1 } };
int fd = -1;
SV **device = hv_fetch(rtc, "device", 6, 0);;
int result;
lib/Linux/RTC/Ioctl.xs view on Meta::CPAN
#if defined(RTC_WKALM_SET)
void
set_wakeup_alarm(HV *rtc, ...)
PROTOTYPE: \*%;$$$$$$$$$
PPCODE:
int args_count = items;
struct rtc_wkalrm tm = { 0, 0, { 0, 0, 0, 0, 0, 0, -1, -1, -1 } };
int fd = -1;
SV **device = hv_fetch(rtc, "device", 6, 0);;
lib/Linux/RTC/Ioctl.xs view on Meta::CPAN
#if defined(RTC_VL_READ)
void
read_voltage_low_indicator(HV *rtc)
PROTOTYPE: \%
PPCODE:
int result, voltage_low_indicator;
int fd = -1;
SV **device = hv_fetch(rtc, "device", 6, 0);;
if (device)
lib/Linux/RTC/Ioctl.xs view on Meta::CPAN
#if defined(RTC_VL_CLR)
void
clear_voltage_low_indicator(HV *rtc)
PROTOTYPE: \%
PPCODE:
int fd = -1;
SV **device = hv_fetch(rtc, "device", 6, 0);;
if (device)
{