xindy-persian, by hand (12oct13)

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

3 files changed, 288 insertions, 177 deletions

diff --git a/Master/texmf-dist/xindy/modules/lang/persian/README b/Master/texmf-dist/xindy/modules/lang/persian/README
new file mode 100644
index 00000000000..c505dd30559
--- /dev/null
+++ b/Master/texmf-dist/xindy/modules/lang/persian/README
@@ -0,0 +1,30 @@
+________________________
+The “xindy-persian” package
+v0.5
+
+The “xindy-persian” package is the Persian language
+support for xindy program.
+
+If you want to report any bugs or typos and corrections in the documentation,
+or ask for any new features, or suggest any improvements, or ask any questions
+about the package, then please do not send any direct emails to us; we will not 
+answer any direct emails. Instead please use the issue tracker:
+  <https://github.com/vafa/xindy-persian>
+In doing so, please always explain your issue well enough, always include
+a minimal working examples showing the issue, and always choose the appropriate
+label for your query (i.e. if you are reporting any bugs, choose `bug' label). 
+
+Current version release date: 2013/10/12
+_________________
+Vafa Khalighi
+persian-tex@tug.org
+
+Copyright © 2011–2013 Vafa Khalighi
+Distributed under the LaTeX Project Public License
+It may be distributed and/or modified under the LaTeX Project Public License,
+version 1.3c or higher (your choice). The latest version of
+this license is at: http://www.latex-project.org/lppl.txt
+
+This work is “maintained” (as per LPPL maintenance status)
+by Vafa Khalighi.
+
diff --git a/Master/texmf-dist/xindy/modules/lang/persian/utf8.pl.in b/Master/texmf-dist/xindy/modules/lang/persian/utf8.pl.in
new file mode 100644
index 00000000000..7c403cd1b51
--- /dev/null
+++ b/Master/texmf-dist/xindy/modules/lang/persian/utf8.pl.in
@@ -0,0 +1,80 @@
+#!/usr/bin/perl
+
+$language = "Persian";
+$prefix = "pe";
+$script = "arabic";
+
+$alphabet = [
+['آ',['آ']],
+['ا',['أ','ا']],
+['ب',['ب']],
+['پ',['پ']],
+['ت',['ت']],
+['ث',['ث']],
+['ج',['ج']],
+['چ',['چ']],
+['ح',['ح']],
+['خ',['خ']],
+['د',['د']],
+['ذ',['ذ']],
+['ر',['ر']],
+['ز',['ز']],
+['ژ',['ژ']],
+['س',['س']],
+['ش',['ش']],
+['ص',['ص']],
+['ض',['ض']],
+['ط',['ط']],
+['ظ',['ظ']],
+['ع',['ع']],
+['غ',['غ']],
+['ف',['ف']],
+['ق',['ق']],
+['ک',['ک']],
+['گ',['گ']],
+['ل',['ل']],
+['م',['م']],
+['ن',['ن']],
+['و',['ؤ','و']],
+['ه',['ه']],
+['ی',['ئ','ی']],
+['A',  ['a','A'],['à','À']],
+['B',    ['b','B']],
+['C',  ['c','C'],['ç','Ç']],
+['D',  ['d','D'],['ð','Ð']],
+['E',  ['e','E'],['é','É'],['è','È'],['ë','Ë'],['ê','Ê']],
+['F',    ['f','F']],
+['G',    ['g','G']],
+['H',    ['h','H']],
+['I',  ['i','I'],['ï','Ï']],
+['J',    ['j','J']],
+['K',    ['k','K']],
+['L',    ['l','L']],
+['M',    ['m','M']],
+['N',  ['n','N'],['ñ','Ñ']],
+['O',  ['o','O'],['ö','Ö'],['ô','Ô']],
+['P',    ['p','P']],
+['Q',    ['q','Q']],
+['R',    ['r','R']],
+['S',    ['s','S']],
+['T',    ['t','T']],
+['U',    ['u','U']],
+['V',    ['v','V']],
+['W',    ['w','W']],
+['X',    ['x','X']],
+['Y',    ['y','Y']],
+['Z',    ['z','Z']],
+['Þ',  ['þ','Þ']],
+];
+
+$sortcase = "Aa";
+#$sortcase = "aA";
+
+$ligatures = [
+[['æ','Æ'], 'after', [['a','e'], ['A','e']]],
+[['œ','Œ'], 'after', [['o','e'], ['O','e']]]
+];
+
+@special = ('?', '!', '.', 'letters', '-', '\'', '{', '}','ّ','َ','ِ','ُ','ً','ٍ','ٌ','ْ','ٔ','ء','‌','«','»','ـ');
+
+do 'make-rules.pl';
diff --git a/Master/texmf-dist/xindy/modules/lang/persian/utf8.xdy b/Master/texmf-dist/xindy/modules/lang/persian/utf8.xdy
index 27d75e7794c..b93bdc1245f 100644
--- a/Master/texmf-dist/xindy/modules/lang/persian/utf8.xdy
+++ b/Master/texmf-dist/xindy/modules/lang/persian/utf8.xdy
@@ -1,184 +1,185 @@
 ;; Rules for xindy; generated by make-rules.pl
 ;; language: Persian
 
-(define-letter-group "ا" :prefixes ("�"))
-(define-letter-group "ب" :after "ا" :prefixes ("�"))
-(define-letter-group "پ" :after "ب" :prefixes ("�"))
-(define-letter-group "ت" :after "پ" :prefixes ("�"))
-(define-letter-group "ث" :after "ت" :prefixes ("�"))
-(define-letter-group "ج" :after "ث" :prefixes ("�"))
-(define-letter-group "چ" :after "ج" :prefixes ("�"))
-(define-letter-group "ح" :after "چ" :prefixes ("�"))
-(define-letter-group "خ" :after "ح" :prefixes ("�"))
-(define-letter-group "د" :after "خ" :prefixes ("�"))
-(define-letter-group "ذ" :after "د" :prefixes ("�"))
-(define-letter-group "ر" :after "ذ" :prefixes ("�"))
-(define-letter-group "ز" :after "ر" :prefixes ("�"))
-(define-letter-group "ژ" :after "ز" :prefixes ("�"))
-(define-letter-group "س" :after "ژ" :prefixes ("�"))
-(define-letter-group "ش" :after "س" :prefixes ("�"))
-(define-letter-group "ص" :after "ش" :prefixes ("�"))
-(define-letter-group "ض" :after "ص" :prefixes ("�"))
-(define-letter-group "ط" :after "ض" :prefixes ("�"))
-(define-letter-group "ظ" :after "ط" :prefixes ("�"))
-(define-letter-group "ع" :after "ظ" :prefixes ("�"))
-(define-letter-group "غ" :after "ع" :prefixes ("�"))
-(define-letter-group "ف" :after "غ" :prefixes ("�"))
-(define-letter-group "ق" :after "ف" :prefixes ("�"))
-(define-letter-group "ک" :after "ق" :prefixes ("�"))
-(define-letter-group "گ" :after "ک" :prefixes ("�"))
-(define-letter-group "ل" :after "گ" :prefixes ("�"))
-(define-letter-group "م" :after "ل" :prefixes ("�"))
-(define-letter-group "ن" :after "م" :prefixes ("�"))
-(define-letter-group "و" :after "ن" :prefixes ("�"))
-(define-letter-group "ه" :after "و" :prefixes ("�"))
-(define-letter-group "ی" :after "ه" :prefixes ("�"))
-(define-letter-group "A" :after "ی" :prefixes ("�"))
-(define-letter-group "B" :after "A" :prefixes ("�"))
-(define-letter-group "C" :after "B" :prefixes ("�"))
-(define-letter-group "D" :after "C" :prefixes ("�"))
-(define-letter-group "E" :after "D" :prefixes ("�"))
-(define-letter-group "F" :after "E" :prefixes ("�"))
-(define-letter-group "G" :after "F" :prefixes ("�"))
-(define-letter-group "H" :after "G" :prefixes ("�"))
-(define-letter-group "I" :after "H" :prefixes ("�"))
-(define-letter-group "J" :after "I" :prefixes ("�"))
-(define-letter-group "K" :after "J" :prefixes ("�"))
-(define-letter-group "L" :after "K" :prefixes ("�"))
-(define-letter-group "M" :after "L" :prefixes ("�"))
-(define-letter-group "N" :after "M" :prefixes ("�"))
-(define-letter-group "O" :after "N" :prefixes ("�"))
-(define-letter-group "P" :after "O" :prefixes ("�"))
-(define-letter-group "Q" :after "P" :prefixes ("�"))
-(define-letter-group "R" :after "Q" :prefixes ("�"))
-(define-letter-group "S" :after "R" :prefixes ("�"))
-(define-letter-group "T" :after "S" :prefixes ("�"))
-(define-letter-group "U" :after "T" :prefixes ("�"))
-(define-letter-group "V" :after "U" :prefixes ("�"))
-(define-letter-group "W" :after "V" :prefixes ("�"))
-(define-letter-group "X" :after "W" :prefixes ("�"))
-(define-letter-group "Y" :after "X" :prefixes ("�"))
-(define-letter-group "Z" :after "Y" :prefixes ("�"))
-(define-letter-group "Þ" :after "Z" :prefixes ("�"))
+(define-letter-group "آ" :prefixes ("�"))
+(define-letter-group "ا" :after "آ" :prefixes ("�"))
+(define-letter-group "ب" :after "ا" :prefixes ("�"))
+(define-letter-group "پ" :after "ب" :prefixes ("�"))
+(define-letter-group "ت" :after "پ" :prefixes ("�"))
+(define-letter-group "ث" :after "ت" :prefixes ("�"))
+(define-letter-group "ج" :after "ث" :prefixes ("�"))
+(define-letter-group "چ" :after "ج" :prefixes ("�"))
+(define-letter-group "ح" :after "چ" :prefixes ("�"))
+(define-letter-group "خ" :after "ح" :prefixes ("�"))
+(define-letter-group "د" :after "خ" :prefixes ("�"))
+(define-letter-group "ذ" :after "د" :prefixes ("�"))
+(define-letter-group "ر" :after "ذ" :prefixes ("�"))
+(define-letter-group "ز" :after "ر" :prefixes ("�"))
+(define-letter-group "ژ" :after "ز" :prefixes ("�"))
+(define-letter-group "س" :after "ژ" :prefixes ("�"))
+(define-letter-group "ش" :after "س" :prefixes ("�"))
+(define-letter-group "ص" :after "ش" :prefixes ("�"))
+(define-letter-group "ض" :after "ص" :prefixes ("�"))
+(define-letter-group "ط" :after "ض" :prefixes ("�"))
+(define-letter-group "ظ" :after "ط" :prefixes ("�"))
+(define-letter-group "ع" :after "ظ" :prefixes ("�"))
+(define-letter-group "غ" :after "ع" :prefixes ("�"))
+(define-letter-group "ف" :after "غ" :prefixes ("�"))
+(define-letter-group "ق" :after "ف" :prefixes ("�"))
+(define-letter-group "ک" :after "ق" :prefixes ("�"))
+(define-letter-group "گ" :after "ک" :prefixes ("�"))
+(define-letter-group "ل" :after "گ" :prefixes ("�"))
+(define-letter-group "م" :after "ل" :prefixes ("�"))
+(define-letter-group "ن" :after "م" :prefixes ("�"))
+(define-letter-group "و" :after "ن" :prefixes ("�"))
+(define-letter-group "ه" :after "و" :prefixes ("�"))
+(define-letter-group "ی" :after "ه" :prefixes ("�"))
+(define-letter-group "A" :after "ی" :prefixes ("�"))
+(define-letter-group "B" :after "A" :prefixes ("�"))
+(define-letter-group "C" :after "B" :prefixes ("�"))
+(define-letter-group "D" :after "C" :prefixes ("�"))
+(define-letter-group "E" :after "D" :prefixes ("�"))
+(define-letter-group "F" :after "E" :prefixes ("�"))
+(define-letter-group "G" :after "F" :prefixes ("�"))
+(define-letter-group "H" :after "G" :prefixes ("�"))
+(define-letter-group "I" :after "H" :prefixes ("�"))
+(define-letter-group "J" :after "I" :prefixes ("�"))
+(define-letter-group "K" :after "J" :prefixes ("�"))
+(define-letter-group "L" :after "K" :prefixes ("�"))
+(define-letter-group "M" :after "L" :prefixes ("�"))
+(define-letter-group "N" :after "M" :prefixes ("�"))
+(define-letter-group "O" :after "N" :prefixes ("�"))
+(define-letter-group "P" :after "O" :prefixes ("�"))
+(define-letter-group "Q" :after "P" :prefixes ("�"))
+(define-letter-group "R" :after "Q" :prefixes ("�"))
+(define-letter-group "S" :after "R" :prefixes ("�"))
+(define-letter-group "T" :after "S" :prefixes ("�"))
+(define-letter-group "U" :after "T" :prefixes ("�"))
+(define-letter-group "V" :after "U" :prefixes ("�"))
+(define-letter-group "W" :after "V" :prefixes ("�"))
+(define-letter-group "X" :after "W" :prefixes ("�"))
+(define-letter-group "Y" :after "X" :prefixes ("�"))
+(define-letter-group "Z" :after "Y" :prefixes ("�"))
+(define-letter-group "Þ" :after "Z" :prefixes ("�"))
 
 (define-rule-set "pe-alphabetize"
 
-  :rules  (("أ" "�" :string)
-           ("ا" "�" :string)
-           ("آ" "�" :string)
-           ("ب" "�" :string)
-           ("پ" "�" :string)
-           ("ت" "�" :string)
-           ("ث" "�" :string)
-           ("ج" "�" :string)
-           ("چ" "�" :string)
-           ("ح" "�" :string)
-           ("خ" "�" :string)
-           ("د" "�" :string)
-           ("ذ" "�" :string)
-           ("ر" "�" :string)
-           ("ز" "�" :string)
-           ("ژ" "�" :string)
-           ("س" "�" :string)
-           ("ش" "�" :string)
-           ("ص" "�" :string)
-           ("ض" "�" :string)
-           ("ط" "�" :string)
-           ("ظ" "�" :string)
-           ("ع" "�" :string)
-           ("غ" "�" :string)
-           ("ف" "�" :string)
-           ("ق" "�" :string)
-           ("ک" "�" :string)
-           ("گ" "�" :string)
-           ("ل" "�" :string)
-           ("م" "�" :string)
-           ("ن" "�" :string)
-           ("و" "�" :string)
-           ("ؤ" "�" :string)
-           ("ه" "�" :string)
-           ("ی" "�" :string)
-           ("ئ" "�" :string)
-           ("à" "�" :string)
-           ("À" "�" :string)
-           ("Æ" "��" :string)
-           ("æ" "��" :string)
-           ("Ç" "�" :string)
-           ("ç" "�" :string)
-           ("ð" "�" :string)
-           ("Ð" "�" :string)
-           ("É" "�" :string)
-           ("Ê" "�" :string)
-           ("È" "�" :string)
-           ("Ë" "�" :string)
-           ("è" "�" :string)
-           ("ë" "�" :string)
-           ("ê" "�" :string)
-           ("é" "�" :string)
-           ("Ï" "�" :string)
-           ("ï" "�" :string)
-           ("Ñ" "�" :string)
-           ("ñ" "�" :string)
-           ("Ö" "�" :string)
-           ("Ô" "�" :string)
-           ("ô" "�" :string)
-           ("ö" "�" :string)
-           ("œ" "��" :string)
-           ("Œ" "��" :string)
-           ("þ" "�" :string)
-           ("Þ" "�" :string)
-           ("a" "�" :string)
-           ("A" "�" :string)
-           ("b" "�" :string)
-           ("B" "�" :string)
-           ("C" "�" :string)
-           ("c" "�" :string)
-           ("d" "�" :string)
-           ("D" "�" :string)
-           ("E" "�" :string)
-           ("e" "�" :string)
-           ("F" "�" :string)
-           ("f" "�" :string)
-           ("g" "�" :string)
-           ("G" "�" :string)
-           ("H" "�" :string)
-           ("h" "�" :string)
-           ("I" "�" :string)
-           ("i" "�" :string)
-           ("J" "�" :string)
-           ("j" "�" :string)
-           ("K" "�" :string)
-           ("k" "�" :string)
-           ("L" "�" :string)
-           ("l" "�" :string)
-           ("M" "�" :string)
-           ("m" "�" :string)
-           ("N" "�" :string)
-           ("n" "�" :string)
-           ("O" "�" :string)
-           ("o" "�" :string)
-           ("P" "�" :string)
-           ("p" "�" :string)
-           ("q" "�" :string)
-           ("Q" "�" :string)
-           ("r" "�" :string)
-           ("R" "�" :string)
-           ("S" "�" :string)
-           ("s" "�" :string)
-           ("T" "�" :string)
-           ("t" "�" :string)
-           ("u" "�" :string)
-           ("U" "�" :string)
-           ("v" "�" :string)
-           ("V" "�" :string)
-           ("w" "�" :string)
-           ("W" "�" :string)
-           ("X" "�" :string)
-           ("x" "�" :string)
-           ("Y" "�" :string)
-           ("y" "�" :string)
-           ("z" "�" :string)
-           ("Z" "�" :string)
+  :rules  (("آ" "�" :string)
+           ("أ" "�" :string)
+           ("ا" "�" :string)
+           ("ب" "�" :string)
+           ("پ" "�" :string)
+           ("ت" "�" :string)
+           ("ث" "�" :string)
+           ("ج" "�" :string)
+           ("چ" "�" :string)
+           ("ح" "�" :string)
+           ("خ" "�" :string)
+           ("د" "�" :string)
+           ("ذ" "�" :string)
+           ("ر" "�" :string)
+           ("ز" "�" :string)
+           ("ژ" "�" :string)
+           ("س" "�" :string)
+           ("ش" "�" :string)
+           ("ص" "�" :string)
+           ("ض" "�" :string)
+           ("ط" "�" :string)
+           ("ظ" "�" :string)
+           ("ع" "�" :string)
+           ("غ" "�" :string)
+           ("ف" "�" :string)
+           ("ق" "�" :string)
+           ("ک" "�" :string)
+           ("گ" "�" :string)
+           ("ل" "�" :string)
+           ("م" "�" :string)
+           ("ن" "�" :string)
+           ("و" "�" :string)
+           ("ؤ" "�" :string)
+           ("ه" "�" :string)
+           ("ی" "�" :string)
+           ("ئ" "�" :string)
+           ("à" "�" :string)
+           ("À" "�" :string)
+           ("Æ" "��" :string)
+           ("æ" "��" :string)
+           ("Ç" "�" :string)
+           ("ç" "�" :string)
+           ("ð" "�" :string)
+           ("Ð" "�" :string)
+           ("É" "�" :string)
+           ("Ê" "�" :string)
+           ("È" "�" :string)
+           ("Ë" "�" :string)
+           ("è" "�" :string)
+           ("ë" "�" :string)
+           ("ê" "�" :string)
+           ("é" "�" :string)
+           ("Ï" "�" :string)
+           ("ï" "�" :string)
+           ("Ñ" "�" :string)
+           ("ñ" "�" :string)
+           ("Ö" "�" :string)
+           ("Ô" "�" :string)
+           ("ô" "�" :string)
+           ("ö" "�" :string)
+           ("œ" "��" :string)
+           ("Œ" "��" :string)
+           ("þ" "�" :string)
+           ("Þ" "�" :string)
+           ("a" "�" :string)
+           ("A" "�" :string)
+           ("b" "�" :string)
+           ("B" "�" :string)
+           ("C" "�" :string)
+           ("c" "�" :string)
+           ("d" "�" :string)
+           ("D" "�" :string)
+           ("E" "�" :string)
+           ("e" "�" :string)
+           ("F" "�" :string)
+           ("f" "�" :string)
+           ("g" "�" :string)
+           ("G" "�" :string)
+           ("H" "�" :string)
+           ("h" "�" :string)
+           ("I" "�" :string)
+           ("i" "�" :string)
+           ("J" "�" :string)
+           ("j" "�" :string)
+           ("K" "�" :string)
+           ("k" "�" :string)
+           ("L" "�" :string)
+           ("l" "�" :string)
+           ("M" "�" :string)
+           ("m" "�" :string)
+           ("N" "�" :string)
+           ("n" "�" :string)
+           ("O" "�" :string)
+           ("o" "�" :string)
+           ("P" "�" :string)
+           ("p" "�" :string)
+           ("q" "�" :string)
+           ("Q" "�" :string)
+           ("r" "�" :string)
+           ("R" "�" :string)
+           ("S" "�" :string)
+           ("s" "�" :string)
+           ("T" "�" :string)
+           ("t" "�" :string)
+           ("u" "�" :string)
+           ("U" "�" :string)
+           ("v" "�" :string)
+           ("V" "�" :string)
+           ("w" "�" :string)
+           ("W" "�" :string)
+           ("X" "�" :string)
+           ("x" "�" :string)
+           ("Y" "�" :string)
+           ("y" "�" :string)
+           ("z" "�" :string)
+           ("Z" "�" :string)
            ))
 
 (define-rule-set "pe-resolve-diacritics"
@@ -303,8 +304,7 @@
 
 (define-rule-set "pe-resolve-case"
 
-  :rules  (("آ" "7" :string)
-           ("Ö" "8" :string)
+  :rules  (("Ö" "8" :string)
            ("Ñ" "8" :string)
            ("ی" "8" :string)
            ("Ô" "8" :string)
@@ -364,6 +364,7 @@
            ("ت" "9" :string)
            ("é" "9" :string)
            ("گ" "9" :string)
+           ("آ" "9" :string)
            ("ژ" "9" :string)
            ("œ" "99" :string)
            ("æ" "99" :string)