+++ /dev/null
-#!@PYTHON@
-
-# html-accents.py -- convert (some) latin1 chars to html
-# pod2html is so broken...
-#
-# source file of the GNU LilyPond music typesetter
-#
-# (c) 1998 Jan Nieuwenhuizen <janneke@gnu.org>
-
-name = 'html-accents'
-version = '0.1'
-
-import os
-import sys
-sys.path.append ('@abs-step-bindir@')
-sys.path.append (os.environ['HOME'] + '/usr/src/lilypond/stepmake/bin')
-
-import getopt
-from string import *
-import regex
-import regsub
-import time
-
-def program_id ():
- return name + ' version ' + version;
-
-def identify ():
- sys.stdout.write (program_id () + '\n')
-
-def help ():
- sys.stdout.write ("Usage: " + name + " [options] INFILE OUTFILE\n"
- + "Convert (some) latin1 chars to html &xxx;\n\n"
- + "Options:\n"
- + " -h, --help print this help\n"
- + " -p, --package=DIR specify package\n"
- )
- sys.exit (0)
-
-# chars = {'è':'è', }
-chars = {
-'á':'á',
-'â':'â',
-'æ':'æ',
-'à':'à',
-'å':'å',
-'ã':'ã',
-'ä':'ä',
-
-'ç':'ç',
-
-'é':'é',
-'ê':'ê',
-'è':'è',
-'ë':'ë',
-
-'í':'í',
-'î':'î',
-'ì':'ì',
-'ï':'ï',
-
-'ñ':'ñ',
-
-'ó':'ó',
-'ô':'ô',
-'ò':'ò',
-'ø':'ø',
-'õ':'õ',
-'ö':'ö',
-
-'ú':'ú',
-'û':'û',
-'ù':'ù',
-'ü':'ü'
-}
-
-def convert_accents (inname, outname):
- from flower import *
- text = File (inname)
- # ugh
- html = File (outname, 'w')
-
- while not text.eof ():
- line = text.readline ()
- for i in chars.keys ():
- line = regsub.gsub (i, chars[i], line)
- html.write (line)
- text.close ()
- html.close ()
-
-def main ():
- identify ()
- (options, files) = getopt.getopt (
- sys.argv[1:], 'hp:', ['help', 'package='])
- for opt in options:
- o = opt[0]
- a = opt[1]
- if o== '--help' or o == '-h':
- help ()
- elif o == '-p' or o == '--package':
- topdir = a
- else:
- print o
- raise getopt.error
-
- sys.path.append (topdir + '/stepmake/bin')
- from packagepython import *
- package = Package (topdir)
- packager = Packager ()
-
- from flower import *
-
- convert_accents (files[0], files[1])
-
-main ()
-
+++ /dev/null
-#!@PYTHON@
-
-# template.py --
-#
-# source file of the GNU LilyPond music typesetter
-#
-# (c) 1998
-
-program_name = 'template'
-version = '0.1'
-
-import os
-import sys
-
-sys.path.append ('@abs-step-bindir@')
-sys.path.append (os.environ['HOME'] + '/usr/src/lilypond/stepmake/bin')
-
-import getopt
-from string import *
-import regex
-import regsub
-import time
-
-def program_id ():
- return name + ' version ' + version;
-
-def identify ():
- sys.stdout.write (program_id () + '\n')
-
-def help ():
- sys.stdout.write ("Usage: %s [options] [files]\n"
- "I'm not a program, use me as a template to create one\n\n"
- + "Options:\n"
- + " -h, --help print this help\n"
- % (program_name)
- )
- sys.exit (0)
-
-identify ()
-(options, files) = getopt.getopt (
- sys.argv[1:], 'hp:', ['help', 'package'])
-for opt in options:
- o = opt[0]
- a = opt[1]
- if o== '--help' or o == '-h':
- help ()
- elif o == '-p' or o == '--package':
- topdir = a
- else:
- print o
- raise getopt.error
-
-sys.path.append (topdir + '/stepmake/bin')
-from packagepython import *
-package = Package (topdir)
-packager = Packager ()
-
-from flower import *
-
+++ /dev/null
-#!/bin/sh
-
-IDENTIFICATION=fake-yodl.sh
-
-OUTPUT='/dev/null'
-
-while getopts ':d:o:' OPT;
-do
-case $OPT in
-o)
- OUTPUT=$OPTARG
- ;;
-*)
- ;;
- esac
-done
-
-
-
-shift `expr $OPTIND - 1`
-#
-# Input file name
-#
-if [ "$1" = "" ]
-then
- echo "$IDENTIFICATION: No input file name given"
- exit 1
-fi
-
-echo Faking Yodl: copying $1 to $OUTPUT
-
-
-echo THIS IS A SURROGATE. Please install YODL for a formatted document > $OUTPUT
-cat $1 >> $OUTPUT
+++ /dev/null
-#!/bin/sh
-# latex2yodl.sh -- one time convert helper
-
-if test $# -lt 1
-then
- echo "Usage: latex2yodl FILE...";
- exit 2
-fi
-for i in $*
-do
- echo $i
- base=`basename $base .latex`
- base=`basename $base .tex`
- base=`basename $i .doc`
- yo=$base.yo
- rm -f $yo
- perl -pe '
- s/([a-zA-Z][a-zA-Z]*)\~/bind($1)/g;
- s/%(.*)/COMMENT($1)/g;
- s/\$\^{([^}]*)}$/ sups($1)/g;
- s/\$\_{([^}]*)}$/ subs($1)/g;
- s/\$\^(.)$/ sups($1)/g;
- s/\$\_(.)$/ subs($1)/g;
- s/\\appendix/appendix()/g;
- s/\\footnote{([^}]*)}/ footnote($1)/g;
- s/\\cite{([^}]*)}/ cite($1)/g;
- s/(\\marginpar{[^}]*})/latexcommand($1)/g;
- s/\\chapter *{([^}]*)}/chapter($1)/g;
- s/\\chapter *\* *{([^}]*)}/nchapter($1)/g;
- s/\\section *{([^}]*)}/sect($1)/g;
- s/\\section *\* *{([^}]*)}/nsect($1)/g;
- s/\\subsection *{([^}]*)}/subsect($1)/g;
- s/\\subsection *\* *{([^}]*)}/nsubsect($1)/g;
- s/\\begin{itemize}.*/itemize(/g;
- s/\\item *{([^}]*)}/dit($1)/g;
- s/\\item *[[]([^]]*)[]]/dit($1)/g;
- s/\\item */it()/g;
- s/\\(caption{[^}]*})/latexcommand(XXX$1)/g;
- s/\\(begin{figure}.*)/latexcommand(XXX$1)/g;
- s/\\(end{figure}.*)/latexcommand(XXX$1\n)/g;
- s/\\begin{mudela}[[]([^]]*)[]]/mudela($1)(/g;
- s/\\begin{mudela}.*/mudela()(/g;
- s/\\end{mudela}/)/g;
- s/\\(begin{table}.*)/latexcommand(XXX$1)/g;
- s/\\(end{table}.*)/latexcommand(XXX$1)/g;
- s/\\begin{tabular}{(.*)}/table(ncol)($1)(/g;
- s/\\begin{verbatim}.*/verb(/g;
- s/\\begin{([^}]*)}/$1(/g;
- s/\\end{([^}]*)}/)/g;
- s/{\\em ([^}]*)}/em($1)/g;
- s/\\emph{([^}]*)}/em($1)/g;
- s/\\ref{([^}]*)}/ref($1)/g;
- s/\\texttt{([^}]*)}/code($1)/g;
- s/\\file{([^}]*)}/file($1)/g;
- s/\\label{([^}]*)}/label($1)/g;
- s/\\verb[+]([^+]*)[+]/code($1)/g;
- s/\\verb[|]([^|]*)[|]/code($1)/g;
- s/XXX/\\/g;
- ' $i > $yo
-done
-
+++ /dev/null
-#!/bin/sh
-# pod2yodl.sh -- one time convert helper
-
-if test $# -lt 1
-then
- echo "Usage: pod2yodl FILE...";
- exit 2
-fi
-for i in $*
-do
- echo $i
- base=`basename $i .in`
- base=`basename $base .pod`
- yo=$base.yo
- rm -f $yo
- perl -pe '
- s/=head1 *(.*)/nsect($1)/g;
- s/=head2 *(.*)/nsubsect($1)/g;
- s/=head3 *(.*)/nsubsubsect($1)/g;
- s/=over.*(.*)/itemize(/g;
- s/=item *\*/it()/g;
- s/=item *(.*)/dit($1)/g;
- s/=back.*/)/g;
- s/=begin.*//g;
- s/=end.*//g;
- s/C<([^>]*)>/code($1)/g;
- s/F<([^>]*)>/file($1)/g;
- s/B<([^>]*)>/bf($1)/g;
- s/I<([^>]*)>/em($1)/g;
- s/<[Aa] *[Hh][Rr][Ee][Ff]=\"*([^>\"])\"([^<]*)<\/[Aa]>/ url($2)($1)/g;
- s/<[Aa] *[Hh][Rr][Ee][Ff]=\"*([^>\"])\"([^<]*)/ url($2)($1)/g;
- s/<[Aa] *[Hh][Rr][Ee][Ff]=\"*([^>\"])\"/ url()($1)/g;
- s/.*<\/[Aa]>/($1)/g;
- s/<(.*@.*)>/email($1)/g;
- s/(http:\/\/[^ ]*)/ lurl($1)/g;
- s/(ftp:\/\/[^ ]*)/ lurl($1)/g;
- s/@([A-Z_]*)@/verbinclude($1.in)/g;
- ' $i > $yo
-done
-
+++ /dev/null
-#!@PYTHON@
-
-# template.py --
-#
-# source file of the GNU LilyPond music typesetter
-#
-# (c) 1998
-
-program_name = 'template'
-version = '0.1'
-
-import os
-import sys
-
-sys.path.append ('@abs-step-bindir@')
-sys.path.append (os.environ['HOME'] + '/usr/src/lilypond/stepmake/bin')
-
-import getopt
-from string import *
-import regex
-import regsub
-import time
-
-def program_id ():
- return program_name + ' version ' + version;
-
-def identify ():
- sys.stdout.write (program_id () + '\n')
-
-def help ():
- sys.stdout.write ("Usage: %s [OPTION]... [FILE]...\n"
- "I'm not a program, use me as a template to create one\n\n"
- + "Options:\n"
- + " -h, --help print this help\n"
- + " -p, --package=DIR specify package\n"
- % (program_name)
- )
- sys.exit (0)
-
-identify ()
-(options, files) = getopt.getopt (
- sys.argv[1:], 'hp:', ['help', 'package='])
-for opt in options:
- o = opt[0]
- a = opt[1]
- if o == '--help' or o == '-h':
- help ()
- elif o == '-p' or o == '--package':
- topdir = a
- else:
- print o
- raise getopt.error
-
-sys.path.append (topdir + '/stepmake/bin')
-from packagepython import *
-package = Package (topdir)
-packager = Packager ()
-
-from flower import *
-
+++ /dev/null
-#!@PYTHON@
-
-# update.py -- update current source tree
-#
-# source file of the GNU LilyPond music typesetter
-#
-# (c) 1998 Jan Nieuwenhuizen <janneke@gnu.org>
-
-program_name = 'update'
-version = '0.1'
-
-import os
-import sys
-
-sys.path.append ('@abs-step-bindir@')
-sys.path.append (os.environ['HOME'] + '/usr/src/lilypond/stepmake/bin')
-
-import getopt
-from string import *
-import regex
-import regsub
-import time
-
-def program_id ():
- return program_name + ' version ' + version;
-
-def identify ():
- sys.stdout.write (program_id () + '\n')
-
-def help ():
- sys.stdout.write ("Usage: %s [OPTION]...\n"
- "Update sourcetree\n\n"
- + "Options:\n"
- + " -f, --file=FILE specify patch file\n"
- + " -h, --help print this help\n"
- + " -p, --package=DIR specify package\n"
- + " -v, --version=VER specify patch version\n"
- % (program_name)
- )
- sys.exit (0)
-
-identify ()
-(options, files) = getopt.getopt (
- sys.argv[1:], 'f:hp:v:', ['file=', 'help', 'package=', 'version='])
-patch=''
-ver=''
-for opt in options:
- o = opt[0]
- a = opt[1]
- if o == '--help' or o == '-h':
- help ()
- elif o == '-f' or o == '--file':
- patch = a
- elif o == '-p' or o == '--package':
- topdir = a
- elif o == '-v' or o == '--version':
- ver = a
- else:
- print o
- raise getopt.error
-
-sys.path.append (topdir + '/stepmake/bin')
-from packagepython import *
-package = Package (topdir)
-packager = Packager ()
-
-from flower import *
-
-def read_patch_vector (patch):
- vec = []
- pipe = os.popen ('gzip -dc ' + patch)
- line = pipe.readline ()
- while line and line != '--state\n':
- line = pipe.readline ()
- line = pipe.readline ()
- while line and line != '++state\n':
- vec.append (line[:len (line)-1])
- line = pipe.readline ()
- pipe.close ()
- return vec
-
-def read_state_vector (states):
- vec = []
- file = File (states)
- while not file.eof ():
- line = file.readline ()
- if line:
- vec.append (line[:len (line)-1])
- return vec
-
-def read_relevant_state_vector (states, from_str):
- vec = read_state_vector (states)
- for i in range (len (vec)):
- if vec[i] == from_str:
- return vec[i:]
- return []
-
-def find_revert (states, patch):
- for i in range (len (state_vector)):
- for j in doubles:
- if j in state_vector[:i+1]:
- return state_vector[i:]
- return []
-
-if patch == '' and ver != '':
- patch = package.patch_dir + '/' + package.name + '-%s.diff.gz' % ver
-if patch == '':
- if 0:
- files = os.listdir (package.patch_dir)
- patches = []
- for i in files:
- if regex.search (package.name + '-.*.diff.gz', i) == 0:
- patches.append (i)
- # urg: sort
- patch = package.patch_dir + '/' + patches[len (patches) -1]
- else:
- os.chdir (package.patch_dir)
- pipe = os.popen ('/bin/ls -t1 ' + package.name
- + '-*.diff.gz 2> /dev/null')
- patch = pipe.readline ()
- patch = patch[:len (patch) -1]
- pipe.close ()
- if not patch:
- raise 'patch not found'
- patch = package.patch_dir + '/' + patch
- print patch
-
-os.chdir (package.topdir)
-patch_vector = read_patch_vector (patch)
-print 'patch vector: ' + str (patch_vector)
-from_str = patch_vector[0]
-state_vector = read_relevant_state_vector ('make/STATE-VECTOR', from_str)
-print 'relevant state vector: ' + str (state_vector)
-
-doubles = []
-for i in patch_vector[1:]:
- if i in state_vector:
- doubles.append (i)
-print 'doubles: ' + str (doubles)
-
-revert = find_revert (state_vector, patch_vector)
-redo = []
-for i in revert:
- redo.append (i)
-revert.reverse ()
-
-for i in doubles:
- redo.remove (i)
-
-if revert or redo or doubles:
- print 'not smart enough; please do:'
- print ' * revert: ' + str (revert)
- print ' * apply: ' + os.path.basename (patch)
- print ' * redo: ' + str (redo)
- sys.exit (1)
-
-status = os.system ('echo "gzip -dc %s | patch -p1 -E --force"' % patch)
-if status:
- raise 'apply patch failed'
-
-sys.stdout.write ('checking...')
-rejects = my_find (['*.rej'], '.')
-if len (rejects):
- print 'rejects found:'
- for i in rejects:
- print i
- sys.exit (1)
-print 'ok'
-sys.stdout.write ('cleaning...')
-origs = my_find (['*.orig'], '.')
-for i in origs:
- os.remove (i)
-print 'ok'