Lines Matching refs:perl
1 #!/usr/local/bin/perl
47 # In this section, perl variables will be expanded during extraction.
56 # In the following, perl variables are not expanded during extraction.
65 # As c2ph, do this PLUS generate perl code for getting at the structures.
85 -n do not generate perl code (default when invoked as pstruct)
86 -p generate perl code (default when invoked as c2ph)
87 -v generate perl code, with C decls as comments
100 <tchrist@perl.com>
103 Once upon a time, I wrote a program called pstruct. It was a perl
178 But if you're a perl programmer, then for you I have something much more
182 generator that translates C code into perl code! Well, structure and union
185 Prior to this point, anyone programming in perl who wanted to interact
197 #!/usr/local/bin/perl
238 typedef This is the perl format definition for passing to pack and
260 % h2ph <some_include_file.h > /usr/lib/perl/tmp.ph
261 % c2ph some_include_file.h >> /usr/lib/perl/tmp.ph
274 Anyway, here it is. Should run on perl v4 or greater. Maybe less.
370 $perl++ if $0 =~ m#/?c2ph$#;
382 $opt_p && $perl++;
384 $opt_n && ($perl = 0);
427 -n do not generate perl code (default when invoked as pstruct)
428 -p generate perl code (default when invoked as c2ph)
429 -v generate perl code, with C decls as comments
564 &compute_intrinsics if $perl && !$opt_i;
577 if ($perl) {
613 print "# " if $perl && $verbose;
615 print "$fname {\n" if !$perl || $verbose;
616 $template{$fname} = &scrunch($template{$fname}) if $perl;
618 print "# " if $perl && $verbose;
619 print "}\n" if !$perl || $verbose;
620 print "\n" if $perl && $verbose;
622 if ($perl) {
706 unless ($perl && $opt_a) {
707 print "\n1;\n" if $perl;
727 print "\n1;\n" if $perl;
903 print '# ' if $perl && $verbose;
916 if !$perl || $verbose;
918 if ($perl) {
923 if ($perl && $nesting == 1) {
936 if $perl && $verbose;
938 print "\n" if !$perl || $verbose;
941 if ($perl) {
1229 # i wanna say this, but perl resists my efforts:
1255 &panic("why do you care?") unless $perl;