تغییر خودکار فونت تمامی اعداد متن به قلمی خاص ( که صفر توخالی دارد)

Question

یکی از مشکلاتی که با بسیاری از قلم‌ها وجود دارد این است که متاسفانه صفر آن‌ها به صورت نقطه نگاشته شده است در حالیکه همگی می‌دانیم که صفر پارسی توخالی است. برای رفع این مشکل از راه حلی که دکتر وفا در تصحیحی که برای استایل پایان‌نامه دانشگاه خواجه نصیر ارائه داده‌اند استفاده شده است.

منتهی چند مشکل وجود دارد که با کد زیر نشان داده شده است. ابتدا کد و خروجی آن را ملاحظه نمایید و سپس به بررسی مشکلات بپردازیم.

\documentclass{article}

\usepackage{xepersian}
\settextfont{XB Niloofar}
\defpersianfont\yasfont{Yas}

\makeatletter
    \if@bidi@csundef{bidi@digits}{% 
        \newcount\bidi@digits
        \XeTeXinterchartokenstate=\@ne
        \newXeTeXintercharclass\bidi@digits@charclass
        \bidi@digits=`\0 \loop \XeTeXcharclass \bidi@digits \bidi@digits@charclass \ifnum\bidi@digits<`\9 \advance\bidi@digits \@ne \repeat
        \bidi@digits=`\۰ \loop \XeTeXcharclass \bidi@digits \bidi@digits@charclass \ifnum\bidi@digits<`\۹ \advance\bidi@digits \@ne \repeat
    }{}
    \newXeTeXintercharclass\qom@leftparen@charclass
    \newXeTeXintercharclass\qom@rightparen@charclass
    \XeTeXcharclass `\( \qom@leftparen@charclass
    \XeTeXcharclass `\) \qom@rightparen@charclass
    \XeTeXcharclass `\[ \qom@leftparen@charclass
    \XeTeXcharclass `\] \qom@rightparen@charclass
    \ifdim\the\XeTeXversion\XeTeXrevision\p@>0.99993\p@
      \chardef\qom@alloc@intercharclass@top=4095
    \else
      \chardef\qom@alloc@intercharclass@top=255
    \fi
    \XeTeXinterchartoks \qom@alloc@intercharclass@top \bidi@digits@charclass = {\BeginSwitchDigitFont}
    \XeTeXinterchartoks \bidi@digits@charclass \qom@alloc@intercharclass@top = {\EndSwitchDigitFont}
    \XeTeXinterchartoks \qom@leftparen@charclass \bidi@digits@charclass = {\BeginSwitchDigitFont}
    \XeTeXinterchartoks \bidi@digits@charclass \qom@rightparen@charclass = {\EndSwitchDigitFont}
    \if@bidi@csundef{if@nonlatin}{%
        \newcommand*{\BeginSwitchDigitFont}{\if@Latin\else\yasfont \fi}
        \newcommand*{\EndSwitchDigitFont}{\if@Latin\else\setpersianfont \fi\egroup}
    }{%
        \newcommand*{\BeginSwitchDigitFont}{\if@nonlatin\yasfont \fi}
        \newcommand*{\EndSwitchDigitFont}{\if@nonlatin\setpersianfont \fi}
    }
\makeatother
\begin{document}

 102030405060708090100 

 [1020]
(3040)

{\yasfont  [1030]} 

[10[20[30[40]50]60]70]

(10(20(30(40)50)60)70)

\end{document}

همانطوری که پیداست در سطر اول و دوم خروجی مشکلی وجود ندارد.
اما سطر سوم همانطوری که انتظار می‌رود باید تماما با قلم Yas نگاشته شود ولی به سبب کدی که در فوق وجود دارد بخش براکت بستهٔ آن با قلم متن پارسی نگاشته می‌شود (که همان نیلوفر است).
و اما در دو مورد آخر مشکلی کمی حادتر می‌گردد و آن هم اینکه در حالت استفاده از پرانتز/براکت‌های تودرتو با توجه به کدی نوشته شده است فقط بخش باز آن تغییر قلم داده و بخش بسته اثری نمی‌پذیرد که طبیعی هم است. و البته اگر به خود پرانتز/براکت باز توجه نمایید باز متوجه تغییر قلم می‌شوید.

