Lines Matching refs:_

34 sub _ { $_[0] }  subroutine
42 sub dec { $_[0] }
43 sub enc { $_[0] }
44 sub enc_user { $_[0] }
45 sub kark { die +(sprintf shift, @_), "\n" }
46 sub N_ { $_[0] }
53 my $version_info = enc_user sprintf _(<<'EOT'), $this_program, $this_version;
65 my $help_info = enc_user sprintf _(<<'EOT'), $this_program, $this_program;
174 	$_ = dec $_;
190 	    elsif ($key eq _('NAME') or $key eq _('SYNOPSIS'))
228 		local @ARGV = shellwords $_;
235 	$hash->{$key} .= $_;
247     for (keys %$hash) { $hash->{$_} =~ s/\n+$/\n/ }
270 my $date = enc strftime _("%B %Y"), localtime $epoch_secs;
296 ($_, $version_text) = ((split /\n+/, $version_text, 2), '');
314     $version = $_;
323     $replace{_('NAME')} = "$program \\- $opt_name\n";
329 for ($replace{_('NAME')} || ($include{_('NAME')} ||= ''))
331     if ($_) # Use first name given as $program
337 	$_ = sprintf _("%s \\- manual page for %s %s") . "\n", $program,
351 	if (/^(1[Mm]|8)/) { $manual = enc _('System Administration Utilities') }
352 	elsif (/^6/)	  { $manual = enc _('Games') }
353 	else		  { $manual = enc _('User Commands') }
364 my $PAT_USAGE = _('Usage');
365 my $PAT_USAGE_CONT = _('or');
370     if ($_ = $5)
373 	for (split /\n/) { s/^ *(($PAT_USAGE_CONT): +)?//o; push @syn, $_ }
387 	$_ .= '\fR';
394 	$_ = fix_italic_spacing $_;
398     $include{_('SYNOPSIS')} .= $synopsis;
402 my $sect = _('DESCRIPTION');
403 $_ = "$help_text\n\n$version_text";
427 my $PAT_BUGS          = _('Report +(?:[\w-]+ +)?bugs|' .
430 my $PAT_AUTHOR        = _('Written +by');
431 my $PAT_OPTIONS       = _('Options');
432 my $PAT_ENVIRONMENT   = _('Environment');
433 my $PAT_FILES         = _('Files');
434 my $PAT_EXAMPLES      = _('Examples');
435 my $PAT_FREE_SOFTWARE = _('This +is +free +software');
436 my $PAT_SEE_ALSO      = _('Full +documentation');
450 	$sect = _('OPTIONS');
455 	$sect = _('ENVIRONMENT');
460 	$sect = _('FILES');
465 	$sect = _('EXAMPLES');
481 	$sect = _('COPYRIGHT');
487 	$sect = _('REPORTING BUGS');
493 	$sect = _('AUTHOR');
498 	$sect = _('SEE ALSO');
594 	unless ($sect eq _('EXAMPLES'))
609 	    $_ = fix_italic_spacing $_;
615 	if ($sect eq _('COPYRIGHT'))
621 	elsif ($sect eq _('REPORTING BUGS'))
630 	elsif ($sect eq _('SEE ALSO'))
664     $sect = _('SEE ALSO');
666     $include{$sect} .= sprintf _(<<'EOT'), $program, $program, $info_page;
700 my @pre = (_('NAME'), _('SYNOPSIS'), _('DESCRIPTION'), _('OPTIONS'),
701     _('EXAMPLES'));
702 my @post = (_('ENVIRONMENT'), _('FILES'), _('AUTHOR'),
703     _('REPORTING BUGS'), _('COPYRIGHT'), _('SEE ALSO'));
704 my %filter = map { $_ => 1 } @pre, @post;
708 for my $sect (@pre, (grep !$filter{$_}, @sections), @post)
736 	    print enc $_;
749     local $_ = shift;
752     $_;
758     my ($prog, $opt) = @_;
761 	map { s/ +$//; expand $_ }
762 	map { dec $_ }
782     local $_ = '\fB' . shift;
789 	$_ .= '\fR';
792     $_;
799     local $_ = shift;
801     return $_;