From: fred Date: Wed, 27 Mar 2002 00:35:39 +0000 (+0000) Subject: lilypond-1.3.104 X-Git-Tag: release/1.5.59~987 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cc86bfc6111c2ae389ba43e0cf3a52b288ce4920;p=lilypond.git lilypond-1.3.104 --- diff --git a/debian/ex.doc-base b/debian/ex.doc-base deleted file mode 100644 index 13016d1aad..0000000000 --- a/debian/ex.doc-base +++ /dev/null @@ -1,11 +0,0 @@ -Document: lilypond -Title: LilyPond, the GNU Project music typesetter -Author: Various -Abstract: This documentation describes LilyPond (the GNU Project music - typesetter), its language Mudela, and the Mutopia project, a.k.a. - "Music To the People." -Section: Apps/Music - -Format: info -Index: /usr/share/info/lilypond.info.gz -Files: /usr/share/info/lilypond.info* diff --git a/debian/ex.prerm b/debian/ex.prerm deleted file mode 100644 index 0c665397e0..0000000000 --- a/debian/ex.prerm +++ /dev/null @@ -1,6 +0,0 @@ -#!/bin/sh -set -e - -install-info --quiet --remove /usr/share/info/lilypond.info.gz - -#DEBHELPER# diff --git a/lily/change-translator.cc b/lily/change-translator.cc deleted file mode 100644 index 8b13789179..0000000000 --- a/lily/change-translator.cc +++ /dev/null @@ -1 +0,0 @@ - diff --git a/lily/include/change-translator.hh b/lily/include/change-translator.hh deleted file mode 100644 index 8b13789179..0000000000 --- a/lily/include/change-translator.hh +++ /dev/null @@ -1 +0,0 @@ - diff --git a/lily/staff-bar.cc b/lily/staff-bar.cc deleted file mode 100644 index 8b13789179..0000000000 --- a/lily/staff-bar.cc +++ /dev/null @@ -1 +0,0 @@ - diff --git a/scm/generate-backend-documentation.scm b/scm/generate-backend-documentation.scm deleted file mode 100644 index 70b2f24bba..0000000000 --- a/scm/generate-backend-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 ">" 'post)) - (x2 (regexp-substitute/global #f "<" x1 'pre "<" '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
  • " (symbol->string (car prop)) " (" (type-name (cadr prop)) ") -- " - (caddr prop) - "
    default value: " - (if (pair? handle) - (scm->string (cdr handle)) - "not set" - ) - "\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 - "
    " - "

    Interface: " (symbol->string name) "

    \n" - desc - "
    \n" - ) - )) - -; -; 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)) - ) - (writing-wip outname) - (display - (string-append "LilyPond Element " name " " - "

    " name "

    " - (apply string-append ifacedoc)) - out) - outname - ) - ) - -(define (document-elements elts) - (let* ((files (map (lambda (x) (document-element (car x) (cdr x))) - elts)) - (names (map car elts)) - (outname (string-append "backend.html")) - (out (open-output-file outname)) - (l (map (lambda (x) (string-append "
  • " - (urlfy x))) names)) - ) - (writing-wip outname) - (display - (string-append - "LilyPond backend documentation" - "

    LilyPond backend documentation

    " - "" - ) - out - ) - )) - -; (display (document-interface stem-interface '())) -; (define b (cdr (assoc 'Dyna all-element-descriptions))) -;(display b) - -;(document-element b) - -(document-elements all-element-descriptions) - diff --git a/scm/generate-engraver-documentation.scm b/scm/generate-engraver-documentation.scm deleted file mode 100644 index 9ab114fb6d..0000000000 --- a/scm/generate-engraver-documentation.scm +++ /dev/null @@ -1,179 +0,0 @@ -(eval-string (ly-gulp-file "translator-description.scm")) - -(define (document-trans-property prop-desc) - (string-append "
  • " (car prop-desc) "" - " (" (type-name (cadr prop-desc)) "):" - (caddr prop-desc) - ) - ) - -(define (document-engraver engraver-descr) - - (let* ( - (props (car (cdddr engraver-descr))) - (name (car engraver-descr)) - (desc (cadr engraver-descr)) - (objs (caddr engraver-descr)) - ) - (string-append - "

    " name "

    \n" - desc - "

    " - (if (null? props) - "" - (string-append - "

    Properties

    \n\n") - ) - (if (null? objs) - "" - (string-append - "This engraver creates \n " - (human-listify (map urlfy objs)) - " objects") - ) - ) - ) - ) - - -(define (document-engraver-by-name name) - (let* - ( - (eg (assoc (string->symbol name) engraver-description-alist)) - ) - - (if (eq? eg #f) - (string-append "Engraver " name ", not documented.\n") - (document-engraver (cdr eg)) - ) -)) - -(define (context-doc-string context-desc) - (let* - ( - (name (cdr (assoc 'type-name context-desc))) - (desc-handle (assoc (string->symbol name) context-description-alist)) - (desc (if (pair? desc-handle) (cdr desc-handle) "")) - - (accepts (cdr (assoc 'accepts context-desc))) - (consists (append - (list (cdr (assoc 'group-type context-desc))) - (cdr (assoc 'consists context-desc)) - (cdr (assoc 'end-consists context-desc)) - )) - ) - - (string-append - "

    Context " name "

    \n" - desc - - (if (null? accepts) - "This context is a `bottom' context; it can not contain other contexts." - (string-append - name " can contain \n" - (human-listify (map urlfy accepts)) - )) - "

    This context is built from the following engravers\n" - (apply string-append - (map document-engraver-by-name consists) - ) - ) - ) - ) - - -;; FIXME element ChordNames overwrites context ChordNames. -(define (document-context context-desc) - (let* - ( - (name (cdr (assoc 'type-name context-desc))) - (docstr (context-doc-string context-desc)) - (outname (string-append name ".html")) - (out (open-output-file outname)) - ) - - (writing-wip outname) - (display - (string-append "LilyPond Context " name " " - docstr) - out - ) - outname) - ) - - - -(define (document-paper paper-alist) -; (write paper-alist) - (let* - ( - (names (sort (map car paper-alist) string" (urlfy x))) - names)) - ) - - (display - (string-append - "LilyPond interpretation context documentation" - "

    LilyPond interpretation context documentation

    " - "" - ) - out - ) - ) - ) - -(define (document-engraver-separately desc) - (let* ( - (name (car desc)) - (outname (string-append name ".html")) - (out (open-output-file outname)) - (doc (document-engraver desc)) - ) - - (writing-wip outname) - (display doc out) - outname - )) - -(define (document-all-engravers) - (let* - ( - (descs (map cdr engraver-description-alist)) - (names (map car engraver-description-alist)) - (fnames (map document-engraver-separately descs)) - (outname "engravers.html") - (out (open-output-file outname)) - ) - - (display - (string-append - "All LilyPond engravers" - "

    All LilyPond engravers

    " - "" - ) out) - )) - -; (display (document-engraver 'Stem_engraver)) - - - -;(display (human-listify '("a" "b" "c"))) - -(document-paper (My_lily_parser::paper_description)) -(document-all-engravers)