summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-04-27 22:52:36 +0000
committerKarl Berry <karl@freefriends.org>2016-04-27 22:52:36 +0000
commitccdb21bb02bbdc081efdabf33246e6b0de6a5be6 (patch)
tree3e1d9b2e91e15634bb1064d717280d49b8a75d2f /Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua
parent4ca0e50699e2f4fc4dbe8b1dc4fe528a51b5429d (diff)
arabluatex (27apr16)
git-svn-id: svn://tug.org/texlive/trunk@40788 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua')
-rw-r--r--Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua57
1 files changed, 34 insertions, 23 deletions
diff --git a/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua b/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua
index b61c6db7373..6b3f1bc092c 100644
--- a/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua
+++ b/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua
@@ -1,25 +1,25 @@
--[[
This file is part of the `arabluatex' package
+ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX
Copyright (C) 2016 Robert Alessi
-Please send error reports and suggestions for improvements to
-Robert Alessi <alessi@robertalessi.net>
+Please send error reports and suggestions for improvements to Robert
+Alessi <alessi@robertalessi.net>
-This program is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; either version 2
-of the License, or (at your option) any later version.
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+General Public License for more details.
You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-02111-1307, USA.
+along with this program. If not, see
+<http://www.gnu.org/licenses/>.
--]]
-- common
@@ -81,8 +81,12 @@ hamzatrdmg = {
{a="''([Uu])", b="ʾʾ%1"},
{a="''([Aa])", b="ʾʾ%1"},
{a="''([Ii])", b="ʾʾ%1"},
- -- initial long u
+ -- initial long u and i (for a, see below)
{a="%'%_U", b="ʾU"},
+ {a="%'%_I", b="ʾI"},
+ -- taḫfīfu 'l-hamza
+ {a="'u'([^uaiUAI])", b="ʾU%1"},
+ {a="'i'([^uaiUAI])", b="ʾI%1"},
-- madda (historic writing below)
{a="'a'([^uaiUAI])", b="ʾA%1"},
{a="'a?A", b="ʾA"},
@@ -128,15 +132,15 @@ tanwintrdmg = {
{a="iNU", b="in"},
-- tanwīn preceding ʾalif conjunctionis
{a="(uN)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="uni%2%3"},
- {a="(aN)(_A)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="ani%3%4"},
- {a="(aN)(Y)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="ani%3%4"},
+ {a="(aN)(_A)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="ạni%3%4"},
+ {a="(aN)(Y)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="ạni%3%4"},
{a="(T)(aN)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="tani%3%4"},
{a="([^TA])(aN)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="%1ani%3%4"},
{a="(iN)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="ini%2%3"},
--
{a="uN", b="un"},
- {a="(aN)(_A)", b="an"},
- {a="(aN)(Y)", b="an"},
+ {a="(aN)(_A)", b="ạn"},
+ {a="(aN)(Y)", b="ạn"},
{a="(T)(\"?aN)", b="tan"},
{a="([^TA])(\"?aN)", b="%1an"},
{a="iN", b="in"}
@@ -231,7 +235,7 @@ digraphstrdmg = {
-- {a="(U)(A)", b="ū"},
{a="WA", b="w"},
{a="(a)W", b="%1w"},
- {a="_A", b="ā"},
+ {a="_A", b="ạ̄"},
{a="_u", b="ū"},
{a="_a", b="ā"},
{a="_i", b="ī"},
@@ -271,7 +275,7 @@ longvtrdmg = {
{a="A", b="ā"},
{a="U", b="ū"},
{a="I", b="ī"},
- {a="Y", b="ā"}
+ {a="Y", b="ạ̄"}
}
shortvtrdmg = {
@@ -294,12 +298,19 @@ hamzatrloc = {
{a="''([Uu])", b="ʾʾ%1"},
{a="''([Aa])", b="ʾʾ%1"},
{a="''([Ii])", b="ʾʾ%1"},
- -- initial long u
+ -- initial long u and i (for a, see below)
{a="%'%_U", b="U"},
+ {a="%'%_I", b="I"},
+ -- taḫfīfu 'l-hamza
+ {a="^'u'([^uaiUAI])", b="U%1"},
+ {a="(%W)'u'([^uaiUAI])", b="%1U%2"},
+ {a="'u'([^uaiUAI])", b="ʾU"},
+ {a="^'i'([^uaiUAI])", b="I%1"},
+ {a="(%W)'i'([^uaiUAI])", b="%1I%2"},
+ {a="'i'([^uaiUAI])", b="ʾI"},
-- madda (historic writing below)
{a="^(')(A)", b="%2"},
- {a="(%W)(')(A)", b="%1%3"},
-
+ {a="(%W)(')(A)", b="%1%3"},
{a="^'a'([^uaiUAI])", b="A%1"},
{a="(%W)'a'([^uaiUAI])", b="%1A%2"},
{a="'a'([^uaiUAI])", b="A%1"},