Parse-STDF

 view release on metacpan or  search on metacpan

lib/libstdf.pm  view on Meta::CPAN

sub this {
    my $ptr = shift;
    return tied(%$ptr);
}


# ------- FUNCTION WRAPPERS --------

package libstdf;

*cdata = *libstdfc::cdata;
*memmove = *libstdfc::memmove;
*stdf_version = *libstdfc::stdf_version;
*rec_to_mir = *libstdfc::rec_to_mir;
*rec_to_sdr = *libstdfc::rec_to_sdr;
*rec_to_pcr = *libstdfc::rec_to_pcr;
*rec_to_mrr = *libstdfc::rec_to_mrr;
*rec_to_wir = *libstdfc::rec_to_wir;
*rec_to_pir = *libstdfc::rec_to_pir;
*rec_to_prr = *libstdfc::rec_to_prr;
*rec_to_ptr = *libstdfc::rec_to_ptr;

libstdf_wrap.c  view on Meta::CPAN

typedef struct SWIGCDATA {
    char *data;
    size_t   len;
} SWIGCDATA;






static SWIGCDATA cdata_void(void *ptr, size_t nelements)



{
  SWIGCDATA d;
  d.data = (char *) ptr;



  d.len  = nelements;

libstdf_wrap.c  view on Meta::CPAN

};
#endif

#ifdef __cplusplus
}
#endif

#ifdef __cplusplus
extern "C" {
#endif
XS(_wrap_cdata) {
  {
    void *arg1 = (void *) 0 ;
    size_t arg2 = (size_t) 1 ;
    int res1 ;
    size_t val2 ;
    int ecode2 = 0 ;
    int argvi = 0;
    SWIGCDATA result;
    dXSARGS;
    
    if ((items < 1) || (items > 2)) {
      SWIG_croak("Usage: cdata(ptr,nelements);");
    }
    res1 = SWIG_ConvertPtr(ST(0),SWIG_as_voidptrptr(&arg1), 0, 0);
    if (!SWIG_IsOK(res1)) {
      SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "cdata" "', argument " "1"" of type '" "void *""'"); 
    }
    if (items > 1) {
      ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
      if (!SWIG_IsOK(ecode2)) {
        SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "cdata" "', argument " "2"" of type '" "size_t""'");
      } 
      arg2 = (size_t)(val2);
    }
    result = cdata_void(arg1,arg2);
    ST(argvi) = SWIG_FromCharPtrAndSize((&result)->data,(&result)->len); argvi++ ;
    
    
    XSRETURN(argvi);
  fail:
    
    
    SWIG_croak_null();
  }
}

libstdf_wrap.c  view on Meta::CPAN

static swig_constant_info swig_constants[] = {
{0,0,0,0,0,0}
};
#ifdef __cplusplus
}
#endif
static swig_variable_info swig_variables[] = {
{0,0,0,0}
};
static swig_command_info swig_commands[] = {
{"libstdfc::cdata", _wrap_cdata},
{"libstdfc::memmove", _wrap_memmove},
{"libstdfc::stdf_version", _wrap_stdf_version},
{"libstdfc::rec_to_mir", _wrap_rec_to_mir},
{"libstdfc::rec_to_sdr", _wrap_rec_to_sdr},
{"libstdfc::rec_to_pcr", _wrap_rec_to_pcr},
{"libstdfc::rec_to_mrr", _wrap_rec_to_mrr},
{"libstdfc::rec_to_wir", _wrap_rec_to_wir},
{"libstdfc::rec_to_pir", _wrap_rec_to_pir},
{"libstdfc::rec_to_prr", _wrap_rec_to_prr},
{"libstdfc::rec_to_ptr", _wrap_rec_to_ptr},

swig/libstdf.swg  view on Meta::CPAN

%module libstdf
%include "cdata.i"
%include "funcs.swg"
%include "typemaps.swg"

/*
  Stock declarations from libstdf
 */

%include <libstdf.h>
%include <libstdf_types.h>
%include <libstdf_const.h>