Lines Matching refs:bulk
50 my $bulk =
54 return $bulk;
129 my @bulk = read_file( $name, -layer => ":utf8" );
145 foreach $line ( @bulk ) {
249 my $bulk = "";
251 $bulk =
261 $bulk .=
266 $bulk .= " ${prefix}_${short}_${ident},\n";
268 $bulk .= " ${prefix}_${short}_last,\n\n";
270 $bulk .= " ${prefix}_xxx_lastest\n\n";
272 $bulk .=
278 $bulk .=
282 write_file( $file, \$bulk );
290 my $bulk = "";
292 $bulk .= "// message catalog signature file //\n\n";
297 $bulk .= "-*- " . uc( $props->{ long } ) . "-*-\n\n";
300 $bulk .= sprintf( "%-40s %s\n", $ident, msg2sgn( $msg ) );
302 $bulk .= "\n";
305 $bulk .= "// end of file //\n";
307 write_file( $file, \$bulk );
315 my $bulk = "";
317 $bulk .=
322 $bulk .=
329 $bulk .= " \"" . msg2src( $msg ) . "\",\n";
331 $bulk .=
337 $bulk .=
349 $bulk .=
352 $bulk .=
357 $bulk .=
372 write_file( $file, \$bulk );
380 my $bulk = "";
382 $bulk .=
388 $bulk .=
396 $bulk .= "$n \"" . msg2src( $msg ) . "\"\n";
398 $bulk .= "\n";
401 $bulk .=
405 write_file( $file, \$bulk, -layer => ":utf8" );
413 my $bulk = "";
417 $bulk .=
423 $bulk .=
427 $bulk .=
430 $bulk .=
439 $bulk .=
447 $bulk .=
451 $bulk = encode( "UTF-16LE", $bulk ); # Convert text to UTF-16LE used in Windows* OS.
452 write_file( $file, \$bulk, -binary => 1 );