/* * This file was generated automatically by ExtUtils::ParseXS version 2.2206 from the * contents of SerialPort.xs. Do not edit this file, edit SerialPort.xs instead. * * ANY CHANGES MADE HERE WILL BE LOST! * */ #line 1 "SerialPort.xs" #include "EXTERN.h" #include "perl.h" #include "XSUB.h" /* include our configure-created config file */ #include "config.h" /* First step: include all the files we think we may need to get all the silly serial and modem bits defined. This should be exactly the same as what's in the autoconf scripts. */ #ifdef HAVE_UNISTD_H # include #endif #ifdef HAVE_SYS_IOCTL_H # include #endif #ifdef HAVE_TERMIOS_H # include #endif #ifdef HAVE_SYS_TERMIOX_H # include #endif #ifdef HAVE_SYS_TERMIOS_H # include #endif #ifdef HAVE_SYS_TTYCOM_H # include #endif #ifdef HAVE_SYS_MODEM_H # include #endif #define ADD_TO_HASH(v) { \ key = #v; \ value = newSViv(v); \ hv_store(hv, key, strlen(key), value, 0); \ } /* Hide this junk in the "Bits" namespace */ #line 49 "SerialPort.c" #ifndef PERL_UNUSED_VAR # define PERL_UNUSED_VAR(var) if (0) var = var #endif #ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE #define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params) /* prototype to pass -Wmissing-prototypes */ STATIC void S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params); STATIC void S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params) { const GV *const gv = CvGV(cv); PERL_ARGS_ASSERT_CROAK_XS_USAGE; if (gv) { const char *const gvname = GvNAME(gv); const HV *const stash = GvSTASH(gv); const char *const hvname = stash ? HvNAME(stash) : NULL; if (hvname) Perl_croak(aTHX_ "Usage: %s::%s(%s)", hvname, gvname, params); else Perl_croak(aTHX_ "Usage: %s(%s)", gvname, params); } else { /* Pants. I don't think that it should be possible to get here. */ Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params); } } #undef PERL_ARGS_ASSERT_CROAK_XS_USAGE #ifdef PERL_IMPLICIT_CONTEXT #define croak_xs_usage(a,b) S_croak_xs_usage(aTHX_ a,b) #else #define croak_xs_usage S_croak_xs_usage #endif #endif /* NOTE: the prototype of newXSproto() is different in versions of perls, * so we define a portable version of newXSproto() */ #ifdef newXS_flags #define newXSproto_portable(name, c_impl, file, proto) newXS_flags(name, c_impl, file, proto, 0) #else #define newXSproto_portable(name, c_impl, file, proto) (PL_Sv=(SV*)newXS(name, c_impl, file), sv_setpv(PL_Sv, proto), (CV*)PL_Sv) #endif /* !defined(newXS_flags) */ #line 101 "SerialPort.c" XS(XS_Device__SerialPort__Bits_get_hash); /* prototype to pass -Wmissing-prototypes */ XS(XS_Device__SerialPort__Bits_get_hash) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) croak_xs_usage(cv, ""); { #line 44 "SerialPort.xs" HV * hv; char * key; SV * value; #line 118 "SerialPort.c" SV * RETVAL; #line 49 "SerialPort.xs" /* initialize the hash */ hv = newHV(); #ifdef _SC_CLK_TCK ADD_TO_HASH(_SC_CLK_TCK) #endif #ifdef TIOCMBIS ADD_TO_HASH(TIOCMBIS) #endif #ifdef TIOCMBIC ADD_TO_HASH(TIOCMBIC) #endif #ifdef TIOCMGET ADD_TO_HASH(TIOCMGET) #endif #ifdef CRTSCTS ADD_TO_HASH(CRTSCTS) #endif #ifdef OCRNL ADD_TO_HASH(OCRNL) #endif #ifdef ONLCR ADD_TO_HASH(ONLCR) #endif #ifdef ECHOKE ADD_TO_HASH(ECHOKE) #endif #ifdef ECHOCTL ADD_TO_HASH(ECHOCTL) #endif #ifdef TIOCM_CAR ADD_TO_HASH(TIOCM_CAR) #endif #ifdef TIOCM_CD ADD_TO_HASH(TIOCM_CD) #endif #ifdef TIOCM_RNG ADD_TO_HASH(TIOCM_RNG) #endif #ifdef TIOCM_RI ADD_TO_HASH(TIOCM_RI) #endif #ifdef TIOCM_CTS ADD_TO_HASH(TIOCM_CTS) #endif #ifdef TIOCM_DSR ADD_TO_HASH(TIOCM_DSR) #endif #ifdef TIOCINQ ADD_TO_HASH(TIOCINQ) #endif #ifdef TIOCOUTQ ADD_TO_HASH(TIOCOUTQ) #endif #ifdef TIOCSER_TEMT ADD_TO_HASH(TIOCSER_TEMT) #endif #ifdef TIOCM_LE ADD_TO_HASH(TIOCM_LE) #endif #ifdef TIOCSERGETLSR ADD_TO_HASH(TIOCSERGETLSR) #endif #ifdef TIOCSDTR ADD_TO_HASH(TIOCSDTR) #endif #ifdef TIOCCDTR ADD_TO_HASH(TIOCCDTR) #endif #ifdef TIOCM_RTS ADD_TO_HASH(TIOCM_RTS) #endif #ifdef TIOCM_DTR ADD_TO_HASH(TIOCM_DTR) #endif #ifdef TIOCMIWAIT ADD_TO_HASH(TIOCMIWAIT) #endif #ifdef TIOCGICOUNT ADD_TO_HASH(TIOCGICOUNT) #endif #ifdef CTSXON ADD_TO_HASH(CTSXON) #endif #ifdef RTSXOFF ADD_TO_HASH(RTSXOFF) #endif #ifdef TCGETX ADD_TO_HASH(TCGETX) #endif #ifdef TCSETX ADD_TO_HASH(TCSETX) #endif /* Baud rates */ #ifdef B0 ADD_TO_HASH(B0) #endif #ifdef B50 ADD_TO_HASH(B50) #endif #ifdef B75 ADD_TO_HASH(B75) #endif #ifdef B110 ADD_TO_HASH(B110) #endif #ifdef B134 ADD_TO_HASH(B134) #endif #ifdef B150 ADD_TO_HASH(B150) #endif #ifdef B200 ADD_TO_HASH(B200) #endif #ifdef B300 ADD_TO_HASH(B300) #endif #ifdef B600 ADD_TO_HASH(B600) #endif #ifdef B1200 ADD_TO_HASH(B1200) #endif #ifdef B1800 ADD_TO_HASH(B1800) #endif #ifdef B2400 ADD_TO_HASH(B2400) #endif #ifdef B4800 ADD_TO_HASH(B4800) #endif #ifdef B9600 ADD_TO_HASH(B9600) #endif #ifdef B19200 ADD_TO_HASH(B19200) #endif #ifdef B38400 ADD_TO_HASH(B38400) #endif #ifdef B57600 ADD_TO_HASH(B57600) #endif #ifdef B115200 ADD_TO_HASH(B115200) #endif #ifdef B230400 ADD_TO_HASH(B230400) #endif #ifdef B460800 ADD_TO_HASH(B460800) #endif #ifdef B500000 ADD_TO_HASH(B500000) #endif #ifdef B576000 ADD_TO_HASH(B576000) #endif #ifdef B921600 ADD_TO_HASH(B921600) #endif #ifdef B1000000 ADD_TO_HASH(B1000000) #endif #ifdef B1152000 ADD_TO_HASH(B1152000) #endif #ifdef B2000000 ADD_TO_HASH(B2000000) #endif #ifdef B2500000 ADD_TO_HASH(B2500000) #endif #ifdef B3000000 ADD_TO_HASH(B3000000) #endif #ifdef B3500000 ADD_TO_HASH(B3500000) #endif #ifdef B4000000 ADD_TO_HASH(B4000000) #endif RETVAL = newRV_noinc((SV*)hv); #line 307 "SerialPort.c" ST(0) = RETVAL; sv_2mortal(ST(0)); } XSRETURN(1); } #ifdef __cplusplus extern "C" #endif XS(boot_Device__SerialPort); /* prototype to pass -Wmissing-prototypes */ XS(boot_Device__SerialPort) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif #if (PERL_REVISION == 5 && PERL_VERSION < 9) char* file = __FILE__; #else const char* file = __FILE__; #endif PERL_UNUSED_VAR(cv); /* -W */ PERL_UNUSED_VAR(items); /* -W */ XS_VERSION_BOOTCHECK ; (void)newXSproto_portable("Device::SerialPort::Bits::get_hash", XS_Device__SerialPort__Bits_get_hash, file, ""); #if (PERL_REVISION == 5 && PERL_VERSION >= 9) if (PL_unitcheckav) call_list(PL_scopestack_ix, PL_unitcheckav); #endif XSRETURN_YES; }