سوال این است که آیا کد فوق را می‌توان به گونه‌ای اصلاح نمود که این نکات را نیز برآورده نماید.

Comments

اگر کد را بخوانید و آن را بفهمید متوجه می‌شوید که اصلاح آن بسیار ساده است.

---

وفای عزیز از اینکه همیشه آدم را به فکر وا می‌دارید سپاسگزارم

افزودن قطعه زیر تمامی مشکلات را حل نمود بجز آن حالتی که قلم متن یاس باشد که با کد فوق براکت بسته به قلم متن بازگردانده خواهد شد.

    \XeTeXinterchartoks \qom@rightparen@charclass \bidi@digits@charclass = {\BeginSwitchDigitFont}
    \XeTeXinterchartoks \bidi@digits@charclass \qom@leftparen@charclass = {\EndSwitchDigitFont}

---

@وفا

خواهشمند است پاسخ مرا ملاحظه نموده و درستی یا نادرستی آن را ابلاغ نمایید.

Answer 1

این پرسش و پاسخ را ببینید. کدهای موجود در این پرسش و پاسخ ‌های آن دیگر کار نخواهند کرد و با خطا مواجه می‌شوند چنانچه از نسخه 32.0 بسته bidi و نسخه 20.1 بسته xepersian استفاده کنید.

Comments

ممنون از لطف همیشگی ولی اگر نظرتان را در رابطه با کد پاسخ بفرمایید خیلی سپاسگزارم.

---

کد بدی است.

---

پاسخ بروز شد.

---

بسیار عالی ... کدتان مثل همیشه تر و تمیز و فشرده.

وفای عزیز جمله «کد بدی است» دانشجو را چنانکه باید، هدایت نخواهد کرد! او نیاز به توضیح بیشتری از جانب استاد دارد.

Answer 2

با تشکر از وفای عزیز

بنظر راه حل زیر مشکلات سوال فوق را مرتفع نماید. هر چند کد زیر مشکلاتم را در مساله فوق حل نمود ولی امید است که وفا درستی یا نادرستی آن را تایید فرمایند.

کافی است قطعه کد زیر را جایگزین کد معادل آن در سوال نمود.

\XeTeXinterchartoks \qom@alloc@intercharclass@top \bidi@digits@charclass = {\BeginSwitchDigitFont}
\XeTeXinterchartoks \bidi@digits@charclass \qom@alloc@intercharclass@top = {\EndSwitchDigitFont}
\XeTeXinterchartoks \qom@leftparen@charclass \bidi@digits@charclass = {\BeginSwitchDigitFont}
\XeTeXinterchartoks \bidi@digits@charclass \qom@rightparen@charclass = {\EndSwitchDigitFont}
\XeTeXinterchartoks \qom@rightparen@charclass \bidi@digits@charclass = {\BeginSwitchDigitFont}
\XeTeXinterchartoks \bidi@digits@charclass \qom@leftparen@charclass = {\EndSwitchDigitFont}
\if@bidi@csundef{if@nonlatin}{%
    \newcommand*{\BeginSwitchDigitFont}{\edef\currentfont{\the\font}\if@Latin\else\yasfont \fi}
    \newcommand*{\EndSwitchDigitFont}{\if@Latin\else\currentfont \fi}
}{%
    \newcommand*{\BeginSwitchDigitFont}{\edef\currentfont{\the\font}\if@nonlatin\yasfont \fi}
    \newcommand*{\EndSwitchDigitFont}{\if@nonlatin\currentfont \fi}
}

نهایتاً خروجی به صورت زیر خواهد بود که همان مطلوب مساله است.

Answer 3

این یکی بنظر خودم خیلی بهتر از قبلی عمل می‌کند. فقط اینکه نمیدانم آیا در حالتی که متن لاتین با قلم پارسی نیز نگاشته می‌شود این تغییر را بدهم یا خیر --به A4 در متن توجه نمایید که با همان قلم Tahoma نگاشته شده است.

\documentclass{article}

\usepackage{xepersian}
\settextfont{Tahoma}
\defpersianfont\yasfont{Yas}

