X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fencoding.scm;h=1868e7600f03b8fefce121ca759e927f2bff05a3;hb=1cda7b7b8219cb97399b8e7b56c1115aaf82c002;hp=9a441ac8816aa8ce1a58a4e84f9823b60fbb66e8;hpb=8cab78caa0db1ba14f2e52e4c1ddbb541ea0e5cb;p=lilypond.git diff --git a/scm/encoding.scm b/scm/encoding.scm index 9a441ac881..1868e7600f 100644 --- a/scm/encoding.scm +++ b/scm/encoding.scm @@ -1,8 +1,19 @@ -;;;; encoding.scm -- font encoding +;;;; This file is part of LilyPond, the GNU music typesetter. ;;;; -;;;; source file of the GNU LilyPond music typesetter +;;;; Copyright (C) 2004--2012 Jan Nieuwenhuizen ;;;; -;;;; (c) 2004--2009 Jan Nieuwenhuizen +;;;; LilyPond is free software: you can redistribute it and/or modify +;;;; it under the terms of the GNU General Public License as published by +;;;; the Free Software Foundation, either version 3 of the License, or +;;;; (at your option) any later version. +;;;; +;;;; LilyPond is distributed in the hope that it will be useful, +;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;;; GNU General Public License for more details. +;;;; +;;;; You should have received a copy of the GNU General Public License +;;;; along with LilyPond. If not, see . (define-public latin1-coding-vector #(.notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef @@ -48,7 +59,7 @@ (define-public (decode-byte-string str) "Return vector of glyphname symbols that correspond to string, -assuming that STR is byte-coded using ENCODING-NAME." +assuming that @var{str} is byte-coded using latin-1 encoding." (let* ((len (string-length str)) (output-vector (make-vector len '.notdef)))