Lines Matching refs:_
101 if(ref($_[1]) eq 'CODE') {
105 my $s = $_[1];
114 sgml($_[0], eval('sub { output "\n" unless $newline_last++; }'));
116 sgml($_[0], eval("sub { output \"\\n\" unless \$newline_last++; output '$s'; }"));
118 …sgml($_[0], eval("sub { output \"\\n\" unless \$newline_last; output '$s'; \$newline_last = 0; }")…
122 sgml($_[0], eval("sub { output '$s'; \$newline_last = 1; }"));
124 sgml($_[0], eval("sub { output '$s'; \$newline_last = 0; }"));
131 $_ = shift;
135 return if $_ eq '';
137 output $_;
139 if(@_) {
140 output @_;
141 $newline_last = (pop(@_) =~ /\n$/);
143 $newline_last = ($_ =~ /\n$/)
150 $_ = shift;
162 return $_;
291 my $id = $_[0]->parent->attribute('ID')->value;
297 if($_[0]->parent->attribute('XREFLABEL')->value eq '') {
301 $_[0]->parent->attribute('XREFLABEL')->value .
308 if($_[0]->in('REFMETA')) {
316 if($_[0]->in('REFMETA')) {
324 if($_[0]->in('REFMETA')) {
332 if($_[0]->in('REFMETA')) {
371 if($_ ne $manpage_title) {
430 if($_[0]->attribute('CHOICE')->value =~ /opt/i) {
438 if($_[0]->attribute('REP')->value =~ /^Repeat/i) {
443 if($_[0]->attribute('CHOICE')->value =~ /opt/i) {
480 if($_[0]->in('REFERENCE') or $_[0]->in('BOOK')) {
489 if($_[0]->in('REFERENCE') or $_[0]->in('BOOK')) {
494 elsif(exists $_[0]->parent->ext->{'title'}) {
497 $_[0]->parent->ext->{'title'} = $title;
509 sgml('</ATTRIBUTION>', sub { $_[0]->parent->ext->{'attribution'} = pop_output(); });
594 if($_[0]->in('TOKEN')) {
600 if($_[0]->in('TOKEN')) {
680 if($_[0]->parent->ext->{'nobreak'}==1) {
684 $_[0]->parent->ext->{'nobreak'} = 2;
685 } elsif($_[0]->parent->ext->{'nobreak'}==2) {
725 $_[0]->ext->{'title'} = 'ABSTRACT';
734 output ".SS \"", uc($_[0]->ext->{'title'}), "\"\n";
776 $_[0]->ext->{'title'} = '';
785 if($_[0]->ext->{'title'}) {
786 output ".B \"", $_[0]->ext->{'title'}, ":\"\n";
791 if($_[0]->ext->{'attribution'}) {
795 output $_[0]->ext->{'attribution'} . "\n";
816 output ".B \"" . $_[0]->ext->{'title'} . ":\"\n";
826 $_[0]->ext->{'title'} = 'Note';
838 $_[0]->ext->{'title'} = 'Warning';
845 $_[0]->ext->{'title'} = 'Tip';
851 $_[0]->ext->{'title'} = 'Caution';
858 $_[0]->ext->{'title'} = 'Important';
884 if($_[0]->parent->ext->{'nobreak'}==1) {
888 $_[0]->parent->ext->{'nobreak'} = 2;
963 $_[0]->ext->{'count'} = 1;
985 if($_[0]->in('ITEMIZEDLIST')) {
992 elsif($_[0]->in('ORDEREDLIST')) {
994 output ".TP ", $_[0]->parent->ext->{'count'}++, ". \n";
997 $_[0]->ext->{'nobreak'} = 1;
1001 $_[0]->ext->{'first_member'} = 1;
1005 my $parent = $_[0]->parent;
1067 my $id = $_[0]->attribute('LINKEND')->value;
1114 elsif($raw_cdata) { output $_[0]; return; }
1117 $_[0] =~ s/\\/\\\\/g;
1122 $_[0] =~ tr/\t/ /;
1127 $_[0] =~ s/^ +//;
1130 if($_[0] eq '') { return; }
1132 $_[0] =~ s/^\./\\\&\./;
1135 $_[0] =~ s/^\'/\\\&\'/;
1141 output $_[0];
1156 sgml('sdata',sub { die "Unknown SDATA: " . $_[0]; });
1157 sgml('pi',sub { die "Unknown processing instruction: " . $_[0]; });
1158 sgml('entity',sub { die "Unknown external entity: " . $_[0]->name; });
1159 sgml('start_subdoc',sub { die "Unknown subdoc entity: " . $_[0]->name; });