Gets vertical skylines from grob stencils

lily/main.cc

 /*
   This file is part of LilyPond, the GNU music typesetter.
 
   Copyright (C) 1997--2012 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 36 matching lines @@
 #include "global-ctor.hh"
 #include "international.hh"
 #include "lily-version.hh"
 #include "misc.hh"
 #include "output-def.hh"
 #include "program-option.hh"
 #include "relocate.hh"
 #include "string-convert.hh"
 #include "version.hh"
 #include "warn.hh"
-
-/*
- * Global options that can be overridden through command line.
- */
-
-/* Names of header fields to be dumped to a separate file. */
-vector<string> dump_header_fieldnames_global;
-
-/* Name of initialisation file. */
-string init_name_global;
-
-/* Output formats to generate.  */
-string output_format_global = "";
-
-/* Current output name. */
-string output_name_global;
-
-/* Run in safe mode? */
-bool be_safe_global = false;
-
-/* Scheme code to execute before parsing, after .scm init.
-   This is where -e arguments are appended to.  */
-string init_scheme_code_global;
-string init_scheme_variables_global;
-
-bool relocate_binary = true;
-
-/*
- * Miscellaneous global stuff.
- */
-File_path global_path;
 
 /*
  * File globals.
  */
 
 static char const *AUTHORS
   = "  Han-Wen Nienhuys <hanwen@xs4all.nl>\n"
     "  Jan Nieuwenhuizen <janneke@gnu.org>\n";
 
 static char const *PROGRAM_NAME = "lilypond";
@@ skipping 14 matching lines @@
         "    This program is distributed in the hope that it will be useful,\n"
         "but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
         "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU\n"
         "General Public License for more details.\n"
         "\n"
         "    You should have received a copy of the\n"
         "GNU General Public License along with this program; if not, write to\n"
         "the Free Software Foundation, Inc., 59 Temple Place - Suite 330,\n"
         "Boston, MA 02111-1307, USA.\n");
 
-/* Where the init files live.  Typically:
-   LILYPOND_DATADIR = /usr/share/lilypond
-*/
-string lilypond_datadir;
-
 /* The jail specification: USER, GROUP, JAIL, DIR. */
-string jail_spec;
+static string jail_spec;
 
 /*  The option parser */
 static Getopt_long *option_parser = 0;
 
 /* Internationalisation kludge in two steps:
  * use _i () to get entry in POT file
  * call gettext () explicitly for actual "translation"  */
 
 static Long_option_init options_static[]
 =
@@ skipping 459 matching lines @@
   sane_putenv ("GUILE_MIN_YIELD_1", yield, overwrite);
   sane_putenv ("GUILE_MIN_YIELD_2", yield, overwrite);
   sane_putenv ("GUILE_MIN_YIELD_MALLOC", yield, overwrite);
 
   sane_putenv ("GUILE_INIT_SEGMENT_SIZE_1",
                "10485760", overwrite);
   sane_putenv ("GUILE_MAX_SEGMENT_SIZE",
                "104857600", overwrite);
 }
 
-vector<string> start_environment_global;
-
 int
 main (int argc, char **argv, char **envp)
 {
   configure_fpu ();
 
   for (char **p = envp; *p; p++)
     start_environment_global.push_back (*p);
 
   if (getenv ("LILYPOND_VERBOSE"))
     set_loglevel (LOGLEVEL_DEBUG);
@@ skipping 18 matching lines @@
     {
       error (_f ("exception caught: %s", e.what ()));
     };
 #else
   scm_boot_guile (argc, argv, main_with_guile, 0);
 #endif
 
   /* Only reachable if GUILE exits.  That is an error.  */
   return 1;
 }