Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!nec-tyo!tyo2.gate.nec!newssv1.tmg.nec!dsp.cl.nec!necscc!csl.cl.nec!csls6!suehiro
From: suehiro@csl.cl.nec.co.jp (SUEHIRO Kenji)
Subject: Re: \@namedef
In-Reply-To: taki@pfu.fujitsu.co.JP's message of 26 Jul 1995 02:50:26 GMT
Message-ID: <SUEHIRO.95Jul27111353@csls21.csl.cl.nec.co.jp>
Sender: news@csl.cl.nec.co.jp
Organization: NEC Corporation, Japan.
References: <TAKI.95Jul24112436@sting.trad.pfu.fujitsu.co.JP>
	<LH36112.95Jul25193831@ecc-as02.ecc.u-tokyo.ac.jp>
	<TAKI.95Jul26115024@sting.trad.pfu.fujitsu.co.JP>
Distribution: fj
Date: Thu, 27 Jul 1995 02:13:53 GMT
Lines: 74
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:6534
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=6534&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.

In message <TAKI.95Jul26115024@sting.trad.pfu.fujitsu.co.JP>,
taki@pfu.fujitsu.co.JP (TAKICHI Hiroshi) writes:
>
> $BKv9-$5$s$NJ}$O(B \typein $B$NDj5A$H;w$F$$$^$9$M!#(B

$B$H$$$&$+!"$=$3$+$i<:7I$7$F$-$?$b$N$G$9(B :-)$B!#(B
$B$3$s$J$b$N<+J,$G;W$$$D$/H&$,$"$j$^$;$s!J$-$C$Q$j!K!#(B

> \@iden \@strip \@globble $BEy$N4JC1$J%^%/%m$NAH9g$;$J$s$G$9$,(B
> $BF0$-$,$5$C$Q$j$o$+$j$^$;$s!#(B

\def\@iden#1{#1}
\def\@strip#1#2 \@gobble{\def #1{#2}}
\def\@gobble#1{}

$B$G$9$M!#$3$l$rA0Ds$K9M$($F$_$^$7$g$&!#(B

> >   \def\@namedef#1{
> >     \edef\@tempa{#1}
> >     \@iden{\expandafter\@strip
> >       \expandafter\@tempa\@tempa\@gobble\@gobble} \@gobble
> >     \expandafter\def\csname\@tempa\endcsname}

$B$^$:(B \edef... $B$NItJ,$G!"(B\@namedef $B$N0z?t$,%^%/%m$G$"$m$&$,$J$+$m$&$,E83+(B
$B$G$-$k$@$1E83+$7$F!"$=$N7k2L$r(B \@tempa $B$K$7$^$$$^$9!#$7$?$,$C$F!"(B\@tempa
$B$OJ8;z!J$*$h$S6uGr!K$7$+4^$^$J$$H&$G$9!#(B

\@iden $B$O!V2?$b$7$J$$!W%^%/%m$J$N$G0l8+$$$i$J$$$h$&$G$9$,!"!V(B\@iden{...}$B!W(B
$B$N8e$m$N6uGr%H!<%/%s$r:n$k$?$a$KI,MW$G$9!#(B\@iden $B$NE83+$,=*$o$k$H(B 
\expandafter\xxx $B$r#2$DHt$S1[$($F8e$m$NJ}$N(B \@tempa $B$,E83+$5$l!"$=$N8e(B 
$B!J(B\expandafter $B$O>C$($F!K(B\@strip $B$NE83+$KF~$j$^$9!#(B

$B$3$3$G!"$b$H$N(B \@namedef $B$N0z?t!J(B\@tempa $B$NFbMF!K$N:G8e$K6uGr$,4^$^$l$F(B
$B$$$?>l9g$H$$$J$+$C$?>l9g$KJ,$1$F9M$($^$7$g$&!#(B

1) $B6uGr$,4^$^$l$F$$$J$+$C$?>l9g(B

\@tempa $B$NFbMF$,!V(BABC$B!W$@$C$?$H$7$^$9!#(B\@strip $B$NE83+$,;O$^$C$?;~E@$G$O(B
$B<!$N$h$&$J%H!<%/%sNs$r2r<a$9$k$3$H$K$J$j$^$9!#(B

  \@strip \@tempa A B C \@gobble \@gobble _ \@gobble

$B$?$@$7!V(B_$B!W$O6uGr%H!<%/%s$G$9!#$3$l$H(B \@strip $B$NDj5A(B

  \def\@strip#1#2 \@gobble{\def #1{#2}}

$B$r8+Hf$Y$k$H!"(B\@strip $B$N0z?t$O(B #1->\@tempa, #2->ABC\@gobble\@gobble $B$H$J(B
$B$k$3$H$,$o$+$j$^$9!#$9$J$o$A!"(B\@strip $B$,E83+$5$l$k$H(B 

  \def\@tempa{ABC\@gobble\@gobble}

$B$,<B9T$5$l$k$3$H$K$J$j$^$9!#(B\@gobble $B$ODj5A$K$h$j0z?t$r#1$D!V?)$Y$F!W$7(B
$B$^$&$N$G!"$"$H$G(B \csname\@tempa\endcsname $B$,E83+$5$l$k;~$K$O(B 
\@gobble\@gobble $B$O$b$m$H$b>C$($F$7$^$$$^$9!#(B

2) $B6uGr$,4^$^$l$F$$$?>l9g(B

\@tempa $B$NFbMF$,!V(BABC $B!W$@$C$?$H$7$^$9!#(B\@strip $B$NE83+$,;O$^$C$?;~E@$G$O(B
$B<!$N$h$&$J%H!<%/%sNs$r2r<a$9$k$3$H$K$J$j$^$9!#(B

  \@strip \@tempa A B C _ \@gobble \@gobble _ \@gobble

\@strip $B$N0z?t$O(B #1->\@tempa, #2->ABC $B$H$J$j!"(B\@strip $B$OE83+$5$l$F(B

  \def\@tempa{ABC}

$B$,<B9T$5$l$^$9$,!":G8e$N!V(B\@gobble _ \@gobble$B!W$O(B \@strip $B$NE83+$H$OJL$K(B
$B2r<a$5$l$k$3$H$K$J$j$^$9!#(B\@gobble $B$N2r<a;~$K4V$N6uGr%H!<%/%s$O0z?t$H$_(B
$B$J$5$l$:<N$F$i$l$^$9$N$G!"7k6I!V(B\@gobble _ \@gobble$B!W$O$b$m$H$b>C$($F$7(B
$B$^$&$3$H$K$J$j$^$9!#(B
                _
--<IIII>--   _ | |
  --<IIII>--| |TTT     $BKv9-(B $B8,Fs!JKv9-!w#C!u#C8&5f=j!%#N#E#C!K(B
            TTT                         suehiro@csl.cl.nec.co.jp
