* this script is too complex. Modularize.
* ly-options: intertext?
- * --linewidth?
+ * --line-width?
* eps in latex / eps by lilypond -b ps?
* check latex parameters, twocolumn, multicolumn?
* use --png --ps --pdf for making images?
(_ ("COMMAND"), 'P', 'process',
_ ("process ly_files using COMMAND FILE...")),
('', '', 'psfonts',
- _ ('''extract all PostScript fonts into INPUT.psfonts for LaTeX
- must use this with dvips -h INPUT.psfonts''')),
+ _ ('''extract all PostScript fonts into INPUT.psfonts for LaTeX
+ must use this with dvips -h INPUT.psfonts''')),
+ ('', '', 'keep-line-breaks',
+ _ ('''do not alter the number of newline characters in output
+ .tex files. Useful when the LaTeX package srcltx is used''')),
('', 'V', 'verbose',
_ ("be verbose")),
('', 'v', 'version',
lilypond_binary = 'lilypond'
psfonts_p = 0
+srcltx_p = 0
use_hash_p = 1
format = 0
output_name = ''
INDENT = 'indent'
LATEX = 'latex'
LAYOUT = 'layout'
-LINEWIDTH = 'linewidth'
+LINE_WIDTH = 'line-width'
NOFRAGMENT = 'nofragment'
NOINDENT = 'noindent'
NOQUOTE = 'noquote'
PREAMBLE = 'preamble'
PRINTFILENAME = 'printfilename'
QUOTE = 'quote'
-RAGGEDRIGHT = 'raggedright'
+RAGGED_RIGHT = 'ragged-right'
RELATIVE = 'relative'
STAFFSIZE = 'staffsize'
TEXIDOC = 'texidoc'
PAPER: {
INDENT: r'''indent = %(indent)s''',
- LINEWIDTH: r'''linewidth = %(linewidth)s''',
+ LINE_WIDTH: r'''line-width = %(line-width)s''',
- QUOTE: r'''linewidth = %(linewidth)s - 2.0 * %(exampleindent)s''',
+ QUOTE: r'''line-width = %(line-width)s - 2.0 * %(exampleindent)s''',
- RAGGEDRIGHT: r'''raggedright = ##t''',
+ RAGGED_RIGHT: r'''ragged-right = ##t''',
PACKED: r'''packed = ##t''',
},
##
LATEX: {
OUTPUT: r'''{%%
-\parindent 0pt
-\catcode`\@=12
-\ifx\preLilyPondExample \undefined
- \relax
-\else
- \preLilyPondExample
-\fi
+\parindent 0pt%%
+\catcode`\@=12%%
+\ifx\preLilyPondExample \undefined%%
+ \relax%%
+\else%%
+ \preLilyPondExample%%
+\fi%%
\def\lilypondbook{}%%
-\input %(base)s-systems.tex
-\ifx\postLilyPondExample \undefined
- \relax
-\else
- \postLilyPondExample
-\fi
+\input %(base)s-systems.tex%%
+\ifx\postLilyPondExample \undefined%%
+ \relax%%
+\else%%
+ \postLilyPondExample%%
+\fi%%
}''',
PRINTFILENAME: '''\\texttt{%(filename)s}
''',
- QUOTE: r'''\begin{quotation}
-%(str)s
-\end{quotation}
-''',
+ QUOTE: r'''\begin{quotation}%(str)s
+\end{quotation}''',
VERBATIM: r'''\noindent
-\begin{verbatim}
-%(verb)s\end{verbatim}
-''',
+\begin{verbatim}%(verb)s\end{verbatim}''',
FILTER: r'''\begin{lilypond}[%(options)s]
%(code)s
},
}
-PREAMBLE_LY = r'''%%%% Generated by %(program_name)s
+PREAMBLE_LY = '''%%%% Generated by %(program_name)s
%%%% Options: [%(option_string)s]
#(set! toplevel-score-handler print-score-with-defaults)
-#(set! toplevel-music-handler (lambda (p m)
- (print-score-with-defaults
- p (scorify-music m p))))
+#(set! toplevel-music-handler
+ (lambda (p m)
+ (if (not (eq? (ly:music-property m \'void) #t))
+ (print-score-with-defaults
+ p (scorify-music m p)))))
#(ly:set-option (quote no-point-and-click))
#(define inside-lilypond-book #t)
%% ****************************************************************
'''
-texinfo_linewidths = {
+texinfo_line_widths = {
'@afourpaper': '160\\mm',
'@afourwide': '6.5\\in',
'@afourlatex': '150\\mm',
def classic_lilypond_book_compatibility (key, value):
if key == 'singleline' and value == None:
- return (RAGGEDRIGHT, None)
+ return (RAGGED_RIGHT, None)
m = re.search ('relative\s*([-0-9])', key)
if m:
if m:
return ('staffsize', m.group (1))
- if key == 'indent' or key == 'linewidth':
+ if key == 'indent' or key == 'line-width':
m = re.match ('([-.0-9]+)(cm|in|mm|pt|staffspace)', value)
if m:
f = float (m.group (1))
option_string)
return []
-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 not default_ly_options.has_key (LINE_WIDTH):
if format == LATEX:
textwidth = get_latex_textwidth (source)
- default_ly_options[LINEWIDTH] = \
+ default_ly_options[LINE_WIDTH] = \
'''%.0f\\pt''' % textwidth
elif format == TEXINFO:
- for (k, v) in texinfo_linewidths.items ():
+ for (k, v) in texinfo_line_widths.items ():
# FIXME: @layout is usually not in
# chunk #0:
#
# source.
# s = chunks[0].replacement_text ()
if re.search (k, source[:1024]):
- default_ly_options[LINEWIDTH] = v
+ default_ly_options[LINE_WIDTH] = v
break
class Chunk:
else:
self.option_dict[i] = None
- has_linewidth = self.option_dict.has_key (LINEWIDTH)
- no_linewidth_value = 0
+ has_line_width = self.option_dict.has_key (LINE_WIDTH)
+ no_line_width_value = 0
- # If LINEWIDTH is used without parameter, set it to default.
- if has_linewidth and self.option_dict[LINEWIDTH] == None:
- no_linewidth_value = 1
- del self.option_dict[LINEWIDTH]
+ # If LINE_WIDTH is used without parameter, set it to default.
+ if has_line_width and self.option_dict[LINE_WIDTH] == None:
+ no_line_width_value = 1
+ del self.option_dict[LINE_WIDTH]
for i in default_ly_options.keys ():
if i not in self.option_dict.keys ():
self.option_dict[i] = default_ly_options[i]
- if not has_linewidth:
+ if not has_line_width:
if type == 'lilypond' or FRAGMENT in self.option_dict.keys ():
- self.option_dict[RAGGEDRIGHT] = None
+ self.option_dict[RAGGED_RIGHT] = None
if type == 'lilypond':
- if LINEWIDTH in self.option_dict.keys ():
- del self.option_dict[LINEWIDTH]
+ if LINE_WIDTH in self.option_dict.keys ():
+ del self.option_dict[LINE_WIDTH]
else:
- if RAGGEDRIGHT in self.option_dict.keys ():
- if LINEWIDTH in self.option_dict.keys ():
- del self.option_dict[LINEWIDTH]
+ if RAGGED_RIGHT in self.option_dict.keys ():
+ if LINE_WIDTH in self.option_dict.keys ():
+ del self.option_dict[LINE_WIDTH]
if QUOTE in self.option_dict.keys () or type == 'lilypond':
- if LINEWIDTH in self.option_dict.keys ():
- del self.option_dict[LINEWIDTH]
+ if LINE_WIDTH in self.option_dict.keys ():
+ del self.option_dict[LINE_WIDTH]
if not INDENT in self.option_dict.keys ():
self.option_dict[INDENT] = '0\\mm'
- # The QUOTE pattern from ly_options only emits the `linewidth'
+ # The QUOTE pattern from ly_options only emits the `line-width'
# keyword.
- if has_linewidth and QUOTE in self.option_dict.keys ():
- if no_linewidth_value:
- del self.option_dict[LINEWIDTH]
+ if has_line_width and QUOTE in self.option_dict.keys ():
+ if no_line_width_value:
+ del self.option_dict[LINE_WIDTH]
else:
del self.option_dict[QUOTE]
# To set @exampleindent locally to zero, we use the @format
# environment for non-quoted snippets.
override[EXAMPLEINDENT] = r'0.4\in'
- override[LINEWIDTH] = texinfo_linewidths['@smallbook']
+ override[LINE_WIDTH] = texinfo_line_widths['@smallbook']
override.update (default_ly_options)
option_list = []
if VERBATIM in self.option_dict:
verb = self.substring ('code')
str += (output[LATEX][VERBATIM] % vars ())
-
+ elif srcltx_p:
+ breaks = self.ly ().count ("\n")
+ str += "".ljust (breaks, "\n").replace ("\n","%\n")
str += (output[LATEX][OUTPUT] % vars ())
if QUOTE in self.option_dict:
str = output[LATEX][QUOTE] % vars ()
class Lilypond_file_snippet (Lilypond_snippet):
def ly (self):
name = self.substring ('filename')
- return '\\renameinput \"%s\"\n%s' \
+ return '\\sourcefilename \"%s\"\n%s' \
% (name, open (find_file (name)).read ())
snippet_type_to_class = {
# UGH
# the --process=CMD switch is a bad idea
# it is too generic for lilypond-book.
- if texstr_names and invokes_lilypond:
+ if texstr_names:
my_system (string.join ([cmd, '--backend texstr',
'snippet-map.ly'] + texstr_names))
for l in texstr_names:
open (file_name, 'w').writelines (lines)
ly.progress ('\n')
+def note_input_file (name, inputs=[]):
+ inputs.append (name)
+ return inputs
+
def do_file (input_filename):
# Ugh.
if not input_filename or input_filename == '-':
+ input_filename)[:-1]
else:
input_fullname = find_file (input_filename)
+
+ note_input_file (input_fullname)
in_handle = open (input_fullname)
if input_filename == '-':
raise Compile_error
def do_options ():
- global format, output_name, psfonts_p
+ global format, output_name, psfonts_p, srcltx_p
global filter_cmd, process_cmd, verbose_p
(sh, long) = ly.getopt_args (option_definitions)
verbose_p = 1
elif o == '--psfonts':
psfonts_p = 1
+ elif o == '--keep-line-breaks':
+ srcltx_p = 1
+ for s in (OUTPUT, QUOTE, VERBATIM):
+ output[LATEX][s] = output[LATEX][s].replace("\n"," ")
elif o == '--warranty' or o == '-w':
if 1 or status:
ly.warranty ()
try:
chunks = do_file (file)
- if psfonts_p and invokes_lilypond ():
+ if psfonts_p:
fontextract.verbose = verbose_p
snippet_chunks = filter (lambda x: is_derived_class (x.__class__,
Lilypond_snippet),
ly.progress (" dvips -h %(psfonts_file)s %(output)s" % vars ())
ly.progress ('\n')
+ inputs = note_input_file ('')
+ inputs.pop ()
+ dep_file = os.path.join (output_name, os.path.splitext (file)[0] + '.dep')
+ final_output_file = os.path.join (output_name,
+ os.path.splitext (os.path.basename (file))[0]
+ + '.%s' % format)
+
+ os.chdir (original_dir)
+ open (dep_file, 'w').write ('%s: %s' % (final_output_file, ' '.join (inputs)))
+
if __name__ == '__main__':
main ()
projects / lilypond.git / blobdiff