|
|
1.1 ! root 1: % Trademarks... ! 2: ! 3: \def\gobble#1{} ! 4: ! 5: \def\trademark#1#2{% ! 6: \let#1/\relax % in case #2 references #1 ! 7: \setbox0=\hbox{#2}% % when we make the \hbox ! 8: \ifdim\wd0>0pt ! 9: \gdef#1/{% ! 10: \trademark{#1}\empty % only in TeX: a recursive macro ! 11: #1/\nfootnote{#1/ is a trademark of #2.}% ! 12: }% ! 13: \else ! 14: \gdef#1/{{\sc\expandafter\gobble\string#1}}% ! 15: \fi ! 16: } ! 17: ! 18: \catcode`\&=12 ! 19: \trademark\acm\empty ! 20: \trademark\Ada{the Department of Defense (\Ada/ Joint Program Office)} ! 21: \trademark\bsd\empty ! 22: \trademark\ccitt\empty ! 23: \trademark\dod\empty ! 24: \trademark\eunice\empty ! 25: \trademark\ieee\empty ! 26: \trademark\unix{AT&T Bell Laboratories} ! 27: \trademark\vax{Digital Equipment Corporation} ! 28: \trademark\vms{Digital Equipment Corporation} ! 29: ! 30: % hack: \trademark\tops20{Digital Equipment Corporation} doesn't work... ! 31: \gdef\tops20/{% ! 32: \gdef\tops20/{{\sc tops20}}% ! 33: \tops20/\nfootnote{\tops20/ is a trademark of Digital Equipment Corporation.}% ! 34: } ! 35: ! 36: \catcode`\&=4
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.