+def symlink_tree (target, source, env):
+ def mkdirs (dir):
+ def mkdir (dir):
+ if not dir:
+ os.chdir (os.sep)
+ return
+ if not os.path.isdir (dir):
+ if os.path.exists (dir):
+ os.unlink (dir)
+ os.mkdir (dir)
+ os.chdir (dir)
+ map (mkdir, string.split (dir, os.sep))
+ def symlink (src, dst):
+ os.chdir (absbuild)
+ dir = os.path.dirname (dst)
+ mkdirs (dir)
+ if src[0] == '#':
+ frm = os.path.join (srcdir, src[1:])
+ else:
+ depth = len (string.split (dir, '/'))
+ if src.find ('@') > -1:
+ frm = os.path.join ('../' * depth,
+ string.replace (src, '@',
+ env['out']))
+ else:
+ frm = os.path.join ('../' * depth, src,
+ env['out'])
+ if src[-1] == '/':
+ frm = os.path.join (frm, os.path.basename (dst))
+ if env['verbose']:
+ print 'ln -s %s -> %s' % (frm, os.path.basename (dst))
+ os.symlink (frm, os.path.basename (dst))
+ shutil.rmtree (run_prefix)
+ prefix = os.path.join (env['out'], 'usr')
+ map (lambda x: symlink (x[0], os.path.join (prefix, x[1])),
+ # ^# := source dir
+ # @ := out
+ # /$ := add dst file_name
+ (('python', 'lib/lilypond/python'),
+ ('lily/', 'bin/lilypond-bin'),
+ ('scripts/', 'bin/lilypond'),
+ ('scripts/', 'bin/lilypond-book'),
+ ('mf', 'share/lilypond/dvips'),
+ ('#ps', 'share/lilypond/tex/music-drawing-routines.ps'),
+ ('mf', 'share/lilypond/afm'),
+ ('mf', 'share/lilypond/tfm'),
+ ('#mf', 'share/lilypond/fonts/mf'),
+ ('mf', 'share/lilypond/fonts/afm'),
+ ('mf', 'share/lilypond/fonts/tfm'),
+ ('mf', 'share/lilypond/fonts/type1'),
+ ('#tex', 'share/lilypond/tex/source'),
+ ('mf', 'share/lilypond/tex/generate'),
+ ('#ly', 'share/lilypond/ly'),
+ ('#scm', 'share/lilypond/scm'),
+ ('#ps', 'share/lilypond/ps'),
+ ('po/@/nl.mo', 'share/locale/nl/LC_MESSAGES/lilypond.mo'),
+ ('elisp', 'share/lilypond/elisp')))
+ os.chdir (srcdir)
+
+if env['debugging']:
+ stamp = os.path.join (run_prefix, 'stamp')
+ env.Command (stamp, 'SConstruct', [symlink_tree, 'touch $TARGET'])
+ env.Depends ('lily', stamp)
+
+#### dist, tar
+def plus (a, b):
+ a + b
+
+def cvs_entry_is_dir (line):
+ return line[0] == 'D' and line[-2] == '/'
+
+def cvs_entry_is_file (line):
+ return line[0] == '/' and line[-2] == '/'
+
+def cvs_dirs (dir):
+ ENTRIES = os.path.join (dir, 'CVS/Entries')
+ if not os.path.exists (ENTRIES):
+ return []
+ entries = open (ENTRIES).readlines ()
+ dir_entries = filter (cvs_entry_is_dir, entries)
+ dirs = map (lambda x: os.path.join (dir, x[2:x[2:].index ('/')+3]),
+ dir_entries)
+ return dirs + map (cvs_dirs, dirs)
+
+def cvs_files (dir):
+ ENTRIES = os.path.join (dir, 'CVS/Entries')
+ entries = open (ENTRIES).readlines ()
+ file_entries = filter (cvs_entry_is_file, entries)
+ files = map (lambda x: x[1:x[1:].index ('/')+1], file_entries)
+ return map (lambda x: os.path.join (dir, x), files)
+
+def flatten (tree, lst):
+ if type (tree) == type ([]):
+ for i in tree:
+ if type (i) == type ([]):
+ flatten (i, lst)
+ else:
+ lst.append (i)
+ return lst
+
+if env['fast']\
+ and 'all' not in COMMAND_LINE_TARGETS\
+ and 'doc' not in COMMAND_LINE_TARGETS\
+ and 'web' not in COMMAND_LINE_TARGETS\
+ and 'install' not in COMMAND_LINE_TARGETS\
+ and 'clean' not in COMMAND_LINE_TARGETS:
+ subdirs = ['lily', 'lily/include', 'flower', 'flower/include', 'mf']
+else:
+ subdirs = flatten (cvs_dirs ('.'), [])
+readme_files = ['AUTHORS', 'README', 'INSTALL', 'NEWS']
+foo = map (lambda x: env.TXT (x + '.txt',
+ os.path.join ('Documentation/topdocs', x)),
+ readme_files)
+txt_files = map (lambda x: x + '.txt', readme_files)
+src_files = reduce (lambda x, y: x + y, map (cvs_files, subdirs))
+tar_base = package.name + '-' + version
+tar_name = tar_base + '.tar.gz'
+ball_prefix = os.path.join (outdir, tar_base)
+tar_ball = os.path.join (outdir, tar_name)
+
+dist_files = src_files + txt_files
+ball_files = map (lambda x: os.path.join (ball_prefix, x), dist_files)
+map (lambda x: env.Depends (tar_ball, x), ball_files)
+map (lambda x: env.Command (os.path.join (ball_prefix, x), x,
+ 'ln $SOURCE $TARGET'), dist_files)
+tar = env.Command (tar_ball, src_files,
+ ['rm -f $$(find $TARGET.dir -name .sconsign)',
+ 'tar czf $TARGET -C $TARGET.dir %s' % tar_base,])
+env.Alias ('tar', tar)
+
+dist_ball = os.path.join (package.release_dir, tar_name)
+env.Command (dist_ball, tar_ball,
+ 'if [ -e $SOURCE -a -e $TARGET ]; then rm $TARGET; fi;' \
+ + 'ln $SOURCE $TARGET')
+env.Depends ('dist', dist_ball)
+patch_name = os.path.join (outdir, tar_base + '.diff.gz')
+patch = env.PATCH (patch_name, tar_ball)
+env.Depends (patch_name, dist_ball)
+env.Alias ('release', patch)
+
+#### web
+web_base = os.path.join (outdir, 'web')
+web_ball = web_base + '.tar.gz'
+env['footify'] = 'MAILADDRESS=bug-lilypond@gnu.org $PYTHON stepmake/bin/add-html-footer.py --name=lilypond --version=$TOPLEVEL_VERSION'
+web_ext = ['.html', '.ly', '.midi', '.pdf', '.png', '.ps.gz', '.txt',]
+web_path = '-path "*/$out/*"' + string.join (web_ext, ' -or -path "*/$out/*"')
+env['web_path'] = web_path
+web_list = os.path.join (outdir, 'weblist')
+# compatible make heritits
+# fixme: generate in $outdir is cwd/builddir
+env.Command (web_list,
+ ## this is correct, but takes > 5min if you have a peder :-)
+ ##'doc',
+ '#/VERSION',
+ ['$PYTHON buildscripts/mutopia-index.py -o examples.html ./',
+ 'cd $absbuild && $footify $$(find . -name "*.html" -print)',
+ 'cd $absbuild && rm -f $$(find . -name "*.html~" -print)',
+ 'cd $absbuild && find Documentation input $web_path \
+ > $TARGET',
+ '''echo '<META HTTP-EQUIV="refresh" content="0;URL=Documentation/out-www/index.html">' > $absbuild/index.html''',
+ '''echo '<html><body>Redirecting to the documentation index...</body></html>' >> $absbuild/index.html''',
+ 'cd $absbuild && ls *.html >> $TARGET',])
+env.Command (web_ball, web_list,
+ ['cat $SOURCE | tar -C $absbuild -czf $TARGET -T -',])
+#env.Alias ('web', web_ball)
+www_base = os.path.join (outdir, 'www')
+www_ball = www_base + '.tar.gz'
+env.Command (www_ball, web_ball,
+ ['rm -rf $out/tmp',
+ 'mkdir -p $absbuild/$out/tmp',
+ 'tar -C $absbuild/$out/tmp -xzf $SOURCE',
+ 'cd $absbuild/$out/tmp && for i in $$(find . -name "$out"); do mv $$i $$(dirname $$i)/out-www; done',
+ 'tar -C $absbuild/$out/tmp -czf $TARGET .'])
+env.Alias ('web', www_ball)
+
+#### tags
+env.Append (
+ ETAGSFLAGS = """--regex='{c++}/^LY_DEFINE *(\([^,]+\)/\\1/' \
+ --regex='{c++}/^LY_DEFINE *([^"]*"\([^"]+\)"/\\1/'""")
+code_ext = ['.cc', '.hh', '.scm', '.tcc',]
+env.Command ('TAGS', filter (lambda x: os.path.splitext (x)[1] in code_ext,
+ src_files),
+ 'etags $ETAGSFLAGS $SOURCES')
+
+# Note: SConscripts are only needed in directories where something needs
+# to be done, building or installing