Lines Matching full:print
27 print <<EOH
78 print $fh "// $license\n$copyright$note\n" if defined $fh;
82 print $fh "/* $license */\n$copyright$note\n";
85 print $H <<EOF
92 print $H <<EOF
100 print $H "#define CCS_FL_BASE " .
133 print $H "#define CCS_FL_16BIT " . flag_str(\$flag, \$all_flags) . "\n";
134 print $H "#define CCS_FL_32BIT " . flag_str(\$flag, \$all_flags) . "\n";
137 print $H "#define CCS_FL_FLOAT_IREAL " . flag_str(\$flag, \$all_flags) . "\n";
138 print $H "#define CCS_FL_IREAL " . flag_str(\$flag, \$all_flags) . "\n";
139 print $H "#define CCS_BUILD_BUG \\
143 print $H <<EOF
150 print $A <<EOF
162 print $LH <<EOF
176 print $LH "#define CCS_L_FL_SAME_REG " . bit_def(0) . "\n\n";
178 print $LH <<EOF
184 print $LC <<EOF
276 print $LC tabconv sprintf "\t{ CCS_R_" . (uc $name) . "($lim_arg), " .
301 #print $ar->{fmt}."\n";
357 print $H tabconv sprintf("#define %-62s %s", "CCS_R_" . (uc $this{name}) .
362 print $H tabconv $hdr_data;
387 print $LH tabconv sprintf "#define %-63s%s\n",
393 print $H tabconv($hdr_data);
446 print $H tabconv $hdr_data;
449 print $LC tabconv sprintf "\t{ CCS_R_" . (uc $name) . ", " .
454 print $LH tabconv sprintf "#define %-63s%s\n",
460 print $A $argdescs, $reglist;
462 print $A "\t{ 0 }\n";
464 print $A "};\n";
467 print $H "\n#endif /* __${uc_header}__ */\n";
469 print $LH tabconv sprintf "#define %-63s%s\n", "CCS_L_LAST", $limitcount;
471 print $LH "\n#endif /* __${uc_limith}__ */\n";
473 print $LC "\t{ 0 } /* Guardian */\n";
474 print $LC "};\n";