From f547863c63020fdc886d8c601fd712ccce7e90f3 Mon Sep 17 00:00:00 2001 From: Fred Drake Date: Thu, 23 May 2002 17:59:16 +0000 Subject: Use Perl function prototypes to help avoid definition/usage mismatches while modifying these files. Minor style changes to make the use of "my" with arrays more consistent. --- Doc/perl/l2hinit.perl | 40 ++++++------ Doc/perl/python.perl | 168 ++++++++++++++++++++++++++------------------------ 2 files changed, 106 insertions(+), 102 deletions(-) diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index da371bd..ab00b50 100644 --- a/Doc/perl/l2hinit.perl +++ b/Doc/perl/l2hinit.perl @@ -99,8 +99,8 @@ sub custom_driver_hook { $CUSTOM_BUTTONS = ''; -sub make_nav_sectref { - my($label,$title) = @_; +sub make_nav_sectref($$) { + my($label, $title) = @_; if ($title) { if ($title =~ /\<[aA] /) { $title =~ s/\<[aA] /"; } -sub use_my_icon { +sub use_my_icon($) { my $s = @_[0]; if ($s =~ /\/) { my $r = get_my_icon($1); @@ -150,7 +150,7 @@ sub use_my_icon { return $s; } -sub make_nav_panel { +sub make_nav_panel() { my $s; my $BLANK_ICON = get_my_icon('blank'); $NEXT = $NEXT_TITLE ? use_my_icon("$NEXT") : $BLANK_ICON; @@ -192,7 +192,7 @@ sub add_child_links { return $toc; } -sub get_version_text { +sub get_version_text() { if ($PACKAGE_VERSION ne '' && $t_date) { return ("" . "Release $PACKAGE_VERSION$RELEASE_INFO," @@ -210,13 +210,13 @@ sub get_version_text { } -sub top_navigation_panel { +sub top_navigation_panel() { return "\n" . make_nav_panel() . "
\n"; } -sub bot_navigation_panel { +sub bot_navigation_panel() { return "\n

\n" . make_nav_panel() . "
\n" @@ -255,7 +255,7 @@ sub add_link { return (&inactive_img($icon), ""); } -sub add_special_link { +sub add_special_link($$$) { my($icon, $file, $current_file) = @_; if ($icon =~ /\/) { my $r = get_my_icon($1); @@ -281,14 +281,14 @@ sub do_cmd_arabic { } -sub gen_index_id { +sub gen_index_id($$) { # this is used to ensure common index key generation and a stable sort - my($str,$extra) = @_; + my($str, $extra) = @_; sprintf('%s###%s%010d', $str, $extra, ++$global{'max_id'}); } -sub insert_index { - my($mark,$datafile,$columns,$letters,$prefix) = @_; +sub insert_index($$$$$) { + my($mark, $datafile, $columns, $letters, $prefix) = @_; my $prog = "$myrootdir/tools/buildindex.py"; my $index; if ($letters) { @@ -302,7 +302,7 @@ sub insert_index { } } -sub add_idx { +sub add_idx() { print "\nBuilding HTML for the index ..."; close(IDXFILE); insert_index($idx_mark, 'index.dat', $INDEX_COLUMNS, 1, ''); @@ -312,7 +312,7 @@ sub add_idx { $idx_module_mark = ''; $idx_module_title = 'Module Index'; -sub add_module_idx { +sub add_module_idx() { print "\nBuilding HTML for the module index ..."; my $key; my $first = 1; @@ -391,7 +391,7 @@ sub do_cmd_tableofcontents { local($_) = @_; $TITLE = $toc_title; $tocfile = $CURRENT_FILE; - my($closures,$reopens) = preserve_open_tags(); + my($closures, $reopens) = preserve_open_tags(); anchor_label('contents', $CURRENT_FILE, $_); # this is added join('', "
\n\\tableofchildlinks[off]", $closures , make_section_heading($toc_title, 'H2'), $toc_mark @@ -402,7 +402,7 @@ sub do_cmd_listoffigures { local($_) = @_; $TITLE = $lof_title; $loffile = $CURRENT_FILE; - my($closures,$reopens) = preserve_open_tags(); + my($closures, $reopens) = preserve_open_tags(); anchor_label('lof', $CURRENT_FILE, $_); # this is added join('', "
\n", $closures , make_section_heading($lof_title, 'H2'), $lof_mark @@ -413,7 +413,7 @@ sub do_cmd_listoftables { local($_) = @_; $TITLE = $lot_title; $lotfile = $CURRENT_FILE; - my($closures,$reopens) = preserve_open_tags(); + my($closures, $reopens) = preserve_open_tags(); anchor_label('lot', $CURRENT_FILE, $_); # this is added join('', "
\n", $closures , make_section_heading($lot_title, 'H2'), $lot_mark @@ -455,7 +455,7 @@ sub do_cmd_textohtmlindex { if (($SHORT_INDEX) && (%index_segment)) { make_preindex(); } else { $preindex = ''; } my $heading = make_section_heading($idx_title, 'h2') . $idx_mark; - my($pre,$post) = minimize_open_tags($heading); + my($pre, $post) = minimize_open_tags($heading); anchor_label('genindex',$CURRENT_FILE,$_); # this is added return "
\n" . $pre . $_; } @@ -585,7 +585,7 @@ sub set_depth_levels { # doctype declaration; MSIE5 on NT4 SP4 barfs on it and drops the # content of the page. $MY_PARTIAL_HEADER = ''; -sub make_head_and_body { +sub make_head_and_body($$) { my($title, $body) = @_; $body = " $body" unless ($body eq ''); my $DTDcomment = ''; diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 5d33a6b..38c174f 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -20,7 +20,7 @@ sub next_argument{ } sub next_optional_argument{ - my($param,$rx) = ('', "^\\s*(\\[([^]]*)\\])?"); + my($param, $rx) = ('', "^\\s*(\\[([^]]*)\\])?"); s/$rx/$param=$2;''/eo; return $param; } @@ -150,7 +150,7 @@ sub do_cmd_hackscore{ return '_' . $_; } -sub use_wrappers{ +sub use_wrappers($$$){ local($_,$before,$after) = @_; my $stuff = next_argument(); return $before . $stuff . $after . $_; @@ -297,7 +297,7 @@ sub do_cmd_newsgroup{ sub do_cmd_envvar{ local($_) = @_; my $envvar = next_argument(); - my($name,$aname,$ahref) = new_link_info(); + my($name, $aname, $ahref) = new_link_info(); # The here is really to keep buildindex.py from making # the variable name case-insensitive. add_index_entry("environment variables!$envvar@$envvar", @@ -395,7 +395,7 @@ sub do_cmd_deprecated{ . $_); } -sub versionnote{ +sub versionnote($$){ # one or two parameters: \versionnote[explanation]{version} my $type = @_[0]; local $_ = @_[1]; @@ -409,11 +409,11 @@ sub versionnote{ } sub do_cmd_versionadded{ - return versionnote('New', @_); + return versionnote('New', @_[0]); } sub do_cmd_versionchanged{ - return versionnote('Changed', @_); + return versionnote('Changed', @_[0]); } # @@ -441,7 +441,7 @@ sub do_cmd_ignorePlatformAnnotation{ $INDEX_SUBITEM = ""; -sub get_indexsubitem{ +sub get_indexsubitem(){ return $INDEX_SUBITEM ? " $INDEX_SUBITEM" : ''; } @@ -487,27 +487,27 @@ print INTLABELS "1; # hack in case there are no entries\n\n"; # $IDXFILE_FIELD_SEP = "\1"; -sub write_idxfile{ - my ($ahref, $str) = @_; +sub write_idxfile($$){ + my($ahref, $str) = @_; print IDXFILE $ahref, $IDXFILE_FIELD_SEP, $str, "\n"; } -sub gen_link{ - my($node,$target) = @_; +sub gen_link($$){ + my($node, $target) = @_; print INTLABELS "\$internal_labels{\"$target\"} = \"$URL/$node\";\n"; return ""; } -sub add_index_entry{ +sub add_index_entry($$){ # add an entry to the index structures; ignore the return value - my($str,$ahref) = @_; + my($str, $ahref) = @_; $str = gen_index_id($str, ''); $index{$str} .= $ahref; write_idxfile($ahref, $str); } -sub new_link_info{ +sub new_link_info(){ my $name = "l2h-" . ++$globals{'max_id'}; my $aname = ""; my $ahref = gen_link($CURRENT_FILE, $name); @@ -515,7 +515,7 @@ sub new_link_info{ } $IndexMacroPattern = ''; -sub define_indexing_macro{ +sub define_indexing_macro(@){ my $count = @_; my $i = 0; for (; $i < $count; ++$i) { @@ -535,11 +535,11 @@ sub define_indexing_macro{ } $DEBUG_INDEXING = 0; -sub process_index_macros{ +sub process_index_macros($$){ local($_) = @_; my $cmdname = @_[1]; # This is what triggered us in the first place; # we know it's real, so just process it. - my($name,$aname,$ahref) = new_link_info(); + my($name, $aname, $ahref) = new_link_info(); my $cmd = "idx_cmd_$cmdname"; print "\nIndexing: \\$cmdname" if $DEBUG_INDEXING; @@ -564,20 +564,20 @@ sub process_index_macros{ } define_indexing_macro('index'); -sub idx_cmd_index{ +sub idx_cmd_index($){ my $str = next_argument(); add_index_entry("$str", @_[0]); } define_indexing_macro('kwindex'); -sub idx_cmd_kwindex{ +sub idx_cmd_kwindex($){ my $str = next_argument(); add_index_entry("$str!keyword", @_[0]); add_index_entry("keyword!$str", @_[0]); } define_indexing_macro('indexii'); -sub idx_cmd_indexii{ +sub idx_cmd_indexii($){ my $str1 = next_argument(); my $str2 = next_argument(); add_index_entry("$str1!$str2", @_[0]); @@ -585,7 +585,7 @@ sub idx_cmd_indexii{ } define_indexing_macro('indexiii'); -sub idx_cmd_indexiii{ +sub idx_cmd_indexiii($){ my $str1 = next_argument(); my $str2 = next_argument(); my $str3 = next_argument(); @@ -595,7 +595,7 @@ sub idx_cmd_indexiii{ } define_indexing_macro('indexiv'); -sub idx_cmd_indexiv{ +sub idx_cmd_indexiv($){ my $str1 = next_argument(); my $str2 = next_argument(); my $str3 = next_argument(); @@ -607,36 +607,36 @@ sub idx_cmd_indexiv{ } define_indexing_macro('ttindex'); -sub idx_cmd_ttindex{ +sub idx_cmd_ttindex($){ my $str = next_argument(); my $entry = $str . get_indexsubitem(); add_index_entry($entry, @_[0]); } -sub my_typed_index_helper{ - my($word,$ahref) = @_; +sub my_typed_index_helper($$){ + my($word, $ahref) = @_; my $str = next_argument(); add_index_entry("$str $word", $ahref); add_index_entry("$word!$str", $ahref); } define_indexing_macro('stindex', 'opindex', 'exindex', 'obindex'); -sub idx_cmd_stindex{ my_typed_index_helper('statement', @_[0]); } -sub idx_cmd_opindex{ my_typed_index_helper('operator', @_[0]); } -sub idx_cmd_exindex{ my_typed_index_helper('exception', @_[0]); } -sub idx_cmd_obindex{ my_typed_index_helper('object', @_[0]); } +sub idx_cmd_stindex($){ my_typed_index_helper('statement', @_[0]); } +sub idx_cmd_opindex($){ my_typed_index_helper('operator', @_[0]); } +sub idx_cmd_exindex($){ my_typed_index_helper('exception', @_[0]); } +sub idx_cmd_obindex($){ my_typed_index_helper('object', @_[0]); } define_indexing_macro('bifuncindex'); -sub idx_cmd_bifuncindex{ +sub idx_cmd_bifuncindex($){ my $str = next_argument(); add_index_entry("$str() (built-in function)", @_[0]); } -sub make_mod_index_entry{ - my($str,$define) = @_; - my($name,$aname,$ahref) = new_link_info(); +sub make_mod_index_entry($$){ + my($str, $define) = @_; + my($name, $aname, $ahref) = new_link_info(); # equivalent of add_index_entry() using $define instead of '' $ahref =~ s/\#[-_a-zA-Z0-9]*\"/\"/ if ($define eq 'DEF'); @@ -657,8 +657,8 @@ sub make_mod_index_entry{ $THIS_MODULE = ''; $THIS_CLASS = ''; -sub define_module{ - my($word,$name) = @_; +sub define_module($$){ + my($word, $name) = @_; my $section_tag = join('', @curr_sec_id); if ($word ne "built-in" && $word ne "extension" && $word ne "standard" && $word ne "") { @@ -674,7 +674,7 @@ sub define_module{ "$name (${word}module)", 'DEF'); } -sub my_module_index_helper{ +sub my_module_index_helper($$){ local($word, $_) = @_; my $name = next_argument(); return define_module($word, $name) . $_; @@ -685,7 +685,7 @@ sub do_cmd_bimodindex{ return my_module_index_helper('built-in', @_); } sub do_cmd_exmodindex{ return my_module_index_helper('extension', @_); } sub do_cmd_stmodindex{ return my_module_index_helper('standard', @_); } -sub ref_module_index_helper{ +sub ref_module_index_helper($$){ my($word, $ahref) = @_; my $str = next_argument(); $word = "$word " if $word; @@ -700,14 +700,14 @@ sub ref_module_index_helper{ # these should be adjusted a bit.... define_indexing_macro('refmodindex', 'refbimodindex', 'refexmodindex', 'refstmodindex'); -sub idx_cmd_refmodindex{ return ref_module_index_helper('', @_); } -sub idx_cmd_refbimodindex{ return ref_module_index_helper('built-in', @_); } -sub idx_cmd_refexmodindex{ return ref_module_index_helper('extension', @_); } -sub idx_cmd_refstmodindex{ return ref_module_index_helper('standard', @_); } +sub idx_cmd_refmodindex($){ return ref_module_index_helper('', @_); } +sub idx_cmd_refbimodindex($){ return ref_module_index_helper('built-in', @_); } +sub idx_cmd_refexmodindex($){ return ref_module_index_helper('extension', @_);} +sub idx_cmd_refstmodindex($){ return ref_module_index_helper('standard', @_); } sub do_cmd_nodename{ return do_cmd_label(@_); } -sub init_myformat{ +sub init_myformat(){ $anchor_invisible_mark = ' '; $anchor_invisible_mark2 = ''; $anchor_mark = ''; @@ -718,9 +718,9 @@ init_myformat(); # Create an index entry, but include the string in the target anchor # instead of the dummy filler. # -sub make_str_index_entry{ - my($str) = @_; - my($name,$aname,$ahref) = new_link_info(); +sub make_str_index_entry($){ + my $str = @_[0]; + my($name, $aname, $ahref) = new_link_info(); add_index_entry($str, $ahref); return "$aname$str"; } @@ -819,7 +819,7 @@ sub do_cmd_productioncont{ . $_); } -sub process_grammar_files{ +sub process_grammar_files(){ my $lang; my $filename; local($_); @@ -857,7 +857,7 @@ sub process_grammar_files{ } } -sub strip_grammar_markup{ +sub strip_grammar_markup($){ local($_) = @_; s/\\productioncont/ /g; s/\\production(<<\d+>>)(.+)\1/\n\2 ::= /g; @@ -873,7 +873,7 @@ sub strip_grammar_markup{ $REFCOUNTS_LOADED = 0; -sub load_refcounts{ +sub load_refcounts(){ $REFCOUNTS_LOADED = 1; my $myname, $mydir, $myext; @@ -896,8 +896,8 @@ sub load_refcounts{ } } -sub get_refcount{ - my ($func, $param) = @_; +sub get_refcount($$){ + my($func, $param) = @_; load_refcounts() unless $REFCOUNTS_LOADED; return $REFCOUNTS{"$func:$param"}; @@ -907,8 +907,8 @@ sub get_refcount{ $TLSTART = ''; $TLEND = ''; -sub cfuncline_helper{ - my ($type, $name, $args) = @_; +sub cfuncline_helper($$$){ + my($type, $name, $args) = @_; my $idx = make_str_index_entry( "$name()" . get_indexsubitem()); $idx =~ s/ \(.*\)//; @@ -991,7 +991,7 @@ sub do_env_ctypedesc{ my $type_name = next_argument(); $index_name = $type_name unless $index_name; - my($name,$aname,$ahref) = new_link_info(); + my($name, $aname, $ahref) = new_link_info(); add_index_entry("$index_name (C type)", $ahref); return "
$aname$type_name\n
" . $_ @@ -1132,7 +1132,7 @@ sub do_env_excdesc{ sub do_env_fulllineitems{ return do_env_itemize(@_); } -sub handle_classlike_descriptor{ +sub handle_classlike_descriptor($$){ local($_, $what) = @_; $THIS_CLASS = next_argument(); my $arg_list = convert_args(next_argument()); @@ -1290,7 +1290,7 @@ sub do_cmd_memberlineni{ 'textrm' => '', ); -sub fix_font{ +sub fix_font($){ # do a little magic on a font name to get the right behavior in the first # column of the output table my $font = @_[0]; @@ -1300,7 +1300,7 @@ sub fix_font{ return $font; } -sub figure_column_alignment{ +sub figure_column_alignment($){ my $a = @_[0]; my $mark = substr($a, 0, 1); my $r = ''; @@ -1315,9 +1315,9 @@ sub figure_column_alignment{ return $r; } -sub setup_column_alignments{ +sub setup_column_alignments($){ local($_) = @_; - my($s1,$s2,$s3,$s4,$a5) = split(/[|]/,$_); + my($s1, $s2, $s3, $s4, $a5) = split(/[|]/,$_); my $a1 = figure_column_alignment($s1); my $a2 = figure_column_alignment($s2); my $a3 = figure_column_alignment($s3); @@ -1332,9 +1332,9 @@ sub setup_column_alignments{ return ("", "", "", "", ""); } -sub get_table_col1_fonts{ +sub get_table_col1_fonts(){ my $font = $globals{'lineifont'}; - my ($sfont,$efont) = ('', ''); + my($sfont, $efont) = ('', ''); if ($font) { $sfont = "<$font>"; $efont = ""; @@ -1345,7 +1345,8 @@ sub get_table_col1_fonts{ sub do_env_tableii{ local($_) = @_; - my($th1,$th2,$th3,$th4,$th5) = setup_column_alignments(next_argument()); + my $arg = next_argument(); + my($th1, $th2, $th3, $th4, $th5) = setup_column_alignments($arg); my $font = fix_font(next_argument()); my $h1 = next_argument(); my $h2 = next_argument(); @@ -1377,9 +1378,9 @@ sub do_cmd_lineii{ my $c1 = next_argument(); my $c2 = next_argument(); s/[\s\n]+//; - my($sfont,$efont) = get_table_col1_fonts(); + my($sfont, $efont) = get_table_col1_fonts(); $c2 = ' ' if ($c2 eq ''); - my($c1align,$c2align) = split('\|', $aligns); + my($c1align, $c2align) = split('\|', $aligns); my $padding = ''; if ($c1align =~ /align="right"/ || $c1 eq '') { $padding = ' '; @@ -1391,7 +1392,8 @@ sub do_cmd_lineii{ sub do_env_tableiii{ local($_) = @_; - my($th1,$th2,$th3,$th4,$th5) = setup_column_alignments(next_argument()); + my $arg = next_argument(); + my($th1, $th2, $th3, $th4, $th5) = setup_column_alignments($arg); my $font = fix_font(next_argument()); my $h1 = next_argument(); my $h2 = next_argument(); @@ -1427,9 +1429,9 @@ sub do_cmd_lineiii{ my $c2 = next_argument(); my $c3 = next_argument(); s/[\s\n]+//; - my($sfont,$efont) = get_table_col1_fonts(); + my($sfont, $efont) = get_table_col1_fonts(); $c3 = ' ' if ($c3 eq ''); - my($c1align,$c2align,$c3align) = split('\|', $aligns); + my($c1align, $c2align, $c3align) = split('\|', $aligns); my $padding = ''; if ($c1align =~ /align="right"/ || $c1 eq '') { $padding = ' '; @@ -1442,7 +1444,8 @@ sub do_cmd_lineiii{ sub do_env_tableiv{ local($_) = @_; - my($th1,$th2,$th3,$th4,$th5) = setup_column_alignments(next_argument()); + my $arg = next_argument(); + my($th1, $th2, $th3, $th4, $th5) = setup_column_alignments($arg); my $font = fix_font(next_argument()); my $h1 = next_argument(); my $h2 = next_argument(); @@ -1482,9 +1485,9 @@ sub do_cmd_lineiv{ my $c3 = next_argument(); my $c4 = next_argument(); s/[\s\n]+//; - my($sfont,$efont) = get_table_col1_fonts(); + my($sfont, $efont) = get_table_col1_fonts(); $c4 = ' ' if ($c4 eq ''); - my($c1align,$c2align,$c3align,$c4align) = split('\|', $aligns); + my($c1align, $c2align, $c3align, $c4align) = split('\|', $aligns); my $padding = ''; if ($c1align =~ /align="right"/ || $c1 eq '') { $padding = ' '; @@ -1498,7 +1501,8 @@ sub do_cmd_lineiv{ sub do_env_tablev{ local($_) = @_; - my($th1,$th2,$th3,$th4,$th5) = setup_column_alignments(next_argument()); + my $arg = next_argument(); + my($th1, $th2, $th3, $th4, $th5) = setup_column_alignments($arg); my $font = fix_font(next_argument()); my $h1 = next_argument(); my $h2 = next_argument(); @@ -1542,9 +1546,9 @@ sub do_cmd_linev{ my $c4 = next_argument(); my $c5 = next_argument(); s/[\s\n]+//; - my($sfont,$efont) = get_table_col1_fonts(); + my($sfont, $efont) = get_table_col1_fonts(); $c5 = ' ' if ($c5 eq ''); - my($c1align,$c2align,$c3align,$c4align,$c5align) = split('\|', $aligns); + my($c1align, $c2align, $c3align, $c4align, $c5align) = split('\|',$aligns); my $padding = ''; if ($c1align =~ /align="right"/ || $c1 eq '') { $padding = ' '; @@ -1576,7 +1580,7 @@ sub do_cmd_linev{ # $TITLE_PAGE_GRAPHIC_HEIGHT = 150; # $TITLE_PAGE_GRAPHIC_ON_RIGHT = 0; -sub make_my_titlepage() { +sub make_my_titlepage(){ my $the_title = ""; if ($t_title) { $the_title .= "\n

$t_title

"; @@ -1629,7 +1633,7 @@ sub make_my_titlepage() { return $the_title; } -sub make_my_titlegraphic() { +sub make_my_titlegraphic(){ my $filename = make_icon_filename($TITLE_PAGE_GRAPHIC); my $graphic = ""; if ($TITLE_PAGE_GRAPHIC) { @@ -1692,7 +1696,7 @@ sub get_chapter_id(){ %ModuleSynopses = (); sub get_synopsis_table($){ - my($chap) = @_; + my $chap = @_[0]; my $key; foreach $key (keys %ModuleSynopses) { if ($key eq $chap) { @@ -1747,7 +1751,7 @@ sub do_cmd_localmoduletable{ return "<$chap>\\tableofchildlinks[off]" . $_; } -sub process_all_localmoduletables{ +sub process_all_localmoduletables(){ my $key; my $st, $file; foreach $key (keys %ModuleSynopses) { @@ -1762,7 +1766,7 @@ sub process_all_localmoduletables{ } } -sub process_localmoduletables_in_file{ +sub process_localmoduletables_in_file($){ my $file = @_[0]; open(MYFILE, "<$file"); local($_); @@ -1780,7 +1784,7 @@ sub process_localmoduletables_in_file{ print MYFILE $_; close(MYFILE); } -sub process_python_state{ +sub process_python_state(){ process_all_localmoduletables(); process_grammar_files(); } @@ -1831,7 +1835,7 @@ sub strip_html_markup($){ return $s; } -sub handle_rfclike_reference{ +sub handle_rfclike_reference($$$){ local($_, $what, $format) = @_; my $rfcnum = next_argument(); my $title = next_argument(); @@ -1905,7 +1909,7 @@ sub do_env_definitions{ sub do_cmd_term{ local($_) = @_; my $term = next_argument(); - my($name,$aname,$ahref) = new_link_info(); + my($name, $aname, $ahref) = new_link_info(); # could easily add an index entry here... return "
$aname" . $term . "\n
" . $_; } @@ -1931,7 +1935,7 @@ _RAW_ARG_DEFERRED_CMDS_ $alltt_start = '
';
 $alltt_end = '
'; -sub do_env_alltt { +sub do_env_alltt{ local ($_) = @_; local($closures,$reopens,@open_block_tags); -- cgit v0.12