\the\font
Hi there.
\csname\string\the\font\endcsname

\catcode`\@=11
\def\@ifnextchar#1#2#3{\let\@tempe #1\def\@tempa{#2}\def\@tempb{#3}\futurelet
    \@tempc\@ifnch}
\def\@ifnch{\ifx \@tempc \@sptoken \let\@tempd\@xifnch
      \else \ifx \@tempc \@tempe\let\@tempd\@tempa\else\let\@tempd\@tempb\fi
      \fi \@tempd}

\def\fontfr@b#1 at#2pt{#1}
\def\fontfrob#1 at#2pt{#1\@ifnextchar a{\fontfr@b}{}}
\def\fontfoo{\expandafter\fontfrob\fontname\font{} at 3pt}

Some text, and the font name: \fontfoo, some more text.

{\tt Some text, name: \fontfoo more text}.  Bye.

%\def\frop{\fontname\font\relax }
\catcode`\ =11\relax
\let\elvspc=`\ %
\def\fontquux#1 at#2pt XxX{#1}
\def\frob{\fontname\font{\relax} at 3pt XxX}
\def\fontfrack#1#2{\fontquux#1#2}
\edef\fontfoo{\expandafter\fontquux\the\fontname\font{} at 3pt XxX}
\tracingmacros=2
\tracingcommands=2
\catcode`\ =10\relax
%\fontquux frobnitz special at 433pt at 33pt XxX
more text
\par
stuff in a font: \fontfoo.  more text
\par
\font\cmrtw=cmr10 at 12pt
{\cmrtw stuff in a font: \fontfoo\ is the current font.}
\bye
\def\fontfoo#1{\expandafter\fontfrack#1 at 3pt XxX}


\def\fontfrack#1 at#2pt \XxX{#1}
\def\fonta#1#2{1:"#1", 2:"#2"}
\edef\fontb#1{\expandafter\fontfrack#1{} at 3pt \XxX}
\font\cmrtw=cmr10 at 12pt
\tracingmacros=2
\tracingcommands=2
\newbox\fontbox
\setbox\fontbox\expandafter\hbox{\fontname\cmrtw}

\catcode`\@=11
\newif\if@psfont
\def\parsefontname#1#2#3#4\end@fontname{\@psfontfalse%
\if#1p
	\if#2a
		\if#3d%pad = AdobeGaramond
			\@psfonttrue
		\fi
		\if#3d%pag = AvantGarde
			\@psfonttrue
		\fi
	\fi
	\if#2b\if#3k% pbk = Bookman
		\@psfonttrue
	\fi\fi
	\if#2c\if#3r% pcr = Courier
		\@psfonttrue
	\fi\fi
	\if#2h\if#3v% phr = Helvetica
		\@psfonttrue
	\fi\fi
	\if#2n\if#3c% pnc = New Century Schoolbook
		\@psfonttrue
	\fi\fi
	\if#2o\if#3p% pop = Optima
		\@psfonttrue
	\fi\fi
	\if#2p\if#3l% ppl = Palatino
		\@psfonttrue
	\fi\fi
	\if#2s\if#3t% pst = StoneSerif
		\@psfonttrue
	\fi\fi
	\if#2t\#if#3m% ptm = Times
		\@psfonttrue
	\fi\fi
\fi}

\def\fix@parname#1{\expandafter\parsefontname#1\end@fontname%
\end@fontname\end@fontname\end@fontname}


