diff options
author | Karl Berry <karl@freefriends.org> | 2018-03-19 21:47:57 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-03-19 21:47:57 +0000 |
commit | e9d014b9f582dae216b9085123ce1a17286f2230 (patch) | |
tree | c6e5cdcb7033b654af6c87f07be55adec86b4f42 /Master/texmf-dist/doc/fonts/dad/utf8-to-dad.pl | |
parent | 41dc4d99ad2c865b3bf572e85cb20bc58daaa660 (diff) |
dad (19mar18)
git-svn-id: svn://tug.org/texlive/trunk@47027 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/fonts/dad/utf8-to-dad.pl')
-rwxr-xr-x | Master/texmf-dist/doc/fonts/dad/utf8-to-dad.pl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/Master/texmf-dist/doc/fonts/dad/utf8-to-dad.pl b/Master/texmf-dist/doc/fonts/dad/utf8-to-dad.pl index b9be01ac8c4..e834ea58435 100755 --- a/Master/texmf-dist/doc/fonts/dad/utf8-to-dad.pl +++ b/Master/texmf-dist/doc/fonts/dad/utf8-to-dad.pl @@ -1,4 +1,4 @@ -#!/opt/local/bin/perl +#!/usr/bin/perl use utf8; binmode stdin,":utf8"; binmode stdout,":utf8"; @@ -7,6 +7,12 @@ while (<>) { s/لله/LLh/g; s/لِله/LiLh/g; s/لِّله/L+iLh/g; +s/أ/'a/g; +s/إ/'i/g; +s/ؤ/'u/g; +s/ىٔ/'I/g; +s/هٔ/e/g; +s/آ/'A/g; s/ء/|/g; s/ٱ/A*/g; s/آ/'A/g; @@ -64,6 +70,10 @@ s/ّ/+/g; s/ْ/o/g; s/ٰ/a*/g; s/ٓ/a**/g; +s/،/,/g; +s/؟/?/g; +s/؛/;/g; +tr/٠١٢٣٤٥٦٧٨٩٪/0123456789%/; s//-/g; s/ـ/--/g; s/([tds])h/\1-h/g; |