diff options
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 | 72 |
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 |