summaryrefslogtreecommitdiff
path: root/Master/texmf-doc/doc/russian/mpman-ru/bm-to-utf16be.awk
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-doc/doc/russian/mpman-ru/bm-to-utf16be.awk')
-rw-r--r--Master/texmf-doc/doc/russian/mpman-ru/bm-to-utf16be.awk29
1 files changed, 0 insertions, 29 deletions
diff --git a/Master/texmf-doc/doc/russian/mpman-ru/bm-to-utf16be.awk b/Master/texmf-doc/doc/russian/mpman-ru/bm-to-utf16be.awk
deleted file mode 100644
index 1b6fc262666..00000000000
--- a/Master/texmf-doc/doc/russian/mpman-ru/bm-to-utf16be.awk
+++ /dev/null
@@ -1,29 +0,0 @@
-function to_utf16be(s) {
- s1="\\376\\377"
- for (i = 1; i <= length(s); i++) {
- k = x[substr(s, i, 1)]
- if (k == 208)
- s1=s1 sprintf("\\004\\%03o", x[substr(s, ++i, 1)] + 128)
- else if (k == 209)
- s1=s1 sprintf("\\004\\%03o", x[substr(s, ++i, 1)] - 64)
- else
- s1=s1 sprintf("\\000\\%03o", k)
- }
- return s1
-}
-
-BEGIN {
- for (i = 0; i < 256; i++) {
- x[sprintf("%c", i)] = i
- }
-}
-
-{
- p=index($0,"}{")
- s1=substr($0,1,p+1)
- s=substr($0,p+2)
- p=index(s,"}")
- s2=substr(s,p)
- s=substr(s,1,p-1)
- print s1 to_utf16be(s) s2
-}