# myformat.perl by Guido van Rossum 25 Jan 1994 # # Extension to LaTeX2HTML for documents using myformat.sty. # Subroutines of the form do_cmd_ here define translations # for LaTeX commands \ defined in the corresponding .sty file. # # XXX Not complete: \indexii etc.; \funcitem etc. package main; # \bcode and \ecode brackets around verbatim sub do_cmd_bcode{ @_[0]; } sub do_cmd_ecode{ @_[0]; } # words typeset in a special way (not in HTML though) sub do_cmd_ABC{ join('', 'ABC', @_[0]); } sub do_cmd_UNIX{ join('', 'Unix', @_[0]); } sub do_cmd_ASCII{ join('', 'ASCII', @_[0]); } sub do_cmd_C{ join('', 'C', @_[0]); } sub do_cmd_Cpp{ join('', 'C++', @_[0]); } sub do_cmd_EOF{ join('', 'EOF', @_[0]); } sub do_cmd_e{ local($_) = @_; '\' . $_; } sub do_cmd_optional{ local($_) = @_; s/$any_next_pair_pr_rx/<\/VAR>\[<\/BIG>\2<\/VAR>\]<\/BIG>/; $_; } sub do_cmd_varvars{ local($_) = @_; s/$any_next_pair_pr_rx/\2<\/VAR>/; $_; } # texinfo-like formatting commands: \code{...} etc. sub do_cmd_code{ local($_) = @_; s/$any_next_pair_pr_rx/\2<\/CODE>/; $_; } sub do_cmd_sectcode{ &do_cmd_code(@_); } sub do_cmd_kbd{ local($_) = @_; s/$any_next_pair_pr_rx/\2<\/KBD>/; $_; } sub do_cmd_key{ local($_) = @_; s/$any_next_pair_pr_rx/\2<\/TT>/; $_; } sub do_cmd_samp{ local($_) = @_; s/$any_next_pair_pr_rx/`\2<\/SAMP>'/; $_; } sub do_cmd_var{ local($_) = @_; s/$any_next_pair_pr_rx/\2<\/VAR>/; $_; } sub do_cmd_file{ local($_) = @_; s/$any_next_pair_pr_rx/`\2<\/CODE>'/; $_; } sub do_cmd_dfn{ local($_) = @_; s/$any_next_pair_pr_rx/\2<\/DFN><\/I>/; $_; } sub do_cmd_emph{ local($_) = @_; s/$any_next_pair_pr_rx/\2<\/EM>/; $_; } sub do_cmd_strong{ local($_) = @_; s/$any_next_pair_pr_rx/\2<\/STRONG>/; $_; } # index commands sub do_cmd_indexii{ local($_) = @_; s/$next_pair_pr_rx//o; local($br_id1, $str1) = ($1, $2); s/$next_pair_pr_rx//o; local($br_id2, $str2) = ($1, $2); join('', &make_index_entry($br_id1, "$str1 $str2"), &make_index_entry($br_id2, "$str2, $str1"), $_); } sub do_cmd_indexiii{ local($_) = @_; s/$next_pair_pr_rx//o; local($br_id1, $str1) = ($1, $2); s/$next_pair_pr_rx//o; local($br_id2, $str2) = ($1, $2); s/$next_pair_pr_rx//o; local($br_id3, $str3) = ($1, $2); join('', &make_index_entry($br_id1, "$str1 $str2 $str3"), &make_index_entry($br_id2, "$str2 $str3, $str1"), &make_index_entry($br_id3, "$str3, $str1 $str2"), $_); } sub do_cmd_indexiv{ local($_) = @_; s/$next_pair_pr_rx//o; local($br_id1, $str1) = ($1, $2); s/$next_pair_pr_rx//o; local($br_id2, $str2) = ($1, $2); s/$next_pair_pr_rx//o; local($br_id3, $str3) = ($1, $2); s/$next_pair_pr_rx//o; local($br_id4, $str4) = ($1, $2); join('', &make_index_entry($br_id1, "$str1 $str2 $str3 $str4"), &make_index_entry($br_id2, "$str2 $str3 $str4, $str1"), &make_index_entry($br_id3, "$str3 $str4, $str1 $str2"), &make_index_entry($br_id4, "$str4, $str1 $str2 $str3"), $_); } sub do_cmd_ttindex{ &do_cmd_index(@_); } sub my_typed_index_helper{ local($word, $_) = @_; s/$next_pair_pr_rx//o; local($br_id, $str) = ($1, $2); join('', &make_index_entry($br_id, "$str $word"), &make_index_entry($br_id, "$word, $str"), $_); } sub do_cmd_stindex{ &my_typed_index_helper('statement', @_); } sub do_cmd_kwindex{ &my_typed_index_helper('keyword', @_); } sub do_cmd_opindex{ &my_typed_index_helper('operator', @_); } sub do_cmd_exindex{ &my_typed_index_helper('exception', @_); } sub do_cmd_obindex{ &my_typed_index_helper('object', @_); } sub my_parword_index_helper{ local($word, $_) = @_; s/$next_pair_pr_rx//o; local($br_id, $str) = ($1, $2); &make_index_entry($br_id, "$str ($word)"); $_; } sub do_cmd_bifuncindex{ &my_parword_index_helper('built-in function', @_); } sub do_cmd_bimodindex{ &my_parword_index_helper('built-in module', @_); } sub do_cmd_stmodindex{ &my_parword_index_helper('standard module', @_); } sub do_cmd_bifuncindex{ &my_parword_index_helper('standard module', @_); } sub do_cmd_nodename{ &do_cmd_label(@_); } $any_next_pair_rx3 = "$O(\\d+)$C([\\s\\S]*)$O\\3$C"; $new_command{"indexsubitem"} = ""; sub get_indexsubitem{ local($result) = $new_command{"indexsubitem"}; #print "\nget_indexsubitem ==> $result\n"; $result; } sub do_env_cfuncdesc{ local($_) = @_; local($return_type,$function_name,$arg_list) = ('', '', ''); local($cfuncdesc_rx) = "$next_pair_rx$any_next_pair_rx3$any_next_pair_rx5"; $* = 1; if (/$cfuncdesc_rx/o) { $return_type = "$2"; $function_name = "$4"; $arg_list = "$6"; &make_index_entry($3,"$function_name " . &get_indexsubitem); } $* = 0; "
$return_type $function_name" . "($arg_list)\n
$'\n
" } sub do_env_funcdesc{ local($_) = @_; local($function_name,$arg_list) = ('', ''); local($funcdesc_rx) = "$next_pair_rx$any_next_pair_rx3"; $* = 1; if (/$funcdesc_rx/o) { $function_name = "$2"; $arg_list = "$4"; &make_index_entry($1,"$function_name " . &get_indexsubitem); } $* = 0; "
$function_name" . "($arg_list)\n
$'\n
" } sub do_env_datadesc{ local($_) = @_; local($data_name) = ('', ''); local($datadesc_rx) = "$next_pair_rx"; $* = 1; if (/$datadesc_rx/o) { $data_name = "$2"; &make_index_entry($1,"$data_name " . &get_indexsubitem); } $* = 0; "
$data_name" . "\n
$'\n
" } sub do_env_excdesc{ &do_env_datadesc(@_); } 1; # This must be the last line