File: typemap

package info (click to toggle)
libmath-random-tt800-perl 1.01-2
  • links: PTS, VCS
  • area: main
  • in suites: squeeze, wheezy
  • size: 72 kB
  • ctags: 11
  • sloc: ansic: 53; perl: 36; makefile: 15
file content (16 lines) | stat: -rw-r--r-- 287 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
TYPEMAP
TT800		T_TT800

INPUT
T_TT800
	if (sv_isa($arg, \"Math::Random::TT800\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = ($type) tmp;
	}
	else
	    croak(\"$var is not of type Math::Random::TT800\")

OUTPUT
T_TT800
	sv_setref_pv($arg, \"Math::Random::TT800\", (void*)$var);