cdata results from the CPAN

Parse-STDF

#define SWIGTYPE_p_rec_sub swig_types[33]
#define SWIGTYPE_p_rec_tsr swig_types[34]
#define SWIGTYPE_p_rec_typ swig_types[35]
#define SWIGTYPE_p_rec_unknown swig_types[36]
#define SWIGTYPE_p_rec_wcr swig_types[37]
#define SWIGTYPE_p_rec_wir swig_types[38]
#define SWIGTYPE_p_rec_wrr swig_types[39]
#define SWIGTYPE_p_ssize_t swig_types[40]
#define SWIGTYPE_p_stdf_format swig_types[41]
#define SWIGTYPE_p_stdf_initial_options swig_types[42]
#define SWIGTYPE_p_stdf_runtime_settings swig_types[43]
#define SWIGTYPE_p_uint16_t swig_types[44]
#define SWIGTYPE_p_uint32_t swig_types[45]
#define SWIGTYPE_p_uint8_t swig_types[46]
#define SWIGTYPE_p_unsigned_char swig_types[47]
#define SWIGTYPE_p_void swig_types[48]
static swig_type_info *swig_types[50];
static swig_module_info swig_module = {swig_types, 49, 0, 0, 0, 0};
#define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
#define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)

/* -------- TYPES TABLE (END) -------- */

#define SWIG_init    boot_libstdf

#define SWIG_name   "libstdfc::boot_libstdf"
#define SWIG_prefix "libstdfc::"

#define SWIGVERSION 0x020004 
#define SWIG_VERSION SWIGVERSION


#define SWIG_as_voidptr(a) (void *)((const void *)(a)) 
#define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a)) 


#ifdef __cplusplus
extern "C"
#endif
#ifndef PERL_OBJECT
#ifndef MULTIPLICITY
SWIGEXPORT void SWIG_init (CV* cv);
#else
SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
#endif
#else
SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
#endif


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;

   return d;
}





SWIGINTERN int
SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
{
  if (SvNIOK(obj)) {
    if (val) *val = SvNV(obj);
    return SWIG_OK;
  } else if (SvIOK(obj)) {
    if (val) *val = (double) SvIV(obj);
    return SWIG_AddCast(SWIG_OK);
  } else {
    const char *nptr = SvPV_nolen(obj);
    if (nptr) {
      char *endptr;
      double v;
      errno = 0;
      v = strtod(nptr, &endptr);
      if (errno == ERANGE) {
	errno = 0;
	return SWIG_OverflowError;
      } else {
	if (*endptr == '\0') {
	  if (val) *val = v;
	  return SWIG_Str2NumCast(SWIG_OK);
	}
      }
    }
  }
  return SWIG_TypeError;
}


#include <float.h>


#include <math.h>


SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double *d, double min, double max) {
  double x = *d;
  if ((min <= x && x <= max)) {
   double fx = floor(x);

libstdf_wrap.c view on Meta::CPAN

SWIGINTERNINLINE SV *
SWIG_From_unsigned_SS_long  SWIG_PERL_DECL_ARGS_1(unsigned long value)
{    
  SV *obj = sv_newmortal();
  sv_setuv(obj, (UV) value);
  return obj;
}


SWIGINTERNINLINE SV *
SWIG_From_unsigned_SS_char  SWIG_PERL_DECL_ARGS_1(unsigned char value)
{    
  return SWIG_From_unsigned_SS_long  SWIG_PERL_CALL_ARGS_1(value);
}


SWIGINTERN int
SWIG_AsVal_unsigned_SS_int SWIG_PERL_DECL_ARGS_2(SV * obj, unsigned int *val)
{
  unsigned long v;
  int res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, &v);
  if (SWIG_IsOK(res)) {
    if ((v > UINT_MAX)) {
      return SWIG_OverflowError;
    } else {
      if (val) *val = (unsigned int)(v);
    }
  }  
  return res;
}

#ifdef __cplusplus
extern "C" {
#endif

#ifdef PERL_OBJECT
#define MAGIC_CLASS _wrap_libstdf_var::
class _wrap_libstdf_var : public CPerlObj {
public:
#else
#define MAGIC_CLASS
#endif
SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
    MAGIC_PPERL
    croak("Value is read-only.");
    return 0;
}


#ifdef PERL_OBJECT
};
#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();
  }
}