\makeatletter
    \if@bidi@csundef{bidi@digits}{% 
        \newcount\bidi@digits
        \XeTeXinterchartokenstate=\@ne
        \newXeTeXintercharclass\bidi@digits@charclass
        \bidi@digits=`\0 \loop \XeTeXcharclass \bidi@digits \bidi@digits@charclass \ifnum\bidi@digits<`\9 \advance\bidi@digits \@ne \repeat
        \bidi@digits=`\۰ \loop \XeTeXcharclass \bidi@digits \bidi@digits@charclass \ifnum\bidi@digits<`\۹ \advance\bidi@digits \@ne \repeat
    }{}
    \newif\if@q@verbatim
    \bidi@appto\verbatim@font{\@q@verbatimtrue}
    \bidi@appto\ttfamily{\@q@verbatimtrue}
    \newXeTeXintercharclass\q@leftparen@charclass
    \newXeTeXintercharclass\q@rightparen@charclass
    \XeTeXcharclass `\( \q@leftparen@charclass
    \XeTeXcharclass `\) \q@rightparen@charclass
    \XeTeXcharclass `\[ \q@leftparen@charclass
    \XeTeXcharclass `\] \q@rightparen@charclass
    \XeTeXcharclass `\{ \q@leftparen@charclass
    \XeTeXcharclass `\} \q@rightparen@charclass
    \XeTeXcharclass `\« \q@leftparen@charclass
    \XeTeXcharclass `\» \q@rightparen@charclass       
    \XeTeXcharclass `\، \q@leftparen@charclass    
    \XeTeXcharclass `\, \q@leftparen@charclass
    \XeTeXcharclass `\؛ \q@leftparen@charclass          
    \XeTeXcharclass `\; \q@leftparen@charclass          
    \XeTeXcharclass `\: \q@leftparen@charclass          
    \XeTeXcharclass `\. \q@leftparen@charclass     
    \ifdim\the\XeTeXversion\XeTeXrevision\p@>0.99993\p@
      \chardef\q@alloc@intercharclass@top=4095
    \else
      \chardef\q@alloc@intercharclass@top=255
    \fi
    \XeTeXinterchartoks \q@alloc@intercharclass@top \bidi@digits@charclass = {\BeginSwitchDigitFont}
    \XeTeXinterchartoks \bidi@digits@charclass \q@alloc@intercharclass@top = {\EndSwitchDigitFont}
    \XeTeXinterchartoks \q@leftparen@charclass \bidi@digits@charclass = {\BeginSwitchDigitFont}
    \XeTeXinterchartoks \bidi@digits@charclass \q@rightparen@charclass = {\EndSwitchDigitFont}
    \XeTeXinterchartoks \q@rightparen@charclass \bidi@digits@charclass = {\BeginSwitchDigitFont}
    \XeTeXinterchartoks \bidi@digits@charclass \q@leftparen@charclass = {\EndSwitchDigitFont}    
    \if@bidi@csundef{if@nonlatin}{%
        \newcommand*{\BeginSwitchDigitFont}{\if@q@verbatim\else%
        \global\edef\currentfont{\the\font}\if@Latin\else\yasfont \fi\fi}
        \newcommand*{\EndSwitchDigitFont}{\if@q@verbatim\else\if@Latin\else\currentfont \fi\fi}
    }{%
        \newcommand*{\BeginSwitchDigitFont}{\if@q@verbatim\else%
        \global\edef\currentfont{\the\font}\if@nonlatin\yasfont \fi\fi}
        \newcommand*{\EndSwitchDigitFont}{\if@q@verbatim\else\if@nonlatin\currentfont \fi\fi}
    }

\makeatother
\begin{document}

\begin{equation}
123 x +  y 10010
\end{equation}

$1210$
90000

\begin{equation}
12
\end{equation}

\[
12010
\]

102030405060708090100 

10,20,30,40,50,60,70,80,90,100  10، ۰،

     دارای ۴ اگه خط دستور باشد، ابتدا خط ۱، بعد خط ۲، بعد خط ۳ و در آخر، خط ۴ پردازش می‌شود.7080[1020](3040)

