+def warning (s):
+ sys.stderr.write (program_name + ": " + _ ("warning: %s") % s + '\n')
+
+def error (s):
+ sys.stderr.write (program_name + ": " + _ ("error: %s") % s + '\n')
+
+def identify (port=sys.stderr):
+ port.write ('%s (GNU LilyPond) %s\n' % (program_name, program_version))
+
+def warranty ():
+ identify ()
+ sys.stdout.write ('''
+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',
+ version="@TOPLEVEL_VERSION@",
+ description=help_summary)
+
+ 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 ("-s", '--show-rules',
+ help=_ ("show rules [default: --from=0, --to=@TOPLEVEL_VERSION@]"),
+ dest='show_rules',
+ action='store_true', default=False)
+
+ p.add_option ('-t', '--to',
+ help=_ ("convert to VERSION [default: @TOPLEVEL_VERSION@]"),
+ metavar=_ ('VERSION'),
+ action='store',
+ dest="to_version",
+ default='')
+
+ p.add_option_group ('bugs',
+ description=(_ ("Report bugs via")
+ + ''' http://post.gmane.org/post.php'''
+ '''?group=gmane.comp.gnu.lilypond.bugs\n'''))
+
+ return p
+
+