XS(_wrap_memmove) {
  {
    void *arg1 = (void *) 0 ;
    void *arg2 = (void *) 0 ;
    size_t arg3 ;
    int res1 ;
    int res2 ;
    char *buf2 = 0 ;
    size_t size2 = 0 ;
    int alloc2 = 0 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 2) || (items > 2)) {
      SWIG_croak("Usage: memmove(data,indata,inlen);");
    }
    res1 = SWIG_ConvertPtr(ST(0),SWIG_as_voidptrptr(&arg1), 0, 0);
    if (!SWIG_IsOK(res1)) {
      SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "memmove" "', argument " "1"" of type '" "void *""'"); 
    }
    res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, &size2, &alloc2);
    if (!SWIG_IsOK(res2)) {
      SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "memmove" "', argument " "2"" of type '" "void const *""'");
    }
    arg2 = (void *)(buf2);
    arg3 = (size_t)(size2);
    memmove(arg1,(void const *)arg2,arg3);
    ST(argvi) = sv_newmortal();
    
    XSRETURN(argvi);
  fail:
    
    SWIG_croak_null();
  }
}


XS(_wrap_stdf_version) {
  {
    stdf_file *arg1 = (stdf_file *) 0 ;
    int res1 ;
    int argvi = 0;
    int result;
    dXSARGS;
    
    if ((items < 1) || (items > 1)) {
      SWIG_croak("Usage: stdf_version(f);");
    }

libstdf_wrap.c view on Meta::CPAN

  _swigc__p_dtc_Vn_type,
  _swigc__p_float,
  _swigc__p_int16_t,
  _swigc__p_int32_t,
  _swigc__p_int8_t,
  _swigc__p_p_char,
  _swigc__p_rec_atr,
  _swigc__p_rec_bps,
  _swigc__p_rec_dtr,
  _swigc__p_rec_eps,
  _swigc__p_rec_far,
  _swigc__p_rec_ftr,
  _swigc__p_rec_gdr,
  _swigc__p_rec_hbr,
  _swigc__p_rec_header,
  _swigc__p_rec_mir,
  _swigc__p_rec_mpr,
  _swigc__p_rec_mrr,
  _swigc__p_rec_pcr,
  _swigc__p_rec_pgr,
  _swigc__p_rec_pir,
  _swigc__p_rec_plr,
  _swigc__p_rec_pmr,
  _swigc__p_rec_prr,
  _swigc__p_rec_ptr,
  _swigc__p_rec_rdr,
  _swigc__p_rec_sbr,
  _swigc__p_rec_sdr,
  _swigc__p_rec_state,
  _swigc__p_rec_sub,
  _swigc__p_rec_tsr,
  _swigc__p_rec_typ,
  _swigc__p_rec_unknown,
  _swigc__p_rec_wcr,
  _swigc__p_rec_wir,
  _swigc__p_rec_wrr,
  _swigc__p_ssize_t,
  _swigc__p_stdf_format,
  _swigc__p_stdf_initial_options,
  _swigc__p_stdf_runtime_settings,
  _swigc__p_uint16_t,
  _swigc__p_uint32_t,
  _swigc__p_uint8_t,
  _swigc__p_unsigned_char,
  _swigc__p_void,
};


/* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */

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},
{"libstdfc::rec_to_dtr", _wrap_rec_to_dtr},
{"libstdfc::rec_to_atr", _wrap_rec_to_atr},
{"libstdfc::rec_to_far", _wrap_rec_to_far},
{"libstdfc::rec_to_hbr", _wrap_rec_to_hbr},
{"libstdfc::rec_to_sbr", _wrap_rec_to_sbr},
{"libstdfc::rec_to_pmr", _wrap_rec_to_pmr},
{"libstdfc::rec_to_pgr", _wrap_rec_to_pgr},
{"libstdfc::rec_to_plr", _wrap_rec_to_plr},
{"libstdfc::rec_to_rdr", _wrap_rec_to_rdr},
{"libstdfc::rec_to_wrr", _wrap_rec_to_wrr},
{"libstdfc::rec_to_wcr", _wrap_rec_to_wcr},
{"libstdfc::rec_to_tsr", _wrap_rec_to_tsr},
{"libstdfc::rec_to_mpr", _wrap_rec_to_mpr},
{"libstdfc::rec_to_ftr", _wrap_rec_to_ftr},
{"libstdfc::rec_to_bps", _wrap_rec_to_bps},
{"libstdfc::rec_to_eps", _wrap_rec_to_eps},
{"libstdfc::rec_to_gdr", _wrap_rec_to_gdr},
{"libstdfc::rec_to_unknown", _wrap_rec_to_unknown},
{"libstdfc::read_record", _wrap_read_record},
{"libstdfc::free_record", _wrap_free_record},
{"libstdfc::get_rec_name", _wrap_get_rec_name},
{"libstdfc::make_rec", _wrap_make_rec},
{"libstdfc::init_header", _wrap_init_header},
{"libstdfc::xU1_to_RV", _wrap_xU1_to_RV},
{"libstdfc::xN1_to_RV", _wrap_xN1_to_RV},
{"libstdfc::xU2_to_RV", _wrap_xU2_to_RV},
{"libstdfc::xR4_to_RV", _wrap_xR4_to_RV},
{"libstdfc::xCn_to_RV", _wrap_xCn_to_RV},
{"libstdfc::xVn_to_RV", _wrap_xVn_to_RV},
{"libstdfc::dtc_Vn_ele_type_set", _wrap_dtc_Vn_ele_type_set},
{"libstdfc::dtc_Vn_ele_type_get", _wrap_dtc_Vn_ele_type_get},
{"libstdfc::dtc_Vn_ele_data_set", _wrap_dtc_Vn_ele_data_set},
{"libstdfc::dtc_Vn_ele_data_get", _wrap_dtc_Vn_ele_data_get},
{"libstdfc::new_dtc_Vn_ele", _wrap_new_dtc_Vn_ele},
{"libstdfc::delete_dtc_Vn_ele", _wrap_delete_dtc_Vn_ele},
{"libstdfc::rec_header_stdf_file_set", _wrap_rec_header_stdf_file_set},
{"libstdfc::rec_header_stdf_file_get", _wrap_rec_header_stdf_file_get},
{"libstdfc::rec_header_state_set", _wrap_rec_header_state_set},
{"libstdfc::rec_header_state_get", _wrap_rec_header_state_get},
{"libstdfc::rec_header_REC_LEN_set", _wrap_rec_header_REC_LEN_set},
{"libstdfc::rec_header_REC_LEN_get", _wrap_rec_header_REC_LEN_get},
{"libstdfc::rec_header_REC_TYP_set", _wrap_rec_header_REC_TYP_set},
{"libstdfc::rec_header_REC_TYP_get", _wrap_rec_header_REC_TYP_get},
{"libstdfc::rec_header_REC_SUB_set", _wrap_rec_header_REC_SUB_set},
{"libstdfc::rec_header_REC_SUB_get", _wrap_rec_header_REC_SUB_get},
{"libstdfc::new_rec_header", _wrap_new_rec_header},
{"libstdfc::delete_rec_header", _wrap_delete_rec_header},
{"libstdfc::rec_unknown_header_set", _wrap_rec_unknown_header_set},
{"libstdfc::rec_unknown_header_get", _wrap_rec_unknown_header_get},
{"libstdfc::rec_unknown_data_set", _wrap_rec_unknown_data_set},

( run in 0.738 second using v1.01-cache-2.11-cpan-39bf76dae61 )