1 files changed, 145 insertions, 0 deletions
diff --git a/Build/source/utils/xindy/make-rules/alphabets/polish/cp1250.pl b/Build/source/utils/xindy/make-rules/alphabets/polish/cp1250.pl
new file mode 100755
index 00000000000..3d780ef7b5e
--- /dev/null
+++ b/Build/source/utils/xindy/make-rules/alphabets/polish/cp1250.pl
@@ -0,0 +1,145 @@
+#!/usr/bin/perl
+
+$language = "Polish";
+$prefix = "pl";
+$script = "latin";
+
+$alphabet = [
+['A',    ['a','A']],
+                   [], # a with breve (romanian)
+                   [], # a with circumflex (romanian)
+['Ľ',    ['š','Ľ']],
+['B',    ['b','B']],
+                   [], # b with hook (hausa)
+['C',    ['c','C']],
+                   [], # ch (spanish/traditional)
+                   [], # cs (hungarian)
+                   [], # c with caron (many)
+['Ć',    ['ć','Ć']],
+                   [], # c with circumflex (esperanto)
+                   [], # c with cedilla (albanian, kurdish, turkish)
+['D',    ['d','D']],
+                   [], # dh (albanian)
+                   [], # dz (hungarian)
+                   [], # dzs (hungarian)
+                   [], # d+z with caron (croatian)
+                   [], # d+z with acute (upper sorbian)
+                   [], # d with caron (slovak/large)
+                   [], # d with stroke (croatian)
+                   [], # d with hook (hausa)
+                   [], # eth (icelandic)
+['E',    ['e','E']],
+                   [], # e with caron (lower/upper sorbian)
+                   [], # e with circumflex (kurdish)
+                   [], # e with diaeresis (albanian)
+['Ę',    ['ę','Ę']],
+['F',    ['f','F']],
+['G',    ['g','G']],
+                   [], # gj (albanian)
+                   [], # gy (hungarian)
+                   [], # g with circumflex (esperanto)
+                   [], # g with breve (turkish)
+                   [], # g with cedilla/comma (latvian)
+                   [], # postpalatal fricative (gypsy/northrussian)
+['H',    ['h','H']],
+                   [], # h with circumflex (esperanto)
+                   [], # ch (many)
+                   [], # dotless i (turkish)
+['I',    ['i','I']],
+                   [], # i with inverted breve below (gypsy/northrussian)
+                   [], # i with circumflex (kurdish, romanian)
+                   [], # i with diaeresis (gypsy/northrussian)
+['J',    ['j','J']],
+                   [], # j with circumflex (esperanto)
+['K',    ['k','K']],
+                   [], # kh (gypsy/northrussian)
+                   [], # k with cedilla/comma (latvian)
+                   [], # k with hook (hausa)
+                   [], # x (gypsy/northrussian)
+                   [], # l with stroke (lower/upper sorbian)
+['L',    ['l','L']],
+                   [], # lj (croatian)
+                   [], # ll (albanian, spanish/traditional)
+                   [], # ly (hungarian)
+                   [], # l with caron (slovak/large)
+                   [], # l with cedilla/comma (latvian)
+['Ł',    ['ł','Ł']],
+['M',    ['m','M']],
+['N',    ['n','N']],
+                   [], # nj (albanian, croatian)
+                   [], # ny (hungarian)
+                   [], # n with caron (slovak/large)
+['Ń',    ['ń','Ń']],
+                   [], # n with tilde (spanish/modern, spanish/traditional)
+                   [], # n with cedilla/comma (latvian)
+['O',    ['o','O']],
+['Ó',    ['ó','Ó']],
+                   [], # o with circumflex (vietnamese)
+                   [], # o with horn (vietnamese)
+                   [], # o with diaeresis (hungarian, turkish)
+['P',    ['p','P']],
+                   [], # ph (gypsy/northrussian)
+['Q',  ['q','Q']],
+['R',    ['r','R']],
+                   [], # rr (albanian)
+                   [], # r with caron (czech, slovak/large, upper sorbian)
+                   [], # r with acute (lower sorbian)
+                   [], # r with cedilla/comma (latvian)
+['S',    ['s','S']],
+                   [], # sh (albanian)
+                   [], # sz (hungarian)
+                   [], # s with caron (many)
+['',    ['','']],
+                   [], # s with circumflex (esperanto)
+                   [], # s with comma below (romanian)
+                   [], # s with cedilla (kurdish, turkish)
+                   [], # z (estonian)
+                   [], # z with caron (estonian)
+['T',    ['t','T']],
+                   [], # th (albanian)
+                   [], # ty (hungarian)
+                   [], # t with caron (slovak/large)
+                   [], # t with comma below (romanian)
+                   [], # c with acute (upper sorbian)
+['U',    ['u','U']],
+                   [], # u with breve (esperanto)
+                   [], # u with circumflex (kurdish)
+                   [], # u with horn (vietnamese)
+                   [], # u with diaeresis (hungarian, turkish)
+['V',  ['v','V']],
+['W',    ['w','W']],
+                   [], # o with tilde (estonian)
+                   [], # a with diaeresis (estonian)
+                   [], # o with diaeresis (estonian)
+                   [], # u with diaeresis (estonian)
+['X',  ['x','X']],
+                   [], # xh (albanian)
+['Y',    ['y','Y']],
+                   [], # y preceded by apostrophe (hausa)
+                   [], # yogh (english)
+['Z',    ['z','Z']],
+                   [], # zh (albanian)
+                   [], # zs (hungarian)
+                   [], # z with caron (many)
+['',    ['','']],
+['Ż',    ['ż','Ż']],
+                   [], # thorn (icelandic)
+                   [], # wynn (english)
+                   [], # ligature ae (danish, icelandic, norwegian)
+                   [], # o with stroke (danish, norwegian)
+                   [], # a with ring above (danish, norwegian, swedish)
+                   [], # a with diaeresis (finnish, swedish)
+                   [], # o with diaeresis (finnish, swedish)
+                   [], # a with ring above (icelandic)
+];
+
+$ligatures = [
+[['ß'], 'after', [['s','s']]],
+];
+
+@special = ('?', '!', '.', 'letters', '-', '\'');
+
+$sortcase = "Aa";
+#$sortcase = "aA";
+
+do 'make-rules.pl';