summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/fonts/dad/utf8-to-dad.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/fonts/dad/utf8-to-dad.pl')
-rwxr-xr-xMaster/texmf-dist/doc/fonts/dad/utf8-to-dad.pl12
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;