finish fontwrap commit

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

1 files changed, 1880 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/xelatex/fontwrap/fontwrap.sty b/Master/texmf-dist/tex/xelatex/fontwrap/fontwrap.sty
new file mode 100644
index 00000000000..5057ec2d036
--- /dev/null
+++ b/Master/texmf-dist/tex/xelatex/fontwrap/fontwrap.sty
@@ -0,0 +1,1880 @@
+% ----------------------------------------------------------------------------
+%
+% fontwrap inserts fonts into your XeLaTeX text based on which unicode blocks
+% characters belong to. For instance, something like:
+%
+%   "This is English with 日本語 interspersed"
+%
+% will be turned into become:
+%
+%   "\fontspec{\unicodeblockLatinFont}This is English with \fontspec{\unicodeblockJapaneseFont}日本語\fontspec{\unicodeblockLatinFont} interspersed"
+%
+% This is something that most word processors can do already, and it was sort
+% silly that LaTeX didn't have a general scheme for this. After all, LaTeX should
+% be better than word processors! ^_^
+%
+% That said, you can bind different fonts to different unicode blocks (the best
+% font for Japanese, for instance, is definitely not the best font for Chinese,
+% both of which are probably pretty poor English fonts... for instance),
+% Any unicode block that you didn't bind yourself will use the defaults:
+%
+%   \langfonddefaultfont for anything not CJK
+%   \langfonddefaultCJKfont for anything CJK (including the separate japanese and korean blocks)
+%
+% June 2008, Mike Kamermans, % nihongoresources.com (C)
+% ----------------------------------------------------------------------------
+
+\ProvidesPackage{fontwrap}
+
+% enables use of system fonts
+\usepackage{fontspec} 
+
+% enables full support for unicode text
+\usepackage{xunicode} 
+
+% fixes some older command behaviour to current - see http://www.ctan.org/tex-archive/help/Catalogue/entries/xltxtra.html
+\usepackage{xltxtra}
+
+% also get some external Perl logic going
+\usepackage{perltex}
+
+
+% ----------------------------------------------------------------------------
+%
+% The actually interesting method. This parses the input and inserts \fontspec
+% commands where necessary.
+%
+% ----------------------------------------------------------------------------
+
+% default font - a fairly complete unicode font
+\newcommand{\fontwrapdefaultfont}{Bitstream Cyberbit}
+
+% default font for CJK languages - another pretty complete unicode font
+\newcommand{\fontwrapdefaultCJKfont}{Code2000}
+
+% ---------------------------------------------------------
+%  Font bindings. Font bindings for 158 unicode blocks...
+% ---------------------------------------------------------
+
+\newcommand{\unicodeblockBasicLatinFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockHiraganaFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockCJKUnifiedIdeographsFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockKatakanaFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockAegeanNumbersFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockAlphabeticPresentationFormsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockAncientGreekMusicalNotationFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockAncientGreekNumbersFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockArabicFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockArabicPresentationFormsAFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockArabicPresentationFormsBFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockArabicSupplementFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockArmenianFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockArrowsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockBalineseFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockBengaliFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockBlockElementsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockBopomofoFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockBopomofoExtendedFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockBoxDrawingFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockBraillePatternsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockBugineseFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockBuhidFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockByzantineMusicalSymbolsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCherokeeFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCJKCompatibilityFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockCJKCompatibilityFormsFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockCJKCompatibilityIdeographsFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockCJKCompatibilityIdeographsSupplementFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockCJKRadicalsSupplementFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockCJKStrokesFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockCJKSymbolsandPunctuationFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockCJKUnifiedIdeographsExtensionAFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockCJKUnifiedIdeographsExtensionBFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockCombiningDiacriticalMarksFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCombiningDiacriticalMarksforSymbolsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCombiningDiacriticalMarksSupplementFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCombiningHalfMarksFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockControlPicturesFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCopticFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCountingRodNumeralsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCuneiformFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCuneiformNumbersandPunctuationFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCurrencySymbolsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCypriotSyllabaryFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCyrillicFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCyrillicExtendedAFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCyrillicExtendedBFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockCyrillicSupplementFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockDeseretFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockDevanagariFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockDingbatsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockDominoTilesFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockEnclosedAlphanumericsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockEnclosedCJKLettersandMonthsFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockEthiopicFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockEthiopicExtendedFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockEthiopicSupplementFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockGeneralPunctuationFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockGeometricShapesFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockGeorgianFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockGeorgianSupplementFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockGlagoliticFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockGothicFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockGreekandCopticFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockGreekExtendedFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockGujaratiFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockGurmukhiFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockHalfwidthandFullwidthFormsFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockHangulCompatibilityJamoFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockHangulJamoFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockHangulSyllablesFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockHanunooFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockHebrewFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockHighPrivateUseSurrogatesFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockHighSurrogatesFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockIdeographicDescriptionCharactersFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockIPAExtensionsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockKanbunFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockKangxiRadicalsFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockKannadaFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockKatakanaPhoneticExtensionsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockKharoshthiFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockKhmerFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockKhmerSymbolsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockLaoFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockLatinExtendedAdditionalFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockLatinExtendedAFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockLatinExtendedBFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockLatinExtendedCFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockLatinExtendedDFont}{\fontwrapdefaultfont}
+
+% in keeping with uniformity, technically this should be unicodeblockLatin1SupplementFont, but numbers are not allowed in macro names...
+\newcommand{\unicodeblockLatinSupplementFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockLetterlikeSymbolsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockLimbuFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockLinearBIdeogramsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockLinearBSyllabaryFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockLowSurrogatesFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockMahjongTilesFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockMalayalamFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockMathematicalAlphanumericSymbolsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockMathematicalOperatorsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockMiscellaneousMathematicalSymbolsAFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockMiscellaneousMathematicalSymbolsBFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockMiscellaneousSymbolsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockMiscellaneousSymbolsandArrowsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockMiscellaneousTechnicalFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockModifierToneLettersFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockMongolianFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockMusicalSymbolsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockMyanmarFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockNewTaiLueFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockNKoFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockNumberFormsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockOghamFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockOldItalicFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockOldPersianFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockOpticalCharacterRecognitionFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockOriyaFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockOsmanyaFont}{\fontwrapdefaultfont}
+
+% because hyphens are also not allowed in macros, "Phags-pa" has been turned into the less correct PhagsPa
+\newcommand{\unicodeblockPhagsPaFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockPhoenicianFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockPhoneticExtensionsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockPhoneticExtensionsSupplementFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockPrivateUseAreaFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockRunicFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockShavianFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockSinhalaFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockSmallFormVariantsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockSpacingModifierLettersFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockSpecialsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockSuperscriptsandSubscriptsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockSupplementalArrowsAFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockSupplementalArrowsBFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockSupplementalMathematicalOperatorsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockSupplementalPunctuationFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockSupplementaryPrivateUseAreaAFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockSupplementaryPrivateUseAreaBFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockSylotiNagriFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockSyriacFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockTagalogFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockTagbanwaFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockTagsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockTaiLeFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockTaiXuanJingSymbolsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockTamilFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockTeluguFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockThaanaFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockThaiFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockTibetanFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockTifinaghFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockUgariticFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockUnifiedCanadianAboriginalSyllabicsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockVariationSelectorsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockVariationSelectorsSupplementFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockVerticalFormsFont}{\fontwrapdefaultfont}
+
+\newcommand{\unicodeblockYiRadicalsFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockYiSyllablesFont}{\fontwrapdefaultCJKfont}
+
+\newcommand{\unicodeblockYijingHexagramSymbolsFont}{\fontwrapdefaultCJKfont}
+
+% 
+% I don't want to write a huge ifthen construction - I prefer
+% to rely on parse passes instead.
+%
+\perlnewcommand{\setunicodeblockfont}[2]{ return "\\renewcommand{\\unicodeblock".$_[0]."Font}{".$_[1]."}"; }
+
+% ------------------------------------------------------------------
+%
+%  in addition to the unicode blocks, also mark the informal groups
+%
+% ------------------------------------------------------------------
+
+\newcommand{\unicodegroupArabicFont}{\fontwrapdefaultfont}
+\newcommand{\unicodegroupChineseFont}{\fontwrapdefaultCJKfont}
+\newcommand{\unicodegroupCJKFont}{\fontwrapdefaultCJKfont}
+\newcommand{\unicodegroupCyrillicFont}{\fontwrapdefaultfont}
+\newcommand{\unicodegroupDiacriticsFont}{\fontwrapdefaultfont}
+\newcommand{\unicodegroupGreekFont}{\fontwrapdefaultfont}
+\newcommand{\unicodegroupKoreanFont}{\fontwrapdefaultCJKfont}
+\newcommand{\unicodegroupJapaneseFont}{\fontwrapdefaultCJKfont}
+\newcommand{\unicodegroupLatinFont}{\fontwrapdefaultfont}
+\newcommand{\unicodegroupMathematicsFont}{\fontwrapdefaultfont}
+\newcommand{\unicodegroupPhoneticsFont}{\fontwrapdefaultfont}
+\newcommand{\unicodegroupPunctuationFont}{\fontwrapdefaultfont}
+\newcommand{\unicodegroupSymbolsFont}{\fontwrapdefaultfont}
+\newcommand{\unicodegroupYiFont}{\fontwrapdefaultfont}
+\newcommand{\unicodegroupOtherFont}{\fontwrapdefaultfont}
+
+% -------------------------------------------------------------------------------
+%
+%  Then, informal group font binding, to make life just a little easier.
+%  The following informal groups are supported:
+%
+%   - Arabic
+%   - Chinese (including bopomofo)
+%   - CJK (Chinese/Japanese/Korean)
+%   - Cyrillic
+%   - Diacritics
+%   - Greek
+%   - Japanese
+%   - Korean (=Hangul)
+%   - Latin
+%   - Mathematics
+%   - Phonetics
+%   - Punctuation
+%   - Symbols
+%   - Yi
+%   - Other (I am not a fan of lump groups. I hope to un-lump most of it)
+%
+% -------------------------------------------------------------------------------
+
+
+\newcommand{\setunicodegroupArabicFont}[1]{
+ 	\renewcommand{\unicodeblockArabicFont}{#1}
+ 	\renewcommand{\unicodeblockArabicPresentationFormsAFont}{#1}
+ 	\renewcommand{\unicodeblockArabicPresentationFormsBFont}{#1}
+ 	\renewcommand{\unicodeblockArabicSupplementFont}{#1}
+	\renewcommand{\unicodegroupArabicFont}{#1}
+}
+
+\newcommand{\setunicodegroupChineseFont}[1]{
+	\renewcommand{\unicodeblockBopomofoFont}{#1}
+	\renewcommand{\unicodeblockBopomofoExtendedFont}{#1}
+	\renewcommand{\unicodeblockCJKCompatibilityFont}{#1}
+	\renewcommand{\unicodeblockCJKCompatibilityFormsFont}{#1}
+	\renewcommand{\unicodeblockCJKCompatibilityIdeographsFont}{#1}
+	\renewcommand{\unicodeblockCJKCompatibilityIdeographsSupplementFont}{#1}
+	\renewcommand{\unicodeblockCJKRadicalsSupplementFont}{#1}
+	\renewcommand{\unicodeblockCJKStrokesFont}{#1}
+	\renewcommand{\unicodeblockCJKSymbolsandPunctuationFont}{#1}
+	\renewcommand{\unicodeblockCJKUnifiedIdeographsFont}{#1}
+	\renewcommand{\unicodeblockCJKUnifiedIdeographsExtensionAFont}{#1}
+	\renewcommand{\unicodeblockCJKUnifiedIdeographsExtensionBFont}{#1}
+	\renewcommand{\unicodeblockEnclosedCJKLettersandMonthsFont}{#1}
+	\renewcommand{\unicodeblockIdeographicDescriptionCharactersFont}{#1}
+	\renewcommand{\unicodeblockKangxiRadicalsFont}{#1}
+	\renewcommand{\unicodegroupChineseFont}{#1}
+}
+
+\newcommand{\setunicodegroupCJKFont}[1]{
+	\renewcommand{\unicodeblockBopomofoFont}{#1}
+	\renewcommand{\unicodeblockBopomofoExtendedFont}{#1}
+	\renewcommand{\unicodeblockCJKCompatibilityFont}{#1}
+	\renewcommand{\unicodeblockCJKCompatibilityFormsFont}{#1}
+	\renewcommand{\unicodeblockCJKCompatibilityIdeographsFont}{#1}
+	\renewcommand{\unicodeblockCJKCompatibilityIdeographsSupplementFont}{#1}
+	\renewcommand{\unicodeblockCJKRadicalsSupplementFont}{#1}
+	\renewcommand{\unicodeblockCJKStrokesFont}{#1}
+	\renewcommand{\unicodeblockCJKSymbolsandPunctuationFont}{#1}
+	\renewcommand{\unicodeblockCJKUnifiedIdeographsFont}{#1}
+	\renewcommand{\unicodeblockCJKUnifiedIdeographsExtensionAFont}{#1}
+	\renewcommand{\unicodeblockCJKUnifiedIdeographsExtensionBFont}{#1}
+	\renewcommand{\unicodeblockEnclosedCJKLettersandMonthsFont}{#1}
+	\renewcommand{\unicodeblockHalfwidthandFullwidthFormsFont}{#1}
+	\renewcommand{\unicodeblockHangulCompatibilityJamoFont}{#1}
+	\renewcommand{\unicodeblockHangulJamoFont}{#1}
+	\renewcommand{\unicodeblockHangulSyllablesFont}{#1}
+	\renewcommand{\unicodeblockHiraganaFont}{#1}
+	\renewcommand{\unicodeblockIdeographicDescriptionCharactersFont}{#1}
+	\renewcommand{\unicodeblockKanbunFont}{#1}
+	\renewcommand{\unicodeblockKangxiRadicalsFont}{#1}
+	\renewcommand{\unicodeblockKatakanaFont}{#1}
+	\renewcommand{\unicodeblockKatakanaPhoneticExtensionsFont}{#1}
+	\renewcommand{\unicodegroupCJKFont}{#1}
+}
+
+\newcommand{\setunicodegroupCyrillicFont}[1]{
+	\renewcommand{\unicodeblockCyrillicFont}{#1}
+	\renewcommand{\unicodeblockCyrillicExtendedAFont}{#1}
+	\renewcommand{\unicodeblockCyrillicExtendedBFont}{#1}
+	\renewcommand{\unicodeblockCyrillicSupplementFont}{#1}
+	\renewcommand{\unicodegroupCyrillicFont}{#1}
+}
+
+\newcommand{\setunicodegroupDiacriticsFont}[1]{
+ 	\renewcommand{\unicodeblockCombiningDiacriticalMarksFont}{#1}
+ 	\renewcommand{\unicodeblockCombiningDiacriticalMarksforSymbolsFont}{#1}
+ 	\renewcommand{\unicodeblockCombiningDiacriticalMarksSupplementFont}{#1}
+ 	\renewcommand{\unicodeblockCombiningHalfMarksFont}{#1}
+	\renewcommand{\unicodegroupDiacriticsFont}{#1}
+}
+
+\newcommand{\setunicodegroupGreekFont}[1]{
+ 	\renewcommand{\unicodeblockGreekandCopticFont}{#1}
+ 	\renewcommand{\unicodeblockGreekExtendedFont}{#1}
+	\renewcommand{\unicodegroupGreekFont}{#1}
+}
+
+\newcommand{\setunicodegroupKoreanFont}[1]{
+	\renewcommand{\unicodeblockHangulCompatibilityJamoFont}{#1}
+	\renewcommand{\unicodeblockHangulJamoFont}{#1}
+	\renewcommand{\unicodeblockHangulSyllablesFont}{#1}
+	\renewcommand{\unicodegroupKoreanFont}{#1}
+}
+
+\newcommand{\setunicodegroupJapaneseFont}[1]{
+	\renewcommand{\unicodeblockHalfwidthandFullwidthFormsFont}{#1}
+	\renewcommand{\unicodeblockHiraganaFont}{#1}
+	\renewcommand{\unicodeblockKanbunFont}{#1}
+	\renewcommand{\unicodeblockKatakanaFont}{#1}
+	\renewcommand{\unicodeblockKatakanaPhoneticExtensionsFont}{#1}
+	\renewcommand{\unicodeblockKangxiRadicalsFont}{#1}
+	\renewcommand{\unicodegroupJapaneseFont}{#1}
+}
+
+\newcommand{\setunicodegroupLatinFont}[1]{
+ 	\renewcommand{\unicodeblockBasicLatinFont}{#1}
+ 	\renewcommand{\unicodeblockLatinExtendedAdditionalFont}{#1}
+ 	\renewcommand{\unicodeblockLatinExtendedAFont}{#1}
+ 	\renewcommand{\unicodeblockLatinExtendedBFont}{#1}
+ 	\renewcommand{\unicodeblockLatinExtendedCFont}{#1}
+ 	\renewcommand{\unicodeblockLatinExtendedDFont}{#1}
+ 	\renewcommand{\unicodeblockLatinSupplementFont}{#1}
+	\renewcommand{\unicodeblockAlphabeticPresentationFormsFont}{#1}
+	\renewcommand{\unicodegroupLatinFont}{#1}
+}
+
+\newcommand{\setunicodegroupMathematicsFont}[1]{
+	\renewcommand{\unicodeblockMathematicalAlphanumericSymbolsFont}{#1}
+	\renewcommand{\unicodeblockMathematicalOperatorsFont}{#1}
+	\renewcommand{\unicodeblockMiscellaneousMathematicalSymbolsAFont}{#1}
+	\renewcommand{\unicodeblockMiscellaneousMathematicalSymbolsBFont}{#1}
+	\renewcommand{\unicodeblockSupplementalMathematicalOperatorsFont}{#1}
+	\renewcommand{\unicodegroupMathematicsFont}{#1}
+}
+
+\newcommand{\setunicodegroupPhoneticsFont}[1]{
+	\renewcommand{\unicodeblockIPAExtensionsFont}{#1}
+	\renewcommand{\unicodeblockPhoneticExtensionsFont}{#1}
+	\renewcommand{\unicodeblockPhoneticExtensionsSupplementFont}{#1}
+	\renewcommand{\unicodegroupPhoneticsFont}{#1}
+}
+
+\newcommand{\setunicodegroupPunctuationFont}[1]{
+	\renewcommand{\unicodeblockGeneralPunctuationFont}{#1}
+	\renewcommand{\unicodeblockSupplementalPunctuationFont}{#1}
+	\renewcommand{\unicodegroupPunctuationFont}{#1}
+}
+
+\newcommand{\setunicodegroupSymbolsFont}[1]{
+	\renewcommand{\unicodeblockArrowsFont}{#1}
+	\renewcommand{\unicodeblockBoxDrawingFont}{#1}
+	\renewcommand{\unicodeblockByzantineMusicalSymbolsFont}{#1}
+	\renewcommand{\unicodeblockControlPicturesFont}{#1}
+	\renewcommand{\unicodeblockCurrencySymbolsFont}{#1}
+	\renewcommand{\unicodeblockGeometricShapesFont}{#1}
+	\renewcommand{\unicodeblockLetterlikeSymbolsFont}{#1}
+	\renewcommand{\unicodeblockMiscellaneousSymbolsFont}{#1}
+	\renewcommand{\unicodeblockMiscellaneousSymbolsandArrowsFont}{#1}
+	\renewcommand{\unicodeblockMiscellaneousTechnicalFont}{#1}
+	\renewcommand{\unicodeblockSupplementalArrowsAFont}{#1}
+	\renewcommand{\unicodeblockSupplementalArrowsBFont}{#1}
+	\renewcommand{\unicodeblockVariationSelectorsFont}{#1}
+	\renewcommand{\unicodeblockVariationSelectorsSupplementFont}{#1}
+	\renewcommand{\unicodegroupSymbolsFont}{#1}
+}
+
+\newcommand{\setunicodegroupYiFont}[1]{
+	\renewcommand{\unicodeblockYiRadicalsFont}{#1}
+	\renewcommand{\unicodeblockYiSyllablesFont}{#1}
+	\renewcommand{\unicodegroupYiFont}{#1}
+}
+
+\newcommand{\setunicodegroupOtherFont}[1]{
+	\renewcommand{\unicodeblockAegeanNumbersFont}{#1}
+	\renewcommand{\unicodeblockAncientGreekMusicalNotationFont}{#1}
+	\renewcommand{\unicodeblockAncientGreekNumbersFont}{#1}
+	\renewcommand{\unicodeblockArmenianFont}{#1}
+	\renewcommand{\unicodeblockBalineseFont}{#1}
+	\renewcommand{\unicodeblockBengaliFont}{#1}
+	\renewcommand{\unicodeblockBlockElementsFont}{#1}
+	\renewcommand{\unicodeblockBraillePatternsFont}{#1}
+	\renewcommand{\unicodeblockBugineseFont}{#1}
+	\renewcommand{\unicodeblockBuhidFont}{#1}
+	\renewcommand{\unicodeblockCherokeeFont}{#1}
+	\renewcommand{\unicodeblockCopticFont}{#1}
+	\renewcommand{\unicodeblockCountingRodNumeralsFont}{#1}
+	\renewcommand{\unicodeblockCuneiformFont}{#1}
+	\renewcommand{\unicodeblockCuneiformNumbersandPunctuationFont}{#1}
+	\renewcommand{\unicodeblockCypriotSyllabaryFont}{#1}
+	\renewcommand{\unicodeblockDeseretFont}{#1}
+	\renewcommand{\unicodeblockDevanagariFont}{#1}
+	\renewcommand{\unicodeblockDingbatsFont}{#1}
+	\renewcommand{\unicodeblockDominoTilesFont}{#1}
+	\renewcommand{\unicodeblockEnclosedAlphanumericsFont}{#1}
+	\renewcommand{\unicodeblockEthiopicFont}{#1}
+	\renewcommand{\unicodeblockEthiopicExtendedFont}{#1}
+	\renewcommand{\unicodeblockEthiopicSupplementFont}{#1}
+	\renewcommand{\unicodeblockGeorgianFont}{#1}
+	\renewcommand{\unicodeblockGeorgianSupplementFont}{#1}
+	\renewcommand{\unicodeblockGlagoliticFont}{#1}
+	\renewcommand{\unicodeblockGothicFont}{#1}
+	\renewcommand{\unicodeblockGujaratiFont}{#1}
+	\renewcommand{\unicodeblockGurmukhiFont}{#1}
+	\renewcommand{\unicodeblockHanunooFont}{#1}
+	\renewcommand{\unicodeblockHebrewFont}{#1}
+	\renewcommand{\unicodeblockHighPrivateUseSurrogatesFont}{#1}
+	\renewcommand{\unicodeblockHighSurrogatesFont}{#1}
+	\renewcommand{\unicodeblockKannadaFont}{#1}
+	\renewcommand{\unicodeblockKharoshthiFont}{#1}
+	\renewcommand{\unicodeblockKhmerFont}{#1}
+	\renewcommand{\unicodeblockKhmerSymbolsFont}{#1}
+	\renewcommand{\unicodeblockLaoFont}{#1}
+	\renewcommand{\unicodeblockLimbuFont}{#1}
+	\renewcommand{\unicodeblockLinearBIdeogramsFont}{#1}
+	\renewcommand{\unicodeblockLinearBSyllabaryFont}{#1}
+	\renewcommand{\unicodeblockLowSurrogatesFont}{#1}
+	\renewcommand{\unicodeblockMahjongTilesFont}{#1}
+	\renewcommand{\unicodeblockMalayalamFont}{#1}
+	\renewcommand{\unicodeblockModifierToneLettersFont}{#1}
+	\renewcommand{\unicodeblockMongolianFont}{#1}
+	\renewcommand{\unicodeblockMusicalSymbolsFont}{#1}
+	\renewcommand{\unicodeblockMyanmarFont}{#1}
+	\renewcommand{\unicodeblockNewTaiLueFont}{#1}
+	\renewcommand{\unicodeblockNKoFont}{#1}
+	\renewcommand{\unicodeblockNumberFormsFont}{#1}
+	\renewcommand{\unicodeblockOghamFont}{#1}
+	\renewcommand{\unicodeblockOldItalicFont}{#1}
+	\renewcommand{\unicodeblockOldPersianFont}{#1}
+	\renewcommand{\unicodeblockOpticalCharacterRecognitionFont}{#1}
+	\renewcommand{\unicodeblockOriyaFont}{#1}
+	\renewcommand{\unicodeblockOsmanyaFont}{#1}
+	\renewcommand{\unicodeblockPhagsPaFont}{#1}
+	\renewcommand{\unicodeblockPhoenicianFont}{#1}
+	\renewcommand{\unicodeblockPrivateUseAreaFont}{#1}
+	\renewcommand{\unicodeblockRunicFont}{#1}
+	\renewcommand{\unicodeblockShavianFont}{#1}
+	\renewcommand{\unicodeblockSinhalaFont}{#1}
+	\renewcommand{\unicodeblockSmallFormVariantsFont}{#1}
+	\renewcommand{\unicodeblockSpacingModifierLettersFont}{#1}
+	\renewcommand{\unicodeblockSpecialsFont}{#1}
+	\renewcommand{\unicodeblockSuperscriptsandSubscriptsFont}{#1}
+	\renewcommand{\unicodeblockSupplementaryPrivateUseAreaAFont}{#1}
+	\renewcommand{\unicodeblockSupplementaryPrivateUseAreaBFont}{#1}
+	\renewcommand{\unicodeblockSylotiNagriFont}{#1}
+	\renewcommand{\unicodeblockSyriacFont}{#1}
+	\renewcommand{\unicodeblockTagalogFont}{#1}
+	\renewcommand{\unicodeblockTagbanwaFont}{#1}
+	\renewcommand{\unicodeblockTagsFont}{#1}
+	\renewcommand{\unicodeblockTaiLeFont}{#1}
+	\renewcommand{\unicodeblockTaiXuanJingSymbolsFont}{#1}
+	\renewcommand{\unicodeblockTamilFont}{#1}
+	\renewcommand{\unicodeblockTeluguFont}{#1}
+	\renewcommand{\unicodeblockThaanaFont}{#1}
+	\renewcommand{\unicodeblockThaiFont}{#1}
+	\renewcommand{\unicodeblockTibetanFont}{#1}
+	\renewcommand{\unicodeblockTifinaghFont}{#1}
+	\renewcommand{\unicodeblockUgariticFont}{#1}
+	\renewcommand{\unicodeblockUnifiedCanadianAboriginalSyllabicsFont}{#1}
+	\renewcommand{\unicodeblockVerticalFormsFont}{#1}
+	\renewcommand{\unicodeblockYijingHexagramSymbolsFont}{#1}
+	\renewcommand{\unicodegroupOtherFont}{#1}
+}
+
+\newcommand{\setfontwrapdefaultfont}[1]{
+  \setunicodegroupArabicFont{#1}
+  \setunicodegroupCJKFont{#1}
+  \setunicodegroupCyrillicFont{#1}
+  \setunicodegroupDiacriticsFont{#1}
+  \setunicodegroupGreekFont{#1}
+  \setunicodegroupLatinFont{#1}
+  \setunicodegroupMathematicsFont{#1}
+  \setunicodegroupPhoneticsFont{#1}
+  \setunicodegroupPunctuationFont{#1}
+  \setunicodegroupSymbolsFont{#1}
+  \setunicodegroupYiFont{#1}
+  \setunicodegroupOtherFont{#1}
+}
+
+% 
+% I don't want to write a huge ifthen construction here either
+%
+\perlnewcommand{\setunicodegroupfont}[2]{ return "\\setunicodegroup".$_[0]."Font{".$_[1]."}"; }
+
+
+% ------------------------------------------------------------------------------------
+%
+%  then, the actual block data definitions. These consist of a comma delimited list of:
+%
+%  - unicode block name
+%  - informal group the block is in
+%  - codepoint of the first glyph in the block, in hexadecimal notation
+%  - codepoint of the last glyph in the block, in hexadecimal notation
+%  - number of glyphs in the block
+%  - font macro, which is passed as macro argument
+%
+% ------------------------------------------------------------------------------------
+
+\newcommand{\unicodeblockAegeanNumbers}[1]{Aegean Numbers,Other,10100,1013F,57,#1}
+
+\newcommand{\unicodeblockAlphabeticPresentationForms}[1]{Alphabetic Presentation Forms,Ligatures,FB00,FB4F,58,#1}
+
+\newcommand{\unicodeblockAncientGreekMusicalNotation}[1]{Ancient Greek Musical Notation,Other,1D200,1D24F,70,#1}
+
+\newcommand{\unicodeblockAncientGreekNumbers}[1]{Ancient Greek Numbers,Other,10140,1018F,75,#1}
+
+\newcommand{\unicodeblockArabic}[1]{Arabic,Arabic,0600,06FF,235,#1}
+
+\newcommand{\unicodeblockArabicPresentationFormsA}[1]{Arabic Presentation Forms-A,Arabic,FB50,FDFF,595,#1}
+
+\newcommand{\unicodeblockArabicPresentationFormsB}[1]{Arabic Presentation Forms-B,Arabic,FE70,FEFF,141,#1}
+
+\newcommand{\unicodeblockArabicSupplement}[1]{Arabic Supplement,Arabic,0750,077F,30,#1}
+
+\newcommand{\unicodeblockArmenian}[1]{Armenian,Other,0530,058F,86,#1}
+
+\newcommand{\unicodeblockArrows}[1]{Arrows,Symbols,2190,21FF,112,#1}
+
+\newcommand{\unicodeblockBalinese}[1]{Balinese,Other,1B00,1B7F,121,#1}
+
+\newcommand{\unicodeblockBasicLatin}[1]{Basic Latin,Latin,0000,007F,128,#1}
+
+\newcommand{\unicodeblockBengali}[1]{Bengali,Other,0980,09FF,91,#1}
+
+\newcommand{\unicodeblockBlockElements}[1]{Block Elements,Other,2580,259F,32,#1}
+
+\newcommand{\unicodeblockBopomofo}[1]{Bopomofo,Bopomofo,3100,312F,40,#1}
+
+\newcommand{\unicodeblockBopomofoExtended}[1]{Bopomofo Extended,Bopomofo,31A0,31BF,24,#1}
+
+\newcommand{\unicodeblockBoxDrawing}[1]{Box Drawing,Symbols,2500,257F,128,#1}
+
+\newcommand{\unicodeblockBraillePatterns}[1]{Braille Patterns,Other,2800,28FF,256,#1}
+
+\newcommand{\unicodeblockBuginese}[1]{Buginese,Other,1A00,1A1F,30,#1}
+
+\newcommand{\unicodeblockBuhid}[1]{Buhid,Other,1740,175F,20,#1}
+
+\newcommand{\unicodeblockByzantineMusicalSymbols}[1]{Byzantine Musical Symbols,Symbols,1D000,1D0FF,246,#1}
+
+\newcommand{\unicodeblockCherokee}[1]{Cherokee,Other,13A0,13FF,85,#1}
+
+\newcommand{\unicodeblockCJKCompatibility}[1]{CJK Compatibility,CJK,3300,33FF,256,#1}
+
+\newcommand{\unicodeblockCJKCompatibilityForms}[1]{CJK Compatibility Forms,CJK,FE30,FE4F,32,#1}
+
+\newcommand{\unicodeblockCJKCompatibilityIdeographs}[1]{CJK Compatibility Ideographs,CJK,F900,FAFF,467,#1}
+
+\newcommand{\unicodeblockCJKCompatibilityIdeographsSupplement}[1]{CJK Compatibility Ideographs Supplement,CJK,2F800,2FA1F,542,#1}
+
+\newcommand{\unicodeblockCJKRadicalsSupplement}[1]{CJK Radicals Supplement,CJK,2E80,2EFF,115,#1}
+
+\newcommand{\unicodeblockCJKStrokes}[1]{CJK Strokes,CJK,31C0,31EF,16,#1}
+
+\newcommand{\unicodeblockCJKSymbolsandPunctuation}[1]{CJK Symbols and Punctuation,CJK,3000,303F,64,#1}
+
+\newcommand{\unicodeblockCJKUnifiedIdeographs}[1]{CJK Unified Ideographs,CJK,4E00,9FFF,20924,#1}
+
+\newcommand{\unicodeblockCJKUnifiedIdeographsExtensionA}[1]{CJK Unified Ideographs Extension A,CJK,3400,4DBF,6582,#1}
+
+\newcommand{\unicodeblockCJKUnifiedIdeographsExtensionB}[1]{CJK Unified Ideographs Extension B,CJK,20000,2A6DF,42711,#1}
+
+\newcommand{\unicodeblockCombiningDiacriticalMarks}[1]{Combining Diacritical Marks,Diacritics,0300,036F,112,#1}
+
+\newcommand{\unicodeblockCombiningDiacriticalMarksforSymbols}[1]{Combining Diacritical Marks for Symbols,Diacritics,20D0,20FF,32,#1}
+
+\newcommand{\unicodeblockCombiningDiacriticalMarksSupplement}[1]{Combining Diacritical Marks Supplement,Diacritics,1DC0,1DFF,13,#1}
+
+\newcommand{\unicodeblockCombiningHalfMarks}[1]{Combining Half Marks,Diacritics,FE20,FE2F,4,#1}
+
+\newcommand{\unicodeblockControlPictures}[1]{Control Pictures,Symbols,2400,243F,39,#1}
+
+\newcommand{\unicodeblockCoptic}[1]{Coptic,Other,2C80,2CFF,114,#1}
+
+\newcommand{\unicodeblockCountingRodNumerals}[1]{Counting Rod Numerals,Other,1D360,1D37F,18,#1}
+
+\newcommand{\unicodeblockCuneiform}[1]{Cuneiform,Other,12000,123FF,879,#1}
+
+\newcommand{\unicodeblockCuneiformNumbersandPunctuation}[1]{Cuneiform Numbers and Punctuation,Other,12400,1247F,103,#1}
+
+\newcommand{\unicodeblockCurrencySymbols}[1]{Currency Symbols,Symbols,20A0,20CF,22,#1}
+
+\newcommand{\unicodeblockCypriotSyllabary}[1]{Cypriot Syllabary,Other,10800,1083F,55,#1}
+
+\newcommand{\unicodeblockCyrillic}[1]{Cyrillic,Cyrillic,0400,04FF,255,#1}
+
+\newcommand{\unicodeblockCyrillicExtendedA}[1]{Cyrillic Extended-A,Cyrillic,2DE0,2DFF,32,#1}
+
+\newcommand{\unicodeblockCyrillicExtendedB}[1]{Cyrillic Extended-B,Cyrillic,A640,A69f,78,#1}
+
+\newcommand{\unicodeblockCyrillicSupplement}[1]{Cyrillic Supplement,Cyrillic,0500,052F,20,#1}
+
+\newcommand{\unicodeblockDeseret}[1]{Deseret,Other,10400,1044F,80,#1}
+
+\newcommand{\unicodeblockDevanagari}[1]{Devanagari,Other,0900,097F,110,#1}
+
+\newcommand{\unicodeblockDingbats}[1]{Dingbats,Other,2700,27BF,174,#1}
+
+\newcommand{\unicodeblockDominoTiles}[1]{Domino Tiles,Other,1F030,1F09F,100,#1}
+
+\newcommand{\unicodeblockEnclosedAlphanumerics}[1]{Enclosed Alphanumerics,Other,2460,24FF,160,#1}
+
+\newcommand{\unicodeblockEnclosedCJKLettersandMonths}[1]{Enclosed CJK Letters and Months,CJK,3200,32FF,242,#1}
+
+\newcommand{\unicodeblockEthiopic}[1]{Ethiopic,Other,1200,137F,356,#1}
+
+\newcommand{\unicodeblockEthiopicExtended}[1]{Ethiopic Extended,Other,2D80,2DDF,79,#1}
+
+\newcommand{\unicodeblockEthiopicSupplement}[1]{Ethiopic Supplement,Other,1380,139F,26,#1}
+
+\newcommand{\unicodeblockGeneralPunctuation}[1]{General Punctuation,Punctuation,2000,206F,106,#1}
+
+\newcommand{\unicodeblockGeometricShapes}[1]{Geometric Shapes,Symbols,25A0,25FF,96,#1}
+
+\newcommand{\unicodeblockGeorgian}[1]{Georgian,Other,10A0,10FF,83,#1}
+
+\newcommand{\unicodeblockGeorgianSupplement}[1]{Georgian Supplement,Other,2D00,2D2F,38,#1}
+
+\newcommand{\unicodeblockGlagolitic}[1]{Glagolitic,Other,2C00,2C5F,94,#1}
+
+\newcommand{\unicodeblockGothic}[1]{Gothic,Other,10330,1034F,27,#1}
+
+\newcommand{\unicodeblockGreekandCoptic}[1]{Greek and Coptic,Greek,0370,03FF,127,#1}
+
+\newcommand{\unicodeblockGreekExtended}[1]{Greek Extended,Greek,1F00,1FFF,233,#1}
+
+\newcommand{\unicodeblockGujarati}[1]{Gujarati,Other,0A80,0AFF,83,#1}
+
+\newcommand{\unicodeblockGurmukhi}[1]{Gurmukhi,Other,0A00,0A7F,77,#1}
+
+\newcommand{\unicodeblockHalfwidthandFullwidthForms}[1]{Halfwidth and Fullwidth Forms,CJK,FF00,FFEF,225,#1}
+
+\newcommand{\unicodeblockHangulCompatibilityJamo}[1]{Hangul Compatibility Jamo,Hangul,3130,318F,94,#1}
+
+\newcommand{\unicodeblockHangulJamo}[1]{Hangul Jamo,Hangul,1100,11FF,240,#1}
+
+\newcommand{\unicodeblockHangulSyllables}[1]{Hangul Syllables,Hangul,AC00,D7AF,2,#1}
+
+\newcommand{\unicodeblockHanunoo}[1]{Hanunoo,Other,1720,173F,23,#1}
+
+\newcommand{\unicodeblockHebrew}[1]{Hebrew,Other,0590,05FF,87,#1}
+
+\newcommand{\unicodeblockHighPrivateUseSurrogates}[1]{High Private Use Surrogates,Other,DB80,DBFF,2,#1}
+
+\newcommand{\unicodeblockHighSurrogates}[1]{High Surrogates,Other,D800,DB7F,2,#1}
+
+\newcommand{\unicodeblockHiragana}[1]{Hiragana,CJK,3040,309F,93,#1}
+
+\newcommand{\unicodeblockIdeographicDescriptionCharacters}[1]{Ideographic Description Characters,CJK,2FF0,2FFF,12,#1}
+
+\newcommand{\unicodeblockIPAExtensions}[1]{IPA Extensions,Phonetics,0250,02AF,96,#1}
+
+\newcommand{\unicodeblockKanbun}[1]{Kanbun,CJK,3190,319F,16,#1}
+
+\newcommand{\unicodeblockKangxiRadicals}[1]{Kangxi Radicals,CJK,2F00,2FDF,214,#1}
+
+\newcommand{\unicodeblockKannada}[1]{Kannada,Other,0C80,0CFF,86,#1}
+
+\newcommand{\unicodeblockKatakana}[1]{Katakana,CJK,30A0,30FF,96,#1}
+
+\newcommand{\unicodeblockKatakanaPhoneticExtensions}[1]{Katakana Phonetic Extensions,CJK,31F0,31FF,16,#1}
+
+\newcommand{\unicodeblockKharoshthi}[1]{Kharoshthi,Other,10A00,10A5F,65,#1}
+
+\newcommand{\unicodeblockKhmer}[1]{Khmer,Other,1780,17FF,114,#1}
+
+\newcommand{\unicodeblockKhmerSymbols}[1]{Khmer Symbols,Other,19E0,19FF,32,#1}
+
+\newcommand{\unicodeblockLao}[1]{Lao,Other,0E80,0EFF,65,#1}
+
+\newcommand{\unicodeblockLatinExtendedAdditional}[1]{Latin Extended Additional,Latin,1E00,1EFF,246,#1}
+
+\newcommand{\unicodeblockLatinExtendedA}[1]{Latin Extended-A,Latin,0100,017F,128,#1}
+
+\newcommand{\unicodeblockLatinExtendedB}[1]{Latin Extended-B,Latin,0180,024F,208,#1}
+
+\newcommand{\unicodeblockLatinExtendedC}[1]{Latin Extended-C,Latin,2C60,2C7F,17,#1}
+
+\newcommand{\unicodeblockLatinExtendedD}[1]{Latin Extended-D,Latin,A720,A7FF,2,#1}
+
+\newcommand{\unicodeblockLatinSupplement}[1]{Latin-1 Supplement,Latin,0080,00FF,128,#1}
+
+\newcommand{\unicodeblockLetterlikeSymbols}[1]{Letterlike Symbols,Symbols,2100,214F,79,#1}
+
+\newcommand{\unicodeblockLimbu}[1]{Limbu,Other,1900,194F,66,#1}
+
+\newcommand{\unicodeblockLinearBIdeograms}[1]{Linear B Ideograms,Other,10080,100FF,123,#1}
+
+\newcommand{\unicodeblockLinearBSyllabary}[1]{Linear B Syllabary,Other,10000,1007F,88,#1}
+
+\newcommand{\unicodeblockLowSurrogates}[1]{Low Surrogates,Other,DC00,DFFF,2,#1}
+
+\newcommand{\unicodeblockMahjongTiles}[1]{Mahjong Tiles,Other,1F000,1F02F,44,#1}
+
+\newcommand{\unicodeblockMalayalam}[1]{Malayalam,Other,0D00,0D7F,78,#1}
+
+\newcommand{\unicodeblockMathematicalAlphanumericSymbols}[1]{Mathematical Alphanumeric Symbols,Mathematics,1D400,1D7FF,996,#1}
+
+\newcommand{\unicodeblockMathematicalOperators}[1]{Mathematical Operators,Mathematics,2200,22FF,256,#1}
+
+\newcommand{\unicodeblockMiscellaneousMathematicalSymbolsA}[1]{Miscellaneous Mathematical Symbols-A,Mathematics,27C0,27EF,39,#1}
+
+\newcommand{\unicodeblockMiscellaneousMathematicalSymbolsB}[1]{Miscellaneous Mathematical Symbols-B,Mathematics,2980,29FF,128,#1}
+
+\newcommand{\unicodeblockMiscellaneousSymbols}[1]{Miscellaneous Symbols,Symbols,2600,26FF,176,#1}
+
+\newcommand{\unicodeblockMiscellaneousSymbolsandArrows}[1]{Miscellaneous Symbols and Arrows,Symbols,2B00,2BFF,31,#1}
+
+\newcommand{\unicodeblockMiscellaneousTechnical}[1]{Miscellaneous Technical,Symbols,2300,23FF,232,#1}
+
+\newcommand{\unicodeblockModifierToneLetters}[1]{Modifier Tone Letters,Other,A700,A71F,27,#1}
+
+\newcommand{\unicodeblockMongolian}[1]{Mongolian,Other,1800,18AF,155,#1}
+
+\newcommand{\unicodeblockMusicalSymbols}[1]{Musical Symbols,Other,1D100,1D1FF,219,#1}
+
+\newcommand{\unicodeblockMyanmar}[1]{Myanmar,Other,1000,109F,78,#1}
+
+\newcommand{\unicodeblockNewTaiLue}[1]{New Tai Lue,Other,1980,19DF,80,#1}
+
+\newcommand{\unicodeblockNKo}[1]{NKo,Other,07C0,07FF,59,#1}
+
+\newcommand{\unicodeblockNumberForms}[1]{Number Forms,Other,2150,218F,50,#1}
+
+\newcommand{\unicodeblockOgham}[1]{Ogham,Other,1680,169F,29,#1}
+
+\newcommand{\unicodeblockOldItalic}[1]{Old Italic,Other,10300,1032F,35,#1}
+
+\newcommand{\unicodeblockOldPersian}[1]{Old Persian,Other,103A0,103DF,50,#1}
+
+\newcommand{\unicodeblockOpticalCharacterRecognition}[1]{Optical Character Recognition,Other,2440,245F,11,#1}
+
+\newcommand{\unicodeblockOriya}[1]{Oriya,Other,0B00,0B7F,81,#1}
+
+\newcommand{\unicodeblockOsmanya}[1]{Osmanya,Other,10480,104AF,40,#1}
+
+\newcommand{\unicodeblockPhagsPa}[1]{PhagsPa,Other,A840,A87F,56,#1}
+
+\newcommand{\unicodeblockPhoenician}[1]{Phoenician,Other,10900,1091F,27,#1}
+
+\newcommand{\unicodeblockPhoneticExtensions}[1]{Phonetic Extensions,Phonetics,1D00,1D7F,128,#1}
+
+\newcommand{\unicodeblockPhoneticExtensionsSupplement}[1]{Phonetic Extensions Supplement,Phonetics,1D80,1DBF,64,#1}
+
+\newcommand{\unicodeblockPrivateUseArea}[1]{Private Use Area,Other,E000,F8FF,2,#1}
+
+\newcommand{\unicodeblockRunic}[1]{Runic,Other,16A0,16FF,81,#1}
+
+\newcommand{\unicodeblockShavian}[1]{Shavian,Other,10450,1047F,48,#1}
+
+\newcommand{\unicodeblockSinhala}[1]{Sinhala,Other,0D80,0DFF,80,#1}
+
+\newcommand{\unicodeblockSmallFormVariants}[1]{Small Form Variants,Other,FE50,FE6F,26,#1}
+
+\newcommand{\unicodeblockSpacingModifierLetters}[1]{Spacing Modifier Letters,Other,02B0,02FF,80,#1}
+
+\newcommand{\unicodeblockSpecials}[1]{Specials,Other,FFF0,FFFF,5,#1}
+
+\newcommand{\unicodeblockSuperscriptsandSubscripts}[1]{Superscripts and Subscripts,Other,2070,209F,34,#1}
+
+\newcommand{\unicodeblockSupplementalArrowsA}[1]{Supplemental Arrows-A,Symbols,27F0,27FF,16,#1}
+
+\newcommand{\unicodeblockSupplementalArrowsB}[1]{Supplemental Arrows-B,Symbols,2900,297F,128,#1}
+
+\newcommand{\unicodeblockSupplementalMathematicalOperators}[1]{Supplemental Mathematical Operators,Mathematics,2A00,2AFF,256,#1}
+
+\newcommand{\unicodeblockSupplementalPunctuation}[1]{Supplemental Punctuation,Punctuation,2E00,2E7F,26,#1}
+
+\newcommand{\unicodeblockSupplementaryPrivateUseAreaA}[1]{Supplementary Private Use Area-A,Other,F0000,FFFFF,2,#1}
+
+\newcommand{\unicodeblockSupplementaryPrivateUseAreaB}[1]{Supplementary Private Use Area-B,Other,100000,10FFFF,2,#1}
+
+\newcommand{\unicodeblockSylotiNagri}[1]{Syloti Nagri,Other,A800,A82F,44,#1}
+
+\newcommand{\unicodeblockSyriac}[1]{Syriac,Other,0700,074F,77,#1}
+
+\newcommand{\unicodeblockTagalog}[1]{Tagalog,Other,1700,171F,20,#1}
+
+\newcommand{\unicodeblockTagbanwa}[1]{Tagbanwa,Other,1760,177F,18,#1}
+
+\newcommand{\unicodeblockTags}[1]{Tags,Other,E0000,E007F,97,#1}
+
+\newcommand{\unicodeblockTaiLe}[1]{Tai Le,Other,1950,197F,35,#1}
+
+\newcommand{\unicodeblockTaiXuanJingSymbols}[1]{Tai Xuan Jing Symbols,Other,1D300,1D35F,87,#1}
+
+\newcommand{\unicodeblockTamil}[1]{Tamil,Other,0B80,0BFF,71,#1}
+
+\newcommand{\unicodeblockTelugu}[1]{Telugu,Other,0C00,0C7F,80,#1}
+
+\newcommand{\unicodeblockThaana}[1]{Thaana,Other,0780,07BF,50,#1}
+
+\newcommand{\unicodeblockThai}[1]{Thai,Other,0E00,0E7F,87,#1}
+
+\newcommand{\unicodeblockTibetan}[1]{Tibetan,Other,0F00,0FFF,195,#1}
+
+\newcommand{\unicodeblockTifinagh}[1]{Tifinagh,Other,2D30,2D7F,55,#1}
+
+\newcommand{\unicodeblockUgaritic}[1]{Ugaritic,Other,10380,1039F,31,#1}
+
+\newcommand{\unicodeblockUnifiedCanadianAboriginalSyllabics}[1]{Unified Canadian Aboriginal Syllabics,Other,1400,167F,630,#1}
+
+\newcommand{\unicodeblockVariationSelectors}[1]{Variation Selectors,Symbols,FE00,FE0F,16,#1}
+
+\newcommand{\unicodeblockVariationSelectorsSupplement}[1]{Variation Selectors Supplement,Symbols,E0100,E01EF,240,#1}
+
+\newcommand{\unicodeblockVerticalForms}[1]{Vertical Forms,Other,FE10,FE1F,10,#1}
+
+\newcommand{\unicodeblockYiRadicals}[1]{Yi Radicals,Yi,A490,A4CF,55,#1}
+
+\newcommand{\unicodeblockYiSyllables}[1]{Yi Syllables,Yi,A000,A48F,1165,#1}
+
+\newcommand{\unicodeblockYijingHexagramSymbols}[1]{Yijing Hexagram Symbols,Other,4DC0,4DFF,64,#1}
+
+% -------------------------------------------------------
+%
+%  And finally, the macro that generates the whole zwiq
+%
+% -------------------------------------------------------
+
+\newcommand{\autfontunicodedata}{
+  % these first four blocks have been ordered for fast resolution by the perl script,
+  % because the list of blocks is checked in order.
+  
+  \unicodeblockBasicLatin{ \unicodeblockBasicLatinFont }
+
+  \unicodeblockHiragana{ \unicodeblockHiraganaFont }
+
+  \unicodeblockCJKUnifiedIdeographs{ \unicodeblockCJKUnifiedIdeographsFont }
+
+  \unicodeblockKatakana{ \unicodeblockKatakanaFont }
+
+  \unicodeblockAegeanNumbers{ \unicodeblockAegeanNumbersFont }
+
+  \unicodeblockAlphabeticPresentationForms{ \unicodeblockAlphabeticPresentationFormsFont }
+
+  \unicodeblockAncientGreekMusicalNotation{ \unicodeblockAncientGreekMusicalNotationFont }
+
+  \unicodeblockAncientGreekNumbers{ \unicodeblockAncientGreekNumbersFont }
+
+  \unicodeblockArabic{ \unicodeblockArabicFont }
+
+  \unicodeblockArabicPresentationFormsA{ \unicodeblockArabicPresentationFormsAFont }
+
+  \unicodeblockArabicPresentationFormsB{ \unicodeblockArabicPresentationFormsBFont }
+
+  \unicodeblockArabicSupplement{ \unicodeblockArabicSupplementFont }
+
+  \unicodeblockArmenian{ \unicodeblockArmenianFont }
+
+  \unicodeblockArrows{ \unicodeblockArrowsFont }
+
+  \unicodeblockBalinese{ \unicodeblockBalineseFont }
+
+  \unicodeblockBengali{ \unicodeblockBengaliFont }
+
+  \unicodeblockBlockElements{ \unicodeblockBlockElementsFont }
+
+  \unicodeblockBopomofo{ \unicodeblockBopomofoFont }
+
+  \unicodeblockBopomofoExtended{ \unicodeblockBopomofoExtendedFont }
+
+  \unicodeblockBoxDrawing{ \unicodeblockBoxDrawingFont }
+
+  \unicodeblockBraillePatterns{ \unicodeblockBraillePatternsFont }
+
+  \unicodeblockBuginese{ \unicodeblockBugineseFont }
+
+  \unicodeblockBuhid{ \unicodeblockBuhidFont }
+
+  \unicodeblockByzantineMusicalSymbols{ \unicodeblockByzantineMusicalSymbolsFont }
+
+  \unicodeblockCherokee{ \unicodeblockCherokeeFont }
+
+  \unicodeblockCJKCompatibility{ \unicodeblockCJKCompatibilityFont }
+
+  \unicodeblockCJKCompatibilityForms{ \unicodeblockCJKCompatibilityFormsFont }
+
+  \unicodeblockCJKCompatibilityIdeographs{ \unicodeblockCJKCompatibilityIdeographsFont }
+
+  \unicodeblockCJKCompatibilityIdeographsSupplement{ \unicodeblockCJKCompatibilityIdeographsSupplementFont }
+
+  \unicodeblockCJKRadicalsSupplement{ \unicodeblockCJKRadicalsSupplementFont }
+
+  \unicodeblockCJKStrokes{ \unicodeblockCJKStrokesFont }
+
+  \unicodeblockCJKSymbolsandPunctuation{ \unicodeblockCJKSymbolsandPunctuationFont }
+
+  \unicodeblockCJKUnifiedIdeographsExtensionA{ \unicodeblockCJKUnifiedIdeographsExtensionAFont }
+
+  \unicodeblockCJKUnifiedIdeographsExtensionB{ \unicodeblockCJKUnifiedIdeographsExtensionBFont }
+
+  \unicodeblockCombiningDiacriticalMarks{ \unicodeblockCombiningDiacriticalMarksFont }
+
+  \unicodeblockCombiningDiacriticalMarksforSymbols{ \unicodeblockCombiningDiacriticalMarksforSymbolsFont }
+
+  \unicodeblockCombiningDiacriticalMarksSupplement{ \unicodeblockCombiningDiacriticalMarksSupplementFont }
+
+  \unicodeblockCombiningHalfMarks{ \unicodeblockCombiningHalfMarksFont }
+
+  \unicodeblockControlPictures{ \unicodeblockControlPicturesFont }
+
+  \unicodeblockCoptic{ \unicodeblockCopticFont }
+
+  \unicodeblockCountingRodNumerals{ \unicodeblockCountingRodNumeralsFont }
+
+  \unicodeblockCuneiform{ \unicodeblockCuneiformFont }
+
+  \unicodeblockCuneiformNumbersandPunctuation{ \unicodeblockCuneiformNumbersandPunctuationFont }
+
+  \unicodeblockCurrencySymbols{ \unicodeblockCurrencySymbolsFont }
+
+  \unicodeblockCypriotSyllabary{ \unicodeblockCypriotSyllabaryFont }
+
+  \unicodeblockCyrillic{ \unicodeblockCyrillicFont }
+
+  \unicodeblockCyrillicExtendedA{ \unicodeblockCyrillicExtendedAFont }
+
+  \unicodeblockCyrillicExtendedB{ \unicodeblockCyrillicExtendedBFont }
+
+  \unicodeblockCyrillicSupplement{ \unicodeblockCyrillicSupplementFont }
+
+  \unicodeblockDeseret{ \unicodeblockDeseretFont }
+
+  \unicodeblockDevanagari{ \unicodeblockDevanagariFont }
+
+  \unicodeblockDingbats{ \unicodeblockDingbatsFont }
+
+  \unicodeblockDominoTiles{ \unicodeblockDominoTilesFont }
+
+  \unicodeblockEnclosedAlphanumerics{ \unicodeblockEnclosedAlphanumericsFont }
+
+  \unicodeblockEnclosedCJKLettersandMonths{ \unicodeblockEnclosedCJKLettersandMonthsFont }
+
+  \unicodeblockEthiopic{ \unicodeblockEthiopicFont }
+
+  \unicodeblockEthiopicExtended{ \unicodeblockEthiopicExtendedFont }
+
+  \unicodeblockEthiopicSupplement{ \unicodeblockEthiopicSupplementFont }
+
+  \unicodeblockGeneralPunctuation{ \unicodeblockGeneralPunctuationFont }
+
+  \unicodeblockGeometricShapes{ \unicodeblockGeometricShapesFont }
+
+  \unicodeblockGeorgian{ \unicodeblockGeorgianFont }
+
+  \unicodeblockGeorgianSupplement{ \unicodeblockGeorgianSupplementFont }
+
+  \unicodeblockGlagolitic{ \unicodeblockGlagoliticFont }
+
+  \unicodeblockGothic{ \unicodeblockGothicFont }
+
+  \unicodeblockGreekandCoptic{ \unicodeblockGreekandCopticFont }
+
+  \unicodeblockGreekExtended{ \unicodeblockGreekExtendedFont }
+
+  \unicodeblockGujarati{ \unicodeblockGujaratiFont }
+
+  \unicodeblockGurmukhi{ \unicodeblockGurmukhiFont }
+
+  \unicodeblockHalfwidthandFullwidthForms{ \unicodeblockHalfwidthandFullwidthFormsFont }
+
+  \unicodeblockHangulCompatibilityJamo{ \unicodeblockHangulCompatibilityJamoFont }
+
+  \unicodeblockHangulJamo{ \unicodeblockHangulJamoFont }
+
+  \unicodeblockHangulSyllables{ \unicodeblockHangulSyllablesFont }
+
+  \unicodeblockHanunoo{ \unicodeblockHanunooFont }
+
+  \unicodeblockHebrew{ \unicodeblockHebrewFont }
+
+  \unicodeblockHighPrivateUseSurrogates{ \unicodeblockHighPrivateUseSurrogatesFont }
+
+  \unicodeblockHighSurrogates{ \unicodeblockHighSurrogatesFont }
+
+  \unicodeblockIdeographicDescriptionCharacters{ \unicodeblockIdeographicDescriptionCharactersFont }
+
+  \unicodeblockIPAExtensions{ \unicodeblockIPAExtensionsFont }
+
+  \unicodeblockKanbun{ \unicodeblockKanbunFont }
+
+  \unicodeblockKangxiRadicals{ \unicodeblockKangxiRadicalsFont }
+
+  \unicodeblockKannada{ \unicodeblockKannadaFont }
+
+  \unicodeblockKatakanaPhoneticExtensions{ \unicodeblockKatakanaPhoneticExtensionsFont }
+
+  \unicodeblockKharoshthi{ \unicodeblockKharoshthiFont }
+
+  \unicodeblockKhmer{ \unicodeblockKhmerFont }
+
+  \unicodeblockKhmerSymbols{ \unicodeblockKhmerSymbolsFont }
+
+  \unicodeblockLao{ \unicodeblockLaoFont }
+
+  \unicodeblockLatinExtendedAdditional{ \unicodeblockLatinExtendedAdditionalFont }
+
+  \unicodeblockLatinExtendedA{ \unicodeblockLatinExtendedAFont }
+
+  \unicodeblockLatinExtendedB{ \unicodeblockLatinExtendedBFont }
+
+  \unicodeblockLatinExtendedC{ \unicodeblockLatinExtendedCFont }
+
+  \unicodeblockLatinExtendedD{ \unicodeblockLatinExtendedDFont }
+
+  \unicodeblockLatinSupplement{ \unicodeblockLatinSupplementFont }
+
+  \unicodeblockLetterlikeSymbols{ \unicodeblockLetterlikeSymbolsFont }
+
+  \unicodeblockLimbu{ \unicodeblockLimbuFont }
+
+  \unicodeblockLinearBIdeograms{ \unicodeblockLinearBIdeogramsFont }
+
+  \unicodeblockLinearBSyllabary{ \unicodeblockLinearBSyllabaryFont }
+
+  \unicodeblockLowSurrogates{ \unicodeblockLowSurrogatesFont }
+
+  \unicodeblockMahjongTiles{ \unicodeblockMahjongTilesFont }
+
+  \unicodeblockMalayalam{ \unicodeblockMalayalamFont }
+
+  \unicodeblockMathematicalAlphanumericSymbols{ \unicodeblockMathematicalAlphanumericSymbolsFont }
+
+  \unicodeblockMathematicalOperators{ \unicodeblockMathematicalOperatorsFont }
+
+  \unicodeblockMiscellaneousMathematicalSymbolsA{ \unicodeblockMiscellaneousMathematicalSymbolsAFont }
+
+  \unicodeblockMiscellaneousMathematicalSymbolsB{ \unicodeblockMiscellaneousMathematicalSymbolsBFont }
+
+  \unicodeblockMiscellaneousSymbols{ \unicodeblockMiscellaneousSymbolsFont }
+
+  \unicodeblockMiscellaneousSymbolsandArrows{ \unicodeblockMiscellaneousSymbolsandArrowsFont }
+
+  \unicodeblockMiscellaneousTechnical{ \unicodeblockMiscellaneousTechnicalFont }
+
+  \unicodeblockModifierToneLetters{ \unicodeblockModifierToneLettersFont }
+
+  \unicodeblockMongolian{ \unicodeblockMongolianFont }
+
+  \unicodeblockMusicalSymbols{ \unicodeblockMusicalSymbolsFont }
+
+  \unicodeblockMyanmar{ \unicodeblockMyanmarFont }
+
+  \unicodeblockNewTaiLue{ \unicodeblockNewTaiLueFont }
+
+  \unicodeblockNKo{ \unicodeblockNKoFont }
+
+  \unicodeblockNumberForms{ \unicodeblockNumberFormsFont }
+
+  \unicodeblockOgham{ \unicodeblockOghamFont }
+
+  \unicodeblockOldItalic{ \unicodeblockOldItalicFont }
+
+  \unicodeblockOldPersian{ \unicodeblockOldPersianFont }
+
+  \unicodeblockOpticalCharacterRecognition{ \unicodeblockOpticalCharacterRecognitionFont }
+
+  \unicodeblockOriya{ \unicodeblockOriyaFont }
+
+  \unicodeblockOsmanya{ \unicodeblockOsmanyaFont }
+
+  \unicodeblockPhagsPa{ \unicodeblockPhagsPaFont }
+
+  \unicodeblockPhoenician{ \unicodeblockPhoenicianFont }
+
+  \unicodeblockPhoneticExtensions{ \unicodeblockPhoneticExtensionsFont }
+
+  \unicodeblockPhoneticExtensionsSupplement{ \unicodeblockPhoneticExtensionsSupplementFont }
+
+  \unicodeblockPrivateUseArea{ \unicodeblockPrivateUseAreaFont }
+
+  \unicodeblockRunic{ \unicodeblockRunicFont }
+
+  \unicodeblockShavian{ \unicodeblockShavianFont }
+
+  \unicodeblockSinhala{ \unicodeblockSinhalaFont }
+
+  \unicodeblockSmallFormVariants{ \unicodeblockSmallFormVariantsFont }
+
+  \unicodeblockSpacingModifierLetters{ \unicodeblockSpacingModifierLettersFont }
+
+  \unicodeblockSpecials{ \unicodeblockSpecialsFont }
+
+  \unicodeblockSuperscriptsandSubscripts{ \unicodeblockSuperscriptsandSubscriptsFont }
+
+  \unicodeblockSupplementalArrowsA{ \unicodeblockSupplementalArrowsAFont }
+
+  \unicodeblockSupplementalArrowsB{ \unicodeblockSupplementalArrowsBFont }
+
+  \unicodeblockSupplementalMathematicalOperators{ \unicodeblockSupplementalMathematicalOperatorsFont }
+
+  \unicodeblockSupplementalPunctuation{ \unicodeblockSupplementalPunctuationFont }
+
+  \unicodeblockSupplementaryPrivateUseAreaA{ \unicodeblockSupplementaryPrivateUseAreaAFont }
+
+  \unicodeblockSupplementaryPrivateUseAreaB{ \unicodeblockSupplementaryPrivateUseAreaBFont }
+
+  \unicodeblockSylotiNagri{ \unicodeblockSylotiNagriFont }
+
+  \unicodeblockSyriac{ \unicodeblockSyriacFont }
+
+  \unicodeblockTagalog{ \unicodeblockTagalogFont }
+
+  \unicodeblockTagbanwa{ \unicodeblockTagbanwaFont }
+
+  \unicodeblockTags{ \unicodeblockTagsFont }
+
+  \unicodeblockTaiLe{ \unicodeblockTaiLeFont }
+
+  \unicodeblockTaiXuanJingSymbols{ \unicodeblockTaiXuanJingSymbolsFont }
+
+  \unicodeblockTamil{ \unicodeblockTamilFont }
+
+  \unicodeblockTelugu{ \unicodeblockTeluguFont }
+
+  \unicodeblockThaana{ \unicodeblockThaanaFont }
+
+  \unicodeblockThai{ \unicodeblockThaiFont }
+
+  \unicodeblockTibetan{ \unicodeblockTibetanFont }
+
+  \unicodeblockTifinagh{ \unicodeblockTifinaghFont }
+
+  \unicodeblockUgaritic{ \unicodeblockUgariticFont }
+
+  \unicodeblockUnifiedCanadianAboriginalSyllabics{ \unicodeblockUnifiedCanadianAboriginalSyllabicsFont }
+
+  \unicodeblockVariationSelectors{ \unicodeblockVariationSelectorsFont }
+
+  \unicodeblockVariationSelectorsSupplement{ \unicodeblockVariationSelectorsSupplementFont }
+
+  \unicodeblockVerticalForms{ \unicodeblockVerticalFormsFont }
+
+  \unicodeblockYiRadicals{ \unicodeblockYiRadicalsFont }
+
+  \unicodeblockYiSyllables{ \unicodeblockYiSyllablesFont }
+
+  \unicodeblockYijingHexagramSymbols{ \unicodeblockYijingHexagramSymbolsFont }
+  
+}
+
+
+% ----------------------------------------------------------
+%
+%  After all this unicode font and data stuff, the perl
+%  program for placing fontspec codes appropriately is
+%  defined in a \perlautolang 'macro', which is wrapped
+%  by the \fontwrap macro, which passes it the text it
+%  needs to add font macros into, and the list of unicode
+%  block data entries, with appropriate font macros loaded.
+%
+% ----------------------------------------------------------
+
+%
+% The list of macros fontwrap is allowed to go inside of, to add font
+% renew this command to actually get things to happen =)
+%
+
+\newcommand{\fontwrapallowedmacros}{}
+\newcommand{\setfontwrapallowedmacros}[1]{\renewcommand{\fontwrapallowedmacros}{#1}}
+
+%
+% The list of environments fontwrap is allowed to go inside of, to add font
+% renew this command to actually get things to happen =)
+%
+
+\newcommand{\fontwrapallowedenvironments}{}
+\newcommand{\setfontwrapallowedenvironments}[1]{\renewcommand{\fontwrapallowedenvironments}{#1}}
+
+
+%
+% Normally it doesn't matter that (Xe)(La)TeX strips all the whitespace when
+% running through a command, but in settings where it is of the utmost
+% importance that they are preserved, you should wrap the text in the
+% fontwrap equivalent of the verbatim environment: "verbatimfontwrap".
+%
+
+\newenvironment{verbatimfontwrap}{\begingroup \obeylines \obeyspaces}{\endgroup}
+
+%
+% a wrapper to the perl command. Feeds it both the text to wrap,
+% and the unicode block data, with font bindings.
+%
+
+\newcommand{\fontwrap}[1]{
+  \perlfontwrap{#1}{\autfontunicodedata}{\fontwrapallowedmacros}{\fontwrapallowedenvironments}
+}
+
+%
+% the language detection/font insertion command
+%
+
+\perlnewcommand{\perlfontwrap}[4]{
+
+  # the input text
+  $text = $_[0];
+ 
+  # all the unicode data
+  $blockdata = &trim($_[1]);
+  
+  # the list of macros we're allowed to process the content of
+  @args = split(/,/,&trim($_[2]));
+  foreach $am (@args) { $allowedmacros{$am}='1'; }
+
+  # the list of environments we're allowed to process the content of
+  @args = split(/,/,&trim($_[3]));
+  foreach $am (@args) { $allowedenvironments{$am}='1'; }
+  
+  # clear
+  @args=();
+
+  # Also, I know these two look silly. Without them, checks on $swapped break...
+  $true=1;
+  $false=0;
+
+  # ------------------------------------------------
+  #  Create the unicode block data array-of-arrays.
+  #  This is essentially an array with on each position
+  #  a list representing a unicode block. The data is
+  #  is organised as:
+  #  
+  #    [0] - block name
+  #    [1] - informal group name
+  #    [2] - first codepoint in the block (in hex)
+  #    [3] - last codepoint in the block (in hex)
+  #    [4] - number of glyphs in the block
+  #    [5] - font bound to this block
+  # 
+  #  mostly for my personal ease of code-use, these
+  #  indices are never used numerically, instead I
+  #  will use indicatively named variables.
+  # -----------------------------------------------
+
+  $idx_blockname=0;
+  $idx_groupname=1;
+  $idx_start=2;
+  $idx_end=3;
+  $idx_glyphs=4;
+  $idx_font=5;
+
+  $unicodeblockcount=0;
+  @lines = split(/\\par /,$blockdata);
+  for $i (0 .. @lines) {
+    $line = &trim($lines[$i]);
+    # skip any comments
+    if(substr($line,0,1) eq chr(35) || $line eq '') { next; }
+    else {
+      ($blockname,$groupname,$start,$end,$glyphs,$font) = split(/,/,$line);
+      $unicodeblocks[$unicodeblockcount++] = [$blockname,$groupname,$start,$end,$glyphs,(&trim($font) ne '')?&trim($font):'fontwrapdefaultfont'];
+    }
+  }
+
+
+  # ----------------------------------------------------------------------
+  #  
+  #  Miscellaneous subroutines
+  #
+  # ----------------------------------------------------------------------
+  
+
+  #
+  # very simple trim function
+  #
+  sub trim {
+    my $string = shift;
+    $string =~ s/^\s+//;
+    $string =~ s/\s+$//;
+    return $string }
+
+
+  #
+  # checks if the passed byte indicates the start of a new unicode glyph
+  #
+  sub isnewglyph {
+    $byte = shift;    
+    # in utf8 context, anything that isn't 10xxxxxxx is a new byte
+    return (ord($byte)<128 || ord($byte)>191); }
+
+  
+  #
+  # detemines the hexadecimal location of the passed glyph
+  # in the unicode 5.0 space
+  #
+  sub codepoint {
+    @utf_lead_bytes = (0,0,192,224,240,248,252);
+    @utf_first_byte = (0,7,5,4,3,2,1);
+    @utf_total_bits = (0,7,11,16,21,26,31);
+    @bytes=split(//,shift);
+    $blength = @bytes;  
+
+    # if we're dealing with a single byte, its ordinal value can be obtained by calling ord() directly
+    if($blength==1) { $ordinal = ord($bytes[0]); }
+    
+    # ----------------------------------------------------------------------------
+    #  
+    # UTF8 byte layout:
+    #
+    # U-00000000 ... U-0000007F = 0xxxxxxx
+    # U-00000080 ... U-000007FF = 110xxxxx 10xxxxxx
+    # U-00000800 ... U-0000FFFF = 1110xxxx 10xxxxxx 10xxxxxx
+    # U-00010000 ... U-001FFFFF = 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
+    # U-00200000 ... U-03FFFFFF = 111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx
+    # U-04000000 ... U-7FFFFFFF = 1111110x 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx
+    # 
+    # After 2,147,483,648 characters, we run out of UTF8 places... then again, even if there
+    # are languages with tens of thousands of characters (42 thousand for the unified CJK
+    # block extended B, for instance), it's really hard to fill 2 billion glyphs. Even
+    # if all currently used languages had 100,000 letters, that would only use up a little
+    # over a quarter of all UTF8 spots available... and most languages have less than 250
+    # characters.
+    #
+    # ----------------------------------------------------------------------------
+    
+    # if there are more bytes, we need to play by the UTF8 rules
+    else
+    {  
+      # handle first byte
+      $bpos = 0;
+      $baseval = ord($bytes[0]) - $utf_lead_bytes[$blength];      # remove the first byte mask (see list above)
+      $basepower = 2**(6*($blength-1));                           # this number starts at bit 1+6*(bytes-1), because bytes 2-> are 6 bits
+      $ordinal = $baseval * $basepower;                           # fairly obvious calculation
+      
+      # handle further bytes
+      for($bpos=1;$bpos<$blength;$bpos++) {
+        $baseval = ord($bytes[$bpos]) - 128;                      # remove the 10xxxxxx mask that 'followup' utf8 bytes have
+        $basepower = 2**(6*($blength-($bpos+1)));                 # this number starts at bit 1+6*((bytes-currentpos)-1)
+        $ordinal += $baseval * $basepower; }                      # again, fairly obvious calculation
+    }
+
+    # return uppercase hex representation
+    $hexval = sprintf("%x",$ordinal);
+    if(length($hexval)%2!=0) { $hexval = "0".$hexval; }           # add a leading zero (purely cosmetic)
+    return uc($hexval);                                           # return in uppercase (again, purely cosmetic)
+  }
+
+  
+  #
+  # appends the output string with the passed string.
+  #
+  sub appendoutput
+  {
+    $string=shift;
+    $rewritten .= $string;
+  }
+
+
+  # ----------------------------------------------------------------------
+  #  
+  #  Font changing subroutine
+  #
+  # ----------------------------------------------------------------------
+  
+
+  sub attemptfontchange
+  {
+    $glyphblock{'blockname'} = 'unknown...';    
+    $cp = &codepoint($glyph);
+
+    # check which unicode block this character is in
+    for($pos=0;$pos<$unicodeblockcount;$pos++) {
+      # add '0' padding to the codepoint if necessary
+      $ncp = ("0" x (length($unicodeblocks[$pos][$idx_start]) - length($cp))) . $cp;
+      $higher = $ncp cmp $unicodeblocks[$pos][$idx_start];
+      $lower = $ncp cmp $unicodeblocks[$pos][$idx_end];
+      # if within range, we found the right unicode block
+      if($higher>=0 && $lower <=0) {
+        $glyphblock = $unicodeblocks[$pos][$idx_blockname];
+        $glyphfont = $unicodeblocks[$pos][$idx_font];
+        last; }}
+
+    # if this differs from what we were already in, add a fontchange code if we need to, and set currentblock to the new block
+    if($glyphblock ne $currentblock) {
+      if($currentfont ne $glyphfont) {
+        &appendoutput("\\fontspec{".$glyphfont."}");
+        $currentfont=$glyphfont;
+        $swapped=$true; }
+      $currentblock=$glyphblock; }
+
+    # if we swapped fonts, and the next glyph was a space, escape it for good measure.        
+    if($swapped==1 && $glyph eq ' ') { &appendoutput("\\"); }
+    $swapped=$false;
+  }
+
+
+
+  # ----------------------------------------------------------------------
+  #  
+  #  Macro parsing support subroutines
+  #
+  # ----------------------------------------------------------------------
+  
+
+  #
+  # runs through the text array, extracting the macro's command.
+  # In case this was an argumented macro, the text pointer $i is
+  # moved to the first non-whitespace character after the macro
+  # name. If it was an argumentless macro, the pointer is set to
+  # directly after the macro name. 
+  #
+  sub getmacrocommand {
+    for($i=$i+1;$i<@textarray;$i++) {
+      $glyph = $textarray[$i];
+      if($glyph ne chr(123) && &trim($glyph) ne '') {
+        undef $textarray[$i];
+        $macro .= $glyph; }
+      else {
+        # if glyph was whitespace, check if there is an argument list to come, or not.
+        if($glyph ne chr(123)) {
+          for($j=1;$j<@textarray;$j++) {
+            # non-whitespace: we need to stop. but do we need to discard the crossed whitespace?
+            if(&trim($textarray[$i+$j]) ne '') {
+              # if we found an argument list, we do. otherwise, we don't have to.
+              if($textarray[$i+$j] eq chr(123)) { $i=$i+$j; }
+              last; }}
+        }
+        $i--;
+        return $macro; }}
+  }
+
+  #
+  # simply copies from the textarray to the rewritten string until we run out of macrobody.
+  #
+  sub copymacrotooutput
+  {
+    $depth=0;
+    for(;$i<@textarray;$i++) {
+      $glyph = $textarray[$i];
+      $textarray[$i]='';
+      if($depth==0 && &trim($glyph) eq '') { next; }
+      # { increments $depth, } decrements it.
+      if($glyph eq chr(123)) { $depth++;}
+      elsif($glyph eq chr(125)) { $depth--; }
+      $macrobody .= $glyph;
+      if($depth==0 && $glyph ne chr(123)) {
+        &appendoutput($macrobody);
+        $macrobody = '';
+        if(&hasarguments) {
+          # recurse, for as many arguments as there are...
+          &copymacrotooutput(); }
+        $i--;
+        last; }}
+  }
+
+
+
+  #
+  # check whether a macro has arguments or not
+  #
+  sub hasarguments {
+    $j=$i;
+    for(;$j<@textarray;$j++) {
+      $check = $textarray[$j];
+      if(&trim($check) ne '') {
+        return ($check eq chr(123)); }}}
+
+
+  # ----------------------------------------------------------------------
+  #  
+  #  Environment parsing support subroutines
+  #
+  # ----------------------------------------------------------------------
+
+
+  #
+  # runs through the text array, extracting the environments's name
+  # when this is done, $i will point to the glyph *after* the closing
+  # brace:
+  #
+  #   \begin{environmentname} Whatever text
+  #                          L
+  #                          $i
+  #
+  sub getenvironment {
+    for($i=$i+1;$i<@textarray;$i++) {
+      $glyph = $textarray[$i];
+
+      # ignore opening brace and possible whitespace
+      if($glyph eq chr(123) || &trim($glyph) eq '') { next; }
+      
+      # something that's part of environment name
+      elsif($glyph ne chr(123) && $glyph ne chr(125) && &trim($glyph) ne '') {
+        $textarray[$i]='';
+        $environment .= $glyph; }
+
+      # because of the way environments are defined, this has to now
+      # be a closing brace... unless you messed up your TeX.
+      else {
+        if($glyph ne chr(125)) { die "You messed up your TeX - environment name \"".$environment."\" not followed by '".chr(125)."' but by '".$glyph."'!"; }
+        $i=$i+1;
+        return $environment; }}
+  }
+
+  #
+  # copies from the textarray to the rewritten string until we hit \end{environment}
+  #
+  sub copyenvironmenttooutput
+  {
+    $environment=shift;
+    $environmentbody='';
+    for(;$i<@textarray;$i++) {
+      $glyph = $textarray[$i];
+      $textarray[$i]='';
+      if($glyph eq chr(92)) {
+        $check='';
+        for $j (1..3) { $check .= $textarray[$i+$j]; }
+        if($check eq 'end') {
+          # make sure this is the end tag for the right environment!
+          $checkenv='';
+          $spaces=0;
+          # $i+1..3 was 'end', so the next read spot is at $i+4
+          for($j=4;$j<@textarray;$j++) {
+            if(&trim($textarray[$i+$j]) eq '') { $spaces++; }
+            else { last; }}
+          
+          $start = 4+$spaces+1;
+          $end = $start + length($environment)-1;
+          for $j ($start .. $end) { $checkenv .= $textarray[$i+$j]; }
+          if($checkenv eq $environment) {
+            &appendoutput($environmentbody . "\\end{".$environment."}");
+            $i = $i + length("end{".$environment."}")+1;
+            $environmentbody='';
+            return; }
+            
+          # "end" macro, just not the right one. append glyph to environment body
+          else { $environmentbody .= $glyph; }}
+        # some marco that isn't "end": append glyph to body
+        else { $environmentbody .= $glyph; }}
+      # regular glyph... you guessed it: append
+      else { $environmentbody .= $glyph; }}
+  }
+
+
+
+  # ----------------------------------------------------------------------
+  #  
+  #  Macro parsing subroutine
+  #
+  # ----------------------------------------------------------------------
+
+
+  #
+  # processes a LaTeX macro
+  #
+  sub processmacro
+  {
+    $macro = &getmacrocommand();
+    # rather special macro
+    if($macro eq 'begin') {
+      $macro='';
+      # find out which environment is being entered, whether we may work inside it
+      $environment = &getenvironment();
+      &appendoutput("\\begin{" . $environment . "}");
+      if($allowedenvironments{$environment} ne '') {
+        # allowed to process, which means we don't need to pay any special
+        # attention to end{environment} commands, as they'll be processed like
+        # any other macro (though you should not put them in the allowedmacro
+        # list, obviously :) 
+        $environment='';
+        return; }
+      else {
+        # not allowed to process environment. copy until we hit "\end{environment}"
+        &copyenvironmenttooutput($environment);
+        $environment=''; }
+      return; }
+    else {
+      &appendoutput("\\" . $macro);
+      if($allowedmacros{$macro} ne '') {
+        # if we're allowed to work inside it, return so that the 
+        # processing of glyphs continues as normal
+        $macro='';
+        return; }
+      else {
+        $macro='';
+        # not allowed to do anything with this content - write out any arguments if it has
+        # them and stop processing, returning to the toplevel processglyph subroutine
+        if(&hasarguments) { &copymacrotooutput(); }}}
+  }
+
+
+  # ----------------------------------------------------------------------
+  #  
+  #  Glyph parsing subroutines
+  #
+  # ----------------------------------------------------------------------
+  
+  #
+  # processes one glyph
+  #
+  sub processglyph
+  {
+    # get the current glyph
+    $glyph = $textarray[$i];    
+    $textarray[$i]='';              # maintainance. progressively clears up a bit of mem
+    if($glyph eq '') { return; }    # shortcut for the first, empty, split character in the array
+
+    # if we find a '\', we process the text as macro.
+    if($glyph eq chr(92)) {
+      &processmacro();
+      # after we process a macro, it will have already been inserted into the $rewritten string, so we just return.
+      return; }
+
+    else {
+      # check if the font needs changing
+      &attemptfontchange();
+      # finally, add the glyph to the $rewritten string
+      &appendoutput($glyph); }
+  }
+
+
+  # ----------------------------------------------------------------------
+  #               start running through the passed text.
+  # ----------------------------------------------------------------------
+
+
+  #
+  # first off, convert the passed text into an array of unicode glyphs, so
+  # we can iterate over it letter by letter. 
+  #
+
+  @bytes = split(//,$text);
+  $text = ""; # maintenance. Saves a bit of memory.
+  $buffer="";
+  @textarray=();
+  foreach $byte (@bytes) {
+    if(&isnewglyph($byte)) {
+      push @textarray, $buffer;
+      $buffer=$byte; }
+    else { $buffer.=$byte; }}
+  push @textarray, $buffer;
+  @bytes=();
+  
+  #
+  # At this point the text has been pulled apart as unicode glyphs, rather than just bytes, which means we can start walking through the array.
+  #
+
+  $rewritten='';
+  $currentblock='not set yet';
+  $currentfont='not set yet';
+  
+  # set the processing in motion (because all variables are persistent,
+  # this script runs through the text a like a finite state machine)
+  $i=0;
+  for(;$i<@textarray; $i++) { &processglyph(); }
+  
+  #
+  # perltex uses persistent variables, but in some cases frees the wrong threadpool's memory.
+  # as such, emptying the variables before exit is not a bad good idea, although normally
+  # you wouldn't bother with it this close to the return statement.
+  #
+  
+  undef $text;
+  undef @textarray;
+  undef $blockdata;
+  undef @args;
+  undef %allowedmacros;
+  undef %allowedenvironments;
+  undef $glyph;
+  undef $currentblock;
+  undef $currentfont;
+  undef $glyphblock;
+  undef $glyphfont;
+  undef $macro;
+  undef $macrobody;
+  undef $cp;
+
+  # return the now font-tagged text
+  return $rewritten;
+}
+
+% ----------------------------------------------------------------------------
+\endinput
+%
+% End of file `langfont.sty'.
\ No newline at end of file