ibygrk runtime .tex files, wl 21 Feb 2008 08:38:51

git-svn-id: svn://tug.org/texlive/trunk@6712 c570f23f-e606-0410-a88d-b1316a301751

7 files changed, 292 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/generic/ibygrk/iby4extr.tex b/Master/texmf-dist/tex/generic/ibygrk/iby4extr.tex
new file mode 100644
index 00000000000..8cfbce85b8e
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/ibygrk/iby4extr.tex
@@ -0,0 +1,18 @@
+% iby4extr.tex-- P.A.  MacKay -- July 12, 1997
+% Pierre A. MacKay, Dept. of Classics, University of Washington
+% mackay@cs.washington.edu
+% ------------------------
+% Provides traditional text-editor symbols for critical edition
+% The control sequences follow Adobe naming conventions, to keep
+% them from any likely conflict with plain.tex.
+% I use \let\!=\dagger
+% as a short and convenient way of getting at it
+%
+\def\braceleft{\char'333}
+\def\braceright{\char'337}
+\def\bracketleftbt{\char'363}
+\def\bracketrightbt{\char'367}
+\def\dagger{\char'375}
+\def\dbldagger{\char'376}
+
+\input version4
diff --git a/Master/texmf-dist/tex/generic/ibygrk/ibycus4.tex b/Master/texmf-dist/tex/generic/ibygrk/ibycus4.tex
new file mode 100644
index 00000000000..464c4b4882d
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/ibygrk/ibycus4.tex
@@ -0,0 +1,26 @@
+\newtoks\digraphs
+\digraphs={tlgsqq}%
+%
+\newif\ifrestoreat
+\expandafter\ifnum\the\catcode`\@=11
+                 \restoreatfalse
+            \else\global\count9=\the\catcode`\@ 
+                 \catcode`\@=11
+		 \restoreattrue
+	    \fi
+%
+\input ibycus4.map
+%
+\ifx\newneploaded\undefined\input setiby4 \fi
+\gdef\GK{\ifx\gr@@kbaselineskip\undefined
+  \expandafter\csname\the\gr@@kpoint\endcsname\else\gr@@kpoint\fi
+  \begingroup
+  \def\GK{\relax}
+  \def\RM{\rm\endgroup}%
+  \ifx\gr@@kbaselineskip\undefined % newnep takes care of this
+  \else\normalbaselineskip\gr@@kbaselineskip\normalbaselines\fi
+  \expandafter\let\noexpand\it\gksl\gk}%
+\gdef\RM{\relax}%
+\ifrestoreat\catcode`\@=\the\count9 \fi % back to normal
+\global\count9=0
+\input iby4extr 
diff --git a/Master/texmf-dist/tex/generic/ibygrk/ibycusps.tex b/Master/texmf-dist/tex/generic/ibygrk/ibycusps.tex
new file mode 100644
index 00000000000..0a45161af71
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/ibygrk/ibycusps.tex
@@ -0,0 +1,26 @@
+\newtoks\digraphs
+\digraphs={tlgsqq}%
+%
+\newif\ifrestoreat
+\expandafter\ifnum\the\catcode`\@=11
+                 \restoreatfalse
+            \else\global\count9=\the\catcode`\@ 
+                 \catcode`\@=11
+		 \restoreattrue
+	    \fi
+%
+\input ibycus4.map
+%
+\ifx\newneploaded\undefined\input pssetiby \fi
+\gdef\GK{\ifx\gr@@kbaselineskip\undefined
+  \expandafter\csname\the\gr@@kpoint\endcsname\else\gr@@kpoint\fi
+  \begingroup
+  \def\GK{\relax}%
+  \def\RM{\rm\endgroup}%
+  \ifx\gr@@kbaselineskip\undefined % newnep takes care of this
+  \else\normalbaselineskip\gr@@kbaselineskip\normalbaselines\fi
+  \expandafter\let\noexpand\it\gksl\gk}%
+\gdef\RM{\relax}%
+\ifrestoreat\catcode`\@=\the\count9 \fi % back to normal
+\global\count9=0
+\input iby4extr
\ No newline at end of file
diff --git a/Master/texmf-dist/tex/generic/ibygrk/pssetiby.tex b/Master/texmf-dist/tex/generic/ibygrk/pssetiby.tex
new file mode 100644
index 00000000000..d008ba61197
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/ibygrk/pssetiby.tex
@@ -0,0 +1,47 @@
+%% patched for use with VTeX 2003-05-28 WaS
+%% start VTeX modification
+\expandafter\ifx\csname aliasfont\endcsname\relax
+\else
+  \begingroup
+    \catcode32=10 %
+    \aliasfont fibo84 = fibr84 slant 167 %
+  \endgroup
+\fi
+%% end VTeX modification
+\newfam\gkf@m
+\newskip\gr@@kbaselineskip
+\font\twelvegrk=fibr84 at 12pt
+\font\twelvegrksl=fibo84 scaled \magstep1
+\font\elevengrk=fibr84 at 10.95pt
+\font\elevengrksl=fibo84 scaled \magstephalf
+\font\tengrk=fibr84 at 10pt
+\font\tengrksl=fibo84
+%% start VTeX modification
+\font\ninegrk=fibr84 at 9pt       % \font\ninegrk=fibr849   
+\font\ninegrksl=fibo84 at 9pt     % \font\ninegrksl=fibo9 
+\font\eightgrk=fibr84 at 8pt      % \font\eightgrk=fibr848  
+\font\eightgrksl=fibo84 at 8pt    % \font\eightgrksl=fibo8
+%% end VTeX modification
+\gdef\setgreek#1/#2 {%
+  \def\f@ntp@int##1{\ifcase##1\toks0={zero}%
+   \or\toks0={zero}\or\toks0={zero}\or\toks0={zero}% 1,2,3
+   \or\toks0={zero}\or\toks0={zero}\or\toks0={zero}% 4,5,6
+   \or\toks0={zero}% 7
+   \or\toks0={eight}\or\toks0={nine}\or\toks0={ten}
+   \or\toks0={eleven}\or\toks0={twelve}\fi
+  }%
+  \def\gksizep@int##1{\expandafter\gdef\csname ##1point\endcsname{%%
+     \textfont\gkf@m=\csname ##1grk\endcsname
+     \gdef\gk{\fam\gkf@m\csname ##1grk\endcsname}%
+     \edef\gksl{\csname ##1grksl\endcsname}%
+  }}%
+  \global\gr@@kbaselineskip=#2pt
+  \f@ntp@int{#1}%
+      % Get the English for the fontsize into \toks0
+  \expandafter\expandafter\expandafter\gksizep@int{\the\toks0}%
+  \edef\gr@@kpoint{%
+    \expandafter\noexpand\csname\the\toks0point\endcsname}%
+  \csname\the\toks0point\endcsname
+}
+\message{Type \noexpand\setgreek10/12 to set 10pt greek on 12pt leading}
+\message{ \noexpand\GK to start, \noexpand\RM to end greek }
diff --git a/Master/texmf-dist/tex/generic/ibygrk/setiby4.tex b/Master/texmf-dist/tex/generic/ibygrk/setiby4.tex
new file mode 100644
index 00000000000..586f1efabfe
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/ibygrk/setiby4.tex
@@ -0,0 +1,35 @@
+\newfam\gkf@m
+\newskip\gr@@kbaselineskip
+\font\twelvegrk=fibr84 scaled \magstep1
+\font\twelvegrksl=fibo84 scaled \magstep1
+\font\elevengrk=fibr84 scaled \magstephalf
+\font\elevengrksl=fibo84 scaled \magstephalf
+\font\tengrk=fibr84
+\font\tengrksl=fibo84
+\font\ninegrk=fibr849
+\font\ninegrksl=fibo849
+\font\eightgrk=fibr848
+\font\eightgrksl=fibo848
+\gdef\setgreek#1/#2 {%
+  \def\f@ntp@int##1{\ifcase##1\toks0={zero}%
+   \or\toks0={zero}\or\toks0={zero}\or\toks0={zero}% 1,2,3
+   \or\toks0={zero}\or\toks0={zero}\or\toks0={zero}% 4,5,6
+   \or\toks0={zero}% 7
+   \or\toks0={eight}\or\toks0={nine}\or\toks0={ten}
+   \or\toks0={eleven}\or\toks0={twelve}\fi
+  }%
+  \def\gksizep@int##1{\expandafter\gdef\csname ##1point\endcsname{%%
+     \textfont\gkf@m=\csname ##1grk\endcsname
+     \gdef\gk{\fam\gkf@m\csname ##1grk\endcsname}%
+     \edef\gksl{\csname ##1grksl\endcsname}%
+  }}%
+  \global\gr@@kbaselineskip=#2pt
+  \f@ntp@int{#1}%
+      % Get the English for the fontsize into \toks0
+  \expandafter\expandafter\expandafter\gksizep@int{\the\toks0}%
+  \edef\gr@@kpoint{%
+    \expandafter\noexpand\csname\the\toks0point\endcsname}%
+  \csname\the\toks0point\endcsname
+}
+\message{Type \noexpand\setgreek10/12 to set 10pt greek on 12pt leading}
+\message{ \noexpand\GK to start, \noexpand\RM to end greek }
diff --git a/Master/texmf-dist/tex/generic/ibygrk/tlgsqq.tex b/Master/texmf-dist/tex/generic/ibygrk/tlgsqq.tex
new file mode 100644
index 00000000000..7e4314dcf2d
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/ibygrk/tlgsqq.tex
@@ -0,0 +1,135 @@
+\def\sp_lenis{\char'076}%
+\def\sp_asper{\char'074}%
+\def\lenis_oxy{)'}%
+\def\lenis_bary{)`}%
+\def\lenis_peri{)=}%
+\def\asper_oxy{('}%
+\def\asper_bary{(`}%
+\def\asper_peri{(=}%
+\def\a_{a}%
+\def\a_bary{a`}%
+\def\a_aspr{a(}%
+\def\a_len{a)}%
+\def\a_isub{a|}%
+\def\a_baryisub{a`|}%
+\def\a_asprisub{a(|}%
+\def\a_lenisub{a)|}%
+\def\a_isub{a|}%
+\def\a_oxy{a'}%
+\def\a_asproxy{a('}%
+\def\a_asprbary{a(`}%
+\def\a_lenoxy{a)'}%
+\def\a_lenbary{a)`}%
+\def\a_oxyisub{a'|}%
+\def\a_asproxyisub{a('|}%
+\def\a_asprbaryisub{a(`|}%
+\def\a_lenoxyisub{a)'|}%
+\def\a_lenbaryisub{a)`|}%
+\def\a_peri{a=}%
+\def\a_asprperi{a(=}%
+\def\a_lenperi{a)=}%
+\def\a_periisub{a=|}%
+\def\a_asprperiisub{a(=|}%
+\def\a_lenperiisub{a)=|}%
+\def\a_isub{a|}%
+\def\e_{e}%
+\def\e_bary{e`}%
+\def\e_aspr{e(}%
+\def\e_len{e)}%
+\def\e_oxy{e'}%
+\def\e_asproxy{e('}%
+\def\e_asprbary{e(`}%
+\def\e_lenoxy{e)'}%
+\def\e_lenbary{e)`}%
+\def\h_{h}%
+\def\h_bary{h`}%
+\def\h_aspr{h(}%
+\def\h_isub{h|}%
+\def\h_len{h)}%
+\def\h_baryisub{h`|}%
+\def\h_asprisub{h(|}%
+\def\h_lenisub{h)|}%
+\def\h_oxy{h'}%
+\def\h_asproxy{h('}%
+\def\h_asprbary{h(`}%
+\def\h_lenoxy{h)'}%
+\def\h_lenbary{h)`}%
+\def\h_oxyisub{h'|}%
+\def\h_asproxyisub{h('|}%
+\def\h_asprbaryisub{h(`|}%
+\def\h_lenoxyisub{h)'|}%
+\def\h_lenbaryisub{h)`|}%
+\def\h_peri{h=}%
+\def\h_asprperi{h(=}%
+\def\h_lenperi{h)=}%
+\def\h_periisub{h=|}%
+\def\h_asprperiisub{h(=|}%
+\def\h_lenperiisub{h)=|}%
+\def\h_isub{h|}%
+\def\i_{i}%
+\def\i_bary{i`}%
+\def\i_aspr{i(}%
+\def\i_len{i)}%
+\def\i_oxy{i'}%
+\def\i_asproxy{i('}%
+\def\i_asprbary{i(`}%
+\def\i_lenoxy{i)'}%
+\def\i_lenbary{i)`}%
+\def\i_peri{i=}%
+\def\i_asprperi{i(=}%
+\def\i_lenperi{i)=}%
+\def\i_diaer{i+}%
+\def\i_barydiaer{i+`}%
+\def\i_oxydiaer{i+'}%
+\def\i_peridiaer{i+=}%
+\def\o_{o}%
+\def\o_bary{o`}%
+\def\o_aspr{o(}%
+\def\o_len{o)}%
+\def\o_oxy{o'}%
+\def\o_asproxy{o('}%
+\def\o_asprbary{o(`}%
+\def\o_lenoxy{o)'}%
+\def\o_lenbary{o)`}%
+\def\u_{u}%
+\def\u_bary{u`}%
+\def\u_aspr{u(}%
+\def\u_len{u)}%
+\def\u_oxy{u'}%
+\def\u_asproxy{u('}%
+\def\u_asprbary{u(`}%
+\def\u_lenoxy{u)'}%
+\def\u_lenbary{u)`}%
+\def\u_peri{u=}%
+\def\u_asprperi{u(=}%
+\def\u_lenperi{u)=}%
+\def\u_diaer{u+}%
+\def\u_barydiaer{u+`}%
+\def\u_oxydiaer{u+'}%
+\def\u_peridiaer{u+=}%
+\def\w_{w}%
+\def\w_bary{w`}%
+\def\w_aspr{w(}%
+\def\w_len{w)}%
+\def\w_isub{w|}%
+\def\w_baryisub{w`|}%
+\def\w_asprisub{w(|}%
+\def\w_lenisub{w)|}%
+\def\w_oxy{w'}%
+\def\w_asproxy{w('}%
+\def\w_asprbary{w(`}%
+\def\w_lenoxy{w)'}%
+\def\w_lenbary{w)`}%
+\def\w_oxyisub{w'|}%
+\def\w_lenoxyisub{w)'|}%
+\def\w_lenbaryisub{w)`|}%
+\def\w_asproxyisub{w('|}%
+\def\w_asprbaryisub{w(`|}%
+\def\w_peri{w=}%
+\def\w_asprperi{w(=}%
+\def\w_lenperi{w)=}%
+\def\w_periisub{w=|}%
+\def\w_asprperiisub{w(=|}%
+\def\w_lenperiisub{w)=|}%
+\def\w_isub{w|}%
+
diff --git a/Master/texmf-dist/tex/generic/ibygrk/version4.tex b/Master/texmf-dist/tex/generic/ibygrk/version4.tex
new file mode 100644
index 00000000000..4e3499ad4f6
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/ibygrk/version4.tex
@@ -0,0 +1,5 @@
+% version4.tex-- P.A.  MacKay -- July 15, 1997
+% Pierre A. MacKay, Dept. of Classics, University of Washington
+% mackay@cs.washington.edu
+% ------------------------
+\message{Ibycus Greek. Version 4. 15 July 1997}