From 90fdda5404c73a2bd15200fe0033a7d6d2b44720 Mon Sep 17 00:00:00 2001 From: Fred Drake Date: Tue, 16 Feb 1999 20:27:42 +0000 Subject: [PATCH] Become more stylesheet-friendly. --- Doc/perl/python.perl | 165 ++++++++++++++++++++++++++----------------- 1 file changed, 99 insertions(+), 66 deletions(-) diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 61f55d5bef..73a04ca425 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -120,30 +120,54 @@ sub do_cmd_optional{ sub do_cmd_pytype{ return @_[0]; } sub do_cmd_makevar{ return @_[0]; } -sub do_cmd_code{ return use_wrappers(@_[0], '', ''); } -sub do_cmd_module{ return do_cmd_code(@_); } -sub do_cmd_keyword{ return do_cmd_code(@_); } -sub do_cmd_exception{ return do_cmd_code(@_); } -sub do_cmd_class{ return do_cmd_code(@_); } -sub do_cmd_function{ return do_cmd_code(@_); } -sub do_cmd_constant{ return do_cmd_code(@_); } -sub do_cmd_member{ return do_cmd_code(@_); } -sub do_cmd_method{ return do_cmd_code(@_); } -sub do_cmd_cfunction{ return do_cmd_code(@_); } -sub do_cmd_cdata{ return do_cmd_code(@_); } -sub do_cmd_ctype{ return do_cmd_code(@_); } -sub do_cmd_regexp{ return do_cmd_code(@_); } -sub do_cmd_character{ return do_cmd_samp(@_); } -sub do_cmd_program{ return do_cmd_strong(@_); } -sub do_cmd_email{ return use_sans_serif(@_); } -sub do_cmd_mimetype{ return use_sans_serif(@_); } -sub do_cmd_var{ return use_wrappers(@_[0], "", ""); } -sub do_cmd_dfn{ return use_italics(@_); } # make an index entry? -sub do_cmd_emph{ return use_italics(@_); } -sub do_cmd_file{ return use_wrappers(@_[0], '"', '"'); } -sub do_cmd_samp{ return use_wrappers(@_[0], '"', '"'); } -sub do_cmd_kbd{ return use_wrappers(@_[0], '', ''); } -sub do_cmd_strong{ return use_wrappers(@_[0], '', ''); } +sub do_cmd_code{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_module{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_keyword{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_exception{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_class{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_function{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_constant{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_member{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_method{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_cfunction{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_cdata{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_ctype{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_regexp{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_character{ + return use_wrappers(@_[0], '"', '"'); } +sub do_cmd_program{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_email{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_mimetype{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_var{ + return use_wrappers(@_[0], "", ""); } +sub do_cmd_dfn{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_emph{ + return use_italics(@_); } +sub do_cmd_file{ + return use_wrappers(@_[0], '"', '"'); } +sub do_cmd_samp{ + return use_wrappers(@_[0], '"', '"'); } +sub do_cmd_kbd{ + return use_wrappers(@_[0], '', ''); } +sub do_cmd_strong{ + return use_wrappers(@_[0], '', ''); } sub do_cmd_refmodule{ # Insert the right magic to jump to the module definition. @@ -152,14 +176,14 @@ sub do_cmd_refmodule{ my $module = next_argument(); $key = $module unless $key; - return "$module" . $_; + return "$module" . $_; } sub do_cmd_newsgroup{ local($_) = @_; my $newsgroup = next_argument(); - my $stuff = "" - . "$newsgroup"; + my $stuff = "" + . "$newsgroup"; return $stuff . $_; } @@ -172,7 +196,7 @@ sub do_cmd_envvar{ add_index_entry("environment variables!$envvar@\$$envvar", $ahref); add_index_entry("$envvar@\$$envvar", $ahref); - return "$aname\$$envvar" . $_; + return "$aname\$$envvar" . $_; } @@ -181,7 +205,7 @@ sub do_cmd_url{ local($_) = @_; my $url = next_argument(); $url =~ s/~/~/g; - return "$url" . $_; + return "$url" . $_; } sub do_cmd_manpage{ @@ -189,7 +213,7 @@ sub do_cmd_manpage{ local($_) = @_; my $page = next_argument(); my $section = next_argument(); - return "$page($section)" . $_; + return "$page($section)" . $_; } sub do_cmd_rfc{ @@ -201,7 +225,8 @@ sub do_cmd_rfc{ # Save the reference my $nstr = gen_index_id("RFC!RFC $rfcnumber", ''); $index{$nstr} .= make_half_href("$CURRENT_FILE#$id"); - return "RFC $rfcnumber" .$_; + return ("" + . "RFC $rfcnumber" .$_); } sub do_cmd_deprecated{ @@ -313,7 +338,7 @@ sub new_link_info{ sub do_cmd_index{ local($_) = @_; my $str = next_argument(); - swallow_newline(); +# swallow_newline(); # my($name,$aname,$ahref) = new_link_info(); add_index_entry("$str", $ahref); @@ -373,14 +398,14 @@ sub do_cmd_ttindex{ local($_) = @_; my $str = next_argument(); my $entry = $str . get_indexsubitem(); - swallow_newline(); +# swallow_newline(); return make_index_entry($entry) . $_; } sub my_typed_index_helper{ local($word,$_) = @_; my $str = next_argument(); - swallow_newline(); +# swallow_newline(); # my($name,$aname,$ahref) = new_link_info(); add_index_entry("$str $word", $ahref); @@ -396,7 +421,7 @@ sub do_cmd_obindex{ return my_typed_index_helper('object', @_); } sub my_parword_index_helper{ local($word,$_) = @_; my $str = next_argument(); - swallow_newline(); +# swallow_newline(); return make_index_entry("$str ($word)") . $_; } @@ -435,14 +460,14 @@ sub define_module{ sub my_module_index_helper{ local($word, $_) = @_; my $name = next_argument(); - swallow_newline(); +# swallow_newline(); return define_module($word, $name) . $_; } sub ref_module_index_helper{ local($word, $_) = @_; my $str = next_argument(); - swallow_newline(); +# swallow_newline(); $word = "$word " if $word; return make_mod_index_entry("$str (${word}module)", 'REF') . $_; } @@ -451,7 +476,7 @@ sub do_cmd_bifuncindex{ local($_) = @_; my $str = next_argument(); my $fname = "$str()"; - swallow_newline(); +# swallow_newline(); return make_index_entry("$fname (built-in function)") . $_; } @@ -490,7 +515,7 @@ sub do_env_cfuncdesc{ my $return_type = next_argument(); my $function_name = next_argument(); my $arg_list = next_argument(); - my $idx = make_str_index_entry("$function_name()" + my $idx = make_str_index_entry("$function_name()" . get_indexsubitem()); $idx =~ s/ \(.*\)//; $idx =~ s/\(\)//; # ???? @@ -502,7 +527,8 @@ sub do_env_cfuncdesc{ sub do_env_ctypedesc{ local($_) = @_; my $type_name = next_argument(); - my $idx = make_str_index_entry("$type_name" . get_indexsubitem()); + my $idx = make_str_index_entry("$type_name" + . get_indexsubitem()); $idx =~ s/ \(.*\)//; return "
$idx\n
" . $_ @@ -513,7 +539,8 @@ sub do_env_cvardesc{ local($_) = @_; my $var_type = next_argument(); my $var_name = next_argument(); - my $idx = make_str_index_entry("$var_name" . get_indexsubitem()); + my $idx = make_str_index_entry("$var_name" + . get_indexsubitem()); $idx =~ s/ \(.*\)//; return "
$var_type $idx\n" . '
' @@ -525,7 +552,7 @@ sub do_env_funcdesc{ local($_) = @_; my $function_name = next_argument(); my $arg_list = next_argument(); - my $idx = make_str_index_entry("$function_name()" + my $idx = make_str_index_entry("$function_name()" . get_indexsubitem()); $idx =~ s/ \(.*\)//; $idx =~ s/\(\)<\/tt>/<\/tt>/; @@ -536,16 +563,18 @@ sub do_env_funcdescni{ local($_) = @_; my $function_name = next_argument(); my $arg_list = next_argument(); - return "
$function_name ($arg_list)\n" - . "
" - . $_ . '
'; + return "
$function_name" + . " ($arg_list)\n" + . '
' + . $_ + . '
'; } sub do_cmd_funcline{ local($_) = @_; my $function_name = next_argument(); my $arg_list = next_argument(); - my $idx = make_str_index_entry("$function_name()" + my $idx = make_str_index_entry("$function_name()" . get_indexsubitem()); $idx =~ s/\(\)//; return "
$idx ($arg_list)\n
" . $_; @@ -564,11 +593,11 @@ sub do_env_opcodedesc{ my $idx; if ($INDEX_OPCODES) { $idx = make_str_index_entry( - "$opcode_name (byte code instruction)"); + "$opcode_name (byte code instruction)"); $idx =~ s/ \(byte code instruction\)//; } else { - $idx = "$opcode_name"; + $idx = "$opcode_name"; } my $stuff = "
$idx"; if ($arg_list) { @@ -607,7 +636,7 @@ sub do_cmd_dataline{ sub do_env_excdesc{ local($_) = @_; my $excname = next_argument(); - my $idx = make_str_index_entry("$excname"); + my $idx = make_str_index_entry("$excname"); return "
$idx\n
" . $_ . '
' } @@ -619,7 +648,7 @@ sub do_env_classdesc{ $THIS_CLASS = next_argument(); my $arg_list = next_argument(); $idx = make_str_index_entry( - "$THIS_CLASS (class in $THIS_MODULE)" ); + "$THIS_CLASS (class in $THIS_MODULE)" ); $idx =~ s/ \(.*\)//; return "
$idx ($arg_list)\n
" . $_ . '
'; } @@ -636,7 +665,7 @@ sub do_env_methoddesc{ if ($class_name) { $extra = " ($class_name method)"; } - my $idx = make_str_index_entry("$method()$extra"); + my $idx = make_str_index_entry("$method()$extra"); $idx =~ s/ \(.*\)//; $idx =~ s/\(\)//; return "
$idx ($arg_list)\n
" . $_ . '
'; @@ -654,7 +683,7 @@ sub do_cmd_methodline{ if ($class_name) { $extra = " ($class_name method)"; } - my $idx = make_str_index_entry("$method()$extra"); + my $idx = make_str_index_entry("$method()$extra"); $idx =~ s/ \(.*\)//; $idx =~ s/\(\)//; return "
$idx ($arg_list)\n
" @@ -707,7 +736,7 @@ sub do_cmd_memberline{ my $extra = ''; $extra = " ($class_name attribute)" if (!($class eq '')); - my $idx = make_str_index_entry("$member$extra"); + my $idx = make_str_index_entry("$member$extra"); $idx =~ s/ \(.*\)//; $idx =~ s/\(\)//; return "
$idx
" . $_; @@ -862,11 +891,10 @@ sub do_cmd_lineiv{ sub do_cmd_maketitle { local($_) = @_; - my $the_title = ''; + my $the_title = "\n
"; if ($t_title) { - $the_title .= "

$t_title

"; + $the_title .= "\n

$t_title

"; } else { write_warnings("\nThis document has no title."); } - $the_title .= "\n
"; if ($t_author) { if ($t_authorURL) { my $href = translate_commands($t_authorURL); @@ -889,13 +917,13 @@ sub do_cmd_maketitle { $the_title .= "
Release $PYTHON_VERSION";} $the_title .= "

" } - $the_title .= "\n
"; if ($t_address) { $the_title .= "\n

$t_address

"; } else { $the_title .= "\n

"} if ($t_email) { $the_title .= "\n

$t_email

"; }# else { $the_title .= "

" } + $the_title .= "\n
"; return $the_title . $_ ; } @@ -961,7 +989,7 @@ sub do_cmd_modulesynopsis{ local($_) = @_; my $st = get_synopsis_table(get_chapter_id()); $st->set_synopsis($THIS_MODULE, next_argument()); - swallow_newline(); +# swallow_newline(); return $_; } @@ -987,7 +1015,10 @@ sub process_all_localmoduletables{ # sub do_env_seealso{ - return "

See Also:

\n" . @_[0]; + return "
\n " + . "

See Also:

\n" + . @_[0] + . '
'; } sub do_cmd_seemodule{ @@ -999,13 +1030,15 @@ sub do_cmd_seemodule{ my $text = next_argument(); $key = $module unless $key; - return "

Module $module" - . "   ($text)

" - . $_; + return '
' + . "\n

Module " + . "$module" + . "   ($text)

\n
" + . $_; } sub do_cmd_seetext{ - return '

' . @_[0]; + return '

' . @_[0] . '

'; } @@ -1015,15 +1048,15 @@ sub do_cmd_seetext{ sub do_env_definitions{ local($_) = @_; - swallow_newline(); - return "
$_
\n"; +# swallow_newline(); + return "
$_
\n"; } sub do_cmd_term{ local($_) = @_; my $term = next_argument(); my($name,$aname,$ahref) = new_link_info(); - swallow_newline(); +# swallow_newline(); # could easily add an index entry here... return "
$aname" . $term . "\n
" . $_; } -- 2.49.0