diff options
Diffstat (limited to 'Master/texmf-dist/source/luatex/hyph-utf8')
| -rw-r--r-- | Master/texmf-dist/source/luatex/hyph-utf8/luatex-hyphen.dtx | 617 |
1 files changed, 38 insertions, 579 deletions
diff --git a/Master/texmf-dist/source/luatex/hyph-utf8/luatex-hyphen.dtx b/Master/texmf-dist/source/luatex/hyph-utf8/luatex-hyphen.dtx index 74b6c88f399..ca1761ef2b6 100644 --- a/Master/texmf-dist/source/luatex/hyph-utf8/luatex-hyphen.dtx +++ b/Master/texmf-dist/source/luatex/hyph-utf8/luatex-hyphen.dtx @@ -1,30 +1,7 @@ % \iffalse meta-comment % -% This is a modified version of the hyphen.cfg file from the babel system, -% intended for use with LuaTeX, but compatible with other engines. -% The present file IS NOT part of the babel system. -% -% The modifications are Copyright 2012 Khaled Hosny, Élie Roux, and Manuel -% Pégourié-Gonnard, under LPPL version 1.3 or later. -% -% Here is the licence statement of the original hyphen.cfg file: -% | -% | Copyright 1989-2008 Johannes L. Braams and any individual authors -% | Listed elsewhere in this file. All rights reserved. -% | -% | It may be distributed and/or modified under the -% | Conditions of the LaTeX Project Public License, either version 1.3 -% | Of this license or (at your option) any later version. -% | The latest version of this license is in -% | http://www.latex-project.org/lppl.txt -% | And version 1.3 or later is part of all distributions of LaTeX -% | Version 2003/12/01 or later. -% | -% | This work has the LPPL maintenance status "maintained". -% | -% | The Current Maintainer of this work is Johannes Braams. -% | -% `---=(licence statement of original hyphen.cfg)=--- +% This is a module for hyphenation patterns loading for LuaTeX. It is under +% the CC0 license (http://creativecommons.org/publicdomain/zero/1.0/). % %<*ignore> \begingroup @@ -41,40 +18,6 @@ \keepsilent \askforoverwritefalse -\preamble - -This is a modified version of the hyphen.cfg file from the babel system, -intended for use with LuaTeX, but compatible with other engines. -The present file IS NOT part of the babel system. - -The modifications are Copyright 2012 Khaled Hosny, Elie Roux, and Manuel -Pegourie-Gonnard, under LPPL version 1.3 or later. - -Here is the licence statement of the original hyphen.cfg file: - | - | Copyright 1989-2008 Johannes L. Braams and any individual authors - | Listed elsewhere in this file. All rights reserved. - | - | It may be distributed and/or modified under the - | Conditions of the LaTeX Project Public License, either version 1.3 - | Of this license or (at your option) any later version. - | The latest version of this license is in - | http://www.latex-project.org/lppl.txt - | And version 1.3 or later is part of all distributions of LaTeX - | Version 2003/12/01 or later. - | - | This work has the LPPL maintenance status "maintained". - | - | The Current Maintainer of this work is Johannes Braams. - | - `---=(licence statement of original hyphen.cfg)=--- - -\endpreamble - -\generate{% - \file{hyphen.cfg}{\from{luatex-hyphen.dtx}{hyphen}}% -} - \def\MetaPrefix{-- } \def\luapostamble{% @@ -88,7 +31,7 @@ Here is the licence statement of the original hyphen.cfg file: This is a generated file (source: luatex-hyphen.dtx). -Copyright (C) 2012 by The LuaLaTeX development team. +Copyright (C) 2012-2013 by The LuaLaTeX development team. This work is under the CC0 license. @@ -106,11 +49,23 @@ This work is under the CC0 license. %<*driver> \NeedsTeXFormat{LaTeX2e} \ProvidesFile{luatex-hyphen.drv} - [2012/04/16 v1.5 Hyphenation file for LuaTeX] + [2013/05/16 v1.6 Hyphenation pattern loading for LuaTeX] \documentclass{ltxdoc} -\usepackage[utf8]{inputenc} -\usepackage[T1]{fontenc} -\usepackage{lmodern} +\usepackage[ + pdftitle={The luatex-hyphen package}, + pdfsubject={Hyphenation pattern loading for LuaTeX}, + pdfauthor={Manuel Pégourié-Gonnard, Khaled Hosny & Elie Roux}, + pdfkeywords={luatex, lualatex, unicode, hyphenation} +]{hyperref} +\usepackage{fontspec} +\setmainfont[ + Ligatures = TeX, + BoldFont = {Linux Libertine O Bold}, + ItalicFont = {Linux Libertine O Italic}, + SlantedFont = {Linux Libertine O Italic}, +]{Linux Libertine O} +\setmonofont[Ligatures=TeX,Scale=MatchLowercase]{Liberation Mono} +\setsansfont[Ligatures=TeX,Scale=MatchLowercase]{Iwona Medium} \EnableCrossrefs \CodelineIndex \begin{document} @@ -140,7 +95,7 @@ This work is under the CC0 license. % \GetFileInfo{luatex-hyphen.drv} % % \title{The \texttt{hyphen.cfg} file for Lua\TeX } -% \date{2012/04/16 v1.5} +% \date{2013/05/16 v1.6} % \author{Khaled Hosny, Élie Roux, and Manuel Pégourié-Gonnard\\ % \texttt{khaledhosny@eglug.org} \\ % \texttt{elie.roux@telecom-bretagne.eu} \\ @@ -149,12 +104,17 @@ This work is under the CC0 license. % \maketitle % % \begin{abstract} -% This is a modified version of the file \texttt{hyphen.cfg} distributed with -% the \textsf{babel} package, with a supporting Lua module, aimed at adapting -% \textsf{babel}'s hyphenation patterns loading mechanism to Lua\TeX's dynamic -% pattern loading capabilities. It makes use of a \texttt{language.dat.lua} -% file (whose format is described below) that should be present in the -% distribution, in addition to the regular \texttt{language.dat} file. +% This package is mainly a Lua module, to be used by \textsf{Babel} and +% \textsf{polyglossia} to adapt their hyphenation patterns loading mechanism to +% Lua\TeX's dynamic pattern loading capabilities. It makes use of a +% \texttt{language.dat.lua} file (whose format is described below) that should +% be present in the distribution, in addition to the regular +% \texttt{language.dat} file. +% +% \textsf{Babel} needed to be updated -- this used to be the goal of this +% package -- before version \textsf{3.9} (\TeX Live 2013) and +% \textsf{polyglossia} handles Lua\TeX\ since version \textsf{1.3} (\TeX Live +% 2013). % % There is a version of \texttt{etex.src} modified for the same reasons using % similar code, which also makes use of the \texttt{luatex-hyphen.lua} and @@ -236,19 +196,11 @@ This work is under the CC0 license. % always loaded in the format, as \verb+\language0+.\footnote{It is assumed % to be the first entry in \texttt{language.dat}.} % -% The modified version of \texttt{hyphen.cfg} provided here checks for the -% engine, and should continue to work with any engine without any modified -% behaviour. However, it is recommended to install it in such a way that the -% original \verb+hyphen.cfg+ from \textsf{babel} is found first by any engine -% other than Lua\TeX. -% % \StopEventually{ % } % % \section{Implementation} % -% \subsection{luatex-hyphen.lua} -% % \begin{macrocode} %<*lua> % \end{macrocode} @@ -256,6 +208,8 @@ This work is under the CC0 license. % Start a Lua module, two functions for error and information reporting. % % \begin{macrocode} +luatexhyphen = luatexhyphen or {} +local luatexhyphen = luatexhyphen local function wlog(msg, ...) texio.write_nl('log', 'luatex-hyphen: '..msg:format(...)) end @@ -270,7 +224,7 @@ end % \begin{macrocode} local dbname = "language.dat.lua" local language_dat -local dbfile = kpse.find_file(dbname) +local dbfile = kpse.find_file(dbname, 'lua') if not dbfile then err("file not found: "..dbname) else @@ -296,6 +250,7 @@ local function lookupname(name) end end end +luatexhyphen.lookupname = lookupname % \end{macrocode} % % Set hyphenation patterns and exceptions for a language given by its name @@ -355,9 +310,10 @@ local function loadlanguage(lname, id) end end end +luatexhyphen.loadlanguage = loadlanguage % \end{macrocode} % -% Add Babe's ``dialects'' as synonyms. +% Add \textsf{Babel}'s ``dialects'' as synonyms. % % \begin{macrocode} local function adddialect(dialect, language) @@ -370,509 +326,12 @@ local function adddialect(dialect, language) end end end -% \end{macrocode} -% -% Return module functions to the loader. -% -% \begin{macrocode} -return { - lookupname = lookupname, - loadlanguage = loadlanguage, - adddialect = adddialect, -} +luatexhyphen.adddialect = adddialect % \end{macrocode} % % \begin{macrocode} %</lua> % \end{macrocode} % -% \subsection{hyphen.cfg} -% -% \begin{macrocode} -%<*hyphen> -% \end{macrocode} -% -% Start with unmodified code from \textsf{babel}. -% -% \begin{macrocode} -\ifx\ProvidesFile\@undefined - \def\ProvidesFile#1[#2 #3 #4]{% - \wlog{File: #1 #4 #3 <#2>}% -% \end{macrocode} -% -% Use a modified banner for Lua\TeX. -% -% \begin{macrocode} - \ifx\directlua\@undefined - \toks8{Babel <#3> and hyphenation patterns for }% - \else - \toks8{LuaTeX adaptation of babel <#3> - and hyphenation patterns for }% - \fi -% \end{macrocode} -% -% \begin{macrocode} - \let\ProvidesFile\@undefined - } - \def\ProvidesLanguage#1[#2 #3 #4]{% - \wlog{Language: #1 #4 #3 <#2>}% - } -\else - \let\bbl@tempa\ProvidesFile - \def\ProvidesFile#1[#2 #3 #4]{% -% \end{macrocode} -% -% Same here. -% -% \begin{macrocode} - \ifx\directlua\@undefined - \toks8{Babel <#3> and hyphenation patterns for }% - \else - \toks8{LuaTeX adaptation of babel <#3> - and hyphenation patterns for }% - \fi -% \end{macrocode} -% -% \begin{macrocode} - \bbl@tempa#1[#2 #3 #4]% - \let\ProvidesFile\bbl@tempa} - \def\ProvidesLanguage#1{% - \begingroup - \catcode`\ 10 % - \@makeother\/% - \@ifnextchar[%] - {\@provideslanguage{#1}}{\@provideslanguage{#1}[]}} - \def\@provideslanguage#1[#2]{% - \wlog{Language: #1 #2}% - \expandafter\xdef\csname ver@#1.ldf\endcsname{#2}% - \endgroup} -\fi - -% \end{macrocode} -% -% File identification is modified again. -% -% \begin{macrocode} -\ProvidesFile{hyphen.cfg} - [2012/04/16 v3.8m-luatex-1.5 % - Language switching mechanism for LuaTeX, adapted from babel v3.8m] -% \end{macrocode} -% -% \begin{macrocode} -\ifx\AtBeginDocument\@undefined - \input plain.def\relax -\fi -\ifx\language\@undefined - \csname newcount\endcsname\language -\fi -\ifx\newlanguage\@undefined - \csname newcount\endcsname\last@language -\else - \countdef\last@language=19 -\fi -\ifx\newlanguage\@undefined - \def\addlanguage#1{% - \global\advance\last@language \@ne - \ifnum\last@language<\@cclvi - \else - \errmessage{No room for a new \string\language!}% - \fi - \global\chardef#1\last@language - \wlog{\string#1 = \string\language\the\last@language}} -\else - \def\addlanguage{\alloc@9\language\chardef\@cclvi} -\fi -\def\adddialect#1#2{% - \global\chardef#1#2\relax - \ifx\directlua\@undefined\else - \ifx\directlua\relax\else - \directlua{ - if not luatexhyphen then - luatexhyphen = require("luatex-hyphen") - end - luatexhyphen.adddialect("\string#1", "\string#2") - }% - \fi - \fi - \wlog{\string#1 = a dialect from \string\language#2}} -\def\iflanguage#1{% - \expandafter\ifx\csname l@#1\endcsname\relax - \@nolanerr{#1}% - \else - \bbl@afterfi{\ifnum\csname l@#1\endcsname=\language - \expandafter\@firstoftwo - \else - \expandafter\@secondoftwo - \fi}% - \fi} -\edef\selectlanguage{% - \noexpand\protect - \expandafter\noexpand\csname selectlanguage \endcsname - } -\ifx\@undefined\protect\let\protect\relax\fi -\ifx\documentclass\@undefined - \def\xstring{\string\string\string} -\else - \let\xstring\string -\fi -\xdef\bbl@language@stack{} -\def\bbl@push@language{% - \xdef\bbl@language@stack{\languagename+\bbl@language@stack}% - } -\def\bbl@pop@lang#1+#2-#3{% - \def\languagename{#1}\xdef#3{#2}% - } -\def\bbl@pop@language{% - \expandafter\bbl@pop@lang\bbl@language@stack-\bbl@language@stack - \expandafter\bbl@set@language\expandafter{\languagename}% - } -\expandafter\def\csname selectlanguage \endcsname#1{% - \bbl@push@language - \aftergroup\bbl@pop@language - \bbl@set@language{#1}} -\def\bbl@set@language#1{% - \edef\languagename{% - \ifnum\escapechar=\expandafter`\string#1\@empty - \else \string#1\@empty\fi}% - \select@language{\languagename}% - \if@filesw - \protected@write\@auxout{}{\string\select@language{\languagename}}% - \addtocontents{toc}{\xstring\select@language{\languagename}}% - \addtocontents{lof}{\xstring\select@language{\languagename}}% - \addtocontents{lot}{\xstring\select@language{\languagename}}% - \fi} -\def\select@language#1{% - \expandafter\ifx\csname l@#1\endcsname\relax - \@nolanerr{#1}% - \else - \expandafter\ifx\csname date#1\endcsname\relax - \@noopterr{#1}% - \else - \bbl@patterns{\languagename}% - \originalTeX - \expandafter\def\expandafter\originalTeX - \expandafter{\csname noextras#1\endcsname - \let\originalTeX\@empty}% - \languageshorthands{none}% - \babel@beginsave - \csname captions#1\endcsname - \csname date#1\endcsname - \csname extras#1\endcsname\relax - \babel@savevariable\lefthyphenmin - \babel@savevariable\righthyphenmin - \expandafter\ifx\csname #1hyphenmins\endcsname\relax - \set@hyphenmins\tw@\thr@@\relax - \else - \expandafter\expandafter\expandafter\set@hyphenmins - \csname #1hyphenmins\endcsname\relax - \fi - \fi - \fi} -\long\def\otherlanguage#1{% - \csname selectlanguage \endcsname{#1}% - \ignorespaces - } -\long\def\endotherlanguage{% - \originalTeX - \global\@ignoretrue\ignorespaces - } -\expandafter\def\csname otherlanguage*\endcsname#1{% - \foreign@language{#1}% - } -\expandafter\def\csname endotherlanguage*\endcsname{% - \csname noextras\languagename\endcsname - } -\def\foreignlanguage{\protect\csname foreignlanguage \endcsname} -\expandafter\def\csname foreignlanguage \endcsname#1#2{% - \begingroup - \originalTeX - \foreign@language{#1}% - #2% - \csname noextras#1\endcsname - \endgroup - } -\def\foreign@language#1{% - \def\languagename{#1}% - \expandafter\ifx\csname l@#1\endcsname\relax - \@nolanerr{#1}% - \else - \bbl@patterns{\languagename}% - \languageshorthands{none}% - \csname extras#1\endcsname - \expandafter\ifx\csname #1hyphenmins\endcsname\relax - \set@hyphenmins\tw@\thr@@\relax - \else - \expandafter\expandafter\expandafter\set@hyphenmins - \csname #1hyphenmins\endcsname\relax - \fi - \fi - } -\def\bbl@patterns#1{% - \language=\expandafter\ifx\csname l@#1:\f@encoding\endcsname\relax - \csname l@#1\endcsname - \else - \csname l@#1:\f@encoding\endcsname - \fi\relax -% \end{macrocode} -% -% With Lua\TeX, load patterns and exceptions on the fly using functions -% from the supporting Lua module, unless of course they are already loaded -% for this language (identified by its number to avoid problems with -% synonyms). -% -% Also, since this code will be executed at runtime, be careful while -% testing if we're using Lua\TeX. -% -% \begin{macrocode} - \ifx\directlua\@undefined\else - \ifx\directlua\relax\else - \ifcsname lu@texhyphen@loaded@\the\language\endcsname \else - \global\@namedef{lu@texhyphen@loaded@\the\language}{}% - \directlua{ - if not luatexhyphen then - luatexhyphen = require("luatex-hyphen") - end - luatexhyphen.loadlanguage("\luatexluaescapestring{#1}", - \the\language)}% - \fi - \fi - \fi -% \end{macrocode} -% -% \begin{macrocode} -} -\def\hyphenrules#1{% - \expandafter\ifx\csname l@#1\endcsname\@undefined - \@nolanerr{#1}% - \else - \bbl@patterns{#1}% - \languageshorthands{none}% - \expandafter\ifx\csname #1hyphenmins\endcsname\relax - \set@hyphenmins\tw@\thr@@\relax - \else - \expandafter\expandafter\expandafter\set@hyphenmins - \csname #1hyphenmins\endcsname\relax - \fi - \fi - } -\def\endhyphenrules{} -\def\providehyphenmins#1#2{% - \expandafter\ifx\csname #1hyphenmins\endcsname\relax - \@namedef{#1hyphenmins}{#2}% - \fi} -\def\set@hyphenmins#1#2{\lefthyphenmin#1\righthyphenmin#2} -\def\LdfInit{% - \chardef\atcatcode=\catcode`\@ - \catcode`\@=11\relax - \input babel.def\relax - \catcode`\@=\atcatcode \let\atcatcode\relax - \LdfInit} -\ifx\originalTeX\@undefined\let\originalTeX\@empty\fi -\ifx\babel@beginsave\@undefined\let\babel@beginsave\relax\fi -\ifx\PackageError\@undefined - \def\@nolanerr#1{% - \errhelp{Your command will be ignored, type <return> to proceed}% - \errmessage{You haven't defined the language #1\space yet}} - \def\@nopatterns#1{% - \message{No hyphenation patterns were loaded for}% - \message{the language `#1'}% - \message{I will use the patterns loaded for \string\language=0 - instead}} - \def\@noopterr#1{% - \errmessage{The option #1 was not specified in \string\usepackage} - \errhelp{You may continue, but expect unexpected results}} - \def\@activated#1{% - \wlog{Package babel Info: Making #1 an active character}} -\else - \newcommand*{\@nolanerr}[1]{% - \PackageError{babel}% - {You haven't defined the language #1\space yet}% - {Your command will be ignored, type <return> to proceed}} - \newcommand*{\@nopatterns}[1]{% - \PackageWarningNoLine{babel}% - {No hyphenation patterns were loaded for\MessageBreak - the language `#1'\MessageBreak - I will use the patterns loaded for \string\language=0 - instead}} - \newcommand*{\@noopterr}[1]{% - \PackageError{babel}% - {You haven't loaded the option #1\space yet}% - {You may proceed, but expect unexpected results}} - \newcommand*{\@activated}[1]{% - \PackageInfo{babel}{% - Making #1 an active character}} -\fi -\def\process@line#1#2 #3/{% - \ifx=#1 - \process@synonym#2 / - \else - \process@language#1#2 #3/% - \fi - } -\toks@{} -\def\process@synonym#1 /{% - \ifnum\last@language=\m@ne - \expandafter\chardef\csname l@#1\endcsname0\relax - \wlog{\string\l@#1=\string\language0} - \toks@\expandafter{\the\toks@ - \expandafter\let\csname #1hyphenmins\expandafter\endcsname - \csname\languagename hyphenmins\endcsname}% - \else - \expandafter\chardef\csname l@#1\endcsname\last@language - \wlog{\string\l@#1=\string\language\the\last@language} - \expandafter\let\csname #1hyphenmins\expandafter\endcsname - \csname\languagename hyphenmins\endcsname - \fi - } -\def\process@language#1 #2 #3/{% - \expandafter\addlanguage\csname l@#1\endcsname - \expandafter\language\csname l@#1\endcsname - \def\languagename{#1}% -% \end{macrocode} -% -% In the Lua\TeX\ case, we have to decide wether to load the language now. -% Remember our choice, since we'll need it two times more. -% -% If we choose to load the language now, mark it as loaded. This is done -% using \TeX\ macros in order to survive the format dumping-loading cycle, -% which would not be as straigthforward using Lua objects. -% -% \begin{macrocode} - \ifx\directlua\@undefined - \global\toks8\expandafter{\the\toks8#1, }% - \else - \directlua{ - if not luatexhyphen then - luatexhyphen = require("luatex-hyphen") - end - processnow = (tex.language == 0) or - (luatexhyphen.lookupname("\luatexluaescapestring{#1}") == nil)}% - \ifnum0=\directlua{tex.sprint(processnow and "0" or "1")}\relax - \global\toks8\expandafter{\the\toks8#1, }% - \global\@namedef{lu@texhyphen@loaded@\the\language}{}% - \fi - \fi -% \end{macrocode} -% -% \begin{macrocode} - \begingroup - \bbl@get@enc#1:\@@@ - \ifx\bbl@hyph@enc\@empty - \else - \fontencoding{\bbl@hyph@enc}\selectfont - \fi - \lefthyphenmin\m@ne -% \end{macrocode} -% -% Conditionally input the patterns file. -% -% \begin{macrocode} - \ifx\directlua\@undefined - \input #2\relax - \else - \ifnum0=\directlua{tex.sprint(processnow and "0" or "1")}\relax - \input #2\relax - \fi - \fi -% \end{macrocode} -% -% \begin{macrocode} - \ifnum\lefthyphenmin=\m@ne - \else - \expandafter\xdef\csname #1hyphenmins\endcsname{% - \the\lefthyphenmin\the\righthyphenmin}% - \fi - \endgroup - \ifnum\the\language=\z@ - \expandafter\ifx\csname #1hyphenmins\endcsname\relax - \set@hyphenmins\tw@\thr@@\relax - \else - \expandafter\expandafter\expandafter\set@hyphenmins - \csname #1hyphenmins\endcsname - \fi - \the\toks@ - \fi - \toks@{}% - \def\bbl@tempa{#3}% - \ifx\bbl@tempa\@empty - \else - \ifx\bbl@tempa\space - \else -% \end{macrocode} -% -% Conditionnaly input the exceptions file. -% -% \begin{macrocode} - \ifx\directlua\@undefined - \input #3\relax - \else - \ifnum0=\directlua{tex.sprint(processnow and "0" or "1")}\relax - \input #3\relax - \fi - \directlua{processnow = nil}% - \fi -% \end{macrocode} -% -% \begin{macrocode} - \fi - \fi - } -\def\bbl@get@enc#1:#2\@@@{% - \def\bbl@tempa{#1}% - \def\bbl@tempb{#2}% - \ifx\bbl@tempb\@empty - \let\bbl@hyph@enc\@empty - \else - \bbl@get@enc#2\@@@ - \edef\bbl@hyph@enc{\bbl@tempa}% - \fi} -\openin1 = language.dat -\ifeof1 - \message{I couldn't find the file language.dat,\space - I will try the file hyphen.tex} - \input hyphen.tex\relax - \def\l@english{0}% - \def\languagename{english}% -\else - \last@language\m@ne - \loop - \endlinechar\m@ne - \read1 to \bbl@line - \endlinechar`\^^M - \ifx\bbl@line\@empty - \else - \edef\bbl@line{\bbl@line\space/}% - \expandafter\process@line\bbl@line - \ifx\bbl@defaultlanguage\@undefined - \let\bbl@defaultlanguage\languagename - \fi - \fi - \iftrue \csname fi\endcsname - \csname if\ifeof1 false\else true\fi\endcsname - \repeat - \language=0 - \let\languagename\bbl@defaultlanguage - \let\bbl@defaultlanguage\@undefined -\fi -\closein1 -\let\process@language\@undefined -\let\process@synonym\@undefined -\let\process@line\@undefined -\let\bbl@tempa\@undefined -\let\bbl@tempb\@undefined -\let\bbl@eq@\@undefined -\let\bbl@line\@undefined -\let\bbl@get@enc\@undefined -\ifx\addto@hook\@undefined -\else - \expandafter\addto@hook\expandafter\everyjob\expandafter{% - \expandafter\typeout\expandafter{\the\toks8 loaded.}} -\fi -% \end{macrocode} -% -% \begin{macrocode} -%</hyphen> -% \end{macrocode} -% % \Finale \endinput |