* scm/ps-to-png.scm: remove dir-re function.

[lilypond.git] / python / lilylib.py

diff --git a/python/lilylib.py b/python/lilylib.py
index 82b3818966254231690838fe3d9d2911a1b5470a..c50ab48e10902660fbdc42adf73d120daf1db651 100644 (file)
--- a/python/lilylib.py
+++ b/python/lilylib.py
@@ -348,6 +348,13 @@ def print_environment ():
                sys.stderr.write ("%s=\"%s\"\n" % (k, v)) 
 
 
+def ps_page_count (ps_name):
+       header = open (ps_name).read (1024)
+       m = re.search ('\n%%Pages: ([0-9]+)', header)
+       if m:
+               return string.atoi (m.group (1))
+       return 0
+
 def make_ps_images (ps_name, resolution = 90, papersize = "a4",
                    rename_page1_p = 0):
        base = os.path.basename (re.sub (r'\.e?ps', '', ps_name))