Embed LilyPond source files inside generated PDF

lily/sources.cc

 /*
   This file is part of LilyPond, the GNU music typesetter.
 
   Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
   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.
 
@@ skipping 70 matching lines @@
 Sources::~Sources ()
 {
   for (vsize i = 0; i < sourcefiles_.size (); i++)
     {
       sourcefiles_[i]->unprotect ();
     }
 }
 
 #include "lily-parser.hh"
 #include "lily-lexer.hh"
+#include "lily-imports.hh"
+#include "fluid.hh"
 
-LY_DEFINE (ly_source_files, "ly:source-files", 1, 0, 0,
+LY_DEFINE (ly_source_files, "ly:source-files", 0, 1, 0,
            (SCM parser_smob),

[dak, 2016/02/28 14:09:51]

Maybe make the parser_smob argument optional?  It can be deduced via the %parser
fluid in the same manner a number of other functions do.

[Valentin Villenave, 2016/02/28 19:15:03]

Done.

-           "A list of LilyPond files being processed by PARSER.")
+           "A list of LilyPond files being processed;"
+           "a PARSER may optionally be specified.")
 {
-  LY_ASSERT_SMOB (Lily_parser, parser_smob, 1);
-  Lily_parser *parser = unsmob<Lily_parser> (parser_smob);
+
+  if (SCM_UNBNDP (parser_smob))
+    parser_smob = scm_fluid_ref (Lily::f_parser);
+  Lily_parser *parser = LY_ASSERT_SMOB (Lily_parser, parser_smob, 1);
   Includable_lexer *lex = parser->lexer_;
 
   SCM lst = SCM_EOL;
   for (vector<string>::const_iterator
        i = lex->file_name_strings_.begin();
        i != lex->file_name_strings_.end(); ++i)
        {
          lst = scm_cons (ly_string2scm (*i), lst);
        }
-  return scm_reverse (lst);

[dak, 2016/02/28 14:09:51]

I'd use scm_reverse_x (lst, SCM_EOL) here since you built the list completely
yourself, so there is no point in copying it for reversal.

[Valentin Villenave, 2016/02/28 19:15:03]

Done.

+  return scm_reverse_x (lst, SCM_EOL);
 }