diff options
Diffstat (limited to 'perl/.svn/text-base/typemap.svn-base')
-rw-r--r-- | perl/.svn/text-base/typemap.svn-base | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/perl/.svn/text-base/typemap.svn-base b/perl/.svn/text-base/typemap.svn-base deleted file mode 100644 index c22830d..0000000 --- a/perl/.svn/text-base/typemap.svn-base +++ /dev/null @@ -1,23 +0,0 @@ -const char * T_PV -nasth * T_PTROBJ -NASTD::Hole O_NASTH - -# -# Output methods -# -OUTPUT -O_NASTH - sv_setref_pv($arg, "Asshole", (void *)$var); - -# -# Input methods -# -INPUT -O_NASTH - if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG)) { - $var = ($type)SvIV((SV *)SvRV($arg)); - } else { - warn(\"${Package}::$func_name() --\" - \" $var is not a valid nasthole.\"); - XSRETURN_UNDEF; - } |