+error_file_write = ly.stderr_write
+
+def warning (s):
+ ly.stderr_write (program_name + ": " + _ ("warning: %s") % s + '\n')
+
+def error (s):
+ ly.stderr_write (program_name + ": " + _ ("error: %s") % s + '\n')
+
+def identify (port=sys.stderr):
+ ly.encoded_write (port, '%s (GNU LilyPond) %s\n' % (program_name, program_version))
+
+def warranty ():
+ identify ()
+ ly.encoded_write (sys.stdout, '''
+Copyright (c) %s by
+
+ Han-Wen Nienhuys
+ Jan Nieuwenhuizen
+
+%s
+%s
+''' ( '2001--2006',
+ _ ("Distributed under terms of the GNU General Public License."),
+ _ ('It comes with NO WARRANTY.')))
+
+
+def get_option_parser ():
+ p = ly.get_option_parser (usage=_ ("%s [OPTION]... FILE") % 'convert-ly',
+ description=help_summary,
+ add_help_option=False)
+
+ p.version="@TOPLEVEL_VERSION@"
+ p.add_option("--version",
+ action="version",
+ help=_ ("show version number and exit"))
+
+ p.add_option("-h", "--help",
+ action="help",
+ help=_ ("show this help and exit"))
+
+ p.add_option ('-f', '--from',
+ action="store",
+ metavar=_ ("VERSION"),
+ dest="from_version",
+ help=_ ("start from VERSION [default: \\version found in file]"),
+ default='')
+
+ p.add_option ('-e', '--edit', help=_ ("edit in place"),
+ action='store_true')
+
+ p.add_option ('-n', '--no-version',
+ help=_ ("do not add \\version command if missing"),
+ action='store_true',
+ dest='skip_version_add',
+ default=False)
+
+ p.add_option ('-c', '--current-version',
+ help=_ ("force updating \\version number to %s") % program_version,
+ action='store_true',
+ dest='force_current_version',
+ default=False)
+
+ p.add_option ("-s", '--show-rules',
+ help=_ ("show rules [default: -f 0, -t %s]") % program_version,
+ dest='show_rules',
+ action='store_true', default=False)
+
+ p.add_option ('-t', '--to',
+ help=_ ("convert to VERSION [default: %s]") % program_version,
+ metavar=_ ('VERSION'),
+ action='store',
+ dest="to_version",
+ default='')
+
+ p.add_option_group ('',
+ description=(_ ("Report bugs via")
+ + ''' http://post.gmane.org/post.php'''
+ '''?group=gmane.comp.gnu.lilypond.bugs\n'''))
+
+ return p
+
+
+
+def str_to_tuple (s):
+ return tuple ([int(n) for n in s.split ('.')])
+
+def tup_to_str (t):
+ return '.'.join (['%s' % x for x in t])
+
+def version_cmp (t1, t2):
+ for x in [0, 1, 2]:
+ if t1[x] - t2[x]:
+ return t1[x] - t2[x]
+ return 0
+
+def get_conversions (from_version, to_version):
+ def is_applicable (v, f = from_version, t = to_version):
+ return version_cmp (v[0], f) > 0 and version_cmp (v[0], t) <= 0
+ return filter (is_applicable, convertrules.conversions)
+
+def latest_version ():
+ return convertrules.conversions[-1][0]
+
+def show_rules (file, from_version, to_version):
+ for x in convertrules.conversions:
+ if (not from_version or x[0] > from_version) \
+ and (not to_version or x[0] <= to_version):
+ ly.encoded_write (file, '%s: %s\n' % (tup_to_str (x[0]), x[2]))
+
+def do_conversion (str, from_version, to_version):
+ """Apply conversions from FROM_VERSION to TO_VERSION. Return
+tuple (LAST,STR), with the last succesful conversion and the resulting
+string."""
+ conv_list = get_conversions (from_version, to_version)
+
+ error_file_write (_ ("Applying conversion: "))
+
+ last_conversion = ()
+ try:
+ for x in conv_list:
+ error_file_write (tup_to_str (x[0]))
+ if x != conv_list[-1]:
+ error_file_write (', ')
+ str = x[1] (str)
+ last_conversion = x[0]
+
+ except convertrules.FatalConversionError:
+ error_file_write ('\n'
+ + _ ("Error while converting")
+ + '\n'
+ + _ ("Stopping at last successful rule")
+ + '\n')
+
+ return (last_conversion, str)
+
+
+
+def guess_lilypond_version (input):
+ m = lilypond_version_re.search (input)
+ if m:
+ return m.group (1)
+ else:
+ return ''