From 328f6344fc5d11b5731246b12ea1df785d55d968 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
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

