File: typemap

package info (click to toggle)
libdevel-nytprof-perl 4.04-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 2,124 kB
  • ctags: 1,330
  • sloc: perl: 4,392; ansic: 92; makefile: 19
file content (11 lines) | stat: -rw-r--r-- 304 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
const char * T_PV
NYTP_file T_NYTPROF_FILE

INPUT
T_NYTPROF_FILE
	if (sv_isa($arg, \"Devel::NYTProf::FileHandle\"))
	    $var = (NYTP_file)SvPVX(SvRV($arg));
	else
	    Perl_croak(aTHX_ \"%s: %s is not of type Devel::NYTProf::FileHandle\",
			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
			\"$var\")