+++ /dev/null
-#!@BASH@
-
-# guile-gnome.sh -- download, compile, install g-wrap, guile-gnome,
-# pango
-
-# LilyPond has an experimental gnome canvas output backend -- hackers
-# only. This depends on rather new versions of guile-gnome, g-wrap
-# and pango.
-
-set -ex
-
-# Where user built stuff will be installed
-OPT=$HOME/usr/pkg
-# When using GUILE CVS, make a slib/require like so
-cat > /dev/null <<EOF
-cd ~/usr/pkg/guile/share/guile/1.7 && ln -s /usr/share/guile/1.6/slib .
-cd && guile -c "(use-modules (ice-9 slib)) (require 'new-catalog)"
-EOF
-# otherwise, this may fix it...
-SLIB_PATH=`locate slib/require.scm | head -1 | sed -s 's/require.scm//g'`
-
-# What extra modules to pull (eg: EXTRA="libgnomecanvas libwnck")
-EXTRA=${EXTRA-libgnomecanvas}
-PANGOVERSION=1.6.0
-GGVERSION=2.7.99
-GWRAPVERSION=1.9.5
-GLVERSION=0.1.2
-
-download=$HOME/usr/src/releases
-[ -d $download ] || mkdir -p $download
-WGET="wget -N -P $download"
-
-export AUTOMAKE=automake-1.8
-export ACLOCAL=aclocal-1.8
-export AUTOCONF=$(which autoconf2.50)
-export AUTOHEADER=$(which autoheader2.50)
-
-export PKG_CONFIG_PATH
-export LD_LIBRARY_PATH
-export GUILE_LOAD_PATH
-
-if [ -z "$AUTOCONF" ]; then
- unset AUTOCONF
-fi
-if [ -z "$AUTOHEADER" ]; then
- unset AUTOHEADER
-fi
-
-
-# test: the name of our download and build directory
-rm -rf test
-mkdir -p test
-cd test
-
-## 1. install gnome-devel
-## - Debian/unstable: apt-get install gnome-devel
-## - ...
-
-## 2. get pango CVS
-
-PKG_CONFIG_PATH=$OPT/pango/lib/pkgconfig:$PKG_CONFIG_PATH
-LD_LIBRARY_PATH=$OPT/pango/lib:$LD_LIBRARY_PATH
-
-mkdir -p gnome/CVS
-if ! pkg-config --atleast-version=1.5.1 pango; then
- cd gnome
- if [ -n "$BLOEDIGE_RAND" ]; then
- echo ":pserver:anonymous@anoncvs.gnome.org:/cvs/gnome" > CVS/Root
- echo "." > CVS/Repository
- cvs -z3 checkout -P pango
- else
- $WGET ftp://ftp.gtk.org/pub/gtk/v2.6/pango-$PANGOVERSION.tar.gz
- tar -xzf $download/pango-$PANGOVERSION.tar.gz
- ln -s pango-$PANGOVERSION pango
- fi
- cd pango
- rm -rf $OPT/pango
- if [ ! -f configure ]; then
- ./autogen.sh --help
- fi
- ./configure --prefix=$OPT/pango --enable-maintainer-mode --enable-gtk-doc
- make XFT_LIBS="-L/usr/lib -lXft -L/usr/X11R6/lib -lfreetype -lz -lXrender -lX11 -lfontconfig" all install
- cd ../..
-fi
-
-## 3. Currently (2004-9-15) GUILE CVS works somewhat
-## But there's a guile/g-wrap problem with integer parameters
-## PATH=/usr/bin:$PATH
-
-if [ -d $OPT/libffi/ ]; then
- export LDFLAGS=-L$OPT/libffi/lib
- export CPPFLAGS=-I$OPT/libffi/include
-fi
-
-## 4. get g-wrap 2.0
-if ! pkg-config --atleast-version=$GWRAPVERSION g-wrap-2.0-guile; then
- if [ -n "$BLOEDIGE_RAND" ]; then
- tla register-archive a.rottmann@gmx.at--2004-main \
- http://people.debian.org/~rotty/arch/a.rottmann@gmx.at/2004-main || true
-
- ## tla get a.rottmann@gmx.at--2004-main/g-wrap--tng g-wrap
- ## tla get a.rottmann@gmx.at--2004-main/g-wrap--mainline--1.9.0 g-wrap
- tla get a.rottmann@gmx.at--2004-main/g-wrap--dev--0 g-wrap
- ## ughr:
- mkdir -p g-wrap/libffi
- else
- $WGET http://savannah.nongnu.org/download/g-wrap/g-wrap-$GWRAPVERSION.tar.gz
- tar xzf $download/g-wrap-$GWRAPVERSION.tar.gz
- ln -s g-wrap-$GWRAPVERSION g-wrap
- fi
- cd g-wrap
-
- rm -rf $OPT/g-wrap
- if [ ! -f configure ]; then
- sh autogen.sh --noconfigure
- fi
- mkdir =build
- cd =build
- ../configure --prefix=$OPT/g-wrap --enable-maintainer-mode
- make install
- cd ../..
- PKG_CONFIG_PATH=$OPT/g-wrap/lib/pkgconfig:$PKG_CONFIG_PATH
- LD_LIBRARY_PATH=$OPT/g-wrap/lib:$LD_LIBRARY_PATH
- GUILE_LOAD_PATH=$OPT/g-wrap/share/guile/site:$GUILE_LOAD_PATH:$SLIB_PATH
-fi
-
-## 4a. get g-lib 0.1.2
-if ! guile -c "(use-modules (srfi srfi-35))"; then
- if [ -n "$BLOEDIGE_RAND" ]; then
- :
- else
- $WGET http://download.gna.org/guile-lib/guile-lib-$GLVERSION.tar.gz
- tar xzf $download/guile-lib-$GLVERSION.tar.gz
- ln -s guile-lib-$GLVERSION guile-lib
- fi
- cd guile-lib
-
- rm -rf $OPT/guile-lib
- if [ ! -f src/configure ]; then
- sh autogen.sh --noconfigure
- fi
- mkdir =build
- cd =build
- ../src/configure --prefix=$OPT/guile-lib #--enable-maintainer-mode
- if true; then
- make
- cp ./guile-lib/doc/guile-library.info doc
- install -d $OPT/guile-lib/share/info
- fi
- make install
- cd ../..
- GUILE_LOAD_PATH=$OPT/guile-lib/share/guile:$GUILE_LOAD_PATH
-fi
-
-# not a good idea
-## cp srfi-34.scm from CVS head ? --hwn
-#(cd $OPT/g-wrap/share/guile/site
-# mv srfi-34.scm srfi-34.scm-g-wrap
-# cp $OPT/guile/share/guile-1.7/srfi/srfi-34.scm .)
-
-## 5. get guile-gnome
-if ! pkg-config --atleast-version=$GGVERSION guile-gnome-glib; then
- if [ -n "$BLOEDIGE_RAND" ]; then
-
- if false; then # rotty
- tla register-archive guile-gnome-devel@gnu.org--2004 \
- http://people.debian.org/~rotty/arch/guile-gnome-devel@gnu.org/2004/ || true
- tla get guile-gnome-devel@gnu.org--2004/dists--dev guile-gnome
- cd guile-gnome
- tla build-config -r configs/gnu.org/dev
- cd src
-
- # 5a. get extra modules (gnome canvas)
- for i in $EXTRA; do
- tla get guile-gnome-devel@gnu.org--2004/$i--dev $i
- done
- else # andy
- tla register-archive wingo@pobox.com--2004-main \
- http://ambient.2y.net/wingo/arch/wingo@pobox.com--2004-main || true
-
- tla get wingo@pobox.com--2004-main/guile-gnome-dists--release guile-gnome
- cd guile-gnome
- tla build-config -r configs/gnu.org/guile-gnome-platform-$GGVERSION
- cd src
- EXTRA="pkg atk defs glib gstreamer gtk gtksourceview libgda libglade libgnome libgnomeui pango libgnomecanvas"
- EXTRA=
-
- # 5a. get extra modules (gnome canvas)
- for i in $EXTRA; do
- tla get wingo@pobox.com--2004-main/guile-gnome-$i--release $i
- done
-
- cd libgnomecanvas
- cd ..
- fi
-
- if [ ! -f configure ]; then
- sh autogen.sh --noconfigure
- fi
- cd ..
- srcdir="../src"
- else
- #$WGET http://download.gna.org/guile-gnome/releases/guile-gnome-platform-$GGVERSION.tar.gz
- $WGET ftp://ftp.gnu.org/gnu/guile-gnome/guile-gnome-platform/guile-gnome-platform-$GGVERSION.tar.gz
- tar xzf $download/guile-gnome-platform-$GGVERSION.tar.gz
- ln -s guile-gnome-platform-$GGVERSION guile-gnome
- cd guile-gnome
- srcdir="../"
- fi
-
- rm -rf $OPT/guile-gnome
- mkdir =build
- cd =build
-
-# Using libtool < 1.6.0 together with gcc-3.4 may trigger this problem:
-#
-# If a tag has not been given, and we're using a compiler which is
-# not one of the ones with which libtool was built, attempt to
-# infer the compiler from the first word of the command line passed
-# to libtool.
-#
- if [ -z "$GCC34" ]; then
- # Use libtool-1.5.6, gcc-3.{2,3} without -O2,
- CFLAGS='-O -g' $srcdir/configure --prefix=$OPT/guile-gnome --enable-maintainer-mode
- else
- # or use gcc-3.4 with libtool-1.6.0
- CC=$GCC34 $srcdir/configure --prefix=$OPT/guile-gnome --enable-maintainer-mode
- fi
- make all install G_WRAP_MODULE_DIR=$OPT/g-wrap/share/guile/site
- PKG_CONFIG_PATH=$OPT/guile-gnome/lib/pkgconfig:$PKG_CONFIG_PATH
- LD_LIBRARY_PATH=$OPT/guile-gnome/lib:$LD_LIBRARY_PATH
- GUILE_LOAD_PATH=$OPT/guile-gnome/share/guile:$GUILE_LOAD_PATH
-fi
-
-cat <<EOF
-***********************************************************************
-Before using with Lily, do
-
- export LD_LIBRARY_PATH=$LD_LIBRARY_PATH
- export GUILE_LOAD_PATH=$GUILE_LOAD_PATH
- export PKG_CONFIG_PATH=$PKG_CONFIG_PATH
-EOF
-
-# simple test -- fails atm
-# guile -s ../src/libgnomecanvas/examples/canvas.scm
+++ /dev/null
-#!@PYTHON@
-# -*-python-*-
-
-'''
-
-Remove (ont-) LilyPond specific kind of HunGA(a)Rian notation.
-
-
- ontgaar $(find flower lily python -name '*cc' -o -name '*hh' -o -name '*ll' -o -name '*yy')
-
- for i in $(find flower lily python -name '*.ontgaar'); do diff -u $(dirname $i)/$(basename $i .ontgaar) $i; done > pats
-
-
-
-When done, move this to Coding Standads doco.
-
-
-Mandatory suffixes:
- _ : _ member var
-
-
-Optional suffixes:
- _b : bool
- _p : as in lispy pair_p ()?
- _x : x-coor
- _y : y-coor
-
- _byte :
- _char :
- _count : counter
- _drul : Drul_array
- _global : global var
- _grob : Grob
- _mom : moment
- _req : Request
- _scm : SCM
- _str : C string
- _str0 : C string
- _string : C++ string
-
-Prefixes:
- get_ :
- gh_ : Do not use: part of deprecated Guile api
- ly_ :
- scm_ :
-
-
-The Grand Ontgaaring (some may remain):
-
- _str -> _string
- _ch -> _str0
- _ch_C -> _str0
- _sz -> _str0
-
- _ch -> _char
-
- _C : junk
- _c : junk
- _f : junk
- _i : junk
- _l : junk
- _p : junk, except for lispy is_foo_p ()
- _arr : junk
- _array : junk
-
-
-
-
-Voor alle suffixen waar het funcienamen betreft, als ik zeg maar wat,
-multiplicity_i (), wordt naam dan zoveel mogelijk: get_mulitiplity ().
-Als je dat niet doet, krijg je naam clashes met variabelen.
-
-
-
-
-'''
-
-import re
-import sys
-
-files = sys.argv[1:]
-
-for f in files:
- print f
- s = open (f).read ()
-
- # shield stuff
- s = re.sub (r'equal_p', r'equal_pX', s)
- s = re.sub (r'less_p', r'less_pX', s)
- s = re.sub (r'pair_p', r'pair_pX', s)
- s = re.sub (r'smob_p', r'smob_pX', s)
- s = re.sub (r'list_p(\W)', r'list_pX\1', s)
-
- s = re.sub (r'(gh_\w*_(p|str)) *\(', r'\1X (', s)
- s = re.sub (r'(ly_\w*_(p|str)) *\(', r'\1X (', s)
- s = re.sub (r'(scm_\w*_(p|str)) *\(', r'\1X (', s)
-
- s = re.sub (r'to_c(\W)', r'to_cX\1', s)
- s = re.sub (r'P_C', r'P_XC', s)
-
- s = re.sub (r'(\W)get_music(\W)', r'\1Yget_pending_events\2', s)
-
- s = re.sub (r'2_i(\W)', r'2int\1', s)
- s = re.sub (r'2_u(\W)', r'2unsigned\1', s)
- s = re.sub (r'2_f(\W)', r'2double\1', s)
-
- s = re.sub (r'(\w+)_str *\(', r'\1_string (', s)
-
-
- # member vars or multipart names
- s = re.sub (r'(\w+)_(c|f|i|l|p)_(\W)', r'\1_\3', s)
- s = re.sub (r'(\w+)_(c|f|i|l|p)_arr(_|\W)', r'\1_array\3', s)
- s = re.sub (r'(\w+)_arr_', r'\1_array_', s)
- s = re.sub (r'(\w+)_str_', r'\1_string_', s)
- s = re.sub (r'(\w+)_sz', r'\1_str0', s)
-
- # functions
- s = re.sub (r'(\W)ch_C *\(', r'\1Yto_str0 (', s)
- s = re.sub (r'(\W)byte_C *\(', r'\1Yto_bytes (', s)
- s = re.sub (r'(\W)byte_l *\(', r'\1Yget_bytes (', s)
- s = re.sub (r'(\W)value_i *\(', r'\1Yto_int (', s)
- s = re.sub (r'(\W)value_f *\(', r'\1Yto_double (', s)
- s = re.sub (r'find_i *\(', r'Yfind_index (', s)
- s = re.sub (r'compare_i *\)', r'compare)', s)
-
-
- s = re.sub (r'(\w+)_(c|f|i|l|p) *\(', r'Yget_\1 (', s)
-
- s = re.sub (r'(\w+)_arr *\(', r'\1_array (', s)
- s = re.sub (r'(\w+)_ch *\(', r'\1_str0 (', s)
- s = re.sub (r'(\w+)_str *\(', r'\1_string (', s)
-
- s = re.sub (r'(\W)str *\(', r'\1string (', s)
- s = re.sub (r'(\W)arr *\(', r'\1array (', s)
-
- s = re.sub (r'(\w+)_ch_C *\(', r'\1_str0 (', s)
- s = re.sub (r'(\w+)_ch *\(', r'\1_str0 (', s)
-
- # more member vars or multipart names
- s = re.sub (r'(\w+)_ch_C', r'\1_str0', s)
- s = re.sub (r'(\w+)_ch_', r'\1_char_', s)
- s = re.sub (r'(\W)ch_C(\W)', r'\1str0\2', s)
-
- # plain vars -- can't do, as we have
- # Real foo_f, int foo_i, SCM foo constructs
- # s = re.sub (r'(\w+)_(c|f|i|l|p)(\W)', r'\1_\3', s)
-
-
- # but these will go
- s = re.sub (r'(\W)arr_(l|p)(\W)', r'\1array\3', s)
- s = re.sub (r'new_(l|p)', r'new_pX', s)
- s = re.sub (r'(\w+)_(l|p)(\W)', r'\1\3', s)
-
- s = re.sub (r'(\w+)_arr(\W)', r'\1_array\2', s)
- s = re.sub (r'(\w+)_str(\W)', r'\1_string\2', s)
-
- s = re.sub (r'(\w+)_ch_C(\W)', r'\1_str0\2', s)
- s = re.sub (r'(\w+)_ch(\W)', r'\1_char\2', s)
-
- s = re.sub (r'(\w+)_C(\W)', r'\1\2', s)
-
- # fixups
- s = re.sub (r'Yfind', 'find', s)
- s = re.sub (r'Yget_argument_to', 'get_argument_index', s)
- s = re.sub (r'Yget_compare', 'compare', s)
- s = re.sub (r'Yget_cons', 'cons', s)
- s = re.sub (r'Yget_create', 'create', s)
- s = re.sub (r'Yget_find', 'find', s)
- s = re.sub (r'Yget_hex', 'hex', s)
- s = re.sub (r'Yget_index', 'index', s)
- s = re.sub (r'Yget_length', 'length', s)
- s = re.sub (r'Yget_remove', 'remove', s)
- s = re.sub (r'Yget_report', 'report', s)
- s = re.sub (r'Yget_size', 'size', s)
- s = re.sub (r'Yget_get', 'get', s)
- s = re.sub (r'Yget', 'get', s)
- s = re.sub (r'Yto', 'to', s)
-
-
- s = re.sub (r'(bin2dec|bin2hex|dec2bin|hex2bin)_string', r'\1', s)
- s = re.sub (r'i2hex_string', 'int2hex', s)
- s = re.sub (r'u2hex_string', 'unsigned2hex', s)
- s = re.sub (r'i2dec_string', 'int2dec', s)
-
- # Would this work?
- s = re.sub (r'split_array', 'split', s)
- s = re.sub (r'custos_array', 'custodes', s)
- s = re.sub (r'primitives_array', 'primitives', s)
- s = re.sub (r'span_array', 'spanners', s)
- s = re.sub (r'(Pointer|Link|Drul|get|heap|_of|remove)_array',
- r'\1_Xarray', s)
- s = re.sub (r'([a-rt-zA-RT-Z])_array', r'\1s', s)
- s = re.sub (r'([sS])_array', r'\1es', s)
- s = re.sub (r'_Xarray', '_array', s)
-
- # shields down
- s = re.sub (r'_pX', r'_p', s)
- s = re.sub (r'_cX', r'_c', s)
- s = re.sub (r'_strX', r'_str', s)
- s = re.sub (r'P_XC', 'P_C', s)
- s = re.sub (r'Xget_music', 'get_music', s)
-
- h = open (f + '.ontgaar', 'w')
- h.write (s)
- h.close ()
-