# ascmac.perl by Kouji KODAMA <kdm@kobe-kosen.ac.jp>
# copied from:
# ascmac.perl, version 3.0 1999/9/15
#
# ascmac.perl by Kenshi Muto <kmuto@debian.org>

# Implemented features:
#   Commands: \yen, \keytop{}, \return, \Return
#   Environments: screen, itembox, shadebox, boxnote

### shadebox と boxnote はscreen のコピ−で手抜き. (kdm)

# Not implemented for the followings:
# \ascii, \Ascii, \ASCII, \mask,
# \Maskbox{width}{height}{mask_char}{pos}{rule_wid}{body},
# \maskbox{width}{height}{mask_char}{pos}{body}

sub do_cmd_yen { local($_) = @_; "￥$_"; }
sub do_cmd_keytop{
	local($_)=@_;
	s/$next_pair_pr_rx//o; local($key)=&translate_commands($2);
	"[".$key."]".$_;
}
sub do_cmd_return {
  local($_) = @_;
  if ($HTML_VERSION < 4.0) {
    "[Enter]$_";
  } else {
    "<SPAN STYLE=\"border-width: thin; border-style: solid\">Enter</SPAN>$_";
  }
}
sub do_cmd_Return {
  local($_) = @_;
  if ($HTML_VERSION < 4.0) {
    "[Enter]$_";
  } else {
    "<SPAN STYLE=\"border-width: thin; border-style: solid\">Enter</SPAN>$_";
  }
}
sub do_env_screen {
  if ($HTML_VERSION < 4.0) {
    join('',"<TABLE BORDER=\"1\"><TR><TD>","@_","</TD></TR></TABLE>");
  } else {
    join('',"<DIV STYLE=\"border: inset blue; background-color: white\">","@_","</DIV>")
  }
}
sub do_env_shadebox{
  if ($HTML_VERSION < 4.0) {
    join('',"<TABLE BORDER=\"1\"><TR><TD>","@_","</TD></TR></TABLE>");
  } else {
    join('',"<DIV STYLE=\"border: inset blue; background-color: white\">","@_","</DIV>")
  }
}
sub do_env_boxnote{
  if ($HTML_VERSION < 4.0) {
    join('',"<TABLE BORDER=\"1\"><TR><TD>","@_","</TD></TR></TABLE>");
  } else {
    join('',"<DIV STYLE=\"border: inset blue; background-color: white\">","@_","</DIV>")
  }
}
sub do_env_itembox {
   local($_) = @_; local($title) = '';
   $title = &missing_braces unless
     ((s/$next_pair_rx/$title=$2;''/e) ||
      (s/$next_pair_pr_rx/$title=$2;''/e));
   $_ = &translate_environments($_);
   if ($HTML_VERSION < 4.0) {
     join('',"<TABLE BORDER=\"1\"><TR><TD>$title</TD></TR>","<TR><TD>$_\n</TD></TR></TABLE>\n");
   } else {
     join('',"<TABLE STYLE=\"border: sold; background-color: lime\"><TR><TH STYLE=\"background-color: green\">$title</TH></TR>","<TR><TD>$_\n</TD></TR></TABLE>\n");
   }
 }

1; # end