libextractor-perl

GNU libextractor
Log | Files | Refs | README

typemap (397B)

      1 TYPEMAP
      2 
      3 EXTRACTOR_ExtractorList* T_PEXTRACT_GENERIC_WRAPPER
      4 EXTRACTOR_ExtractorList_ornull* T_PEXTRACT_GENERIC_WRAPPER
      5 
      6 OUTPUT
      7 
      8 T_PEXTRACT_GENERIC_WRAPPER
      9 	$arg = newSv${(my $ntype = $type) =~ s/(?:const\s+)?([:\w]+)(?:\s*\*)$/$1/;
     10 		      \$ntype} ($var);
     11 
     12 INPUT
     13 
     14 T_PEXTRACT_GENERIC_WRAPPER
     15 	$var = Sv${(my $ntype = $type) =~ s/(?:const\s+)?([:\w]+)(?:\s*\*)$/$1/x;
     16 	           \$ntype} ($arg);