From 539f8d8efccf3beb4e212de1e3b10bfe737c6f53 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 27 Mar 2002 00:32:37 +0000
Subject: [PATCH] lilypond-1.3.102

---
 mf/feta-din16.mf               |   9 ---
 scm/generate-documentation.scm | 131 ---------------------------------
 2 files changed, 140 deletions(-)
 delete mode 100644 mf/feta-din16.mf
 delete mode 100644 scm/generate-documentation.scm

diff --git a/mf/feta-din16.mf b/mf/feta-din16.mf
deleted file mode 100644
index 451de0882d..0000000000
--- a/mf/feta-din16.mf
+++ /dev/null
@@ -1,9 +0,0 @@
-% feta-din16.mf
-% part of LilyPond's pretty-but-neat music font
-
-design_size:=16;
-
-input feta-din;
-
-end.
-
diff --git a/scm/generate-documentation.scm b/scm/generate-documentation.scm
deleted file mode 100644
index a2f445ac78..0000000000
--- a/scm/generate-documentation.scm
+++ /dev/null
@@ -1,131 +0,0 @@
-
-;;;; 
-;
-; This file generates documentation for the backend of lilypond.
-;
-;;;;
-
-
-(define (uniqued-alist  alist acc)
-  (if (null? alist) acc
-      (if (assoc (caar alist) acc)
-	  (uniqued-alist (cdr alist) acc)
-	  (uniqued-alist (cdr alist) (cons (car alist) acc)
-  ))))
-
-;;; TODO
-
-(define (wordwrap string)
-  ""
-  )
-  
-(define (self-evaluating? x)
-  (or (number? x) (string? x) (procedure? x) (boolean? x))
-  )
-
-
-(define (htmlfy x)
-  (let*
-      ((x1 (regexp-substitute/global #f ">" x 'pre "&gt;" 'post))
-       (x2 (regexp-substitute/global #f "<" x1 'pre "&lt;" 'post))
-       )
-    x2))
-
-(define (scm->string val)
-  (string-append
-   (if (self-evaluating? val) "" "'")
-   (htmlfy 
-    (call-with-output-string (lambda (port) (display val port))))
-  ))
-
-(define (document-property prop desc)
-  (let ((handle (assoc (car prop) desc)))
-    (string-append
-     "\n<li><code>" (symbol->string (car prop)) "</code> (" (type-name (cadr prop)) ") -- "
-     (caddr prop)
-     "<br>default value:  <code>"
-     (if (pair? handle)
-	 (scm->string (cdr handle))
-	 "not set"
-	 )
-     "</code>\n"
-  )
-  ))
-
-(define (document-interface interface elt-description)
-  (let* ((name (car interface))
-	 (desc (cadr interface))
-	 (props (caddr interface))
-	 (docs (map (lambda (x) (document-property x elt-description))
-		    props))
-	 )
-
-    (string-append
-     "<hr>"
-     "<h2>Interface: " (symbol->string name) "</h2>\n"
-     desc
-     "<hr>\n<ul>"
-     (apply string-append docs)
-     "</ul>"
-     )
-    ))
-
-;
-; generate HTML, return filename.
-;
-(define (document-element iname description)
-  (display (string-append "Processing " iname " ... ") (current-error-port))
-  (let* ((metah (assoc 'meta description))
-	 
-	 (meta (if (pair? metah)
-		   (cdr metah)
-		   '((properties . ()) (name . "huh?"))
-		   ))
-	 
-	 (name (cdr (assoc 'name meta)))
-	 (ifaces (cdr (assoc 'interface-descriptions meta)))
-	 (ifacedoc (map (lambda (x) (document-interface x description))
-				(reverse ifaces)))
-	 (outname  (string-append name ".html"))
-	 (out (open-output-file outname))
-	 )
-    (display (string-append "Writing " outname " ... \n") (current-error-port))
-    (display
-     (string-append "<title>LilyPond Element " name " </title>"
-		    "<h1>" name "</h1>"
-		    (apply string-append ifacedoc))
-     out)
-    outname
-    )
-  )
-
-(define (document-elements elts)
-  (let* ((files (map (lambda (x) (document-element (car x) (cdr x)))
-		    elts))
-	(outname  (string-append "backend.html"))
-	(out (open-output-file outname))
-	(l (map (lambda (x) (string-append
-			     "<li><a href=" x ">" x "</a>\n"))
-		files))
-	)
-
-	(display
-	 (string-append
-	  "<title>LilyPond backend documentation</title>"
-	  "<h1>LilyPond backend documentation</h1>"
-	  "<ul>"
-	  (apply string-append l)
-	  "</ul>"
-	)
-	 out
-	 )
-   ))
-
-; (display (document-interface stem-interface '()))
-; (define b (cdr (assoc 'Dyna all-element-descriptions)))
-;(display b)
-
-;(document-element  b)
-
-(document-elements all-element-descriptions)
-
-- 
2.39.5