Re: latex2htmlで\multiply, \divideを使いたい。

名前: 人の注意を聞けないユーザー
日時: 2010-08-11 23:36:33
IPアドレス: 122.21.89.*

>>55140

丁寧に書いてくださりありがとうございます。
よく理解してやっているわけではありませんので、自信はないのですが、
以下のTesttest.tex, mycalc.sty, mycalc.perlのもとでlatex2htmlを実行
しますと、次のようなMessageが出力されました。

Reading ...
%%%%%%%%%%%%%,,,,,,++..
@@@@@@@@@@@@@@@@@@@

Translating ...
0/1:top of Testtest: for Testtest.html

 *** translating preamble ***
........
Warning: No implementation found for package: calc.
 *** preamble done ***
;.........
*** cannot set counter imogC to 14/10 ***
...
*** cannot set counter imfirst to 14-10*14 ***
....;

1/1:sectionstar:.."この文書について..." for node1.html
;;.

Doing section links ......

*********** WARNINGS ***********
No implementation found for style `calc'

%%%%%%Testtest.tex

\documentclass[a4j,11pt]{jsarticle}

\usepackage{html}

\latexhtml{\usepackage{calc}}{\usepackage{mycalc}}

\newcounter{imogA}
\newcounter{imogB}
\newcounter{imogC}
\newcounter{tkage}
\newcounter{imfirst}
%
\newcommand{\wakawaka}{%
\setcounter{imogC}{\value{tkage}}%
\setcounter{imogA}{\value{imogC}}%
\setcounter{imogB}{\value{imogA}}%
\latexonly
  \setcounter{imogC}{\value{imogA}/10}%
  \setcounter{imfirst}{\value{imogB}-10*\value{imogC}}%
\endlatexonly
\htmlonly
  \setcounter{imogC}{\Div{\value{imogA}}{10}}%
  \setcounter{imfirst}{\Sub{\value{imogB}}{\Mul{10}{\value{imogC}}}}%
\endhtmlonly
[\theimfirst]%
\addtocounter{tkage}{1}%
}%
%
\setcounter{tkage}{14}
%
%
\begin{document}

\wakawaka

これはテスト。

\end{document}

%%%%%%  mycalc.sty

newcommand{\Mul}[2]{}
\newcommand{\Div}[2]{}
\newcommand{\Add}[2]{}
\newcommand{\Sub}[2]{}

%%%%%%%   mycalc.perl


 package main;

  sub do_cmd_Div{
      local($_) = @_;
      local($x,$y);
      s/$next_pair_pr_rx//e; $x=$2;
      s/$next_pair_pr_rx//e; $y=$2;
      int($x/$y);
  }

sub do_cmd_Mul{
      local($_) = @_;
      local($x,$y);
      s/$next_pair_pr_rx//e; $x=$2;
      s/$next_pair_pr_rx//e; $y=$2;
      int($x*$y);
  }

sub do_cmd_Add{
      local($_) = @_;
      local($x,$y);
      s/$next_pair_pr_rx//e; $x=$2;
      s/$next_pair_pr_rx//e; $y=$2;
      int($x+$y);
  }

sub do_cmd_Sub{
      local($_) = @_;
      local($x,$y);
      s/$next_pair_pr_rx//e; $x=$2;
      s/$next_pair_pr_rx//e; $y=$2;
      int($x-$y);
  }

  1;

この書き込みへの返事：