X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Flilypond-book.py;h=d349c29bc3e46fd1497ba820f2ee27ac2810c60c;hb=f4beff9cdba290efe94de240e38a5f2ec19c8388;hp=8dfaa411dfd1246c0dee93d9e3a47447e9331479;hpb=1473398a2ccb95b30eb7fb720e9f7a9286daba17;p=lilypond.git diff --git a/scripts/lilypond-book.py b/scripts/lilypond-book.py index 8dfaa411df..d349c29bc3 100644 --- a/scripts/lilypond-book.py +++ b/scripts/lilypond-book.py @@ -13,6 +13,9 @@ classic lilypond-book: lilypond-book --process="lilypond" BOOK.tely TODO: + + * this script is too complex. Modularize. + * ly-options: intertext? * --linewidth? * eps in latex / eps by lilypond -b ps? @@ -29,14 +32,14 @@ import __main__ import glob import stat import string +import tempfile +import commands # Users of python modules should include this snippet # and customize variables below. # We'll suffer this path initialization stuff as long as we don't install -# our python packages in /lib/pythonX.Y (and don't kludge around -# it as we do with teTeX on Red Hat Linux: set some environment variables -# (PYTHONPATH) in `etc/profile'). +# our python packages in /lib/pythonX.Y # If set, LILYPONDPREFIX must take prevalence. # if datadir is not set, we're doing a build and LILYPONDPREFIX. @@ -48,7 +51,9 @@ if os.environ.has_key ('LILYPONDPREFIX'): datadir = os.environ['LILYPONDPREFIX'] while datadir[-1] == os.sep: datadir= datadir[:-1] - + + datadir = os.path.join (datadir, "share/lilypond/current/") + sys.path.insert (0, os.path.join (datadir, 'python')) # Customize these. @@ -93,9 +98,9 @@ option_definitions = [ _ ("write output to DIR")), (_ ("COMMAND"), 'P', 'process', _ ("process ly_files using COMMAND FILE...")), - (_('FILE'), '', 'psfonts', - _ ('''extract all PostScript fonts into FILE for LaTeX - must use this with dvips -h FILE''')), + ('', '', 'psfonts', + _ ('''extract all PostScript fonts into INPUT.psfonts for LaTeX + must use this with dvips -h INPUT.psfonts''')), ('', 'V', 'verbose', _ ("be verbose")), ('', 'v', 'version', @@ -104,18 +109,17 @@ option_definitions = [ _ ("show warranty and copyright")), ] -include_path = [ly.abspath (os.getcwd ())] +include_path = [os.path.abspath (os.getcwd ())] lilypond_binary = os.path.join ('@bindir@', 'lilypond') # Only use installed binary when we are installed too. if '@bindir@' == ('@' + 'bindir@') or not os.path.exists (lilypond_binary): lilypond_binary = 'lilypond' -psfonts_file = '' +psfonts_p = 0 use_hash_p = 1 format = 0 output_name = '' -latex_filter_cmd = 'latex "\\nonstopmode \input /dev/stdin"' filter_cmd = 0 process_cmd = '' default_ly_options = { 'alt': "[image of music]" } @@ -549,18 +553,24 @@ output = { PREAMBLE_LY = r'''%%%% Generated by %(program_name)s %%%% Options: [%(option_string)s] -#(set! toplevel-score-handler ly:parser-print-score) +#(set! toplevel-score-handler print-score-with-defaults) #(set! toplevel-music-handler (lambda (p m) - (ly:parser-print-score - p (ly:music-scorify m p)))) + (print-score-with-defaults + p (scorify-music m p)))) +#(ly:set-option (quote no-point-and-click)) +#(define inside-lilypond-book #t) #(define version-seen? #t) %(preamble_string)s -%% ******************************** + + + + +%% **************************************************************** %% Start cut-&-pastable-section -%% ******************************** +%% **************************************************************** \paper { #(define dump-extents #t) @@ -576,16 +586,32 @@ PREAMBLE_LY = r'''%%%% Generated by %(program_name)s FRAGMENT_LY = r''' %(notes_string)s { + + +%% **************************************************************** %% ly snippet contents follows: +%% **************************************************************** %(code)s + + +%% **************************************************************** %% end ly snippet +%% **************************************************************** } ''' FULL_LY = ''' + + +%% **************************************************************** %% ly snippet: +%% **************************************************************** %(code)s + + +%% **************************************************************** %% end ly snippet +%% **************************************************************** ''' texinfo_linewidths = { @@ -650,6 +676,27 @@ def split_options (option_string): def invokes_lilypond (): return re.search ('^[\'\"0-9A-Za-z/]*lilypond', process_cmd) +def set_default_options (source): + global default_ly_options + if not default_ly_options.has_key (LINEWIDTH): + if format == LATEX: + textwidth = get_latex_textwidth (source) + default_ly_options[LINEWIDTH] = \ + '''%.0f\\pt''' % textwidth + elif format == TEXINFO: + for (k, v) in texinfo_linewidths.items (): + # FIXME: @layout is usually not in + # chunk #0: + # + # \input texinfo @c -*-texinfo-*- + # + # Bluntly search first K items of + # source. + # s = chunks[0].replacement_text () + if re.search (k, source[:1024]): + default_ly_options[LINEWIDTH] = v + break + class Chunk: def replacement_text (self): return '' @@ -669,9 +716,13 @@ class Substring (Chunk): self.start = start self.end = end self.line_number = line_number + self.override_text = None def replacement_text (self): - return self.source[self.start:self.end] + if self.override_text: + return self.override_text + else: + return self.source[self.start:self.end] class Snippet (Chunk): def __init__ (self, type, match, format, line_number): @@ -929,9 +980,20 @@ class Lilypond_snippet (Snippet): base = self.basename () ok = self.ly_is_outdated () if format == HTML or format == TEXINFO: - ok = ok and (os.path.exists (base + '.png') - or glob.glob (base + '-page*.png')) + ok = ok and os.path.exists (base + '.eps') + + page_count = 0 + if ok: + page_count = ly.ps_page_count (base + '.eps') + + if page_count == 1: + ok = ok and os.path.exists (base + '.png') + elif page_count > 1: + for a in range (1, page_count + 1): + ok = ok and os.path.exists (base + '-page%d.png' % a) + return not ok + def texstr_is_outdated (self): if backend == 'ps': return 0 @@ -965,7 +1027,9 @@ class Lilypond_snippet (Snippet): and (not os.path.exists (single) \ or (os.stat (multiple)[stat.ST_MTIME] \ > os.stat (single)[stat.ST_MTIME])): - images = glob.glob ('%(base)s-page*.png' % vars ()) + count = ly.ps_page_count ('%(base)s.eps' % vars ()) + images = ['%s-page%d.png' % (base, a) for a in range (1, count+1)] + images = tuple (images) return images def output_html (self): @@ -1010,10 +1074,10 @@ class Lilypond_snippet (Snippet): if VERBATIM in self.option_dict: verb = self.substring ('code') str += (output[LATEX][VERBATIM] % vars ()) - if QUOTE in self.option_dict: - str = output[LATEX][QUOTE] % vars () str += (output[LATEX][OUTPUT] % vars ()) + if QUOTE in self.option_dict: + str = output[LATEX][QUOTE] % vars () return str def output_print_filename (self, format): @@ -1238,7 +1302,8 @@ def process_snippets (cmd, ly_snippets, texstr_snippets, png_snippets): if ly_names: my_system (string.join ([cmd, 'snippet-map.ly'] + ly_names)) -LATEX_DOCUMENT = r''' +LATEX_INSPECTION_DOCUMENT = r''' +\nonstopmode %(preamble)s \begin{document} \typeout{textwidth=\the\textwidth} @@ -1251,8 +1316,16 @@ LATEX_DOCUMENT = r''' def get_latex_textwidth (source): m = re.search (r'''(?P\\begin\s*{document})''', source) preamble = source[:m.start (0)] - latex_document = LATEX_DOCUMENT % vars () - parameter_string = filter_pipe (latex_document, latex_filter_cmd) + latex_document = LATEX_INSPECTION_DOCUMENT % vars () + # Workaround problems with unusable $TMP on Cygwin: + tempfile.tempdir = '' + tmpfile = tempfile.mktemp('.tex') + logfile = os.path.splitext (tmpfile)[0] + '.log' + open (tmpfile,'w').write (latex_document) + ly.system ('latex %s' % tmpfile) + parameter_string = open (logfile).read() + os.unlink (tmpfile) + os.unlink (logfile) columns = 0 m = re.search ('columns=([0-9.]*)', parameter_string) @@ -1273,6 +1346,18 @@ def get_latex_textwidth (source): return textwidth +def modify_preamble (chunk): + str = chunk.replacement_text () + if (re.search (r"\\begin{document}", str) + and not re.search ("{graphic[sx]", str)): + str = re.sub (r"\\begin{document}", + r"\\RequirePackage{graphics}" + '\n' + + r"\\begin{document}", + str) + chunk.override_text = str + + + ext2format = { '.html': HTML, '.itely': TEXINFO, @@ -1380,7 +1465,7 @@ def do_file (input_filename): else: if os.path.exists (input_filename): input_fullname = input_filename - elif format == LATEX: + elif format == LATEX and ly.search_exe_path ('kpsewhich'): # urg python interface to libkpathsea? input_fullname = ly.read_pipe ('kpsewhich ' + input_filename)[:-1] @@ -1399,24 +1484,28 @@ def do_file (input_filename): output_filename = '-' output_file = sys.stdout else: + # don't complain when output_name is existing + output_filename = input_base + format2ext[format] if output_name: if not os.path.isdir (output_name): os.mkdir (output_name, 0777) os.chdir (output_name) - - output_filename = input_base + format2ext[format] - if os.path.exists (input_filename) \ - and os.path.exists (output_filename) \ - and os.path.samefile (output_filename, input_fullname): - ly.error ( - _ ("Output would overwrite input file; use --output.")) - ly.exit (2) + else: + if os.path.exists (input_filename) \ + and os.path.exists (output_filename) \ + and os.path.samefile (output_filename, input_fullname): + ly.error ( + _ ("Output would overwrite input file; use --output.")) + ly.exit (2) try: ly.progress (_ ("Reading %s...") % input_fullname) source = in_handle.read () ly.progress ('\n') + set_default_options (source) + + # FIXME: Containing blocks must be first, see # find_toplevel_snippets. snippet_types = ( @@ -1431,28 +1520,12 @@ def do_file (input_filename): ) ly.progress (_ ("Dissecting...")) chunks = find_toplevel_snippets (source, snippet_types) - ly.progress ('\n') - global default_ly_options - textwidth = 0 - if not default_ly_options.has_key (LINEWIDTH): - if format == LATEX: - textwidth = get_latex_textwidth (source) - default_ly_options[LINEWIDTH] = \ - '''%.0f\\pt''' % textwidth - elif format == TEXINFO: - for (k, v) in texinfo_linewidths.items (): - # FIXME: @layout is usually not in - # chunk #0: - # - # \input texinfo @c -*-texinfo-*- - # - # Bluntly search first K items of - # source. - # s = chunks[0].replacement_text () - if re.search (k, source[:1024]): - default_ly_options[LINEWIDTH] = v - break + if format == LATEX: + modify_preamble (chunks[0]) + + + ly.progress ('\n') if filter_cmd: write_if_updated (output_filename, @@ -1487,7 +1560,7 @@ def do_file (input_filename): raise Compile_error def do_options (): - global format, output_name, psfonts_file + global format, output_name, psfonts_p global filter_cmd, process_cmd, verbose_p (sh, long) = ly.getopt_args (option_definitions) @@ -1520,7 +1593,7 @@ def do_options (): sys.exit (0) elif o == '--include' or o == '-I': include_path.append (os.path.join (original_dir, - ly.abspath (a))) + os.path.abspath (a))) elif o == '--output' or o == '-o': output_name = a elif o == '--process' or o == '-P': @@ -1532,7 +1605,7 @@ def do_options (): elif o == '--verbose' or o == '-V': verbose_p = 1 elif o == '--psfonts': - psfonts_file = a + psfonts_p = 1 elif o == '--warranty' or o == '-w': if 1 or status: ly.warranty () @@ -1546,6 +1619,10 @@ def main (): ly.exit (2) file = files[0] + + basename = os.path.splitext (file)[0] + basename = os.path.split (basename)[1] + global process_cmd, format if not format: format = guess_format (files[0]) @@ -1558,19 +1635,20 @@ def main (): + ' --formats=%s --backend eps ' % formats if process_cmd: - process_cmd += string.join ([(' -I %s' % p) + process_cmd += string.join ([(' -I %s' % commands.mkarg (p)) for p in include_path]) ly.identify (sys.stderr) - ly.setup_environment () try: chunks = do_file (file) - if psfonts_file and invokes_lilypond (): + if psfonts_p and invokes_lilypond (): fontextract.verbose = verbose_p snippet_chunks = filter (lambda x: is_derived_class (x.__class__, Lilypond_snippet), chunks) + + psfonts_file = basename + '.psfonts' if not verbose_p: ly.progress (_ ("Writing fonts to %s...") % psfonts_file) fontextract.extract_fonts (psfonts_file, @@ -1583,20 +1661,17 @@ def main (): ly.exit (1) if format == TEXINFO or format == LATEX: - psfonts = 'PSFONTS-FILE' - if not psfonts_file: - ly.warning (_ ("option --psfonts=FILE not used")) + if not psfonts_p: + ly.warning (_ ("option --psfonts not used")) ly.warning (_ ("processing with dvips will have no fonts")) - else: - psfonts = os.path.join (output_name, psfonts_file) - - output = os.path.join (output_name, - os.path.splitext (os.path.basename - (file))[0]) + '.dvi' + + psfonts_file = os.path.join (output_name, basename + '.psfonts') + output = os.path.join (output_name, basename + '.dvi' ) + ly.progress ('\n') ly.progress (_ ("DVIPS usage:")) ly.progress ('\n') - ly.progress (" dvips -h %(psfonts)s %(output)s" % vars ()) + ly.progress (" dvips -h %(psfonts_file)s %(output)s" % vars ()) ly.progress ('\n') if __name__ == '__main__':