Device-Cdio
view release on metacpan or search on metacpan
perliso9660_wrap.c view on Meta::CPAN
SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "fs_find_lsn" "', argument " "2"" of type '" "lsn_t""'");
}
arg2 = (lsn_t)(val2);
result = (IsoStat_t *)iso9660_fs_find_lsn(arg1,arg2);
{
// result is of type IsoStatList_t
iso9660_stat_t *p_statbuf = result;
if (!result) goto out;
PPCODE:
/* Have Perl compute the length of the string using strlen() */
XPUSHs(sv_2mortal(newSVpv(p_statbuf->filename, 0)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->lsn)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->size)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->secsize)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->type)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_sec)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_min)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_hour)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_mday)));
perliso9660_wrap.c view on Meta::CPAN
SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "ifs_find_lsn" "', argument " "2"" of type '" "lsn_t""'");
}
arg2 = (lsn_t)(val2);
result = (IsoStat_t *)iso9660_ifs_find_lsn(arg1,arg2);
{
// result is of type IsoStatList_t
iso9660_stat_t *p_statbuf = result;
if (!result) goto out;
PPCODE:
/* Have Perl compute the length of the string using strlen() */
XPUSHs(sv_2mortal(newSVpv(p_statbuf->filename, 0)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->lsn)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->size)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->secsize)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->type)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_sec)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_min)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_hour)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_mday)));
perliso9660_wrap.c view on Meta::CPAN
SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "fs_stat" "', argument " "2"" of type '" "char const []""'");
}
arg2 = (char *)(buf2);
result = (IsoStat_t *)iso9660_fs_stat(arg1,(char const (*))arg2);
{
// result is of type IsoStatList_t
iso9660_stat_t *p_statbuf = result;
if (!result) goto out;
PPCODE:
/* Have Perl compute the length of the string using strlen() */
XPUSHs(sv_2mortal(newSVpv(p_statbuf->filename, 0)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->lsn)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->size)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->secsize)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->type)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_sec)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_min)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_hour)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_mday)));
perliso9660_wrap.c view on Meta::CPAN
SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "fs_stat_translate" "', argument " "2"" of type '" "char const []""'");
}
arg2 = (char *)(buf2);
result = (IsoStat_t *)iso9660_fs_stat_translate(arg1,(char const (*))arg2);
{
// result is of type IsoStatList_t
iso9660_stat_t *p_statbuf = result;
if (!result) goto out;
PPCODE:
/* Have Perl compute the length of the string using strlen() */
XPUSHs(sv_2mortal(newSVpv(p_statbuf->filename, 0)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->lsn)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->size)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->secsize)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->type)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_sec)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_min)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_hour)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_mday)));
perliso9660_wrap.c view on Meta::CPAN
SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "ifs_stat" "', argument " "2"" of type '" "char const []""'");
}
arg2 = (char *)(buf2);
result = (IsoStat_t *)iso9660_ifs_stat(arg1,(char const (*))arg2);
{
// result is of type IsoStatList_t
iso9660_stat_t *p_statbuf = result;
if (!result) goto out;
PPCODE:
/* Have Perl compute the length of the string using strlen() */
XPUSHs(sv_2mortal(newSVpv(p_statbuf->filename, 0)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->lsn)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->size)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->secsize)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->type)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_sec)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_min)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_hour)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_mday)));
perliso9660_wrap.c view on Meta::CPAN
SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "ifs_stat_translate" "', argument " "2"" of type '" "char const []""'");
}
arg2 = (char *)(buf2);
result = (IsoStat_t *)iso9660_ifs_stat_translate(arg1,(char const (*))arg2);
{
// result is of type IsoStatList_t
iso9660_stat_t *p_statbuf = result;
if (!result) goto out;
PPCODE:
/* Have Perl compute the length of the string using strlen() */
XPUSHs(sv_2mortal(newSVpv(p_statbuf->filename, 0)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->lsn)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->size)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->secsize)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->type)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_sec)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_min)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_hour)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_mday)));
perliso9660_wrap.c view on Meta::CPAN
arg2 = (char *)(buf2);
result = (IsoStatList_t *)fs_readdir(arg1,(char const (*))arg2);
{
// result is of type IsoStatList_t
CdioISO9660FileList_t *p_entlist = result;
CdioListNode_t *p_entnode;
unsigned int num = 0;
if (!result) goto out;
PPCODE:
/* For each element in the array of strings, create a new
* mortalscalar, and stuff it into the above array. */
_CDIO_LIST_FOREACH (p_entnode, p_entlist) {
iso9660_stat_t *p_statbuf =
(iso9660_stat_t *) _cdio_list_node_data (p_entnode);
/* Have perl compute the length of the string using strlen() */
XPUSHs(sv_2mortal(newSVpv(p_statbuf->filename, 0)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->lsn)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->size)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->secsize)));
perliso9660_wrap.c view on Meta::CPAN
arg2 = (char *)(buf2);
result = (IsoStatList_t *)ifs_readdir(arg1,(char const (*))arg2);
{
// result is of type IsoStatList_t
CdioISO9660FileList_t *p_entlist = result;
CdioListNode_t *p_entnode;
unsigned int num = 0;
if (!result) goto out;
PPCODE:
/* For each element in the array of strings, create a new
* mortalscalar, and stuff it into the above array. */
_CDIO_LIST_FOREACH (p_entnode, p_entlist) {
iso9660_stat_t *p_statbuf =
(iso9660_stat_t *) _cdio_list_node_data (p_entnode);
/* Have perl compute the length of the string using strlen() */
XPUSHs(sv_2mortal(newSVpv(p_statbuf->filename, 0)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->lsn)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->size)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->secsize)));
swig/perliso9660.swg view on Meta::CPAN
%}
typedef CdioList_t IsoStatList_t;
typedef iso9660_stat_t IsoStat_t;
%typemap(out) IsoStat_t *{
// $1 is of type IsoStatList_t
iso9660_stat_t *p_statbuf = result;
if (!result) goto out;
PPCODE:
/* Have Perl compute the length of the string using strlen() */
XPUSHs(sv_2mortal(newSVpv(p_statbuf->filename, 0)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->lsn)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->size)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->secsize)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->type)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_sec)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_min)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_hour)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->tm.tm_mday)));
swig/perliso9660.swg view on Meta::CPAN
}
%typemap(out) IsoStatList_t *{
// $1 is of type IsoStatList_t
CdioISO9660FileList_t *p_entlist = result;
CdioListNode_t *p_entnode;
unsigned int num = 0;
if (!result) goto out;
PPCODE:
/* For each element in the array of strings, create a new
* mortalscalar, and stuff it into the above array. */
_CDIO_LIST_FOREACH (p_entnode, p_entlist) {
iso9660_stat_t *p_statbuf =
(iso9660_stat_t *) _cdio_list_node_data (p_entnode);
/* Have perl compute the length of the string using strlen() */
XPUSHs(sv_2mortal(newSVpv(p_statbuf->filename, 0)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->lsn)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->size)));
XPUSHs(sv_2mortal(newSViv(p_statbuf->secsize)));
( run in 0.673 second using v1.01-cache-2.11-cpan-71847e10f99 )