From 328f6344fc5d11b5731246b12ea1df785d55d968 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 4 Dec 2008 17:37:45 +0000 Subject: wsuipa license update (1dec08) git-svn-id: svn://tug.org/texlive/trunk@11520 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/wsuipa/ipa.sty | 319 +++++++++++++++++++++++++++++ 1 file changed, 319 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/wsuipa/ipa.sty (limited to 'Master/texmf-dist/tex/latex/wsuipa/ipa.sty') diff --git a/Master/texmf-dist/tex/latex/wsuipa/ipa.sty b/Master/texmf-dist/tex/latex/wsuipa/ipa.sty new file mode 100644 index 00000000000..0e87758dcc0 --- /dev/null +++ b/Master/texmf-dist/tex/latex/wsuipa/ipa.sty @@ -0,0 +1,319 @@ +%% Please see the file LICENCE-wsuipa.txt for licensing information. +%% +%% This is file `ipa.sty' +%% Adapted from ipamacs.tex by D. Roegel (roegel@loria.fr) +%% and Andrej Brodnik (abrodnik@watdragon.uwaterloo.ca) +%% +%% +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +\def\fileversion{v1.0} +\def\filedate{1994/07/16} +\def\docdate {1994/07/16} +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{ipa}[1994/07/16 IPA macros package] +% +% +%% The following macro is necessary to place an accent over the +%% character definitions below. For example, you should say: +%% \diatop[\^|\openo] +%% +% \diatop is a slightly modified version of Christina Thiele's one. +% [From {\em TeX Users Group Eighth Annual: Conference Proceedings} +% Meeting, Seattle, August 24-26, 1987, TeXniques no. 5, (Providence, +% 1988), p.11.] + +\def\diatop[#1|#2]{% + {\setbox1=\hbox{#1{}}% diacritic mark + \setbox2=\hbox{#2{}}% letter (the group {} in case it is a diacritic) + \dimen0=\ifdim\wd1>\wd2\wd1\else\wd2\fi% compute the max width + % the `natural height' of diacritics is 1ex; + % \dimen1 is the shift upwards + \dimen1=\ht2\advance\dimen1by-1ex% + % center the diacritic mark on the width of the letter: + \setbox1=\hbox to\dimen0{\hss#1{}\hss}% + \leavevmode % force horizontal mode + \rlap{\raise\dimen1\box1}% the raised diacritic mark + \hbox to\dimen0{\hss#2\hss}% the letter + }% + }% + +\def\diaunder[#1|#2]{% + {\setbox1=\hbox{#1{}}% diacritic mark + \setbox2=\hbox{#2{}}% letter (the group {} in case it is a diacritic) + \dimen0=\ifdim\wd1>\wd2\wd1\else\wd2\fi% compute the max width + % \dimen1 is the shift downwards + \dimen1=\ht2\advance\dimen1by-0.9ex% + % center the diacritic mark on the width of the letter: + \setbox1=\hbox to\dimen0{\hss#1{}\hss}% + \leavevmode % force horizontal mode + \rlap{\lower\dimen1\box1}% the lowered diacritic mark + \hbox to\dimen0{\hss#2\hss}% the letter + }% + }% + + +%% As an alternative, you could uncomment the following two lines: +%% +%% \catcode`"=\active +%% \def"#1#2{\diatop[#1|#2]} +%% +%% And then you could place an accent over the ipa character by +%% calling the macro " which itself calls \diatop. For example, you +%% would say: +%% +%% "\^\openo +%% +%% or even you could uncomment the following two lines: +%% +%% \catcode`_=\active +%% \def_#1#2{\diaunder[#1|#2]} +%% +%% And then you could place an accent under the ipa character by +%% calling the macro _ which itself calls \diaunder. For example, you +%% would say: +%% +%% _\open{r} +%% + +%% THE FOLLOWING macros access the IPA chars from the WSU IPA font + +\DeclareFontSubstitution{U}{ipa}{m}{n} +\def\ipa{\protect\@pipa} +\def\@pipa{\fontencoding{U}\fontfamily{ipa}\selectfont} + +% Decimal numbers were used rather than octal or hexadecimal +% numbers, in order to be sure than it worked everywhere, +% especially with the french package where +% quotes can be active. + +%% A-type shapes: +\def\inva{{\ipa\symbol{0}}}% '000 +\def\scripta{{\ipa\symbol{1}}}% '001 +\def\nialpha{{\ipa\symbol{2}}}% '002 +\def\invscripta{{\ipa\symbol{3}}}% '003 +\def\invv{{\ipa\symbol{4}}}% '004 + +%% B-type shapes: +\def\crossb{{\ipa\symbol{5}}}% '005 +\def\barb{{\ipa\symbol{6}}}% '006 +\def\slashb{{\ipa\symbol{7}}}% '007 +\def\hookb{{\ipa\symbol{8}}}% '010 +\def\nibeta{{\ipa\symbol{9}}}% '011 + +%% C-type shapes: +\def\slashc{{\ipa\symbol{10}}}% '012 +\def\curlyc{{\ipa\symbol{11}}}% '013 +\def\clickc{{\ipa\symbol{12}}}% '014 + +%% D-type shapes: +\def\crossd{{\ipa\symbol{13}}}% '015 +\def\bard{{\ipa\symbol{14}}}% '016 +\def\slashd{{\ipa\symbol{15}}}% '017 +\def\hookd{{\ipa\symbol{16}}}% '020 +\def\taild{{\ipa\symbol{17}}}% '021 +\def\dz{{\ipa\symbol{18}}}% '022 +\def\eth{{\ipa\symbol{19}}}% '023 +\def\scd{{\ipa\symbol{20}}}% '024 + +%% E-type shapes: +\def\schwa{{\ipa\symbol{21}}}% '025 +\def\er{{\ipa\symbol{22}}}% '026 +\def\reve{{\ipa\symbol{23}}}% '027 +\def\niepsilon{{\ipa\symbol{24}}}% '030 +\def\revepsilon{{\ipa\symbol{25}}}% '031 +\def\hookrevepsilon{{\ipa\symbol{26}}}% '032 +\def\closedrevepsilon{{\ipa\symbol{27}}}% '033 + +%% G-type shapes: +\def\scriptg{{\ipa\symbol{28}}}% '034 +\def\hookg{{\ipa\symbol{29}}}% '035 +\def\scg{{\ipa\symbol{30}}}% '036 +\def\nigamma{{\ipa\symbol{31}}}% '037 +\def\ipagamma{{\ipa\symbol{32}}}% '040 +\def\babygamma{{\ipa\symbol{33}}}% '041 + +%% H-type shapes: +\def\hv{{\ipa\symbol{34}}}% '042 +\def\crossh{{\ipa\symbol{35}}}% '043 +\def\hookh{{\ipa\symbol{36}}}% '044 +\def\hookheng{{\ipa\symbol{37}}}% '045 +\def\invh{{\ipa\symbol{38}}}% '046 + +%% I-type shapes: +\def\bari{{\ipa\symbol{39}}}% '047 +\def\dlbari{{\ipa\symbol{40}}}% '050 ``dotless bar i'' +\def\niiota{{\ipa\symbol{41}}}% '051 +\def\sci{{\ipa\symbol{42}}}% '052 +\def\barsci{{\ipa\symbol{43}}}% '053 ``barred small cap i'' + +%% J-type shape: +\def\invf{{\ipa\symbol{44}}}% '054 + +%% L-type shapes: +\def\tildel{{\ipa\symbol{45}}}% '055 +\def\barl{{\ipa\symbol{46}}}% '056 +\def\latfric{{\ipa\symbol{47}}}% '057 +\def\taill{{\ipa\symbol{48}}}% '060 +\def\lz{{\ipa\symbol{49}}}% '061 +\def\nilambda{{\ipa\symbol{50}}}% '062 +\def\crossnilambda{{\ipa\symbol{51}}}% '063 + +%% M-type shapes: +\def\labdentalnas{{\ipa\symbol{52}}}%'064 +\def\invm{{\ipa\symbol{53}}}% '065 +\def\legm{{\ipa\symbol{54}}}% '066 + +%% N-type shapes: +\def\nj{{\ipa\symbol{55}}}% '067 +\def\eng{{\ipa\symbol{56}}}% '070 +\def\tailn{{\ipa\symbol{57}}}% '071 +\def\scn{{\ipa\symbol{58}}}% '072 + +%% O-type shapes: +\def\clickb{{\ipa\symbol{59}}}% '073 +\def\baro{{\ipa\symbol{60}}}% '074 +\def\openo{{\ipa\symbol{61}}}% '075 +\def\niomega{{\ipa\symbol{62}}}% '076 +\def\closedniomega{{\ipa\symbol{63}}}% '077 +\def\oo{{\ipa\symbol{64}}}% '100 + +%% P-type shapes: +\def\barp{{\ipa\symbol{65}}}% '101 +\def\thorn{{\ipa\symbol{66}}}% '102 +\def\niphi{{\ipa\symbol{67}}}% '103 + +%% R-type shapes: +\def\flapr{{\ipa\symbol{68}}}% '104 +\def\legr{{\ipa\symbol{69}}}% '105 +\def\tailr{{\ipa\symbol{70}}}% '106 +\def\invr{{\ipa\symbol{71}}}% '107 +\def\tailinvr{{\ipa\symbol{72}}}% '110 +\def\invlegr{{\ipa\symbol{73}}}% '111 +\def\scr{{\ipa\symbol{74}}}% '112 +\def\invscr{{\ipa\symbol{75}}}% '113 + +%% S-type shapes: +\def\tails{{\ipa\symbol{76}}}% '114 +\def\esh{{\ipa\symbol{77}}}% '115 +\def\curlyesh{{\ipa\symbol{78}}}% '116 +\def\nisigma{{\ipa\symbol{79}}}% '117 + +%% T-type shapes: +\def\tailt{{\ipa\symbol{80}}}% '120 +\def\tesh{{\ipa\symbol{81}}}% '121 +\def\clickt{{\ipa\symbol{82}}}% '122 +\def\nitheta{{\ipa\symbol{83}}}% '123 + +%% U-type shapes: +\def\baru{{\ipa\symbol{84}}}% '124 +\def\slashu{{\ipa\symbol{85}}}% '125 +\def\niupsilon{{\ipa\symbol{86}}}% '126 +\def\scu{{\ipa\symbol{87}}}% '127 +\def\barscu{{\ipa\symbol{88}}}% '130 + +%% V-type shape: +\def\scriptv{{\ipa\symbol{89}}}% '131 + +%% W-type shape: +\def\invw{{\ipa\symbol{90}}}% '132 + +%% X-type shape: +\def\nichi{{\ipa\symbol{91}}}% '133 + +%% Y-type shapes: +\def\invy{{\ipa\symbol{92}}}% '134 +\def\scy{{\ipa\symbol{93}}}% '135 + +%% Z-type shapes: +\def\curlyz{{\ipa\symbol{94}}}% '136 +\def\tailz{{\ipa\symbol{95}}}% '137 +\def\yogh{{\ipa\symbol{96}}}% '140 +\def\curlyyogh{{\ipa\symbol{97}}}% '141 + +%% ?-type shapes: +\def\glotstop{{\ipa\symbol{98}}}% '142 +\def\revglotstop{{\ipa\symbol{99}}}% '143 +\def\invglotstop{{\ipa\symbol{100}}}%'144 +\def\ejective{{\ipa\symbol{101}}}% '145 +\def\reveject{{\ipa\symbol{102}}}% '146 + +%% AND that should be it, as far as actual characters go. +%% +%% THE following is the set of diacritics. Please try to get +%% the 4 t-bars lined up above the 4 pointers, so you may +%% have to reshuffle things a bit. Not to worry too much. I +%% think the diacritics can be grouped more according to +%% shape, so comma-like things are together, etc. +%% + +\def\dental#1{\oalign{#1\crcr + \hidewidth{\ipa\symbol{103}}\hidewidth}}% '147 + +\def\upt{{\ipa\symbol{108}}}% '154 These are IPA pointers +\def\downt{{\ipa\symbol{109}}}% '155 +\def\leftt{{\ipa\symbol{110}}}% '156 +\def\rightt{{\ipa\symbol{111}}}% '157 + + % These are American versions of t-bars +\def\upp{{\ipa\symbol{116}}}% '164 +\def\downp{{\ipa\symbol{117}}}% '165 +\def\leftp{{\ipa\symbol{118}}}% '166 +\def\rightp{{\ipa\symbol{119}}}% '167 + +\def\stress{{\ipa\symbol{104}}}% '150 primary stress +\def\secstress{{\ipa\symbol{105}}}% '151 secondary stress + +\def\syllabic{{\ipa\symbol{106}}}% '152 syllabic marker + +\def\corner{{\ipa\symbol{107}}}% '153 + + % American equivalent: raised dot +\def\halflength{{\ipa\symbol{112}}}% '160 + % American equivalent: colon +\def\length{{\ipa\symbol{113}}}% '161 + +\def\underdots{{\ipa\symbol{114}}}% '162 + + % ``reversed apostrophe'', p. 216 +\def\ain{{\ipa\symbol{115}}}% '163 + +\def\overring{{\ipa\symbol{120}}}% '170 +\def\underring{{\ipa\symbol{121}}}% '171 + +\def\open{{\ipa\symbol{122}}}% '172 + +\def\midtilde{{\ipa\symbol{123}}}% '173 +\def\undertilde{{\ipa\symbol{124}}}% '174 + +\def\underwedge{{\ipa\symbol{125}}}% '175 + +\def\polishhook{{\ipa\symbol{126}}}% '176 + +\def\underarch#1{\oalign{#1\crcr + \hidewidth{\ipa\symbol{127}}\hidewidth}}% '177 + +%% AND that's it for the diacritics. + +\endinput +%% +%% End of file `ipa.sty'. + + + + + + -- cgit v1.2.3