\verb!\ali1!\verb!chapter1!

    پانویس\footnote{این یک خط \lr{A4} است و پس 3. بارای 
  و  2 , و  3,4, 5 و  ۴۵  ست و این متنی دیگر است. }
  گفت ۳: ۳4 143 من کتاب دارم. 

\verb!\include{chapter1}a1! یک متن 

\verb!\include[1]{chapter1}a1! یک متن 

\lr{include\{chapter[1]\}a1}

include[1]{chapter1}a1

{\yasfont  [1030]} [10[20[30[40]50]60]70](10(20(30(40)50)60)70)

  این یک خط A4 است و سپس a3. بارای 
  2, 3,4, 5  ۴۵ 
\begin{verbatim}
hi this is 234 test [asdf 14123]
\end{verbatim}
\begin{LTR}
\begin{verbatim}
hi this is 234 test [asdf 14123]
\end{verbatim}
\end{LTR}
\end{document}

پی‌نوشت: هنوز منتظرم تا دکتر خلیقی نظر خود را در رابطه با پاسخ اعلام فرمایند.

Comments

در همین پاسخ اگر از بسته setspace استفاده شود و سپس دستور \doublespacing بکار رود از آن نقطه به بعد قلم به یاس تغییر خواهد کرد! علت را در نمی‌یابم.

---

در بهترین پاسخ این مشکل رفع شده است.

Answer 4

بنظرم کد زیر برای تغییر فونت ارقام به صورت خودکار بدون هیچ مشکلی کار می‌کند. اشکال راه قبل این بود که فراموش شده بود تا قلم مورد نظر در محدوده خاصی اعمال شود.

\documentclass{article}
\usepackage{setspace}
\usepackage{xepersian}
\settextfont{Tahoma}
\defpersianfont\yasfont{Yas}

\makeatletter
    \if@bidi@csundef{bidi@digits}{% 
        \newcount\bidi@digits
        \XeTeXinterchartokenstate=\@ne
        \newXeTeXintercharclass\bidi@digits@charclass
        \bidi@digits=`\0 \loop \XeTeXcharclass \bidi@digits \bidi@digits@charclass \ifnum\bidi@digits<`\9 \advance\bidi@digits \@ne \repeat
        \bidi@digits=`\۰ \loop \XeTeXcharclass \bidi@digits \bidi@digits@charclass \ifnum\bidi@digits<`\۹ \advance\bidi@digits \@ne \repeat
    }{}
    \newif\if@q@verbatim
    \bidi@appto\verbatim@font{\@q@verbatimtrue}
    \bidi@appto\ttfamily{\@q@verbatimtrue}
    \newXeTeXintercharclass\q@leftparen@charclass
    \newXeTeXintercharclass\q@rightparen@charclass
    \XeTeXcharclass `\( \q@leftparen@charclass
    \XeTeXcharclass `\) \q@rightparen@charclass
    \XeTeXcharclass `\[ \q@leftparen@charclass
    \XeTeXcharclass `\] \q@rightparen@charclass
    \XeTeXcharclass `\{ \q@leftparen@charclass
    \XeTeXcharclass `\} \q@rightparen@charclass
    \XeTeXcharclass `\« \q@leftparen@charclass
    \XeTeXcharclass `\» \q@rightparen@charclass
    \XeTeXcharclass `\\ \q@rightparen@charclass              
    \XeTeXcharclass `\، \q@leftparen@charclass    
    \XeTeXcharclass `\, \q@leftparen@charclass
    \XeTeXcharclass `\؛ \q@leftparen@charclass          
    \XeTeXcharclass `\; \q@leftparen@charclass          
    \XeTeXcharclass `\: \q@leftparen@charclass          
    \XeTeXcharclass `\. \q@leftparen@charclass     
    \XeTeXcharclass `\- \q@leftparen@charclass       
    \ifdim\the\XeTeXversion\XeTeXrevision\p@>0.99993\p@
      \chardef\q@alloc@intercharclass@top=4095
    \else
      \chardef\q@alloc@intercharclass@top=255
    \fi
    \chardef\q@CharNormal=0
    \XeTeXinterchartoks \q@alloc@intercharclass@top \bidi@digits@charclass = {\BeginSwitchDigitFont}
    \XeTeXinterchartoks \bidi@digits@charclass \q@alloc@intercharclass@top = {\EndSwitchDigitFont}
    \XeTeXinterchartoks \q@leftparen@charclass \bidi@digits@charclass = {\BeginSwitchDigitFont}
    \XeTeXinterchartoks \bidi@digits@charclass \q@rightparen@charclass = {\EndSwitchDigitFont}
    \XeTeXinterchartoks \q@rightparen@charclass \bidi@digits@charclass = {\BeginSwitchDigitFont}
    \XeTeXinterchartoks \bidi@digits@charclass \q@leftparen@charclass = {\EndSwitchDigitFont}    
    \XeTeXinterchartoks \q@CharNormal \bidi@digits@charclass = {\BeginSwitchDigitFont}
    \XeTeXinterchartoks \bidi@digits@charclass \q@CharNormal = {\EndSwitchDigitFont}     
    \if@bidi@csundef{if@nonlatin}{%
        \newcommand*{\BeginSwitchDigitFont}{\if@q@verbatim\else%
        \global\edef\currentfont{\the\font}\if@Latin\else\bgroup\yasfont \fi\fi}
        \newcommand*{\EndSwitchDigitFont}{\if@q@verbatim\else\if@Latin\else\egroup\currentfont \fi\fi}
    }{%
        \newcommand*{\BeginSwitchDigitFont}{\if@q@verbatim\else%
        \global\edef\currentfont{\the\font}\if@nonlatin\bgroup\yasfont \fi\fi}
        \newcommand*{\EndSwitchDigitFont}{\if@q@verbatim\else\if@nonlatin\egroup\currentfont \fi\fi}
    }\makeatother

