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.pl72
1 files changed, 72 insertions, 0 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
new file mode 100755
index 00000000000..b9be01ac8c4
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/dad/utf8-to-dad.pl
@@ -0,0 +1,72 @@
+#!/opt/local/bin/perl
+use utf8;
+binmode stdin,":utf8";
+binmode stdout,":utf8";
+
+while (<>) {
+s/لله/LLh/g;
+s/لِله/LiLh/g;
+s/لِّله/L+iLh/g;
+s/ء/|/g;
+s/ٱ/A*/g;
+s/آ/'A/g;
+s/أ/'a/g;
+s/ؤ/'u/g;
+s/إ/'i/g;
+s/ئ/'I/g;
+s/ا/A/g;
+s/ب/b/g;
+s/ة/t*/g;
+s/ت/t/g;
+s/ث/c/g;
+s/ج/j/g;
+s/ح/H/g;
+s/خ/x/g;
+s/د/d/g;
+s/ذ/d•/g;
+s/ر/r/g;
+s/ز/z/g;
+s/س/s/g;
+s/ش/s•/g;
+s/ص/S/g;
+s/ض/D/g;
+s/ط/T/g;
+s/ظ/Z/g;
+s/ع/`/g;
+s/غ/R/g;
+s/ف/f/g;
+s/ق/q/g;
+s/ك/k/g;
+s/ل/l/g;
+s/م/m/g;
+s/ن/n/g;
+s/ه/h/g;
+s/و/U/g;
+s/ى/I/g;
+s/ي/Y/g;
+s/پ/p/g;
+s/گ/g/g;
+s/چ/C/g;
+s/ۀ/e/g;
+s/ژ/J/g;
+s/ڤ/v/g;
+s/ٮ/'b/g;
+s/ں/'n/g;
+s/ڡ/'f/g;
+s/ٯ/'q/g;
+s/ً/aN/g;
+s/ٌ/uN/g;
+s/ٍ/iN/g;
+s/َ/a/g;
+s/ُ/u/g;
+s/ِ/i/g;
+s/ّ/+/g;
+s/ْ/o/g;
+s/ٰ/a*/g;
+s/ٓ/a**/g;
+s/‍/-/g;
+s/ـ/--/g;
+s/([tds])h/\1-h/g;
+s/•/h/g;
+print;
+} \ No newline at end of file