Lines Matching refs:debug
307 $debug = 0;
343 if (/^-d(ebug)?(\d+)?$/) { $debug = $2 || shift(@ARGV); next; }
666 push(@lines, &debug("<$format_map{$tag}>\n", __LINE__));
673 push(@lines, &debug("<TABLE BORDER>\n", __LINE__));
676 push(@lines, &debug("<DL COMPACT>\n", __LINE__));
692 push(@lines, &debug("<P>\n", __LINE__));
735 print "# user $tag = $sub, arg: $_" if $debug & $DEBUG_USER;
770 if $debug & $DEBUG_DEF;
775 $_ = &debug("<DT>", __LINE__);
777 $_ = &debug("<DL>\n<DT>", __LINE__);
794 $_ .= &debug("\n<DD>", __LINE__);
813 push(@lines, &debug("</$format_map{$end_tag}>\n", __LINE__));
839 push(@lines, &debug("</DL>\n", __LINE__));
879 $_ = &debug("\n\n<P><STRONG>$name</STRONG>\n\n", __LINE__);
881 $_ = &debug("<H$level>$name</H$level>\n", __LINE__);
885 if $debug & $DEBUG_TOC;
916 if $debug & $DEBUG_TOC;
921 if $debug & $DEBUG_TOC;
938 $_ = &debug($_, __LINE__);
970 if $debug & $DEBUG_INDEX;
992 push(@lines, &debug("<P>\n", __LINE__));
1011 if $debug & $DEBUG_BIB;
1020 if $debug & $DEBUG_GLOSS;
1027 push(@lines, &debug("<DT>$things_map{$in_table}\n", __LINE__));
1029 push(@lines, &debug("<DT>\@$in_table\{$what\}\n", __LINE__));
1037 push(@lines, &debug("<TR><TD>$what</TD>\n", __LINE__));
1040 push(@lines, &debug("</TR>\n", __LINE__));
1041 push(@lines, &debug("<TR><TD>$what</TD>\n", __LINE__));
1043 push(@lines, &debug("<LI>$what\n", __LINE__));
1048 push(@lines, &debug("$deferred_ref\n", __LINE__));
1063 $_ = &debug("\n", __LINE__);
1069 $_ = &debug($_, __LINE__);
1106 $in_menu = 1, push(@lines2, &debug("<UL>\n", __LINE__)), next if /^\@menu\b/;
1107 $in_menu = 0, push(@lines2, &debug("</UL>\n", __LINE__)), next if /^\@end\s+menu\b/;
1145 if $key ne $_ && $debug & $DEBUG_INDEX;
1714 if $debug & $DEBUG_HTML;
1718 # to debug the output...
1719 sub debug {
1722 if $debug & $DEBUG_HTML;