\def\test{\small}

\begin{document}
%\show\normalsize



    سلام  )۲  خدانگهدار ۰۹۸۷۸ 

{\par   گفت ۳: ۳4 143 من کتاب دارم. }

\begin{equation}
123 x +  y 10010
\end{equation}

$1210$
90000

\begin{equation}
12
\end{equation}

\[
12010
\]

TeXLive2015

A09456

102030405060708090100 

10,20,30,40,50,60,70,80,90,100  10، ۰،

     دارای ۴ خط دستور است، ابتدا خط ۱، بعد خط ۲، بعد خط ۳ و در آخر، خط ۴.7080[1020](3040)

\verb!\ali1!\verb!chapter1!
 \doublespacing 

    پانویس\footnote{این یک خط \lr{A4} است و پس 3. بارای 
  و  2 , و  3,4, 5 و  ۴۵  ست و این متنی دیگر است. }

\verb!\include{chapter1}a1! یک متن 

\verb!\include[1]{chapter1}a1! یک متن 

\lr{include\{chapter[1]\}a1}

include[1]{chapter1}a1

{\yasfont  [1030]} [10[20[30[40]50]60]70](10(20(30(40)50)60)70)

  این یک خط A4 است و سپس a3. بارای 
  2, 3,4, 5  ۴۵ 
\begin{verbatim}
hi this is 234 test [asdf 14123]
\end{verbatim}
\begin{LTR}
\begin{verbatim}
hi this is 234 test [asdf 14123]
\end{verbatim}
\end{LTR}

\begin{latin}
\begin{thebibliography}{9}
\bibitem{Gonzalez02book}
Gonzalez, R.C., and Woods, R.E. {\em Digital Image Processing}, 3rd ed.,
Prentice-Hall, Inc., Upper Saddle River, NJ, USA, 2006.
\end{thebibliography}
\end{latin}
\end{document}

Comments

متاسفانه روش فوق در صورت استفاده از گزینه Kashida ممکن است مشکلاتی را به همراه داشته باشد خصوصا آنجایی که عدد به کلمه قبل یا بعد خود بچسبد.

---

من گزینه کشیده را با نسخه 32.0 بسته bidi و نسخه 20.1 بسته xepersian امتحان نکردم. اگر می‌توانید آن را آزمایش کنید و اگر مشکلی وجود داشت در GitHub گزارش کنید.

---

پرسش و پاسخ زیر را ببینید:

http://qa.parsilatex.com/28472