Rooba
/
cpython
mirror of https://github.com/python/cpython.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

More magic to tighten up a little of the formatting.

This commit is contained in:
Fred Drake 1999-02-05 18:31:29 +00:00
parent f9918f25b1
commit 2ff880e2cf
1 changed files with 26 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
Doc/perl/python.perl
View File

@ -101,9 +101,14 @@ sub use_wrappers{
return $before . $stuff . $after . $_; return $before . $stuff . $after . $_;
} }
sub use_current{ sub use_env_wrappers{
return use_wrappers(@_[0], '', ''); local($_,$before,$after,$tag) = @_;
push(@open_tags,$tag);
my $s = join('', $before,
translate_commands(next_argument()), $after, $_);
return $s;
} }
sub use_sans_serif{ sub use_sans_serif{
return use_wrappers(@_[0], '<font face="sans-serif">', '</font>'); return use_wrappers(@_[0], '<font face="sans-serif">', '</font>');
} }
@ -121,9 +126,9 @@ sub do_cmd_optional{
# output files for users that read them over the network rather than # output files for users that read them over the network rather than
# from local repositories. # from local repositories.
sub do_cmd_pytype{ return use_current(@_); } sub do_cmd_pytype{ return @_[0]; }
sub do_cmd_makevar{ return use_current(@_); } sub do_cmd_makevar{ return @_[0]; }
sub do_cmd_code{ return use_wrappers(@_[0], '<tt>', '</tt>'); } sub do_cmd_code{ return use_env_wrappers(@_[0], '<tt>', '</tt>', 'tt'); }
sub do_cmd_module{ return do_cmd_code(@_); } sub do_cmd_module{ return do_cmd_code(@_); }
sub do_cmd_keyword{ return do_cmd_code(@_); } sub do_cmd_keyword{ return do_cmd_code(@_); }
sub do_cmd_exception{ return do_cmd_code(@_); } sub do_cmd_exception{ return do_cmd_code(@_); }
@ -140,11 +145,19 @@ sub do_cmd_character{ return do_cmd_samp(@_); }
sub do_cmd_program{ return do_cmd_strong(@_); } sub do_cmd_program{ return do_cmd_strong(@_); }
sub do_cmd_email{ return use_sans_serif(@_); } sub do_cmd_email{ return use_sans_serif(@_); }
sub do_cmd_mimetype{ return use_sans_serif(@_); } sub do_cmd_mimetype{ return use_sans_serif(@_); }
sub do_cmd_var{ return use_italics(@_); } sub do_cmd_var{
local($_, *open_args) = @_;
my $prevtag = $open_args[(scalar @open_args) - 1];
if ($prevtag eq "code" || $prevtag eq "tt") {
# in code of some sort....
my $text = next_argument();
return "</$prevtag><i>$text</i><$prevtag>$_";
}
return use_italics(@_); }
sub do_cmd_dfn{ return use_italics(@_); } # make an index entry? sub do_cmd_dfn{ return use_italics(@_); } # make an index entry?
sub do_cmd_emph{ return use_italics(@_); } sub do_cmd_emph{ return use_italics(@_); }
sub do_cmd_file{ return use_wrappers(@_[0], '"<tt>', '</tt>"'); } sub do_cmd_file{ return use_wrappers(@_[0], '"<tt>', '</tt>"'); }
sub do_cmd_samp{ return use_wrappers(@_[0], '"<tt>', '</tt>"'); } sub do_cmd_samp{ return use_env_wrappers(@_[0], '"<tt>', '</tt>"', 'tt'); }
sub do_cmd_kbd{ return use_wrappers(@_[0], '<kbd>', '</kbd>'); } sub do_cmd_kbd{ return use_wrappers(@_[0], '<kbd>', '</kbd>'); }
sub do_cmd_strong{ return use_wrappers(@_[0], '<b>', '</b>'); } sub do_cmd_strong{ return use_wrappers(@_[0], '<b>', '</b>'); }
@ -1024,4 +1037,10 @@ sub do_cmd_term{
} }
process_commands_wrap_deferred(<<_RAW_ARG_DEFERRED_CMDS_);
code # {}
samp # {}
_RAW_ARG_DEFERRED_CMDS_
1; # This must be the last line 1; # This must be the last line