From: Graham Percival <graham@percival-music.ca>
Date: Mon, 12 Feb 2007 09:38:52 +0000 (-0800)
Subject: Add --safe checking for scheme in LSR.
X-Git-Tag: release/2.11.18-1~4^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=91a2a3e36f31d4de020b85d6dacf73102fdd6a9e;p=lilypond.git

Add --safe checking for scheme in LSR.
---

diff --git a/buildscripts/makelsr.py b/buildscripts/makelsr.py
index 360d6ebec1..f37c6b212c 100755
--- a/buildscripts/makelsr.py
+++ b/buildscripts/makelsr.py
@@ -6,6 +6,7 @@ import shutil
 
 # 'expressive' not available yet
 dirs = ['ancient','chords','connecting','contemporary','expressive','guitar','parts','repeats','spacing','staff','text','vocal']
+notsafe=[]
 
 try:
 	in_dir = sys.argv[1]
@@ -32,4 +33,19 @@ for dir in dirs:
 		src = os.path.join (srcdir, file)
 		dest = os.path.join (destdir, file)
 		shutil.copyfile (src, dest)
+		s = os.system('lilypond -dsafe --ps -o /tmp/lsrtest ' + dest)
+		if s:
+			notsafe.append(dest)
+			#raise 'Failed'
+
+file=open("lsr-unsafe.txt", 'w')
+for s in notsafe:
+	file.write(s+'\n')
+file.close()
+print
+print
+print "Unsafe files printed in lsr-unsafe.txt: CHECK MANUALLY!"
+print "  (probably with  xargs git-diff < lsr-unsafe.txt  )"
+print
+