From 9fc7987c73f883f7274e695b350eb20df7a0669c Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 5 Apr 2004 21:12:59 +0000
Subject: [PATCH] New file.

---
 scm/encoding.scm | 66 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)
 create mode 100644 scm/encoding.scm

diff --git a/scm/encoding.scm b/scm/encoding.scm
new file mode 100644
index 0000000000..6373e116b7
--- /dev/null
+++ b/scm/encoding.scm
@@ -0,0 +1,66 @@
+;;;; encoding.scm -- font encoding
+;;;;
+;;;;  source file of the GNU LilyPond music typesetter
+;;;; 
+;;;; (c) 2004 Jan Nieuwenhuizen <janneke@gnu.org>
+
+;; WIP
+;; cp /usr/share/texmf/dvips/tetex/*.enc mf/out
+;; encoding.ly:
+;;#(format (current-error-port) "a:~S\n"
+;;  (encoded-index "TeX text" "TeX text" 65))
+;;
+;;#(format (current-error-port) "b:~S\n"
+;;  (encoded-index "TeX text" "TeX extended ASCII" 176))
+
+(define coding-file-alist
+  ;; teTeX
+  '(("TeX typewriter text" . "09fbbfac.enc") ;; cmtt10
+    ("TeX math symbols" . "10037936.enc") ;; cmbsy
+    ("ASCII caps and digits" . "1b6d048e") ;; cminch
+    ("TeX math italic" . "aae443f0.enc")  ;; cmmi10
+    ("TeX extended ASCII" . "d9b29452.enc")
+    ("TeX text" . "f7b6d320.enc")
+    ("TeX text without f-ligatures" . "0ef0afca.enc")
+    ("Extended TeX Font Encoding - Latin" . "tex256.enc")
+    
+    ;; LilyPond.
+    ("feta braces" . "feta-braces0.enc")
+    ("feta number" . "feta-nummer10.enc")
+    ("feta music" . "feta20.enc")
+    ("parmesan music" . "parmesan20.enc")))
+
+(define encoding-alist '())
+
+(define (read-coding-file coding)
+  (let* ((string (ly:gulp-file (assoc-get coding coding-file-alist)))
+	 ;;(string (ly:gulp-file "f7b6d320.enc"))
+	 (start (string-index string #\[))
+	 (end (string-index string #\]))
+	 (ps-lst (string-tokenize (substring string (+ start 1) end)))
+	 (lst (map (lambda (x) (substring x 1)) ps-lst))
+	 (vector (list->vector lst))
+	 (table (make-hash-table 256)))
+    (do ((i 0 (+ i 1)))
+	((>= i 256))
+      (hash-create-handle! table (vector-ref vector i) i))
+    (let ((entry (cons coding (cons vector table))))
+      (set! encoding-alist (append (list entry) encoding-alist))
+      (cdr entry))))
+
+(define (get-coding-table coding)
+  (let ((entry (assoc-get coding encoding-alist #f)))
+    (if entry (cdr entry)
+	(cdr (read-coding-file coding)))))
+
+(define (get-coding-vector coding)
+  (let ((entry (assoc-get coding encoding-alist #f)))
+    (if entry (car entry)
+	(car (read-coding-file coding)))))
+
+(define-public (encoded-index font-coding input-coding code)
+  (let* ((font (get-coding-table font-coding))
+	 (in (get-coding-vector input-coding))
+	 (char (vector-ref in code)))
+    (hash-ref font char)))
+
-- 
2.39.2