Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!wnoc-kyo!kuis!kudpc!hakata!kyu-cs!lab!lab!isozaki
From: isozaki@square.ntt.jp (Hideki Isozaki)
Subject: Re: JIS symbols
In-Reply-To: zic@tci.toshiba.CO.JP's message of 14 Oct 93 05:02:41 GMT
Message-ID: <omb.1gqt2e@lab.ntt.jp>
Sender: news@lab.ntt.jp
Organization: NTT Basic Research Laboratories
References: <ZIC.93Oct14140241@tcin0.tci.toshiba.CO.JP>
Distribution: fj
Date: 21 Oct 1993 14:23:04 GMT
Lines: 383
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:4043
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=4043&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


zic@tci.toshiba.CO.JP (Nobuyoshi Kamei) writes
>    1.  $B"P(Bx$B$H=q$/$H!"(B\exists x $B$H2r<a$7$F$/$l$k$h$&$K$9$k!"(B
>        $B$3$&$$$C$?$3$H$r2DG=$K$9$k%^%/%m=8$H8@$&$N$+!"(B
>        $B%9%?%$%k!&%U%!%$%k$H8@$&$N$+!"$O!"4{B8$N$b$N$O$J$$$G$7$g$&$+!)(B

$BBG$A9~$`<j4V$NLdBj$@$1$J$N$G:n$j$^$7$?!%(B
eclsymb.tex $B$O(B EUC $B$K$7$F$/$@$5$$!%(B
NTT JTeX $B$G$7$+;H$($^$;$s!%(B


$B0k:j=(<y!!!!!!#N#T#T4pAC8&(B

#!/bin/sh
# This is a shell archive (produced by shar 3.49)
# To extract the files from this archive, save it to a file, remove
# everything above the "!/bin/sh" line above, and type "sh file_name".
#
# made 10/21/1993 14:06 UTC by isozaki@square
# Source directory /home/isozaki/TeXmac
#
# existing files will NOT be overwritten unless -c is specified
#
# This shar contains:
# length  mode       name
# ------ ---------- ------------------------------------------
#   6217 -rw-rw-r-- eclsymb.sty
#   1667 -rw-rw-r-- eclsymb.tex
#
# ============= eclsymb.sty ==============
if test -f 'eclsymb.sty' -a X"$1" != X"-c"; then
echo 'x - skipping eclsymb.sty (File already exists)'
else
echo 'x - extracting eclsymb.sty (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'eclsymb.sty' &&
% eclsymb.sty by Hideki Isozaki 1993.10.16
% $B6&MQ%U%!%$%k$O(BJIS$B$G%;!<%V$7$F$/$@$5$$!%(B
X
\begingroup
X
\gdef\euc@active{%
\catcode"A1=\active \catcode"A2=\active \catcode"A6=\active}
X
\euc@active
X
\gdef\euc@ai{\euc@sanitize\euc@@ai}
X
\gdef\euc@@ai#1{%
\if#1^^c1\sim\fi
\if#1^^c2\|\fi
\if#1^^c3\mid\fi
\if#1^^c4\cdots\fi
\if#1^^d0\{\fi
\if#1^^d1\}\fi
\if#1^^d2\langle\fi
\if#1^^d3\rangle\fi
\if#1^^d4\langle\!\langle\fi
\if#1^^d5\rangle\!\rangle\fi
\if#1^^de\pm\fi
\if#1^^df\times\fi
\if#1^^e0\div\fi
\if#1^^e4\ne\fi
\if#1^^e5\le\fi
\if#1^^e6\ge\fi
\if#1^^e7\infty\fi
\if#1^^e8\therefore\fi
\if#1^^ef\yen\fi
\if#1^^f0\$\fi
\if#1^^f2\pounds\fi
\if#1^^f3\%\fi
\if#1^^f4\#\fi
\if#1^^f5\&\fi
\if#1^^f8\S\fi
\if#1^^fa\star\fi
\if#1^^fb\bigcirc\fi
\if#1^^fd\circledcirc\fi
\if#1^^fe\lozenge\Diamond\fi
\euc@active\euc@setup}
X
\gdef\euc@aii{\euc@sanitize\euc@@aii}
X
\gdef\euc@@aii#1{%
\if#1^^a1\blacklozenge\fi
\if#1^^a2\square       \fi
\if#1^^a3\blacksquare  \fi
\if#1^^a4\vartriangle \fi
\if#1^^a5\blacktriangle \fi
\if#1^^a6\triangledown  \fi
\if#1^^a7\blacktriangledown \fi
\if#1^^aa\rightarrow \fi
\if#1^^ab\leftarrow  \fi
\if#1^^ac\uparrow  \fi
\if#1^^ad\downarrow    \fi
\if#1^^ba\in         \fi
\if#1^^bb\ni         \fi
\if#1^^bc\subseteq   \fi
\if#1^^bd\supseteq   \fi
\if#1^^be\subset     \fi
\if#1^^bf\supset     \fi
\if#1^^c0\cup        \fi
\if#1^^c1\cap        \fi
\if#1^^ca\land       \fi
\if#1^^cb\lor        \fi
\if#1^^cc\neg        \fi
\if#1^^cd\Rightarrow \fi
\if#1^^ce\Rightleftarrow \fi
\if#1^^cf\forall     \fi
\if#1^^d0\exists     \fi
\if#1^^dc\angle      \fi
\if#1^^dd\bot        \fi
\if#1^^de\frown      \fi
\if#1^^df\partial    \fi
\if#1^^e0\nabla      \fi
\if#1^^e1\equiv      \fi
\if#1^^e2\fallingdotseq \fi
\if#1^^e3\ll         \fi
\if#1^^e4\gg         \fi
\if#1^^e5\sqrt       \fi
\if#1^^e7\propto     \fi
\if#1^^e8\because    \fi
\if#1^^e9\int        \fi
%\if#1^^f0\iint       \fi
\if#1^^f2\AA         \fi
\if#1^^f4\sharp      \fi
\if#1^^f5\flat       \fi
\if#1^^f7\dagger     \fi
\if#1^^f8\ddagger    \fi
\if#1^^f9\P          \fi
\euc@active\euc@setup}
X
\gdef\euc@avi{\euc@sanitize\euc@@avi}
X
\gdef\euc@@avi#1{%
\if#1^^a1A           \fi
\if#1^^a2B           \fi
\if#1^^a3\Gamma      \fi
\if#1^^a4\Delta      \fi
\if#1^^a5E           \fi
\if#1^^a6Z           \fi
\if#1^^a7H           \fi
\if#1^^a8\Theta      \fi
\if#1^^a9I           \fi
\if#1^^aaK           \fi
\if#1^^ab\Lambda     \fi
\if#1^^acM           \fi
\if#1^^adN           \fi
\if#1^^ae\Xi         \fi
\if#1^^afO           \fi
\if#1^^b0\Pi         \fi
\if#1^^b1P           \fi
\if#1^^b2\Sigma      \fi
\if#1^^b3T           \fi
\if#1^^b4\Upsilon    \fi
\if#1^^b5\Phi        \fi
\if#1^^b6X           \fi
\if#1^^b7\Psi        \fi
\if#1^^b8\Omega      \fi
\if#1^^c1\alpha      \fi
\if#1^^c2\beta       \fi
\if#1^^c3\gamma      \fi
\if#1^^c4\delta      \fi
\if#1^^c5\vaeepsilon \fi
\if#1^^c6\zeta       \fi
\if#1^^c7\eta        \fi
\if#1^^c8\theta      \fi
\if#1^^c9\iota       \fi
\if#1^^ca\kappa      \fi
\if#1^^cb\lambda     \fi
\if#1^^cc\mu         \fi
\if#1^^cd\nu         \fi
\if#1^^ce\xi         \fi
\if#1^^cfo           \fi
\if#1^^d0\pi         \fi
\if#1^^d1\rho        \fi
\if#1^^d2\sigma      \fi
\if#1^^d3\tau        \fi
\if#1^^d4\upsilon    \fi
\if#1^^d5\phi        \fi
\if#1^^d6\chi        \fi
\if#1^^d7\psi        \fi
\if#1^^d8\omega      \fi
\euc@active\euc@setup}
X
\gdef\jistotex{%
\ifnum\kanjifiletype=20 \else
\errormessage{\string\kanjifiletype is not 20 (EUC).}\stop\fi
\kanjifiletype\z@
\euc@active\euc@setup}
X
\gdef\euc@setup{%
\let^^a1\euc@ai \let^^a2\euc@aii \let^^a6\euc@avi}
X
\gdef\euc@sanitize{%
\catcode"A1=12 \catcode"A2=12 \catcode"A6=12 }
X
\gdef\endjistotex{\global\kanjifiletype=20 }
X
\endgroup
X
\def\textojis{%
\def\sim{$B!A(B}%
\def\|{$B!B(B}%
\def\mid{$B!C(B}%
\def\{{$B!P(B}%
\def\}{$B!Q(B}%
\def\langle{$B!R(B}%
\def\rangle{$B!S(B}%
\def\pm{$B!^(B}%
\def\times{$B!_(B}%
\def\div{$B!`(B}%
\def\ne{$B!b(B}\let\neq\ne%
\def\le{$B!e(B}\let\leq\le%
\def\ge{$B!f(B}\let\geq\ge%
\def\infty{$B!g(B}%
\def\therefore{$B!h(B}%
\def\yen{$B!o(B}%
\def\${$B!p(B}%
\def\pound{$B!r(B}%
\def\%{$B!s(B}%
\def\#{$B!t(B}%
\def\&{$B!u(B}%
\def\S{$B!x(B}%
\def\star{$B!z(B}%
\def\bigcirc{$B!{(B}%
\def\circledcirc{$B!}(B}%
\def\Diamond{$B!~(B}%
\def\blacklozenge{$B"!(B}%
\def\Box{$B""(B}\let\square\Box
\def\blacksquare{$B"#(B}%
\def\triangle{$B"$(B}\let\vartriangle\triangle
\def\blacktriangle{$B"%(B}%
\def\triangledown{$B"&(B}%
\def\blacktriangledown{$B"'(B}%
\def\rightarrow{$B"*(B}\let\to\rightarrow
\def\leftarrow{$B"+(B}\let\gets\leftarrow
\def\uparrow{$B",(B}%
\def\downarrow{$B"-(B}%
\def\in{$B":(B}%
\def\ni{$B";(B}%
\def\subseteq{$B"<(B}%
\def\supseteq{$B"=(B}%
\def\subset{$B">(B}%
\def\supset{$B"?(B}%
\def\cup{$B"@(B}%
\def\cap{$B"A(B}%
\def\land{$B"J(B}\let\wedge\land
\def\lor{$B"K(B}\let\vee\lor
\def\neg{$B"L(B}%
\def\Rightarrow{$B"M(B}%
\def\Rightleftarrow{$B"N(B}%
\def\forall{$B"O(B}%
\def\exists{$B"P(B}%
\def\angle{$B"\(B}%
\def\bot{$B"](B}%
\def\frown{$B"^(B}%
\def\partial{$B"_(B}%
\def\nabla{$B"`(B}%
\def\equiv{$B"a(B}%
\def\fallingdotseq{$B"b(B}%
\def\ll{$B"c(B}%
\def\gg{$B"d(B}%
\def\sqrt{$B"e(B}%
\def\propto{$B"g(B}%
\def\because{$B"h(B}%
\def\int{$B"i(B}%
%\def\iint{$B"j(B}%
\def\AA{$B"r(B}%
\def\sharp{$B"t(B}%
\def\flat{$B"u(B}%
\def\dagger{$B"w(B}%
\def\ddagger{$B"x(B}%
\def\P{$B"y(B}%
\def\Gamma{$B&#(B}%
\def\Delta{$B&$(B}%
\def\Theta{$B&((B}%
\def\Lambda{$B&+(B}%
\def\Xi{$B&.(B}%
\def\Pi{$B&0(B}%
\def\Sigma{$B&2(B}%
\def\Upsilon{$B&4(B}%
\def\Phi{$B&5(B}%
\def\Psi{$B&7(B}%
\def\Omega{$B&8(B}%
\def\alpha{$B&A(B}%
\def\beta{$B&B(B}%
\def\gamma{$B&C(B}%
\def\delta{$B&D(B}%
\def\varepsilon{$B&E(B}\let\epsilon\varepsilon
\def\zeta{$B&F(B}%
\def\eta{$B&G(B}%
\def\theta{$B&H(B}%
\def\iota{$B&I(B}%
\def\kappa{$B&J(B}%
\def\lambda{$B&K(B}%
\def\mu{$B&L(B}%
\def\nu{$B&M(B}%
\def\xi{$B&N(B}%
\def\pi{$B&P(B}%
\def\rho{$B&Q(B}%
\def\sigma{$B&R(B}%
\def\tau{$B&S(B}%
\def\upsilon{$B&T(B}%
\def\phi{$B&U(B}%
\def\chi{$B&V(B}%
\def\psi{$B&W(B}%
\def\omega{$B&X(B}%
}
SHAR_EOF
chmod 0664 eclsymb.sty ||
echo 'restore of eclsymb.sty failed'
Wc_c="`wc -c < 'eclsymb.sty'`"
test 6217 -eq "$Wc_c" ||
echo 'eclsymb.sty: original size 6217, current size' "$Wc_c"
fi
# ============= eclsymb.tex ==============
if test -f 'eclsymb.tex' -a X"$1" != X"-c"; then
echo 'x - skipping eclsymb.tex (File already exists)'
else
echo 'x - extracting eclsymb.tex (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'eclsymb.tex' &&
\documentstyle[amssymbols,eclsymb]{j-article}
X
% $B$3$N%U%!%$%k$O!$$$$o$f$k(BEUC$B$KJQ49$7$F;H$C$F$/$@$5$$!%(B
\kanjifiletype=20
X
\title{JIS$B5-9f$H(B\TeX $B5-9f$NAj8_JQ49(B}
X
\author{$B0k:j=(<y(B\\NTT$B4pAC8&(B}
X
\date{1993$BG/(B10$B7n(B13$BF|(B}
X
\begin{document}
X
\maketitle
X
X
\section{JIS$B5-9f$+$i(B\protect\TeX $B5-9f$X$NJQ49(B}
X
jistotex$B4D6-$O!$$=$NCf$K8=$l$k(BJIS$B5-9f$rBP1~$9$k(B\TeX $B5-9f$KCV$-49$($^$9!%(B
X$B$J$*!$$3$N4D6-$NCf$G$O(B\verb|\kanjifiletype=0|$B$K@_Dj$5$l$F$$$k$?$a!$(B
X$BF|K\8lBP1~$G$J$$(B\TeX $B$HF1MM$N=hM}$,9T$J$o$l$^$9!%$D$^$j!$(B
X$BDL>o$NF|K\8l$NJ8>O$,=q$1$^$;$s!%(B
X
\makebox[2cm][l]{input:} \verb|$$B&L"d(Bx$B"]"A"J"O"h(B$|
X
\begin{jistotex}
\makebox[2cm][l]{goal:} $\mu\gg x\bot\cap\land\forall\because$
X
\makebox[2cm][l]{output:} $$B&L"d(Bx$B"]"A"J"O"h(B$
\end{jistotex}
X
\section{\protect\TeX $B5-9f$+$i(BJIS$B5-9f$X$NJQ49(B}
X
textojis$B4D6-$O!$$=$NCf$K8=$l$k(B\TeX $B5-9f$rBP1~$9$k(BJIS$B5-9f$KCV$-49$($^$9!%(B
X$B$3$l$O(B\TeX $B5-9f$G=q$+$l$?FI$_$K$/$$?t<0$r(BJIS$B5-9f$KJQ49$7$?$$;~$K;H$($^$9!%(B
X$B$3$N4D6-$NCf$G(B\TeX $B5-9f$G=q$+$l$??t<0(B
X$B$r(B\verb|\typeout|$B$7$F$_$F$/$@$5$$!%(B\footnote{
X$B$?$@$7!$(B{\tt\char92 ldots}$B$N$h$&$K%^%/%m$G=q$+$l$?5-9f$,(B
X$B$"$k$HE83+$5$l$k$?$a1x$/$J$j$^$9!%(B}
X
\makebox[2cm][l]{input:}
X \verb|$\alpha\land\uparrow y\Gamma\equiv\Diamond\supset\Psi$|
X
\begin{textojis}
\makebox[2cm][l]{goal:} $$B&A"J",(By$B&#"a!~"?&7(B$
X
\makebox[2cm][l]{output:}
X $\alpha\land\uparrow y\Gamma\equiv\Diamond\supset\Psi$
X
\typeout{$\alpha\land\uparrow y\Gamma\equiv\Diamond\supset\Psi$}
\end{textojis}
X
\end{document}
SHAR_EOF
chmod 0664 eclsymb.tex ||
echo 'restore of eclsymb.tex failed'
Wc_c="`wc -c < 'eclsymb.tex'`"
test 1667 -eq "$Wc_c" ||
echo 'eclsymb.tex: original size 1667, current size' "$Wc_c"
fi
exit 0


