|
|
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.