view release on metacpan or  search on metacpan

Data/mkVFunc  view on Meta::CPAN

     print C "#include \"$fdef\"\n";
     print C "#undef VFUNC\n";
     print C "#undef VVAR\n";
     print C "};\n";
     print C "${name}tab *${name}ptr;\n";
     print C "${name}tab *${name}Get() { return ${name}ptr = &${name}table;}\n";
     close(C);
    }

   print STDERR "$gard\n";
   chmod(0666,$fdef) unless -w $fdef;
   open(VFUNC,">$fdef")   || die "Cannot open $fdef:$!";
   chmod(0666,$mdef) unless -w $mdef;
   open(VMACRO,">$mdef")  || die "Cannot open $mdef:$!";
   print VFUNC  "#ifdef _$gard\n";
   print VMACRO "#ifndef _${gard}_VM\n";
   print VMACRO "#define _${gard}_VM\n";
   print VMACRO "#include \"$htfile\"\n";
   foreach $func (sort keys %VVar)
    {
     if (!exists $Exclude{$func})
      {
       print VFUNC $VVar{$func};