Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
data	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
001-basic.t	4.94 KB	-r--r--r--	2014-12-27 11:48
002-more.t	3.61 KB	-r--r--r--	2014-12-27 11:48
003-usage.t	2.65 KB	-r--r--r--	2014-12-27 11:48
101-standard_typemap_locations.t	1.14 KB	-r--r--r--	2014-12-27 11:48
102-trim_whitespace.t	613 B	-r--r--r--	2014-12-27 11:48
103-tidy_type.t	654 B	-r--r--r--	2014-12-27 11:48
104-map_type.t	2.21 KB	-r--r--r--	2014-12-27 11:48
105-valid_proto_string.t	837 B	-r--r--r--	2014-12-27 11:48
106-process_typemaps.t	1.36 KB	-r--r--r--	2014-12-27 11:48
108-map_type.t	377 B	-r--r--r--	2014-12-27 11:48
109-standard_XS_defs.t	588 B	-r--r--r--	2014-12-27 11:49
110-assign_func_args.t	1.34 KB	-r--r--r--	2014-12-27 11:48
111-analyze_preprocessor_statements.t	367 B	-r--r--r--	2014-12-27 11:48
112-set_cond.t	171 B	-r--r--r--	2014-12-27 11:48
113-check_cond_preproc_statements.t	4.43 KB	-r--r--r--	2014-12-27 11:48
114-blurt_death_Warn.t	2.77 KB	-r--r--r--	2014-12-27 11:48
115-avoid-noise.t	536 B	-r--r--r--	2014-12-27 11:48
501-t-compile.t	221 B	-r--r--r--	2014-12-27 11:48
510-t-bare.t	4.88 KB	-r--r--r--	2014-12-27 11:48
511-t-whitespace.t	886 B	-r--r--r--	2014-12-27 11:48
512-t-file.t	1.75 KB	-r--r--r--	2014-12-27 11:48
513-t-merge.t	3.44 KB	-r--r--r--	2014-12-27 11:48
514-t-embed.t	381 B	-r--r--r--	2014-12-27 11:48
515-t-cmd.t	1.99 KB	-r--r--r--	2014-12-27 11:48
516-t-clone.t	1.38 KB	-r--r--r--	2014-12-27 11:48
517-t-targetable.t	5.17 KB	-r--r--r--	2014-12-27 11:48
600-t-compat.t	4.83 KB	-r--r--r--	2014-12-27 11:48
XSInclude.xsh	85 B	-r--r--r--	2014-12-27 11:48
XSMore.xs	2.69 KB	-r--r--r--	2014-12-27 11:48
XSTest.pm	119 B	-r--r--r--	2014-12-27 11:48
XSTest.xs	1.2 KB	-r--r--r--	2014-12-27 11:48
XSUsage.pm	117 B	-r--r--r--	2014-12-27 11:48
XSUsage.xs	1.02 KB	-r--r--r--	2014-12-27 11:48
XSWarn.xs	219 B	-r--r--r--	2014-12-27 11:48
pseudotypemap1	130 B	-r--r--r--	2014-12-27 11:48
typemap	7.45 KB	-r--r--r--	2014-12-27 11:48

Rename

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

typedef IV MyType;
typedef IV MyType2;
typedef IV MyType3;
typedef IV MyType4;
typedef IV MyType5;
typedef IV MyType6;

=for testing

This parts are ignored.

=cut

/* Old perls (pre 5.8.9 or so) did not have PERL_UNUSED_ARG in XSUB.h.
 * This is normally covered by ppport.h. */
#ifndef PERL_UNUSED_ARG
#  if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */
#    include <note.h>
#    define PERL_UNUSED_ARG(x) NOTE(ARGUNUSED(x))
#  else
#    define PERL_UNUSED_ARG(x) ((void)x)
#  endif
#endif
#ifndef PERL_UNUSED_VAR
#  define PERL_UNUSED_VAR(x) ((void)x)
#endif

STATIC void
outlist(int* a, int* b){
	*a = 'a';
	*b = 'b';
}

STATIC int
len(const char* const s, int const l){
	PERL_UNUSED_ARG(s);
	return l;
}

MODULE = XSMore         PACKAGE = XSMore

=for testing

This parts are also ignored.

=cut

PROTOTYPES: ENABLE

VERSIONCHECK: DISABLE

REQUIRE: 2.20

SCOPE: DISABLE

FALLBACK: TRUE

BOOT:
	sv_setiv(get_sv("XSMore::boot_ok", TRUE), 100);

TYPEMAP: <<END
MyType	T_IV
END

TYPEMAP: <<"  FOO BAR BAZ";
MyType2	T_FOOOO

OUTPUT
T_FOOOO
	sv_setiv($arg, (IV)$var);
  FOO BAR BAZ

TYPEMAP: <<'END'
MyType3	T_BAAR
MyType4	T_BAAR

OUTPUT
T_BAAR
	sv_setiv($arg, (IV)$var);

INPUT
T_BAAR
	$var = ($type)SvIV($arg)
END

TYPEMAP: <<END
MyType5 T_WITHSEMICOLON

INPUT

T_WITHSEMICOLON
    $var = ($type)SvIV($arg); 
END

TYPEMAP: <<SEMICOLONHERE;
MyType6	T_IV
SEMICOLONHERE

MyType
typemaptest1()
  CODE:
    RETVAL = 42;
  OUTPUT:
    RETVAL

MyType2
typemaptest2()
  CODE:
    RETVAL = 42;
  OUTPUT:
    RETVAL

MyType3
typemaptest3(foo, bar, baz)
    MyType4 foo
    MyType5 bar
    MyType5 baz
  CODE:
    PERL_UNUSED_VAR(bar);
    PERL_UNUSED_VAR(baz);
    RETVAL = foo;
  OUTPUT:
    RETVAL

MyType6
typemaptest6(foo)
    MyType6 foo
  CODE:
    RETVAL = foo;
  OUTPUT:
    RETVAL

void
prototype_ssa()
PROTOTYPE: $$@
CODE:
	NOOP;

void
attr_method(self, ...)
ATTRS: method
CODE:
	NOOP;

#define RET_1 1
#define RET_2 2

int
return_1()
CASE: ix == 1
	ALIAS:
		return_1 = RET_1
		return_2 = RET_2
	CODE:
		RETVAL = ix;
	OUTPUT:
		RETVAL
CASE: ix == 2
	CODE:
		RETVAL = ix;
	OUTPUT:
		RETVAL

int
arg_init(x)
	int x = SvIV($arg);
CODE:
	RETVAL = x;
OUTPUT:
	RETVAL

int
myabs(...)
OVERLOAD: abs
CODE:
	PERL_UNUSED_VAR(items);
	RETVAL = 42;
OUTPUT:
	RETVAL

void
hook(IN AV* av)
INIT:
	av_push(av, newSVpv("INIT", 0));
CODE:
	av_push(av, newSVpv("CODE", 0));
POSTCALL:
	av_push(av, newSVpv("POSTCALL", 0));
CLEANUP:
	av_push(av, newSVpv("CLEANUP", 0));

void
outlist(OUTLIST int a, OUTLIST int b)

int
len(char* s, int length(s))

INCLUDE_COMMAND: $^X -Ilib -It/lib -MIncludeTester -e IncludeTester::print_xs

#if 1

INCLUDE: XSInclude.xsh

#else

# for testing #else directive

#endif