%% This is file `ipamacs.sty' 
%% Adapted from ipamacs.tex by D. Roegel, May 19, 1994
%%                             (roegel@loria.fr)
%%
%%
%% \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         \~}
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{ipamacs}[1994/05/24 IPA macros package]
%
%
%% The following macro is necessary to place an accent over the
%% character definitions below. For example, you should say:
%%                \diatop[\^|\openo]
%%
 
\def\diatop[#1|#2]{{\setbox1=\hbox{{#1{}}}\setbox2=\hbox{{#2{}}}%
                    \dimen0=\ifdim\wd1>\wd2\wd1\else\wd2\fi%
                    \dimen1=\ht2\advance\dimen1by-1ex%
                    \setbox1=\hbox to1\dimen0{\hss#1\hss}%
                    \leavevmode % added by D. Roegel
                    \rlap{\raise1\dimen1\box1}%
                    \hbox to1\dimen0{\hss#2\hss}}}%
 
%% 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
 
%%  THE FOLLOWING macros access the IPA chars from the WSU IPA font
 
\DeclareFontSubstitution{U}{ipa}{m}{n}
\def\ipa{\fontencoding{U}\fontfamily{ipa}\selectfont}

%% A-type shapes:
\def\inva{{\ipa\char'000}}%
\def\scripta{{\ipa\char'001}}%
\def\nialpha{{\ipa\char'002}}%
\def\invscripta{{\ipa\char'003}}%
\def\invv{{\ipa\char'004}}%
 
%% B-type shapes:
\def\crossb{{\ipa\char'005}}%
\def\barb{{\ipa\char'006}}%
\def\slashb{{\ipa\char'007}}%
\def\hookb{{\ipa\char'010}}%
\def\nibeta{{\ipa\char'011}}%
 
%% C-type shapes:
\def\slashc{{\ipa\char'012}}%
\def\curlyc{{\ipa\char'013}}%
\def\clickc{{\ipa\char'014}}%
 
%% D-type shapes:
\def\crossd{{\ipa\char'015}}%
\def\bard{{\ipa\char'016}}%
\def\slashd{{\ipa\char'017}}%
\def\hookd{{\ipa\char'020}}%
\def\taild{{\ipa\char'021}}%
\def\dz{{\ipa\char'022}}%
\def\eth{{\ipa\char'023}}%
\def\scd{{\ipa\char'024}}%
 
%% E-type shapes:
\def\schwa{{\ipa\char'025}}%
\def\er{{\ipa\char'026}}%
\def\reve{{\ipa\char'027}}%
\def\niepsilon{{\ipa\char'030}}%
\def\revepsilon{{\ipa\char'031}}%
\def\hookrevepsilon{{\ipa\char'032}}%
\def\closedrevepsilon{{\ipa\char'033}}%
 
%% G-type shapes:
\def\scriptg{{\ipa\char'034}}%
\def\hookg{{\ipa\char'035}}%
\def\scg{{\ipa\char'036}}%
\def\nigamma{{\ipa\char'037}}
\def\ipagamma{{\ipa\char'040}}%
\def\babygamma{{\ipa\char'041}}%
 
%% H-type shapes:
\def\hv{{\ipa\char'042}}%
\def\crossh{{\ipa\char'043}}%
\def\hookh{{\ipa\char'044}}%
\def\hookheng{{\ipa\char'045}}%
\def\invh{{\ipa\char'046}}%
 
%% I-type shapes:
\def\bari{{\ipa\char'047}}%
\def\dlbari{{\ipa\char'050}}% ``dotless bar i''
\def\niiota{{\ipa\char'051}}%
\def\sci{{\ipa\char'052}}%
\def\barsci{{\ipa\char'053}}% ``barred small cap i''
 
%% J-type shape:
\def\invf{{\ipa\char'054}}%
 
%% L-type shapes:
\def\tildel{{\ipa\char'055}}%
\def\barl{{\ipa\char'056}}%
\def\latfric{{\ipa\char'057}}%
\def\taill{{\ipa\char'060}}%
\def\lz{{\ipa\char'061}}%
\def\nilambda{{\ipa\char'062}}%
\def\crossnilambda{{\ipa\char'063}}%
 
%% M-type shapes:
\def\labdentalnas{{\ipa\char'064}}%
\def\invm{{\ipa\char'065}}%
\def\legm{{\ipa\char'066}}%
 
%% N-type shapes:
\def\nj{{\ipa\char'067}}%
\def\eng{{\ipa\char'070}}%
\def\tailn{{\ipa\char'071}}%
\def\scn{{\ipa\char'072}}%
 
%% O-type shapes:
\def\clickb{{\ipa\char'073}}%
\def\baro{{\ipa\char'074}}%
\def\openo{{\ipa\char'075}}%
\def\niomega{{\ipa\char'076}}%
\def\closedniomega{{\ipa\char'077}}%
\def\oo{{\ipa\char'100}}%
 
%% P-type shapes:
\def\barp{{\ipa\char'101}}%
\def\thorn{{\ipa\char'102}}%
\def\niphi{{\ipa\char'103}}%
 
%% R-type shapes:
\def\flapr{{\ipa\char'104}}%
\def\legr{{\ipa\char'105}}%
\def\tailr{{\ipa\char'106}}%
\def\invr{{\ipa\char'107}}%
\def\tailinvr{{\ipa\char'110}}%
\def\invlegr{{\ipa\char'111}}%
\def\scr{{\ipa\char'112}}%
\def\invscr{{\ipa\char'113}}%
 
%% S-type shapes:
\def\tails{{\ipa\char'114}}%
\def\esh{{\ipa\char'115}}%
\def\curlyesh{{\ipa\char'116}}%
\def\nisigma{{\ipa\char'117}}%
 
%% T-type shapes:
\def\tailt{{\ipa\char'120}}%
\def\tesh{{\ipa\char'121}}%
\def\clickt{{\ipa\char'122}}%
\def\nitheta{{\ipa\char'123}}%
 
%% U-type shapes:
\def\baru{{\ipa\char'124}}%
\def\slashu{{\ipa\char'125}}%
\def\niupsilon{{\ipa\char'126}}%
\def\scu{{\ipa\char'127}}%
\def\barscu{{\ipa\char'130}}%
 
%% V-type shape:
\def\scriptv{{\ipa\char'131}}%
 
%% W-type shape:
\def\invw{{\ipa\char'132}}%
 
%% X-type shape:
\def\nichi{{\ipa\char'133}}%
 
%% Y-type shapes:
\def\invy{{\ipa\char'134}}%
\def\scy{{\ipa\char'135}}%
 
%% Z-type shapes:
\def\curlyz{{\ipa\char'136}}%
\def\tailz{{\ipa\char'137}}%
\def\yogh{{\ipa\char'140}}%
\def\curlyyogh{{\ipa\char'141}}%
 
%% ?-type shapes:
\def\glotstop{{\ipa\char'142}}%
\def\revglotstop{{\ipa\char'143}}%
\def\invglotstop{{\ipa\char'144}}%
\def\ejective{{\ipa\char'145}}%
\def\reveject{{\ipa\char'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\char'147}\hidewidth}}
 
\def\upt{{\ipa\char'154}}%   These are IPA pointers
\def\downt{{\ipa\char'155}}%
\def\leftt{{\ipa\char'156}}%
\def\rightt{{\ipa\char'157}}%
 
         %  These are American versions of t-bars
\def\upp{{\ipa\char'164}}
\def\downp{{\ipa\char'165}}%
\def\leftp{{\ipa\char'166}}%
\def\rightp{{\ipa\char'167}}%
 
\def\stress{{\ipa\char'150}}%     primary stress
\def\secstress{{\ipa\char'151}}%  secondary stress
 
\def\syllabic{{\ipa\char'152}}%   syllabic marker
 
\def\corner{{\ipa\char'153}}%
 
         % American equivalent: raised dot
\def\halflength{{\ipa\char'160}}
         %     American equivalent: colon
\def\length{{\ipa\char'161}}
 
\def\underdots{{\ipa\char'162}}%
 
         %       ``reversed apostrophe'', p. 216
\def\ain{{\ipa\char'163}}
 
\def\overring{{\ipa\char'170}}%
\def\underring{{\ipa\char'171}}%
 
\def\open{{\ipa\char'172}}%
 
\def\midtilde{{\ipa\char'173}}%
\def\undertilde{{\ipa\char'174}}%
 
\def\underwedge{{\ipa\char'175}}%
 
\def\polishhook{{\ipa\char'176}}%
 
\def\underarch#1{\oalign{#1\crcr
          \hidewidth{\ipa\char'177}\hidewidth}}
 
%% AND that's it for the diacritics.

\endinput
%% 
%% End of file `ipamacs.sty'.

