summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/texnegar
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2020-08-30 21:12:39 +0000
committerKarl Berry <karl@freefriends.org>2020-08-30 21:12:39 +0000
commit5474b1b43c3b0b1c86af620a938589c42e9cd01e (patch)
tree39b0ee71d1b1d6891b5cd7c58adab853ac565f18 /Master/texmf-dist/tex/latex/texnegar
parent9fbec9a9d124a7b55050150eb52e1e3239597579 (diff)
texnegar (30aug20)
git-svn-id: svn://tug.org/texlive/trunk@56215 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/texnegar')
-rw-r--r--Master/texmf-dist/tex/latex/texnegar/texnegar-char-table.lua140
-rw-r--r--Master/texmf-dist/tex/latex/texnegar/texnegar-common-kashida.tex85
-rw-r--r--Master/texmf-dist/tex/latex/texnegar/texnegar-ini.lua47
-rw-r--r--Master/texmf-dist/tex/latex/texnegar/texnegar-ini.tex408
-rw-r--r--Master/texmf-dist/tex/latex/texnegar/texnegar-luatex-kashida.lua532
-rw-r--r--Master/texmf-dist/tex/latex/texnegar/texnegar-luatex.sty45
-rw-r--r--Master/texmf-dist/tex/latex/texnegar/texnegar-xetex-kashida.tex213
-rw-r--r--Master/texmf-dist/tex/latex/texnegar/texnegar-xetex.sty28
-rw-r--r--Master/texmf-dist/tex/latex/texnegar/texnegar.lua37
-rw-r--r--Master/texmf-dist/tex/latex/texnegar/texnegar.sty42
10 files changed, 1577 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/texnegar/texnegar-char-table.lua b/Master/texmf-dist/tex/latex/texnegar/texnegar-char-table.lua
new file mode 100644
index 00000000000..c78c790086a
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/texnegar/texnegar-char-table.lua
@@ -0,0 +1,140 @@
+--
+-- This is file `texnegar-char-table.lua',
+-- generated with the docstrip utility.
+--
+-- The original source files were:
+--
+-- texnegar.dtx (with options: `texnegar-char-table-lua')
+--
+-- Copyright (C) 2020 Hossein Movahhedian
+--
+-- 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
+--
+-- texnegar_char_table = texnegar_char_table or {}
+-- local texnegar_char_table = texnegar_char_table
+-- texnegar_char_table.module = {
+-- name = "texnegar_char_table",
+-- version = "0.1b",
+-- date = "2020-08-30",
+-- description = "Full implementation of kashida feature in XeLaTex and LuaLaTeX",
+-- author = "Hossein Movahhedian",
+-- copyright = "Hossein Movahhedian",
+-- license = "LPPL v1.3c"
+-- }
+--
+-- -- ^^A%% texnegar-lua.dtx -- part of TEXNEGAR <bitbucket.org/dma8hm1334/texnegar>
+-- local err, warn, info, log = luatexbase.provides_module(texnegar_char_table.module)
+-- texnegar_char_table.log = log or (function (s) luatexbase.module_info("texnegar_char_table", s) end)
+-- texnegar_char_table.warning = warn or (function (s) luatexbase.module_warning("texnegar_char_table", s) end)
+-- texnegar_char_table.error = err or (function (s) luatexbase.module_error("texnegar_char_table", s) end)
+
+local peCharTableInitial = {
+ [64344] = utf8.char(64344), -- "ﭘ", utf8.codepoint("ﭘ") == 64344, "\u{FB58}", INITIAL FORM PEH
+ [64380] = utf8.char(64380), -- "ﭼ", utf8.codepoint("ﭼ") == 64380, "\u{FB7C}", INITIAL FORM TCHEH
+ [64400] = utf8.char(64400), -- "ﮐ", utf8.codepoint("ﮐ") == 64400, "\u{FB90}", INITIAL FORM KEHEH
+ [64404] = utf8.char(64404), -- "ﮔ", utf8.codepoint("ﮔ") == 64404, "\u{FB94}", INITIAL FORM GAF
+ [64510] = utf8.char(64510), -- "ﯾ", utf8.codepoint("ﯾ") == 64510, "\u{FBFE}", INITIAL FORM YEH
+ [65169] = utf8.char(65169), -- "ﺑ", utf8.codepoint("ﺑ") == 65169, "\u{FE91}", INITIAL FORM BEH
+ [65175] = utf8.char(65175), -- "ﺗ", utf8.codepoint("ﺗ") == 65175, "\u{FE97}", INITIAL FORM TEH
+ [65179] = utf8.char(65179), -- "ﺛ", utf8.codepoint("ﺛ") == 65179, "\u{FE9B}", INITIAL FORM THEH
+ [65183] = utf8.char(65183), -- "ﺟ", utf8.codepoint("ﺟ") == 65183, "\u{FE9F}", INITIAL FORM JEEM
+ [65187] = utf8.char(65187), -- "ﺣ", utf8.codepoint("ﺣ") == 65187, "\u{FEA3}", INITIAL FORM HAH
+ [65191] = utf8.char(65191), -- "ﺧ", utf8.codepoint("ﺧ") == 65191, "\u{FEA7}", INITIAL FORM KHAH
+ [65203] = utf8.char(65203), -- "ﺳ", utf8.codepoint("ﺳ") == 65203, "\u{FEB3}", INITIAL FORM SEEN
+ [65207] = utf8.char(65207), -- "ﺷ", utf8.codepoint("ﺷ") == 65207, "\u{FEB7}", INITIAL FORM SHEEN
+ [65211] = utf8.char(65211), -- "ﺻ", utf8.codepoint("ﺻ") == 65211, "\u{FEBB}", INITIAL FORM SAD
+ [65215] = utf8.char(65215), -- "ﺿ", utf8.codepoint("ﺿ") == 65215, "\u{FEBF}", INITIAL FORM DAD
+ [65219] = utf8.char(65219), -- "ﻃ", utf8.codepoint("ﻃ") == 65219, "\u{FEC3}", INITIAL FORM TAH
+ [65223] = utf8.char(65223), -- "ﻇ", utf8.codepoint("ﻇ") == 65223, "\u{FEC7}", INITIAL FORM ZAH
+ [65227] = utf8.char(65227), -- "ﻋ", utf8.codepoint("ﻋ") == 65227, "\u{FECB}", INITIAL FORM AIN
+ [65231] = utf8.char(65231), -- "ﻏ", utf8.codepoint("ﻏ") == 65231, "\u{FECF}", INITIAL FORM GHAIN
+ [65235] = utf8.char(65235), -- "ﻓ", utf8.codepoint("ﻓ") == 65235, "\u{FED3}", INITIAL FORM FEH
+ [65239] = utf8.char(65239), -- "ﻗ", utf8.codepoint("ﻗ") == 65239, "\u{FED7}", INITIAL FORM QAF
+ [65243] = utf8.char(65243), -- "ﻛ", utf8.codepoint("ﻛ") == 65243, "\u{FEDB}", INITIAL FORM KAF
+ [65247] = utf8.char(65247), -- "ﻟ", utf8.codepoint("ﻟ") == 65247, "\u{FEDF}", INITIAL FORM LAM
+ [65251] = utf8.char(65251), -- "ﻣ", utf8.codepoint("ﻣ") == 65251, "\u{FEE3}", INITIAL FORM MEEM
+ [65255] = utf8.char(65255), -- "ﻧ", utf8.codepoint("ﻧ") == 65255, "\u{FEE7}", INITIAL FORM NOON
+ [65259] = utf8.char(65259), -- "ﻫ", utf8.codepoint("ﻫ") == 65259, "\u{FEEB}", INITIAL FORM HEH
+ [65267] = utf8.char(65267), -- "ﻳ", utf8.codepoint("ﻳ") == 65267, "\u{FEF3}", INITIAL FORM YEH
+}
+
+local peCharTableMedial = {
+ [1600] = utf8.char(1600), -- "ـ", utf8.codepoint("ـ") == 1600, "\u{0640}", ARABIC TATWEEL
+ [64345] = utf8.char(64345), -- "ﭙ", utf8.codepoint("ﭙ") == 64345, "\u{FB59}", MEDIAL FORM PEH
+ [64381] = utf8.char(64381), -- "ﭽ", utf8.codepoint("ﭽ") == 64381, "\u{FB7D}", MEDIAL FORM TCHEH
+ [64401] = utf8.char(64401), -- "ﮑ", utf8.codepoint("ﮑ") == 64401, "\u{FB91}", MEDIAL FORM KEHEH
+ [64405] = utf8.char(64405), -- "ﮕ", utf8.codepoint("ﮕ") == 64405, "\u{FB95}", MEDIAL FORM GAF
+ [64425] = utf8.char(64425), -- "ﮩ", utf8.codepoint("ﮩ") == 64425, "\u{FBA9}", MEDIAL FORM HEH GOAL
+ [64429] = utf8.char(64429), -- "ﮭ", utf8.codepoint("ﮭ") == 64429, "\u{FBAD}", MEDIAL FORM HEH DOACHESMEE
+ [64511] = utf8.char(64511), -- "ﯿ", utf8.codepoint("ﯿ") == 64511, "\u{FBFF}", MEDIAL FORM YEH
+ [65170] = utf8.char(65170), -- "ﺒ", utf8.codepoint("ﺒ") == 65170, "\u{FE92}", MEDIAL FORM BEH
+ [65176] = utf8.char(65176), -- "ﺘ", utf8.codepoint("ﺘ") == 65176, "\u{FE98}", MEDIAL FORM TEH
+ [65180] = utf8.char(65180), -- "ﺜ", utf8.codepoint("ﺜ") == 65180, "\u{FE9C}", MEDIAL FORM THEH
+ [65184] = utf8.char(65184), -- "ﺠ", utf8.codepoint("ﺠ") == 65184, "\u{FEA0}", MEDIAL FORM JEEM
+ [65188] = utf8.char(65188), -- "ﺤ", utf8.codepoint("ﺤ") == 65188, "\u{FEA4}", MEDIAL FORM HAH
+ [65192] = utf8.char(65192), -- "ﺨ", utf8.codepoint("ﺨ") == 65192, "\u{FEA8}", MEDIAL FORM KHAH
+ [65204] = utf8.char(65204), -- "ﺴ", utf8.codepoint("ﺴ") == 65204, "\u{FEB4}", MEDIAL FORM SEEN
+ [65208] = utf8.char(65208), -- "ﺸ", utf8.codepoint("ﺸ") == 65208, "\u{FEB8}", MEDIAL FORM SHEEN
+ [65212] = utf8.char(65212), -- "ﺼ", utf8.codepoint("ﺼ") == 65212, "\u{FEBC}", MEDIAL FORM SAD
+ [65216] = utf8.char(65216), -- "ﻀ", utf8.codepoint("ﻀ") == 65216, "\u{FEC0}", MEDIAL FORM DAD
+ [65220] = utf8.char(65220), -- "ﻄ", utf8.codepoint("ﻄ") == 65220, "\u{FEC4}", MEDIAL FORM TAH
+ [65224] = utf8.char(65224), -- "ﻈ", utf8.codepoint("ﻈ") == 65224, "\u{FEC8}", MEDIAL FORM ZAH
+ [65228] = utf8.char(65228), -- "ﻌ", utf8.codepoint("ﻌ") == 65228, "\u{FECC}", MEDIAL FORM AIN
+ [65232] = utf8.char(65232), -- "ﻐ", utf8.codepoint("ﻐ") == 65232, "\u{FED0}", MEDIAL FORM GHAIN
+ [65236] = utf8.char(65236), -- "ﻔ", utf8.codepoint("ﻔ") == 65236, "\u{FED4}", MEDIAL FORM FEH
+ [65240] = utf8.char(65240), -- "ﻘ", utf8.codepoint("ﻘ") == 65240, "\u{FED8}", MEDIAL FORM QAF
+ [65244] = utf8.char(65244), -- "ﻜ", utf8.codepoint("ﻜ") == 65244, "\u{FEDC}", MEDIAL FORM KAF
+ [65248] = utf8.char(65248), -- "ﻠ", utf8.codepoint("ﻠ") == 65248, "\u{FEE0}", MEDIAL FORM LAM
+ [65252] = utf8.char(65252), -- "ﻤ", utf8.codepoint("ﻤ") == 65252, "\u{FEE4}", MEDIAL FORM MEEM
+ [65256] = utf8.char(65256), -- "ﻨ", utf8.codepoint("ﻨ") == 65256, "\u{FEE8}", MEDIAL FORM NOON
+ [65260] = utf8.char(65260), -- "ﻬ", utf8.codepoint("ﻬ") == 65260, "\u{FEEC}", MEDIAL FORM HEH
+ [65268] = utf8.char(65268), -- "ﻴ", utf8.codepoint("ﻴ") == 65268, "\u{FEF4}", MEDIAL FORM YEH
+}
+
+local peCharTableFinal = {
+ [64343] = utf8.char(64343), -- "ﭗ", utf8.codepoint("ﭗ") == 64343, "\u{FB57}", FINAL FORM PEH
+ [64379] = utf8.char(64379), -- "ﭻ", utf8.codepoint("ﭻ") == 64379, "\u{FB7B}", FINAL FORM TCHEH
+ [64395] = utf8.char(64395), -- "ﮋ", utf8.codepoint("ﮋ") == 64395, "\u{FB8B}", FINAL FORM JEH
+ [64399] = utf8.char(64399), -- "ﮏ", utf8.codepoint("ﮏ") == 64399, "\u{FB8F}", FINAL FORM KEHEH
+ [64403] = utf8.char(64403), -- "ﮓ", utf8.codepoint("ﮓ") == 64403, "\u{FB93}", FINAL FORM GAF
+ [64421] = utf8.char(64421), -- "ﮥ", utf8.codepoint("ﮥ") == 64421, "\u{FBA5}", FINAL FORM HEH WITH YEH ABOVE
+ [64509] = utf8.char(64509), -- "ﯽ", utf8.codepoint("ﯽ") == 64509, "\u{FBFD}", FINAL FORM YEH
+ [65166] = utf8.char(65166), -- "ﺎ", utf8.codepoint("ﺎ") == 65166, "\u{FE8E}", FINAL FORM ALEF
+ [65168] = utf8.char(65168), -- "ﺐ", utf8.codepoint("ﺐ") == 65168, "\u{FE90}", FINAL FORM BEH
+ [65172] = utf8.char(65172), -- "ﺔ", utf8.codepoint("ﺔ") == 65172, "\u{FE94}", FINAL FORM TEH MARBUTAH
+ [65174] = utf8.char(65174), -- "ﺖ", utf8.codepoint("ﺖ") == 65174, "\u{FE96}", FINAL FORM TEH
+ [65178] = utf8.char(65178), -- "ﺚ", utf8.codepoint("ﺚ") == 65178, "\u{FE9A}", FINAL FORM THEH
+ [65182] = utf8.char(65182), -- "ﺞ", utf8.codepoint("ﺞ") == 65182, "\u{FE9E}", FINAL FORM JEEM
+ [65186] = utf8.char(65186), -- "ﺢ", utf8.codepoint("ﺢ") == 65186, "\u{FEA2}", FINAL FORM HAH
+ [65190] = utf8.char(65190), -- "ﺦ", utf8.codepoint("ﺦ") == 65190, "\u{FEA6}", FINAL FORM KHAH
+ [65194] = utf8.char(65194), -- "ﺪ", utf8.codepoint("ﺪ") == 65194, "\u{FEAA}", FINAL FORM DAL
+ [65196] = utf8.char(65196), -- "ﺬ", utf8.codepoint("ﺬ") == 65196, "\u{FEAC}", FINAL FORM THAL
+ [65198] = utf8.char(65198), -- "ﺮ", utf8.codepoint("ﺮ") == 65198, "\u{FEAE}", FINAL FORM REH
+ [65200] = utf8.char(65200), -- "ﺰ", utf8.codepoint("ﺰ") == 65200, "\u{FEB0}", FINAL FORM ZAIN
+ [65202] = utf8.char(65202), -- "ﺲ", utf8.codepoint("ﺲ") == 65202, "\u{FEB2}", FINAL FORM SEEN
+ [65206] = utf8.char(65206), -- "ﺶ", utf8.codepoint("ﺶ") == 65206, "\u{FEB6}", FINAL FORM SHEEN
+ [65210] = utf8.char(65210), -- "ﺺ", utf8.codepoint("ﺺ") == 65210, "\u{FEBA}", FINAL FORM SAD
+ [65214] = utf8.char(65214), -- "ﺾ", utf8.codepoint("ﺾ") == 65214, "\u{FEBE}", FINAL FORM DAD
+ [65218] = utf8.char(65218), -- "ﻂ", utf8.codepoint("ﻂ") == 65218, "\u{FEC2}", FINAL FORM TAH
+ [65222] = utf8.char(65222), -- "ﻆ", utf8.codepoint("ﻆ") == 65222, "\u{FEC6}", FINAL FORM ZAH
+ [65226] = utf8.char(65226), -- "ﻊ", utf8.codepoint("ﻊ") == 65226, "\u{FECA}", FINAL FORM AIN
+ [65230] = utf8.char(65230), -- "ﻎ", utf8.codepoint("ﻎ") == 65230, "\u{FECE}", FINAL FORM GHAIN
+ [65234] = utf8.char(65234), -- "ﻒ", utf8.codepoint("ﻒ") == 65234, "\u{FED2}", FINAL FORM FEH
+ [65238] = utf8.char(65238), -- "ﻖ", utf8.codepoint("ﻖ") == 65238, "\u{FED6}", FINAL FORM QAF
+ [65242] = utf8.char(65242), -- "ﻚ", utf8.codepoint("ﻚ") == 65242, "\u{FEDA}", FINAL FORM KAF
+ [65246] = utf8.char(65246), -- "ﻞ", utf8.codepoint("ﻞ") == 65246, "\u{FEDE}", FINAL FORM LAM
+ [65250] = utf8.char(65250), -- "ﻢ", utf8.codepoint("ﻢ") == 65250, "\u{FEE2}", FINAL FORM MEEM
+ [65254] = utf8.char(65254), -- "ﻦ", utf8.codepoint("ﻦ") == 65254, "\u{FEE6}", FINAL FORM NOON
+ [65258] = utf8.char(65258), -- "ﻪ", utf8.codepoint("ﻪ") == 65258, "\u{FEEA}", FINAL FORM HEH
+ [65262] = utf8.char(65262), -- "ﻮ", utf8.codepoint("ﻮ") == 65262, "\u{FEEE}", FINAL FORM WAW
+ [65264] = utf8.char(65264), -- "ﻰ", utf8.codepoint("ﻰ") == 65264, "\u{FEF0}", FINAL FORM ALEF MAKSURAH
+ [65266] = utf8.char(65266), -- "ﻲ", utf8.codepoint("ﻲ") == 65266, "\u{FEF2}", FINAL FORM YEH
+ [65276] = utf8.char(65276), -- "ﻼ", utf8.codepoint("ﻼ") == 65276, "\u{FEFC}", FINAL FORM LIGATURE LAM WITH ALEF
+}
+
+return peCharTableInitial, peCharTableMedial, peCharTableFinal
+--
+--
+-- End of file `texnegar-char-table.lua'.
diff --git a/Master/texmf-dist/tex/latex/texnegar/texnegar-common-kashida.tex b/Master/texmf-dist/tex/latex/texnegar/texnegar-common-kashida.tex
new file mode 100644
index 00000000000..de4fb0eac7a
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/texnegar/texnegar-common-kashida.tex
@@ -0,0 +1,85 @@
+%%
+%% This is file `texnegar-common-kashida.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% texnegar.dtx (with options: `texnegar-common-kashida-tex')
+%%
+%% Copyright (C) 2020 Hossein Movahhedian
+%%
+%% 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
+%%
+\ProvidesExplFile {texnegar-common-kashida.tex} {2020-08-30} {0.1b} { Full implementation of kashida feature in XeLaTex and LuaLaTeX }
+
+\bool_if:NT \l_texnegar_ligature_bool
+{
+ \clist_new:N \l_texnegar_ligatures_clist
+ \int_new:N \l_texnegar_lig_names_len_int
+ \int_set:Nn \l_texnegar_lig_names_len_int { \clist_count:N \l_texnegar_lig_names_clist }
+ \int_step_inline:nnnn { 1 } { 2 } { \l_texnegar_lig_names_len_int }
+ {
+ \int_set:Nn \l_tmpa_int { #1 }
+ \int_set:Nn \l_tmpb_int { \int_eval:n { \l_tmpa_int + 1 } }
+ \tl_set:Nf \l_tmpa_tl { \clist_item:Nn \l_texnegar_lig_names_clist { \l_tmpa_int } }
+ \clist_set:Nx \l_tmpa_clist { { \clist_item:Nn \l_texnegar_lig_names_clist { \l_tmpb_int } } }
+ \bool_if:nT { \tl_if_eq_p:NN \l_texnegar_active_ligs_tl \l_tmpa_tl || \tl_if_eq_p:NN \l_texnegar_active_ligs_tl \l_texnegar_lig_default_tl }
+ {
+ \clist_put_left:Nx \l_texnegar_ligatures_clist { \l_tmpa_clist }
+ }
+ }
+ \clist_map_inline:Nn \l_texnegar_ligatures_clist
+ {
+ \seq_set_split:Nnn \l_tmpa_seq { = } { #1 }
+ \seq_pop_left:NN \l_tmpa_seq \l_tmpa_tl { } { }
+ \seq_pop_left:NN \l_tmpa_seq \l_tmpb_tl { } { }
+ \tl_const:cx { \tl_use:N \l_tmpb_tl } { \char"\l_tmpa_tl \ }
+ }
+}
+
+\bool_if:NT \l_texnegar_linebreakpenalty_bool
+{
+ %% Partly adapted from LaTeX2e source
+ \cs_new:Nn \texnegar_line_break: {
+ \if_mode_vertical:
+ \GenericError{
+ \space\space\space\space\space\space\space\space\space\space\space\space\space\space\space
+ }{
+ LaTeX Error: There’s no line here to end
+ }{
+ See the LaTeX manual or LaTeX Companion for explanation.
+ }{
+ Your command was ignored.\MessageBreak
+ Type \space I <command> <return> \space to replace it~
+ with another command,\MessageBreak
+ or \space <return> \space to continue without it.}
+ \else:
+ \l_tmpa_skip \tex_lastskip:D
+ \tex_unskip:D
+ \tex_penalty:D -\l_texnegar_line_break_penalty_int
+ \dim_compare:nT { \l_tmpa_skip > \c_zero_skip }
+ { \skip_horizontal:N \l_tmpa_skip \tex_ignorespaces:D }
+ \fi:
+ }
+
+ \NewDocumentCommand { \discouragebadlinebreaks } { O{\l_texnegar_line_break_penalty_int} O{\c_texnegar_skip_b_tl} m }
+ {
+ \IfNoValueF {#1}
+ { \int_set:Nn \l_texnegar_line_break_penalty_int {#1} }
+ \IfNoValueF {#2}
+ { \tl_set:Nn \l_texnegar_skip_default_tl {#2} }
+ \texnegar_put_line_breaks:n { #3 }
+ }
+
+ \cs_new_protected:Nn \texnegar_put_line_breaks:n
+ {
+ \tl_set:Nn \l_texnegar_line_break_tl { #1 }
+ \regex_replace_all:nnN { ([ابپتثجحخچدذرزژسشعغصضفقطظکگلمنوهیـ])+ } { \ \0 \ \c{texnegar_line_break:}\ } \l_texnegar_line_break_tl
+ \tl_use:N \l_texnegar_line_break_tl
+ }
+}
+%%
+%%
+%% End of file `texnegar-common-kashida.tex'.
diff --git a/Master/texmf-dist/tex/latex/texnegar/texnegar-ini.lua b/Master/texmf-dist/tex/latex/texnegar/texnegar-ini.lua
new file mode 100644
index 00000000000..c4670119bf3
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/texnegar/texnegar-ini.lua
@@ -0,0 +1,47 @@
+--
+-- This is file `texnegar-ini.lua',
+-- generated with the docstrip utility.
+--
+-- The original source files were:
+--
+-- texnegar.dtx (with options: `texnegar-ini-lua')
+--
+-- Copyright (C) 2020 Hossein Movahhedian
+--
+-- 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
+--
+-- texnegar_ini = texnegar_ini or {}
+-- local texnegar_ini = texnegar_ini
+-- texnegar_ini.module = {
+-- name = "texnegar_ini",
+-- version = "0.1b",
+-- date = "2020-08-30",
+-- description = "Full implementation of kashida feature in XeLaTex and LuaLaTeX",
+-- author = "Hossein Movahhedian",
+-- copyright = "Hossein Movahhedian",
+-- license = "LPPL v1.3c"
+-- }
+--
+-- -- ^^A%% texnegar-lua.dtx -- part of TEXNEGAR <bitbucket.org/dma8hm1334/texnegar>
+-- local err, warn, info, log = luatexbase.provides_module(texnegar_ini.module)
+-- texnegar_ini.log = log or (function (s) luatexbase.module_info("texnegar_ini", s) end)
+-- texnegar_ini.warning = warn or (function (s) luatexbase.module_warning("texnegar_ini", s) end)
+-- texnegar_ini.error = err or (function (s) luatexbase.module_error("texnegar_ini", s) end)
+
+c_true_bool = token.create("c_true_bool")
+
+l_texnegar_color_bool = token.create("l_texnegar_color_bool")
+
+if l_texnegar_color_bool.mode == c_true_bool.mode then
+ color_tbl = color_tbl or {}
+ for item in l_texnegar_color_rgb_tl:gmatch("([^,%s]+)") do
+ table.insert(color_tbl, item)
+ end
+end
+
+dofile(kpse.find_file("texnegar-luatex-kashida.lua")) -- leaders + resized glyph U+0640
+--
+--
+-- End of file `texnegar-ini.lua'.
diff --git a/Master/texmf-dist/tex/latex/texnegar/texnegar-ini.tex b/Master/texmf-dist/tex/latex/texnegar/texnegar-ini.tex
new file mode 100644
index 00000000000..eee452e14fc
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/texnegar/texnegar-ini.tex
@@ -0,0 +1,408 @@
+%%
+%% This is file `texnegar-ini.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% texnegar.dtx (with options: `texnegar-ini-tex')
+%%
+%% Copyright (C) 2020 Hossein Movahhedian
+%%
+%% 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
+%%
+\ProvidesExplFile {texnegar-ini.tex} {2020-08-30} {0.1b} { Full implementation of kashida feature in XeLaTex and LuaLaTeX }
+
+\def\TeXNegar{\TeX Negar}
+
+\box_new:N \l_texnegar_k_box
+\box_new:N \l_texnegar_ksh_box
+
+\tl_const:Nn \c_texnegar_luatexversionmajormin_int {1}
+\tl_const:Nn \c_texnegar_luatexversionminormin_int {12}
+
+\int_const:Nn \c_texnegar_ksh_int {"0640} % kashida
+\int_const:Nn \c_texnegar_lrm_int {"200E} % left-right-mark
+\int_const:Nn \c_texnegar_zwj_int {"200D} % zero-width joiner
+
+\int_const:Nn \c_texnegar_two_int {2}
+\int_const:Nn \c_texnegar_four_int {4}
+
+\tl_const:Nn \c_texnegar_skip_a_tl { 0 em plus 0.5 em }
+\tl_const:Nn \c_texnegar_skip_b_tl { 0.14 em plus 5.5 em }
+
+\int_new:N \l_texnegar_counter_int
+
+\int_new:N \l_texnegar_kashida_slot_int
+
+\int_new:N \l_texnegar_line_break_penalty_int
+
+\int_new:N \l_texnegar_min_penalty_int
+\int_new:N \l_texnegar_low_penalty_int
+\int_new:N \l_texnegar_med_penalty_int
+\int_new:N \l_texnegar_high_penalty_int
+\int_new:N \l_texnegar_max_penalty_int
+
+\int_new:N \l_fontnumber_int
+
+\tl_new:N \l_texnegar_line_break_tl
+
+\tl_new:N \l_texnegar_main_font_full_tl
+\tl_new:N \l_texnegar_main_font_name_tl
+
+\tl_new:N \l_texnegar_font_full_tl
+\tl_new:N \l_texnegar_font_name_tl
+
+\tl_new:N \l_texnegar_skip_default_tl
+
+\tl_new:N \l_texnegar_active_ligs_tl
+
+\tl_new:N \l_texnegar_gap_filler_tl
+
+\tl_new:N \l_texnegar_use_color_tl
+\tl_new:N \l_texnegar_color_tl
+\tl_new:N \l_texnegar_color_rgb_tl
+
+\dim_new:N \l_texnegar_diff_pos_dim
+
+\bool_set_false:N \l_texnegar_kashida_fix_bool
+
+\bool_set_false:N \l_texnegar_kashida_glyph_bool
+\bool_set_false:N \l_texnegar_kashida_leaders_glyph_bool
+\bool_set_false:N \l_texnegar_kashida_leaders_hrule_bool
+
+\bool_set_false:N \l_texnegar_ligature_bool
+\bool_set_false:N \l_texnegar_linebreakpenalty_bool
+\bool_set_false:N \l_texnegar_hboxrecursion_bool
+\bool_set_false:N \l_texnegar_vboxrecursion_bool
+\bool_set_false:N \l_texnegar_color_bool
+
+\int_set:Nn \l_texnegar_min_penalty_int { 0 }
+\int_set:Nn \l_texnegar_low_penalty_int { 8 }
+\int_set:Nn \l_texnegar_med_penalty_int { 15 }
+\int_set:Nn \l_texnegar_high_penalty_int { 25 }
+\int_set:Nn \l_texnegar_max_penalty_int { 10000 }
+
+\tl_set:Nn \l_texnegar_stretch_glyph_tl { glyph }
+\tl_set:Nn \l_texnegar_stretch_leaders_glyph_tl { leaders+glyph }
+\tl_set:Nn \l_texnegar_stretch_leaders_hrule_tl { leaders+hrule }
+\tl_set:Nn \l_texnegar_stretch_off_tl { Off }
+\tl_set:Nn \l_texnegar_stretch_on_tl { On }
+
+\tl_set:Nn \l_texnegar_hboxrecursion_off_tl { Off }
+\tl_set:Nn \l_texnegar_hboxrecursion_on_tl { On }
+
+\tl_set:Nn \l_texnegar_vboxrecursion_off_tl { Off }
+\tl_set:Nn \l_texnegar_vboxrecursion_on_tl { On }
+
+\tl_set:Nn \l_texnegar_fnt_kayhan_tl { kayhan }
+\tl_set:Nn \l_texnegar_fnt_kayhannavaar_tl { kayhannavaar }
+\tl_set:Nn \l_texnegar_fnt_kayhanpook_tl { kayhanpook }
+\tl_set:Nn \l_texnegar_fnt_kayhansayeh_tl { kayhansayeh }
+\tl_set:Nn \l_texnegar_fnt_khoramshahr_tl { khoramshahr }
+\tl_set:Nn \l_texnegar_fnt_khorramshahr_tl { khorramshahr }
+\tl_set:Nn \l_texnegar_fnt_niloofar_tl { niloofar }
+\tl_set:Nn \l_texnegar_fnt_paatch_tl { paatch }
+\tl_set:Nn \l_texnegar_fnt_riyaz_tl { riyaz }
+\tl_set:Nn \l_texnegar_fnt_roya_tl { roya }
+\tl_set:Nn \l_texnegar_fnt_shafigh_tl { shafigh }
+\tl_set:Nn \l_texnegar_fnt_shafighKurd_tl { shafighKurd }
+\tl_set:Nn \l_texnegar_fnt_shafighUzbek_tl { shafighUzbek }
+\tl_set:Nn \l_texnegar_fnt_shiraz_tl { shiraz }
+\tl_set:Nn \l_texnegar_fnt_sols_tl { sols }
+\tl_set:Nn \l_texnegar_fnt_tabriz_tl { tabriz }
+\tl_set:Nn \l_texnegar_fnt_titr_tl { titr }
+\tl_set:Nn \l_texnegar_fnt_titre_tl { titre }
+\tl_set:Nn \l_texnegar_fnt_traffic_tl { traffic }
+\tl_set:Nn \l_texnegar_fnt_vahid_tl { vahid }
+\tl_set:Nn \l_texnegar_fnt_vosta_tl { vosta }
+\tl_set:Nn \l_texnegar_fnt_yaghut_tl { yaghut }
+\tl_set:Nn \l_texnegar_fnt_yagut_tl { yagut }
+\tl_set:Nn \l_texnegar_fnt_yas_tl { yas }
+\tl_set:Nn \l_texnegar_fnt_yekan_tl { yekan }
+\tl_set:Nn \l_texnegar_fnt_yermook_tl { yermook }
+\tl_set:Nn \l_texnegar_fnt_zar_tl { zar }
+\tl_set:Nn \l_texnegar_fnt_ziba_tl { ziba }
+\tl_set:Nn \l_texnegar_fnt_default_tl { default }
+\tl_set:Nn \l_texnegar_fnt_noskip_tl { noskip }
+
+\tl_set:Nn \l_texnegar_lig_aalt_tl { aalt } % Access All Alternatives
+\tl_set:Nn \l_texnegar_lig_ccmp_tl { ccmp } % Glyph Composition/Decomposition
+\tl_set:Nn \l_texnegar_lig_dlig_tl { dlig } % Discretionary Ligatures
+\tl_set:Nn \l_texnegar_lig_fina_tl { fina } % Final (Terminal) Forms
+\tl_set:Nn \l_texnegar_lig_init_tl { init } % Initial Forms
+\tl_set:Nn \l_texnegar_lig_locl_tl { locl } % Localized Forms
+\tl_set:Nn \l_texnegar_lig_medi_tl { medi } % Medial Forms
+\tl_set:Nn \l_texnegar_lig_rlig_tl { rlig } % Required Ligatures
+\tl_set:Nn \l_texnegar_lig_default_tl { default }
+
+\tl_set:Nn \l_texnegar_col_default_tl { magenta }
+
+\clist_set:Nn \l_texnegar_lig_aalt_clist { } % Access All Alternatives
+\clist_set:Nn \l_texnegar_lig_ccmp_clist { } % Glyph Composition/Decomposition
+\clist_set:Nn \l_texnegar_lig_dlig_clist { FDF2 = الله , FDF3 = اکبر , FDFB = جلجلاله } % Discretionary Ligatures
+\clist_set:Nn \l_texnegar_lig_fina_clist { } % Final (Terminal) Forms
+\clist_set:Nn \l_texnegar_lig_init_clist { } % Initial Forms
+\clist_set:Nn \l_texnegar_lig_locl_clist { } % Localized Forms
+\clist_set:Nn \l_texnegar_lig_medi_clist { } % Medial Forms
+\clist_set:Nn \l_texnegar_lig_rlig_clist { } % Required Ligatures
+\clist_set:Nn \l_texnegar_lig_default_clist { }
+
+\clist_set:Nn \l_texnegar_lig_names_clist
+ {
+ \l_texnegar_lig_aalt_tl , { \l_texnegar_lig_aalt_clist } ,
+ \l_texnegar_lig_ccmp_tl , { \l_texnegar_lig_ccmp_clist } ,
+ \l_texnegar_lig_dlig_tl , { \l_texnegar_lig_dlig_clist } ,
+ \l_texnegar_lig_fina_tl , { \l_texnegar_lig_fina_clist } ,
+ \l_texnegar_lig_init_tl , { \l_texnegar_lig_init_clist } ,
+ \l_texnegar_lig_locl_tl , { \l_texnegar_lig_locl_clist } ,
+ \l_texnegar_lig_medi_tl , { \l_texnegar_lig_medi_clist } ,
+ \l_texnegar_lig_rlig_tl , { \l_texnegar_lig_rlig_clist } ,
+ }
+
+\msg_new:nnn { texnegar } { error-kashida-character-is-not-available-in-the-main-font }
+ {
+ Sorry,~ kashida~ character~ is~ not~ available~ in~ the~ main~ font~#1!
+ }
+
+\msg_new:nnn { texnegar } { error-value-not-available-for-kashida-option }
+ {
+ Sorry,~ value~ `#1'~ is~ not~ available~ for~ `Kashida'~ option~ yet~!
+ }
+
+\msg_new:nnn { texnegar } { error-specify-value-for-kashida-option }
+ {
+ Sorry,~ you~ must~ specify~ a~ value~ for~ `Kashida'~ option~ yet~!
+ }
+
+\msg_new:nnn { texnegar } { warning-experimental-feature }
+ {
+ Please~ note~ that~ the~ feature~ `#1'~ is~ still~ experimental~
+ and~ is~ not~ regarded~ as~ stable.
+ }
+
+\msg_new:nnn { texnegar } { hm-series-font-not-found }
+ {
+ Either~ the~ font~`#1'~ is~ not~ installed~ on~ your~ system~ or~ does~ not~
+ belong~ to~ HM~Series~fonts.~
+ Please~ note~ that~ the~ option~ `Kashida=leaders+glyph'~ is~ currently~ only~
+ supported~ by~ HM~Series~fonts.~
+ If~ you~ know~ of~ any~ other~ font~ that~ supports~ this~ option,~ please~
+ let~ me~ know~ to~ add~ it~ to~ the~ list~ of~ corresponding~ fonts.~
+ }
+
+\msg_new:nnn { texnegar } { luatex-version-is-too-old }
+ {
+ #1:~Your~luatex~is~too~old,~you~need~at~least~version~#2.#3~!
+ }
+
+\keys_define:nn { texnegar }
+ {
+ Kashida .code:n =
+ {
+ \tl_set:Nn \l_tmpa_tl { #1 }
+ \tl_case:NnTF \l_tmpa_tl
+ {
+ \l_texnegar_stretch_glyph_tl
+ {
+ \msg_warning:nnn { texnegar } { warning-experimental-feature } { Kashida=glyph }
+ \tl_set:Nx \l_texnegar_gap_filler_tl { \l_texnegar_stretch_glyph_tl }
+ \AtBeginDocument
+ {
+ \tl_set:Nx \l_texnegar_main_font_full_tl { \tex_fontname:D \tex_the:D \tex_font:D }
+ \tl_set:Nx \l_texnegar_main_font_name_tl { \l_texnegar_main_font_full_tl }
+ \regex_replace_once:nnN { ^"([^/]+)/.* } { \1 } \l_texnegar_main_font_name_tl
+ }
+ \bool_set_true:N \l_texnegar_kashida_fix_bool
+ \bool_set_true:N \l_texnegar_kashida_glyph_bool
+ }
+ \l_texnegar_stretch_leaders_glyph_tl
+ {
+ \tl_set:Nx \l_texnegar_gap_filler_tl { \l_texnegar_stretch_leaders_glyph_tl }
+ \bool_set_true:N \l_texnegar_kashida_fix_bool
+ \bool_set_true:N \l_texnegar_kashida_leaders_glyph_bool
+ }
+ \l_texnegar_stretch_leaders_hrule_tl
+ {
+ \tl_set:Nx \l_texnegar_gap_filler_tl { \l_texnegar_stretch_leaders_hrule_tl }
+ \bool_set_true:N \l_texnegar_kashida_fix_bool
+ \bool_set_true:N \l_texnegar_kashida_leaders_hrule_bool
+ }
+ \l_texnegar_stretch_off_tl
+ {
+ \tl_set:Nx \l_texnegar_gap_filler_tl { \l_texnegar_stretch_off_tl }
+ \bool_set_false:N \l_texnegar_kashida_fix_bool
+ }
+ \l_texnegar_stretch_on_tl
+ {
+ \tl_set:Nx \l_texnegar_gap_filler_tl { \l_texnegar_stretch_leaders_glyph_tl }
+ \bool_set_true:N \l_texnegar_kashida_fix_bool
+ \bool_set_true:N \l_texnegar_kashida_leaders_glyph_bool
+ }
+ } { } { \tl_set:Nx \l_texnegar_gap_filler_tl { #1 } }
+ \tl_if_empty:NT \l_texnegar_gap_filler_tl { \msg_error:nn { texnegar } { error-specify-value-for-kashida-option } }
+ } ,
+
+ linebreakpenalty .code:n =
+ {
+ \int_set:Nn \l_tmpa_int { #1 }
+ \int_case:nnTF \l_tmpa_int
+ {
+ \l_texnegar_min_penalty_int { \int_set:Nn \l_texnegar_line_break_penalty_int { \l_texnegar_min_penalty_int } }
+ \l_texnegar_low_penalty_int { \int_set:Nn \l_texnegar_line_break_penalty_int { \l_texnegar_low_penalty_int } }
+ \l_texnegar_med_penalty_int { \int_set:Nn \l_texnegar_line_break_penalty_int { \l_texnegar_med_penalty_int } }
+ \l_texnegar_high_penalty_int { \int_set:Nn \l_texnegar_line_break_penalty_int { \l_texnegar_high_penalty_int } }
+ \l_texnegar_max_penalty_int { \int_set:Nn \l_texnegar_line_break_penalty_int { \l_texnegar_max_penalty_int } }
+ } { } { \int_set:Nn \l_texnegar_line_break_penalty_int { #1 } }
+ \bool_set_true:N \l_texnegar_linebreakpenalty_bool
+ } ,
+
+ kashidastretch .code:n =
+ {
+ \tl_set:Nn \l_tmpa_tl { #1 }
+ \tl_case:NnTF \l_tmpa_tl
+ {
+ \l_texnegar_fnt_kayhan_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.14 em plus 0.5 em } }
+ \l_texnegar_fnt_kayhannavaar_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.129 em plus 0.5 em } }
+ \l_texnegar_fnt_kayhanpook_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.133 em plus 0.5 em } }
+ \l_texnegar_fnt_kayhansayeh_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.135 em plus 0.5 em } }
+ \l_texnegar_fnt_khoramshahr_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.128 em plus 0.5 em } }
+ \l_texnegar_fnt_khorramshahr_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.13 em plus 0.5 em } }
+ \l_texnegar_fnt_niloofar_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.132 em plus 0.5 em } }
+ \l_texnegar_fnt_paatch_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.127 em plus 0.5 em } }
+ \l_texnegar_fnt_riyaz_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.125 em plus 0.5 em } }
+ \l_texnegar_fnt_roya_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.142 em plus 0.5 em } }
+ \l_texnegar_fnt_shafigh_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.143 em plus 0.5 em } }
+ \l_texnegar_fnt_shafighKurd_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.126 em plus 0.5 em } }
+ \l_texnegar_fnt_shafighUzbek_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.123 em plus 0.5 em } }
+ \l_texnegar_fnt_shiraz_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.122 em plus 0.5 em } }
+ \l_texnegar_fnt_sols_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.124 em plus 0.5 em } }
+ \l_texnegar_fnt_tabriz_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.119 em plus 0.5 em } }
+ \l_texnegar_fnt_titr_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.12 em plus 0.5 em } }
+ \l_texnegar_fnt_titre_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.121 em plus 0.5 em } }
+ \l_texnegar_fnt_traffic_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.124 em plus 0.5 em } }
+ \l_texnegar_fnt_vahid_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.134 em plus 0.5 em } }
+ \l_texnegar_fnt_vosta_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.136 em plus 0.5 em } }
+ \l_texnegar_fnt_yaghut_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.138 em plus 0.5 em } }
+ \l_texnegar_fnt_yagut_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.137 em plus 0.5 em } }
+ \l_texnegar_fnt_yas_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.126 em plus 0.5 em } }
+ \l_texnegar_fnt_yekan_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.141 em plus 0.5 em } }
+ \l_texnegar_fnt_yermook_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.139 em plus 0.5 em } }
+ \l_texnegar_fnt_zar_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.116 em plus 0.5 em } }
+ \l_texnegar_fnt_ziba_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.119 em plus 0.5 em } }
+ \l_texnegar_fnt_default_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.14 em plus 0.5 em } }
+ \l_texnegar_fnt_noskip_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0 em plus 0.5 em } }
+ } { } { \tl_set:Nn \l_texnegar_skip_default_tl { #1 } }
+ } ,
+ kashidastretch .default:n = \tl_set:Nn \l_texnegar_skip_default_tl { 0 em plus 0.5 em } ,
+
+ ligatures .code:n =
+ {
+ \tl_set:Nn \l_tmpa_tl { #1 }
+ \tl_case:NnTF \l_tmpa_tl
+ {
+ \l_texnegar_lig_aalt_tl { \tl_set:Nx \l_texnegar_active_ligs_tl { \l_texnegar_lig_aalt_tl } }
+ \l_texnegar_lig_ccmp_tl { \tl_set:Nx \l_texnegar_active_ligs_tl { \l_texnegar_lig_ccmp_tl } }
+ \l_texnegar_lig_dlig_tl { \tl_set:Nx \l_texnegar_active_ligs_tl { \l_texnegar_lig_dlig_tl } }
+ \l_texnegar_lig_fina_tl { \tl_set:Nx \l_texnegar_active_ligs_tl { \l_texnegar_lig_fina_tl } }
+ \l_texnegar_lig_init_tl { \tl_set:Nx \l_texnegar_active_ligs_tl { \l_texnegar_lig_init_tl } }
+ \l_texnegar_lig_locl_tl { \tl_set:Nx \l_texnegar_active_ligs_tl { \l_texnegar_lig_locl_tl } }
+ \l_texnegar_lig_medi_tl { \tl_set:Nx \l_texnegar_active_ligs_tl { \l_texnegar_lig_medi_tl } }
+ \l_texnegar_lig_rlig_tl { \tl_set:Nx \l_texnegar_active_ligs_tl { \l_texnegar_lig_rlig_tl } }
+ \l_texnegar_lig_default_tl { \tl_set:Nx \l_texnegar_active_ligs_tl { \l_texnegar_lig_default_tl } }
+ } { } { \tl_set:Nn \l_texnegar_active_ligs_tl { #1 } }
+ \bool_set_true:N \l_texnegar_ligature_bool
+ } ,
+ ligatures .default:n = \tl_set:Nn \l_texnegar_active_ligs_tl { \l_texnegar_lig_default_tl } ,
+
+ color .code:n =
+ {
+ \tl_set:Nn \l_tmpa_tl { #1 }
+ \tl_if_empty:NTF \l_tmpa_tl
+ {
+ \tl_set:Nx \l_texnegar_color_tl { \l_texnegar_col_default_tl }
+ }
+ {
+ \tl_set:Nx \l_texnegar_color_tl { \l_tmpa_tl }
+ }
+ \bool_set_true:N \l_texnegar_color_bool
+ \sys_if_engine_luatex:T
+ {
+ \convertcolorspec{named}{\l_texnegar_color_tl}{rgb}\l_texnegar_color_rgb_tl
+ \directlua{l_texnegar_color_rgb_tl = "\l_texnegar_color_rgb_tl"}
+ }
+ } ,
+
+ hboxrecursion .code:n =
+ {
+ \tl_set:Nn \l_tmpa_tl { #1 }
+ \tl_case:NnTF \l_tmpa_tl
+ {
+ \l_texnegar_hboxrecursion_off_tl
+ {
+ \bool_set_false:N \l_texnegar_hboxrecursion_bool
+ }
+ \l_texnegar_hboxrecursion_on_tl
+ {
+ \bool_set_true:N \l_texnegar_hboxrecursion_bool
+ }
+ } { } { \bool_set_false:N \l_texnegar_hboxrecursion_bool }
+ } ,
+ hboxrecursion .default:n = \bool_set_true:N \l_texnegar_hboxrecursion_bool ,
+
+ vboxrecursion .code:n =
+ {
+ \tl_set:Nn \l_tmpa_tl { #1 }
+ \tl_case:NnTF \l_tmpa_tl
+ {
+ \l_texnegar_vboxrecursion_off_tl
+ {
+ \bool_set_false:N \l_texnegar_vboxrecursion_bool
+ }
+ \l_texnegar_vboxrecursion_on_tl
+ {
+ \bool_set_true:N \l_texnegar_vboxrecursion_bool
+ }
+ } { } { \bool_set_false:N \l_texnegar_vboxrecursion_bool }
+ } ,
+ vboxrecursion .default:n = \bool_set_true:N \l_texnegar_vboxrecursion_bool ,
+ }
+
+\ProcessKeysOptions { texnegar }
+
+\sys_if_engine_luatex:T
+ {
+ \NewDocumentCommand \KashidaHMFixOff {} { \directlua{StopStretching()} }
+ \NewDocumentCommand \KashidaHMFixOn {} { \directlua{StartStretching()} }
+ }
+
+\sys_if_engine_xetex:T
+ {
+ \NewDocumentCommand \KashidaHMFixOn {} { \bool_set_true:N \l_texnegar_kashida_fix_bool }
+ \NewDocumentCommand \KashidaHMFixOff {} { \bool_set_false:N \l_texnegar_kashida_fix_bool }
+ }
+
+\tex_let:D \KashidaOn \KashidaHMFixOn
+\tex_let:D \KashidaOff \KashidaHMFixOff
+
+\bool_if:NTF \l_texnegar_kashida_fix_bool
+ {
+ \tl_if_empty:NT \l_texnegar_skip_default_tl { \tl_set:Nn \l_texnegar_skip_default_tl { 0.14 em plus 0.5 em } }
+ }
+ {
+ \tl_set:NV \l_texnegar_skip_default_tl \c_texnegar_skip_a_tl
+ }
+
+%% % \makeatletter
+%% % \newif\if@Kashida@on
+%% Becuase Vafa Khalighi has copied the above code (injecting the character uni+200E) in xepersian-23.0
+%% (https://tug.org/svn/texlive/trunk/Master/texmf-dist/tex/xelatex/xepersian/kashida-xepersian.def?revision=55165&view=co),
+%% the following line of code is not needed in xepersian anymore.
+%% % \newif\if@Kashida@XB@fix
+%% % \makeatother
+
+ \endinput
+%%
+%%
+%% End of file `texnegar-ini.tex'.
diff --git a/Master/texmf-dist/tex/latex/texnegar/texnegar-luatex-kashida.lua b/Master/texmf-dist/tex/latex/texnegar/texnegar-luatex-kashida.lua
new file mode 100644
index 00000000000..e2a383c61ea
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/texnegar/texnegar-luatex-kashida.lua
@@ -0,0 +1,532 @@
+--
+-- This is file `texnegar-luatex-kashida.lua',
+-- generated with the docstrip utility.
+--
+-- The original source files were:
+--
+-- texnegar.dtx (with options: `texnegar-luatex-kashida-lua')
+--
+-- Copyright (C) 2020 Hossein Movahhedian
+--
+-- 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
+--
+-- texnegar_luatex_kashida = texnegar_luatex_kashida or {}
+-- local texnegar_luatex_kashida = texnegar_luatex_kashida
+-- texnegar_luatex_kashida.module = {
+-- name = "texnegar_luatex_kashida",
+-- version = "0.1b",
+-- date = "2020-08-30",
+-- description = "Full implementation of kashida feature in XeLaTex and LuaLaTeX",
+-- author = "Hossein Movahhedian",
+-- copyright = "Hossein Movahhedian",
+-- license = "LPPL v1.3c"
+-- }
+--
+-- -- ^^A%% texnegar-lua.dtx -- part of TEXNEGAR <bitbucket.org/dma8hm1334/texnegar>
+-- local err, warn, info, log = luatexbase.provides_module(texnegar_luatex_kashida.module)
+-- texnegar_luatex_kashida.log = log or (function (s) luatexbase.module_info("texnegar_luatex_kashida", s) end)
+-- texnegar_luatex_kashida.warning = warn or (function (s) luatexbase.module_warning("texnegar_luatex_kashida", s) end)
+-- texnegar_luatex_kashida.error = err or (function (s) luatexbase.module_error("texnegar_luatex_kashida", s) end)
+
+local peCharTableInitial, peCharTableMedial, peCharTableFinal = dofile(kpse.find_file("texnegar-char-table.lua"))
+
+local kashida_unicode = 1600
+local kashida_subtype = 256
+
+local COLORSTACK = node.subtype("pdf_colorstack")
+local node_id = node.id
+local GLUE = node_id("glue")
+local GLYPH = node_id("glyph")
+local HLIST = node_id("hlist")
+local RULE = node_id("rule")
+local WHATSIT = node_id("whatsit")
+
+local l_texnegar_kashida_glyph_bool = token.create("l_texnegar_kashida_glyph_bool")
+local l_texnegar_kashida_leaders_glyph_bool = token.create("l_texnegar_kashida_leaders_glyph_bool")
+local l_texnegar_kashida_leaders_hrule_bool = token.create("l_texnegar_kashida_leaders_hrule_bool")
+
+local l_texnegar_hboxrecursion_bool = token.create("l_texnegar_hboxrecursion_bool")
+local l_texnegar_vboxrecursion_bool = token.create("l_texnegar_vboxrecursion_bool")
+
+local selected_font = font.current()
+local selected_font_old = selected_font
+
+local string_format = string.format
+local debug_getinfo = debug.getinfo
+
+function GetGlyphDimensions(font_file, glyph_index)
+ local funcName = debug_getinfo(1).name
+ local funcNparams = debug_getinfo(1).nparams
+
+ local fnt = fontloader.open(font_file)
+ local idx = 0
+ local fnt_glyphcnt = fnt.glyphcnt
+ local fnt_glyphmin = fnt.glyphmin
+ local fnt_glyphmax = fnt.glyphmax
+ if fnt_glyphcnt > 0 then
+ for idx = fnt_glyphmin, fnt_glyphmax do
+ local gl = fnt.glyphs[idx]
+ if gl then
+ local gl_unicode = gl.unicode
+ if gl_unicode == glyph_index then
+ local gl_name = gl.name
+ gl_width = gl.width
+ local gl_bbox = gl.boundingbox
+ gl_llx = gl_bbox[1]
+ gl_depth = gl_bbox[2]
+ gl_urx = gl_bbox[3]
+ gl_height = gl_bbox[4]
+ break
+ end
+ end
+ idx = idx + 1
+ end
+ end
+ fontloader.close(fnt)
+ return {width = gl_width, height = gl_height, depth = gl_depth, llx = gl_llx, urx = gl_urx}
+end
+
+function GetGlue(t_plb_line_glue_node, t_plb_node)
+ local funcName = debug_getinfo(1).name
+ local funcNparams = debug_getinfo(1).nparams
+
+ local glue_id = t_plb_line_glue_node.id
+ local glue_subtype = t_plb_line_glue_node.subtype
+ local glue_width = t_plb_line_glue_node.width
+ local glue_stretch = t_plb_line_glue_node.stretch
+ local glue_shrink = t_plb_line_glue_node.shrink
+ local eff_glue_width = node.effective_glue(t_plb_line_glue_node, t_plb_node)
+ local glue_stretch_order = t_plb_line_glue_node.stretch_order
+ local glue_shrink_order = t_plb_line_glue_node.shrink_order
+ local glue_delta = 0
+ glue_delta = eff_glue_width - glue_width
+ return { id = glue_id, subtype = glue_subtype, width = glue_width, stretch = glue_stretch,
+ shrink = glue_shrink, stretch_order = glue_stretch_order, shrink_order = glue_shrink_order,
+ effective_glue = eff_glue_width, delta = glue_delta }
+end
+
+function GetGlyph(t_plb_line_glyph_node, t_tbl_line_fields, t_CharTableInitial, t_CharTableMedial, t_CharTableFinal)
+ local funcName = debug_getinfo(1).name
+ local funcNparams = debug_getinfo(1).nparams
+
+ local glyph_id = t_plb_line_glyph_node.id
+ local glyph_subtype = t_plb_line_glyph_node.subtype
+ local glyph_char = t_plb_line_glyph_node.char
+ local glyph_font = t_plb_line_glyph_node.font
+ local glyph_lang = t_plb_line_glyph_node.lang
+ local glyph_width = t_plb_line_glyph_node.width
+ local glyph_data = t_plb_line_glyph_node.data
+ if not (t_CharTableInitial[glyph_char] == nil) then
+ t_tbl_line_fields.joinerCharInitial = t_tbl_line_fields.joinerCharInitial + 1
+ t_plb_line_glyph_node.data = 1
+ elseif not (t_CharTableMedial[glyph_char] == nil) then
+ t_tbl_line_fields.joinerCharMedial = t_tbl_line_fields.joinerCharMedial + 1
+ t_plb_line_glyph_node.data = 2
+ elseif not (t_CharTableFinal[glyph_char] == nil) then
+ t_tbl_line_fields.joinerCharFinal = t_tbl_line_fields.joinerCharFinal + 1
+ t_plb_line_glyph_node.data = 3
+ end
+ return { id = glyph_id, subtype = glyph_subtype, char = glyph_char, font = glyph_font, lang = glyph_lang, width = glyph_width, data = glyph_data }, t_tbl_line_fields
+end
+
+function ProcessTableKashidaHlist(ksh_hlistNode, hbox_num, in_font)
+ local funcName = debug_getinfo(1).name
+ local funcNparams = debug_getinfo(1).nparams
+
+ local ksh_hlistNode_id = ksh_hlistNode.id
+ local ksh_hlistNode_subtype = ksh_hlistNode.subtype
+
+ for tn in node.traverse(ksh_hlistNode.head) do
+ local tn_id = tn.id
+ local tn_subtype = tn.subtype
+
+ if tn_id == 0 then
+ for tp in node.traverse(tn.head) do
+ local tp_id = tp.id
+ local tp_subtype = tp.subtype
+ if tp_id == 29 then
+ if l_texnegar_color_bool.mode == c_true_bool.mode then
+ local col_str = color_tbl[1] .. " " .. color_tbl[2] .. " " .. color_tbl[3]
+ local col_str_rg = col_str .. " rg "
+ local col_str_RG = col_str .. " RG"
+
+ local color_push = node.new(WHATSIT, COLORSTACK)
+ local color_pop = node.new(WHATSIT, COLORSTACK)
+ color_push.stack = 0
+ color_pop.stack = 0
+ color_push.command = 1
+ color_pop.command = 2
+ glue_ratio = .2
+ color_push.data = col_str_rg .. col_str_RG
+ color_pop.data = col_str_rg .. col_str_RG
+ tn.head = node.insert_before(tn.list, tn.head, node.copy(color_push))
+ tn.head = node.insert_after(tn.list, node.tail(tn.head), node.copy(color_pop))
+ end
+
+ local tp_font = tp.font
+ local tp_char = tp.char
+ tp.font = in_font
+
+ local ksh_unicode
+ ksh_unicode = font.getfont(in_font).resources.unicodes['kashida']
+ if hbox_num == 'l_texnegar_k_box' then
+ tp.char = kashida_unicode
+ elseif hbox_num == 'l_texnegar_ksh_box' then
+ tp.char = ksh_unicode
+ tn_width = tn.width
+ ksh_hlistNode.width = tn_width
+ end
+ elseif tp_id == 0 then
+ if tp.subtype ~= 3 then
+ tbl_kashida_hlist_nodes[ #tbl_kashida_hlist_nodes + 1 ] = tp
+ end
+ end
+ end
+ elseif tn_id == 1 then
+ do end
+ elseif tn_id == 8 then
+ do end
+ elseif tn_id == 29 then
+ if l_texnegar_color_bool.mode == c_true_bool.mode then
+ local col_str = color_tbl[1] .. " " .. color_tbl[2] .. " " .. color_tbl[3]
+ local col_str_rg = col_str .. " rg "
+ local col_str_RG = col_str .. " RG"
+
+ local color_push = node.new(WHATSIT, COLORSTACK)
+ local color_pop = node.new(WHATSIT, COLORSTACK)
+ color_push.stack = 0
+ color_pop.stack = 0
+ color_push.command = 1
+ color_pop.command = 2
+ glue_ratio = .2
+ color_push.data = col_str_rg .. col_str_RG
+ color_pop.data = col_str_rg .. col_str_RG
+ ksh_hlistNode.head = node.insert_before(ksh_hlistNode.list, ksh_hlistNode.head, node.copy(color_push))
+ ksh_hlistNode.head = node.insert_after(ksh_hlistNode.list, node.tail(ksh_hlistNode.head), node.copy(color_pop))
+ end
+
+ local tn_font = tn.font
+ local tn_char = tn.char
+ tn.font = in_font
+
+ local ksh_unicode
+ ksh_unicode = font.getfont(in_font).resources.unicodes['kashida']
+ if hbox_num == 'l_texnegar_k_box' then
+ tn.char = kashida_unicode
+ elseif hbox_num == 'l_texnegar_ksh_box' then
+ tn.char = ksh_unicode
+ tn_width = tn.width
+ ksh_hlistNode.width = tn_width
+ end
+ else
+ print(string_format("\n tn. Not processed node id is: %d", tn_id))
+ end
+ end
+end
+
+function SetFontInHbox(hbox_num, font_num)
+ local funcName = debug_getinfo(1).name
+ local funcNparams = debug_getinfo(1).nparams
+
+ tbl_kashida_hlist_nodes = {}
+
+ local tmp_node
+ tmp_node = node.new("hlist")
+ tmp_node = tex.getbox(hbox_num)
+
+ ProcessTableKashidaHlist(tmp_node, hbox_num, font_num)
+
+ ::kashida_hlist_BEGIN::
+ if #tbl_kashida_hlist_nodes > 0 then
+ local kashida_hlistNodeAdded = table.remove(tbl_kashida_hlist_nodes,1)
+ ProcessTableKashidaHlist(kashida_hlistNodeAdded, hbox_num, font_num)
+ goto kashida_hlist_BEGIN
+ end
+end
+
+function StretchGlyph(t_plb_node, t_plb_glyph_node, t_gluePerJoiner, t_dir, t_filler)
+ local funcName = debug_getinfo(1).name
+ local funcNparams = debug_getinfo(1).nparams
+
+ if t_filler == "resized_kashida" then
+ SetFontInHbox('l_texnegar_k_box', selected_font)
+ elseif t_filler == "leaders+kashida" then
+ SetFontInHbox('l_texnegar_ksh_box', selected_font)
+ end
+
+ kashida_node = node.new(GLYPH)
+ node_glue = node.new(GLUE)
+ node_rule = node.new(RULE)
+ node_hlist = node.new(HLIST)
+
+ font_current = selected_font
+ font_name = font.fonts[font_current].fullname
+ font_file = font.fonts[font_current].filename
+ kashida_char = font.fonts[font_current].characters[1600]
+
+ kashida_node.subtype = kashida_subtype
+ kashida_node.font = font_current
+ kashida_node.char = kashida_unicode
+ kashida_node.lang = tex.language
+
+ kashida_width = kashida_node.width
+ kashida_height = kashida_node.height
+ kashida_depth = kashida_node.depth
+
+ tbl_gl_dimen = GetGlyphDimensions(font_file, kashida_unicode)
+ ksh_width, ksh_height, ksh_depth, ksh_llx, ksh_urx =
+ tbl_gl_dimen.width, tbl_gl_dimen.height, tbl_gl_dimen.depth, tbl_gl_dimen.llx, tbl_gl_dimen.urx
+
+ ratio_width = kashida_width / ksh_width
+ leaders_height = ratio_width * ksh_height
+ leaders_depth = - ratio_width * ksh_depth
+
+ node_glue.subtype = 100
+ node.setglue(node_glue, t_gluePerJoiner, 0, 0, 0, 0)
+
+ if t_filler == "resized_kashida" then
+ node_glue.leader = node.copy_list(tex.box['l_texnegar_k_box'])
+ elseif t_filler == "leaders+kashida" then
+ node_glue.leader = node.copy_list(tex.box['l_texnegar_ksh_box'])
+ elseif t_filler == "leaders+hrule" then
+ node_glue.leader = node_rule
+ end
+
+ node_glue.leader.subtype = 0
+ node_glue.leader.height = leaders_height
+ node_glue.leader.depth = leaders_depth
+
+ node_glue.leader.dir = t_dir
+
+ node.insert_after(t_plb_node.list, t_plb_glyph_node, node_glue)
+ if t_filler == "leaders+hrule" then
+ for tn in node.traverse(t_plb_node.head) do
+ local tn_id = tn.id
+ local tn_subtype = tn.subtype
+
+ if tn_id == 12 and tn_subtype == 100 then
+ local t_hbox = node.new(HLIST)
+ local t_hrule = node.copy(tn)
+ t_hbox.head = node.insert_after(t_hbox.list, t_hbox.head,t_hrule)
+ t_plb_node.head = node.insert_after(t_plb_node.list, tn, t_hbox)
+
+ if l_texnegar_color_bool.mode == c_true_bool.mode then
+ local col_str = color_tbl[1] .. " " .. color_tbl[2] .. " " .. color_tbl[3]
+ local col_str_rg = col_str .. " rg "
+ local col_str_RG = col_str .. " RG"
+
+ local color_push = node.new(WHATSIT, COLORSTACK)
+ local color_pop = node.new(WHATSIT, COLORSTACK)
+ color_push.stack = 0
+ color_pop.stack = 0
+ color_push.command = 1
+ color_pop.command = 2
+ glue_ratio = .2
+ color_push.data = col_str_rg .. col_str_RG
+ color_pop.data = col_str_rg .. col_str_RG
+ t_hbox.head = node.insert_before(t_hbox.list, t_hbox.head, node.copy(color_push))
+ t_hbox.head = node.insert_after(t_hbox.list, node.tail(t_hbox.head), node.copy(color_pop))
+ end
+ end
+ end
+ end
+end
+
+function GetFillerSpec(t_plb_node, t_plb_head_node, t_tbl_line_fields, t_CharTableInitial, t_CharTableMedial, t_CharTableFinal)
+ local funcName = debug_getinfo(1).name
+ local funcNparams = debug_getinfo(1).nparams
+
+ t_plb_node_id = t_plb_node.id
+ t_plb_node_subtype = t_plb_node.subtype
+
+ for p in node.traverse(t_plb_head_node) do
+ local p_id = p.id
+ local p_subtype = p.subtype
+ if p_id == 0 then
+ t_tbl_line_fields.lineWidthRemainder = t_tbl_line_fields.lineWidthRemainder - p.width
+ if p.subtype ~= 3 then
+ tbl_hlist_nodes[ #tbl_hlist_nodes + 1 ] = p
+ end
+ elseif p_id == 1 then
+ t_tbl_line_fields.lineWidthRemainder = t_tbl_line_fields.lineWidthRemainder - p.width
+ tbl_vlist_nodes[ #tbl_vlist_nodes + 1 ] = p
+ elseif p_id == 12 then
+ tbl_p_glue = GetGlue(p, t_plb_node)
+ t_tbl_line_fields.lineWidthRemainder = t_tbl_line_fields.lineWidthRemainder - tbl_p_glue["effective_glue"]
+ t_tbl_line_fields.total_glues = t_tbl_line_fields.total_glues + 1
+ t_tbl_line_fields.stretchedGlue = t_tbl_line_fields.stretchedGlue + tbl_p_glue["delta"]
+ elseif p_id == 29 then
+ tbl_p_glyph, t_tbl_line_fields = GetGlyph(p, t_tbl_line_fields, t_CharTableInitial, t_CharTableMedial, t_CharTableFinal)
+ selected_font_old = selected_font
+ selected_font = tbl_p_glyph["font"]
+ t_tbl_line_fields.lineWidthRemainder = t_tbl_line_fields.lineWidthRemainder - tbl_p_glyph["width"]
+ t_tbl_line_fields.total_glyphs = t_tbl_line_fields.total_glyphs + 1
+ end
+ end
+
+ t_tbl_line_fields.total_joiners = t_tbl_line_fields.joinerCharInitial + t_tbl_line_fields.joinerCharMedial
+ t_tbl_line_fields.gluePerJoiner = 0
+ if t_tbl_line_fields.total_glues == 0 then
+ t_tbl_line_fields.stretchedGlue = t_tbl_line_fields.lineWidthRemainder
+ end
+ if t_tbl_line_fields.total_joiners > 0 then
+ t_tbl_line_fields.gluePerJoiner = t_tbl_line_fields.stretchedGlue // t_tbl_line_fields.total_joiners
+ t_tbl_line_fields.stretchedGlueRemaineder = t_tbl_line_fields.stretchedGlue % t_tbl_line_fields.total_joiners
+ elseif t_tbl_line_fields.total_joiners == 1 then
+ t_tbl_line_fields.gluePerJoiner = t_tbl_line_fields.stretchedGlue
+ end
+
+ return t_tbl_line_fields
+end
+
+function ProcessTableHlist(tmphl_n)
+ local funcName = debug_getinfo(1).name
+ local funcNparams = debug_getinfo(1).nparams
+
+ local tmphl_n_id = tmphl_n.id
+ local tmphl_n_subtype = tmphl_n.subtype
+
+ local tbl_line_fields = { line_dir = "", line_width = 0, lineWidthRemainder = 0, total_glyphs = 0,
+ joinerCharInitial = 0, joinerCharMedial = 0, joinerCharFinal = 0, total_joiners = 0,
+ stretchedGlue = 0, total_glues = 0, gluePerJoiner = 0, stretchedGlueRemaineder = 0}
+
+ local tbl_p_glue, tbl_p_glyph
+
+ if (tmphl_n_id == 0) and (tmphl_n_subtype == 1 or tmphl_n_subtype == 2) then
+ tbl_line_fields.line_width = tmphl_n.width
+ tbl_line_fields.line_dir = tmphl_n.dir
+ tbl_line_fields.lineWidthRemainder = tbl_line_fields.line_width
+
+ if tbl_line_fields.line_dir == "TLT" then
+ tbl_line_fields = GetFillerSpec(tmphl_n, tmphl_n.head, tbl_line_fields, peCharTableInitial, peCharTableMedial, peCharTableFinal)
+
+ if tbl_line_fields.total_joiners == 0 or tbl_line_fields.gluePerJoiner == 0 or tbl_line_fields.stretchedGlue <= 0 then
+ goto continue
+ end
+
+ for q in node.traverse_id(GLUE, tmphl_n.head) do
+ local eff_glue_width = node.effective_glue(q, tmphl_n)
+ node.setglue(q, q.width, 0, 0, q.stretch_order, q.glue_shrink_order)
+ end
+
+ for r in node.traverse_id(GLYPH, tmphl_n.head) do
+ local r_data = r.data
+ if r_data == 1 or r.data == 2 then
+ StretchGlyph(tmphl_n, r, tbl_line_fields.gluePerJoiner, tbl_line_fields.line_dir, filler_pe)
+ elseif r.data == 3 then
+ goto for_loop_01
+ end
+ ::for_loop_01::
+ end
+ tbl_line_fields.line_width = tmphl_n.width
+ tbl_line_fields.lineWidthRemainder = line_width
+ elseif tbl_line_fields.line_dir == "TRT" then
+ tbl_line_fields = GetFillerSpec(tmphl_n, tmphl_n.head, tbl_line_fields, peCharTableInitial, peCharTableMedial, peCharTableFinal)
+ if tbl_line_fields.total_joiners == 0 or tbl_line_fields.gluePerJoiner == 0 or tbl_line_fields.stretchedGlue <= 0 then
+ goto continue
+ end
+
+ for q in node.traverse_id(GLUE, tmphl_n.head) do
+ local eff_glue_width = node.effective_glue(q, tmphl_n)
+ node.setglue(q, q.width, 0, 0, q.stretch_order, q.glue_shrink_order)
+ end
+
+ for r in node.traverse_id(GLYPH, tmphl_n.head) do
+ local r_data = r.data
+ if r_data == 1 or r.data == 2 then
+ StretchGlyph(tmphl_n, r, tbl_line_fields.gluePerJoiner, tbl_line_fields.line_dir, filler_pe)
+ elseif r.data == 3 then
+ goto for_loop_02
+ end
+ ::for_loop_02::
+ end
+ tbl_line_fields.line_width = tmphl_n.width
+ tbl_line_fields.lineWidthRemainder = line_width
+ else
+ print(string_format("\n Line direction '%s' is not supported yet!", tbl_line_fields.line_dir))
+ end
+ end
+ ::continue::
+end
+
+function ProcessTableVlist(tmpvl_n)
+ local funcName = debug_getinfo(1).name
+ local funcNparams = debug_getinfo(1).nparams
+
+ local tmpvl_n_id = tmpvl_n.id
+ local tmpvl_n_subtype = tmpvl_n.subtype
+
+ print(string_format(" %s: 00-0 tmpvl_n: id: %d, subtype: %d", funcName, tmpvl_n_id, tmpvl_n_subtype))
+ for vbNode in node.traverse(tmpvl_n) do
+ if vbNode.id == 1 and vbNode.subtype == 0 then
+ for tr_vbNode in node.traverse(vbNode.head) do
+ if (tr_vbNode.id == 0) and (tr_vbNode.subtype == 1 or tr_vbNode.subtype == 2) then
+ ProcessTableHlist(tr_vbNode)
+ end
+ end
+ end
+ end
+end
+
+function PostLineBreakFilter(hboxes_stack, groupcode)
+ local funcName = debug_getinfo(1).name
+ local funcNparams = debug_getinfo(1).nparams
+
+ tbl_hlist_nodes = {}
+ tbl_vlist_nodes = {}
+ for hlistNode in node.traverse(hboxes_stack) do
+ if node.next(hlistNode) == nil then
+ goto END
+ end
+
+ ProcessTableHlist(hlistNode)
+
+ if l_texnegar_hboxrecursion_bool.mode == c_true_bool.mode then
+ ::hboxBEGIN::
+ if #tbl_hlist_nodes > 0 then
+ local hlistNodeAdded = table.remove(tbl_hlist_nodes,1)
+ ProcessTableHlist(hlistNodeAdded)
+ goto hboxBEGIN
+ end
+ end
+
+ if l_texnegar_vboxrecursion_bool.mode == c_true_bool.mode then
+ ::vboxBEGIN::
+ if #tbl_vlist_nodes > 0 then
+ local vlistNodeAdded = table.remove(tbl_vlist_nodes,1)
+ ProcessTableVlist(vlistNodeAdded)
+ goto vboxBEGIN
+ end
+ end
+
+ ::END::
+ end
+ return hboxes_stack
+end
+
+if l_texnegar_kashida_glyph_bool.mode == c_true_bool.mode then
+ filler_pe = "resized_kashida"
+elseif l_texnegar_kashida_leaders_glyph_bool.mode == c_true_bool.mode then
+ filler_pe = "leaders+kashida"
+elseif l_texnegar_kashida_leaders_hrule_bool.mode == c_true_bool.mode then
+ filler_pe = "leaders+hrule"
+else
+ print(string_format" Unknown kashida value.")
+end
+
+function StartStretching()
+ if not luatexbase.in_callback('post_linebreak_filter', 'insertKashida') then
+ luatexbase.add_to_callback('post_linebreak_filter', PostLineBreakFilter, 'insertKashida')
+ end
+end
+
+function StopStretching()
+ if luatexbase.in_callback('post_linebreak_filter', 'insertKashida') then
+ luatexbase.remove_from_callback('post_linebreak_filter', 'insertKashida')
+ end
+end
+--
+--
+-- End of file `texnegar-luatex-kashida.lua'.
diff --git a/Master/texmf-dist/tex/latex/texnegar/texnegar-luatex.sty b/Master/texmf-dist/tex/latex/texnegar/texnegar-luatex.sty
new file mode 100644
index 00000000000..d7097e9e649
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/texnegar/texnegar-luatex.sty
@@ -0,0 +1,45 @@
+%%
+%% This is file `texnegar-luatex.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% texnegar.dtx (with options: `texnegar-luatex-sty')
+%%
+%% Copyright (C) 2020 Hossein Movahhedian
+%%
+%% 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
+%%
+\ProvidesExplPackage {texnegar-luatex} {2020-08-30} {0.1b} { Full implementation of kashida feature in xetex and luatex }
+
+\tex_input:D { texnegar-ini.tex }
+
+\bool_if:NT \l_texnegar_kashida_fix_bool
+ {
+ \if_int_compare:w \luatexversion < \c_texnegar_luatexversionmajormin_int\c_texnegar_luatexversionminormin_int
+ \msg_error:nnxxx { texnegar } { luatex-version-is-too-old } { !!!! } { \c_texnegar_luatexversionmajormin_int } { \c_texnegar_luatexversionminormin_int }
+ \fi:
+
+ \hbox_set:Nn \l_texnegar_k_box { \resizebox{5000sp}{\height}{-} }
+
+ \hbox_set:Nn \l_texnegar_ksh_box { \char\lua_now:n { tex.sprint(0, font.getfont(font.current()).resources.unicodes[token.scan_string()]) } hyphen }
+
+ \directlua{dofile(kpse.find_file("texnegar.lua"))}
+ }
+
+\bool_if:NT \l_texnegar_kashida_fix_bool
+ {
+ \tex_input:D { texnegar-common-kashida.tex }
+
+ \AtBeginDocument
+ {
+ \KashidaOn
+ }
+ }
+
+ \endinput
+%%
+%%
+%% End of file `texnegar-luatex.sty'.
diff --git a/Master/texmf-dist/tex/latex/texnegar/texnegar-xetex-kashida.tex b/Master/texmf-dist/tex/latex/texnegar/texnegar-xetex-kashida.tex
new file mode 100644
index 00000000000..5f927502cea
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/texnegar/texnegar-xetex-kashida.tex
@@ -0,0 +1,213 @@
+%%
+%% This is file `texnegar-xetex-kashida.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% texnegar.dtx (with options: `texnegar-xetex-kashida-tex')
+%%
+%% Copyright (C) 2020 Hossein Movahhedian
+%%
+%% 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
+%%
+\ProvidesExplFile {texnegar-xetex-kashida.tex} {2020-08-30} {0.1b} { Full implementation of kashida feature in XeLaTex and LuaLaTeX }
+
+\newXeTeXintercharclass \c_texnegar_d_charclass % dual-joiner class
+\newXeTeXintercharclass \c_texnegar_l_charclass % lam
+\newXeTeXintercharclass \c_texnegar_r_charclass % right-joiner
+\newXeTeXintercharclass \c_texnegar_a_charclass % alef
+\newXeTeXintercharclass \c_texnegar_y_charclass % yeh
+
+\tex_input:D { texnegar-common-kashida.tex }
+
+\tl_set:Nn \l_texnegar_use_color_tl
+ {
+ \bool_if:NTF \l_texnegar_color_bool
+ {
+ \colorlet{default}{\l_texnegar_color_tl}
+ }
+ {
+ \colorlet{default}{.}
+ }
+ \color{default}
+ }
+
+%% Partly adapted from the code provided by David Carlisle in:
+%% https://tex.stackexchange.com/questions/356709/how-to-know-the-width-and-fill-the-glue-space-between-two-characters-when-using/356721#356721
+\cs_new:Npn \texnegar_kashida_glyph #1
+{
+ \bool_if:NT \l_texnegar_kashida_fix_bool
+ {
+ \c_texnegar_lrm_int\tex_penalty:D 10000
+ \mode_leave_vertical:
+ \tex_global:D \tex_advance:D \l_texnegar_counter_int \c_one_int
+
+ \tl_set:Nx \l_texnegar_pos_tl { p\tex_romannumeral:D \l_texnegar_counter_int }
+ \tl_set:Nx \l_texnegar_zref_tl { z\tex_romannumeral:D \l_texnegar_counter_int }
+
+ \zsaveposx{x_i_\l_texnegar_zref_tl}
+ \tl_set:Nx \l_tmpa_tl
+ {
+ \iow_now:cx { @auxout }
+ {
+ \token_to_str:N \gdef \exp_after:wN \token_to_str:N \cs:w xi\l_texnegar_pos_tl \cs_end: { \zposx{ x_i_\l_texnegar_zref_tl } }
+ }
+ }
+ \l_tmpa_tl
+ \skip_horizontal:n { #1 }
+ \zsaveposx{x_f_\l_texnegar_zref_tl}
+ \tl_set:Nx \l_tmpa_tl
+ {
+ \iow_now:cx { @auxout }
+ {
+ \token_to_str:N \gdef \exp_after:wN \token_to_str:N \cs:w xf\l_texnegar_pos_tl \cs_end: { \zposx{ x_f_\l_texnegar_zref_tl } }
+ }
+ }
+ \l_tmpa_tl
+ \exp_after:wN
+ \if_meaning:w
+ \cs:w xi\l_texnegar_pos_tl \cs_end: \tex_relax:D
+ \else:
+ \dim_set:Nn \l_texnegar_diff_pos_dim
+ {
+ \dim_eval:n { \cs:w xi\l_texnegar_pos_tl \cs_end: sp - \cs:w xf\l_texnegar_pos_tl \cs_end: sp }
+ }
+ \dim_compare:nTF { \l_texnegar_diff_pos_dim == 0sp }
+ { }
+ { \llap { \resizebox { \l_texnegar_diff_pos_dim \tex_relax:D } { \height } { \l_texnegar_use_color_tl \c_texnegar_ksh_int } } }
+ \fi:
+ }
+}
+
+\cs_new:Npn \texnegar_kashida_leaders #1
+{
+ \bool_if:NT \l_texnegar_kashida_fix_bool
+ {
+ \tl_if_eq:NNTF \l_texnegar_gap_filler_tl \l_texnegar_stretch_leaders_glyph_tl
+ {
+ \tl_set:Nx \l_texnegar_font_full_tl { \tex_fontname:D \tex_the:D \tex_font:D }
+ \tl_set:Nx \l_texnegar_font_name_tl { \l_texnegar_font_full_tl }
+ \tl_set:Nx \l_texnegar_font_init_tl { \l_texnegar_font_name_tl }
+ \regex_replace_once:nnN { ^"\[?(HM)[\_\ ](X|F).* } { \1\2 } \l_texnegar_font_init_tl\relax
+ \tl_set:Nn \l_tmpa_tl { HMF }
+ \tl_set:Nn \l_tmpb_tl { HMX }
+ \bool_if:nTF { \str_if_eq_p:NN { \l_texnegar_font_init_tl } { \l_tmpa_tl } || \str_if_eq_p:NN { \l_texnegar_font_init_tl } { \l_tmpb_tl } }
+ {
+ \hbox_set:Nn \l_texnegar_ksh_box { \l_texnegar_use_color_tl \XeTeXglyph\XeTeXglyphindex"kashida" }
+ \c_texnegar_zwj_int \tex_penalty:D 10000
+ \tex_leaders:D \copy\l_texnegar_ksh_box \skip_horizontal:n { #1 }
+ \c_texnegar_zwj_int
+ }
+ {
+ \msg_error:nnx { texnegar } { hm-series-font-not-found } { \l_texnegar_font_name_tl }
+ }
+ }
+ {
+ %% Partly adapted from the code provided by Jonathan Kew in:
+ %% https://tug.org/pipermail/xetex/2009-February/012307.html.
+ %% Somebody notified me that the code in 'kashida-xepersian.def' from xepersian
+ %% package is an exact copy of Jonathan Kew's code. Being unaware of this, in
+ %% the earlier versions of this package I made a mistake and acknowledged
+ %% Vafa Khalighi instead of Jonathan Kew. A sincere thank you to Jonathan Kew
+ %% for his excellent code.
+ \c_texnegar_lrm_int\c_texnegar_zwj_int
+ {\l_texnegar_use_color_tl\tex_penalty:D 10000
+ \tex_leaders:D \tex_hrule:D height \XeTeXglyphbounds \c_texnegar_two_int
+ \int_use:N \XeTeXcharglyph \c_texnegar_ksh_int depth \XeTeXglyphbounds \c_texnegar_four_int
+ \int_use:N \XeTeXcharglyph \c_texnegar_ksh_int \skip_horizontal:n { #1 }
+ }
+ \c_texnegar_zwj_int
+ }
+ }
+}
+
+\XeTeXinterchartokenstate = 1
+
+\clist_set:Nn \l_texnegar_a_clist { 0622,0623,0625,0627 } % ‏ا، إ، أ، آ‏
+\clist_map_inline:Nn \l_texnegar_a_clist
+ {
+ \XeTeXcharclass "#1 \c_texnegar_a_charclass
+ }
+
+\clist_set:Nn \l_texnegar_d_clist { 0626,0628,062A,062B,062C,062D,062E,0633,0634,0635,0636,0637,0638,0639,063A,0640,0641,0642,0643,0645,0646,0647,067E,0686,06A9,06AF } % ‏ئ,ب,ت,ث,ج,ح,خ,س,ش,ص,ض,ط,ظ,ع,غ,ـ,ف,ق,ك,م,ن,ه,پ,چ,ک,گ‏
+\clist_map_inline:Nn \l_texnegar_d_clist
+ {
+ \XeTeXcharclass "#1 \c_texnegar_d_charclass
+ }
+
+\clist_set:Nn \l_texnegar_l_clist { 0644 } % ‏ل‏
+\clist_map_inline:Nn \l_texnegar_l_clist
+ {
+ \XeTeXcharclass "#1 \c_texnegar_l_charclass
+ }
+
+\clist_set:Nn \l_texnegar_r_clist { 0624,0629,062F,0630,0631,0632,0648,0698 } % ‏ؤ,ة,د,ذ,ر,ز,و,ژ‏
+\clist_map_inline:Nn \l_texnegar_r_clist
+ {
+ \XeTeXcharclass "#1 \c_texnegar_r_charclass
+ }
+
+\clist_set:Nn \l_texnegar_y_clist { 0649,064A,06CC } % ‏ی,ي,ى‏
+\clist_map_inline:Nn \l_texnegar_y_clist
+ {
+ \XeTeXcharclass "#1 \c_texnegar_y_charclass
+ }
+
+\tl_if_eq:NNTF \l_texnegar_gap_filler_tl \l_texnegar_stretch_glyph_tl {
+ \XeTeXinterchartoks \c_texnegar_y_charclass \c_texnegar_y_charclass = {
+ \bool_if:NTF \l_texnegar_kashida_fix_bool
+ { \c_texnegar_zwj_int \texnegar_kashida_glyph \l_texnegar_skip_default_tl \c_texnegar_zwj_int }
+ { \c_texnegar_zwj_int \texnegar_kashida_glyph \c_texnegar_skip_a_tl \c_texnegar_zwj_int }
+ }
+ \XeTeXinterchartoks \c_texnegar_d_charclass \c_texnegar_y_charclass = {
+ \bool_if:NTF \l_texnegar_kashida_fix_bool
+ { \c_texnegar_zwj_int \texnegar_kashida_glyph \l_texnegar_skip_default_tl \c_texnegar_zwj_int }
+ { \c_texnegar_zwj_int \texnegar_kashida_glyph \c_texnegar_skip_a_tl \c_texnegar_zwj_int }
+ }
+ \XeTeXinterchartoks \c_texnegar_y_charclass \c_texnegar_d_charclass = { \c_texnegar_zwj_int \texnegar_kashida_glyph \c_texnegar_skip_a_tl \c_texnegar_zwj_int }
+ \XeTeXinterchartoks \c_texnegar_d_charclass \c_texnegar_d_charclass = { \c_texnegar_zwj_int \texnegar_kashida_glyph \c_texnegar_skip_a_tl \c_texnegar_zwj_int }
+ \XeTeXinterchartoks \c_texnegar_l_charclass \c_texnegar_d_charclass = { \c_texnegar_zwj_int \texnegar_kashida_glyph \c_texnegar_skip_a_tl \c_texnegar_zwj_int }
+ \XeTeXinterchartoks \c_texnegar_d_charclass \c_texnegar_l_charclass = { \c_texnegar_zwj_int \texnegar_kashida_glyph \c_texnegar_skip_a_tl \c_texnegar_zwj_int }
+ \XeTeXinterchartoks \c_texnegar_l_charclass \c_texnegar_l_charclass = { \c_texnegar_zwj_int \texnegar_kashida_glyph \c_texnegar_skip_a_tl \c_texnegar_zwj_int }
+ \XeTeXinterchartoks \c_texnegar_d_charclass \c_texnegar_r_charclass = { \c_texnegar_zwj_int \texnegar_kashida_glyph \c_texnegar_skip_a_tl \c_texnegar_zwj_int }
+ \XeTeXinterchartoks \c_texnegar_d_charclass \c_texnegar_a_charclass = { \c_texnegar_zwj_int \texnegar_kashida_glyph \c_texnegar_skip_a_tl \c_texnegar_zwj_int }
+ \XeTeXinterchartoks \c_texnegar_l_charclass \c_texnegar_r_charclass = { \c_texnegar_zwj_int \texnegar_kashida_glyph \c_texnegar_skip_a_tl \c_texnegar_zwj_int }
+ \XeTeXinterchartoks \c_texnegar_l_charclass \c_texnegar_a_charclass = { }
+}
+{
+ \bool_if:nTF {
+ \tl_if_eq_p:NN \l_texnegar_gap_filler_tl \l_texnegar_stretch_leaders_glyph_tl ||
+ \tl_if_eq_p:NN \l_texnegar_gap_filler_tl \l_texnegar_stretch_leaders_hrule_tl
+ }
+ {
+ \XeTeXinterchartoks \c_texnegar_y_charclass \c_texnegar_y_charclass = {
+ \bool_if:NTF \l_texnegar_kashida_fix_bool
+ { \texnegar_kashida_leaders \l_texnegar_skip_default_tl }
+ { \texnegar_kashida_leaders \c_texnegar_skip_a_tl }
+ }
+ \XeTeXinterchartoks \c_texnegar_d_charclass \c_texnegar_y_charclass = {
+ \bool_if:NTF \l_texnegar_kashida_fix_bool
+ { \texnegar_kashida_leaders \l_texnegar_skip_default_tl }
+ { \texnegar_kashida_leaders \c_texnegar_skip_a_tl }
+ }
+ \XeTeXinterchartoks \c_texnegar_y_charclass \c_texnegar_d_charclass = { \texnegar_kashida_leaders \c_texnegar_skip_a_tl }
+ \XeTeXinterchartoks \c_texnegar_d_charclass \c_texnegar_d_charclass = { \texnegar_kashida_leaders \c_texnegar_skip_a_tl }
+ \XeTeXinterchartoks \c_texnegar_l_charclass \c_texnegar_d_charclass = { \texnegar_kashida_leaders \c_texnegar_skip_a_tl }
+ \XeTeXinterchartoks \c_texnegar_d_charclass \c_texnegar_l_charclass = { \texnegar_kashida_leaders \c_texnegar_skip_a_tl }
+ \XeTeXinterchartoks \c_texnegar_l_charclass \c_texnegar_l_charclass = { \texnegar_kashida_leaders \c_texnegar_skip_a_tl }
+ \XeTeXinterchartoks \c_texnegar_d_charclass \c_texnegar_r_charclass = { \texnegar_kashida_leaders \c_texnegar_skip_a_tl }
+ \XeTeXinterchartoks \c_texnegar_d_charclass \c_texnegar_a_charclass = { \texnegar_kashida_leaders \c_texnegar_skip_a_tl }
+ \XeTeXinterchartoks \c_texnegar_l_charclass \c_texnegar_r_charclass = { \texnegar_kashida_leaders \c_texnegar_skip_a_tl }
+ \XeTeXinterchartoks \c_texnegar_l_charclass \c_texnegar_a_charclass = { }
+ }
+ {
+ \msg_error:nnx { texnegar } { error-value-not-available-for-kashida-option } { \l_texnegar_gap_filler_tl }
+ }
+}
+
+ \endinput
+%%
+%%
+%% End of file `texnegar-xetex-kashida.tex'.
diff --git a/Master/texmf-dist/tex/latex/texnegar/texnegar-xetex.sty b/Master/texmf-dist/tex/latex/texnegar/texnegar-xetex.sty
new file mode 100644
index 00000000000..67dcb3401b6
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/texnegar/texnegar-xetex.sty
@@ -0,0 +1,28 @@
+%%
+%% This is file `texnegar-xetex.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% texnegar.dtx (with options: `texnegar-xetex-sty')
+%%
+%% Copyright (C) 2020 Hossein Movahhedian
+%%
+%% 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
+%%
+\RequirePackage{zref-savepos}[2020-03-03]
+\ProvidesExplPackage {texnegar-xetex} {2020-08-30} {0.1b} { Full implementation of kashida feature in XeLaTex and LuaLaTeX }
+
+\tex_input:D { texnegar-ini.tex }
+
+\bool_if:NT \l_texnegar_kashida_fix_bool
+ {
+ \tex_input:D { texnegar-xetex-kashida.tex }
+ }
+
+ \endinput
+%%
+%%
+%% End of file `texnegar-xetex.sty'.
diff --git a/Master/texmf-dist/tex/latex/texnegar/texnegar.lua b/Master/texmf-dist/tex/latex/texnegar/texnegar.lua
new file mode 100644
index 00000000000..cd54f7d69a3
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/texnegar/texnegar.lua
@@ -0,0 +1,37 @@
+--
+-- This is file `texnegar.lua',
+-- generated with the docstrip utility.
+--
+-- The original source files were:
+--
+-- texnegar.dtx (with options: `texnegar-lua')
+--
+-- Copyright (C) 2020 Hossein Movahhedian
+--
+-- 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
+--
+-- texnegar = texnegar or {}
+-- local texnegar = texnegar
+-- texnegar.module = {
+-- name = "texnegar",
+-- version = "0.1b",
+-- date = "2020-08-30",
+-- description = "Full implementation of kashida feature in XeLaTex and LuaLaTeX",
+-- author = "Hossein Movahhedian",
+-- copyright = "Hossein Movahhedian",
+-- license = "LPPL v1.3c"
+-- }
+--
+-- -- ^^A%% texnegar-lua.dtx -- part of TEXNEGAR <bitbucket.org/dma8hm1334/texnegar>
+-- local err, warn, info, log = luatexbase.provides_module(texnegar.module)
+-- texnegar.log = log or (function (s) luatexbase.module_info("texnegar", s) end)
+-- texnegar.warning = warn or (function (s) luatexbase.module_warning("texnegar", s) end)
+-- texnegar.error = err or (function (s) luatexbase.module_error("texnegar", s) end)
+
+tex.enableprimitives('',tex.extraprimitives ())
+dofile(kpse.find_file("texnegar-ini.lua"))
+--
+--
+-- End of file `texnegar.lua'.
diff --git a/Master/texmf-dist/tex/latex/texnegar/texnegar.sty b/Master/texmf-dist/tex/latex/texnegar/texnegar.sty
new file mode 100644
index 00000000000..6fb60a4b486
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/texnegar/texnegar.sty
@@ -0,0 +1,42 @@
+%%
+%% This is file `texnegar.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% texnegar.dtx (with options: `texnegar-sty')
+%%
+%% Copyright (C) 2020 Hossein Movahhedian
+%%
+%% 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
+%%
+\RequirePackage{xparse}
+\RequirePackage{l3keys2e}
+\RequirePackage{graphicx}[2019-11-30]
+\RequirePackage[dvipsnames,svgnames,x11names]{xcolor}[2016/05/11]
+\ProvidesExplPackage {texnegar} {2020-08-30} {0.1b} { Full implementation of kashida feature in XeLaTex and LuaLaTeX }
+
+\sys_if_engine_luatex:T
+ {
+ \RequirePackageWithOptions{texnegar-luatex}
+ \endinput
+ }
+\sys_if_engine_xetex:T
+ {
+ \RequirePackageWithOptions{texnegar-xetex}
+ \endinput
+ }
+\msg_new:nnn {texnegar} {cannot-use-pdftex}
+ {
+ The~ texnegar~ package~ requires~ either~ XeTeX~ or~ LuaTeX.\\\\
+ You~ must~ change~ your~ typesetting~ engine~ to,~ e.g.,~
+ "xelatex"~ or~ "lualatex" instead~ of~ "latex"~ or~ "pdflatex".
+ }
+\msg_fatal:nn {texnegar} {cannot-use-pdftex}
+
+ \endinput
+%%
+%%
+%% End of file `texnegar.sty'.