(local-uninstall): remove

[lilypond.git] / cygwin / lily-wins.py

diff --git a/cygwin/lily-wins.py b/cygwin/lily-wins.py
index 5612b0b6b03091832db4f74cd22adbf2cc794df7..fe7fe3aa67741790490cbf3c4e7e4d5bd0d5bb4c 100644 (file)
--- a/cygwin/lily-wins.py
+++ b/cygwin/lily-wins.py
@@ -1,16 +1,21 @@
 #!@PYTHON@
 # lily-wins.py -- LilyPond command for .ly on Windows
 
+import getopt
 import os
 import re
 import sys
+import time
+
+do_debug = 0
 
 def usage ():
        print 'Usage [-h,--help] lily-wins LY-FILE'
 
 # print debugging stuff for now
 def debug (s):
-       print s
+       if do_debug:
+               print s
 
 def read_pipe (command):
        debug ('command:' + command)
@@ -30,18 +35,39 @@ def strip_extension (f, ext):
        return p + e
 
 def escape_shell (x):
-       return re.sub (r'''([^\\])([`'"\\\s])''', r'\1\\\2', x)
-       # help emacs'" broken python mode
+       return re.sub ("(\s|[`'\"\\\\])", r'\\\1',x)
+#      return re.sub (r'''([^\\])([`'"\\\s])''', r'\1\\\2', x)
+        # help emacs'" broken python mode
+
+def usage ():
+       print '''lily-wins [options] file
+
+Options supported:
+
+  -h, --help      this help screen
+  -d, --debug     print debugging information
+  
+'''
        
 debug (`sys.argv`)
 
-if len (sys.argv) != 2 \
-   or sys.argv[1] == '-h' or sys.argv[1] == '--help':
+########
+# main
+(opts, files)=getopt.getopt (sys.argv[1:],'dh', ['help', 'debug'])
+
+for (o,a) in opts:
+       if o == '-d' or o == '--debug':
+               do_debug = 1
+       elif o == '-h' or o  == '--help':
+               usage ()
+               sys.exit (0)
+
+if files == []:
        usage ()
-       sys.exit (0)
-       
-native_file = sys.argv[1]
+       sys.exit (1)
        
+native_file = files[0]
+print 'Processing %s ...' % native_file
 file = read_pipe ('/usr/bin/cygpath -au %s' % escape_shell (native_file))
 if not file:
        file = native_file
@@ -53,7 +79,7 @@ if not dir:
        dir = '.'
 base = os.path.basename (file)
 stem = strip_extension (base, '.ly')
-print `vars ()`
+debug ( `vars ()`)
 
 native_base = '%(dir)s/%(stem)s' % vars ()
 native_base = read_pipe ('/usr/bin/cygpath -aw %s' % escape_shell (native_base))
@@ -77,10 +103,28 @@ if not pdfview:
        pdfview = 'xpdf'
 
 os.chdir (dir)
-system ('/usr/bin/lilypond %s > %s.log 2>&1' % (escape_shell (base),
-                                               escape_shell (stem)))
-if not os.path.exists ('%(stem)s.pdf' % vars ()):
+pdffile = '%(stem)s.pdf' % vars ()
+if os.path.exists (pdffile):
+       os.unlink (pdffile)
+
+
+script = '/usr/bin/lilypond'
+
+if os.path.exists ('/usr/bin/ly2dvi'):
+       script = '/usr/bin/ly2dvi'
+
+stat = system ('%s %s > %s.lylog 2>&1' % (script, escape_shell (base),
+                                   escape_shell (stem)))
+
+if not os.path.exists (pdffile):
        # message box?
-       sys.stderr.write ('pdf output not found\n')
+       sys.stderr.write ('PDF output not found. Error log: \n')
 
-system ('%s %s.pdf' % (escape_shell (pdfview), escape_shell (native_base)))
+       map (sys.stderr.write, open (stem + '.lylog').readlines ()[-20:])
+       sys.stderr.write ('A full log is in the file %s.lylog\n' % stem)
+       sys.stderr.write ('\n\nPress enter to close window\n')
+       sys.stdin.readline ()
+else:
+       
+       # run even if failed, to make sure that error is visible.
+       system ('%s %s.pdf' % (escape_shell (pdfview), escape_shell (native_base)))