Lines Matching refs:prog
187 my $prog;
207 $prog = "static const unsigned $idtype ${name}_imap[] = {\n";
211 $prog .= "\n" if $i != 0;
212 $prog .= "\t";
214 $prog .= sprintf "%${idwid}d, ", $v;
217 $prog .= "\n};\n";
218 $prog;
409 my $prog;
412 $prog = <<"END";
420 $prog .= "\t{{\n";
423 $prog .= "\n" if $i != 0;
424 $prog .= "\t";
426 $prog .= sprintf "%3d,", $v;
429 $prog .= "\n\t}},\n";
431 $prog .= "};\n";
432 $prog;
496 my $prog;
527 $prog = <<"END";
536 $prog .= "\t{{\n\t";
541 $prog .= "\n\t";
544 $prog .= $s;
546 $prog .= "\n\t}},\n";
548 $prog .= "};\n";
549 $prog;