Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!wnoc-sfc-news!wnoc-kyo-news!kuis-news!kudpc!hakata!kyu-cs!lab!gulag.ntt.jp!gulag!isozaki
From: isozaki@theory.ntt.jp (Hideki ISOZAKI)
Subject: Re: How to check a character which follows a macro?
In-Reply-To: handa@etlken.etl.go.jp's message of 9 Mar 95 05:08:26 GMT
Message-ID: <q3h.2ql54q@gulag.ntt.jp>
Sender: news@gulag.ntt.jp
Organization: NTT Basic Research Laboratories
References: <HANDA.95Mar1135411@etlken.etl.go.jp>
	<HANDA.95Mar9140826@etlken.etl.go.jp>
Date: 13 Mar 1995 12:27:19 GMT
Lines: 22
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:6039
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=6039&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.


$BH>ED$5$s(B:
>$B$3$N(B \chcode $B$NCM$C$F$I$&$d$C$F@_Dj$9$l$PNI$$$s$G$9$+!)(B

$B$=$NA0$N5-;v$NDL$j$G$9!#$"$H$O=hM}$r%k!<%W$K$9$k$@$1$G$9!#$?$H$($P(B

\newcount\chcode
\newcount\finch

\def\rewrite#1{\begingroup\finch=`#1\scantoks}
  
\def\scantoks{\afterassignment\analyze\chcode=`}

\def\analyze{%
  \ifnum\chcode=\finch \let\scantoks=\endgroup \else
    \ifnum\chcode<256 (\char\chcode)\else[\char\chcode]\fi
  \fi
  \scantoks}

\rewrite+$B$"$$$&$($*(Baiueo$B$+$-$/$1$3(B!?:;+

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