packages: beast/beast-desktop.patch, beast/beast.spec, beast/beast-assert.p...
qboosh
qboosh at pld-linux.org
Fri Apr 27 18:03:31 CEST 2012
Author: qboosh Date: Fri Apr 27 16:03:31 2012 GMT
Module: packages Tag: HEAD
---- Log message:
- updated to 0.7.4
- updated desktop patch
- added assert,c++ patches (for current gcc/glib)
- added guile2 patch (port to guile 2.x)
---- Files affected:
packages/beast:
beast-desktop.patch (1.1 -> 1.2) , beast.spec (1.26 -> 1.27) , beast-assert.patch (NONE -> 1.1) (NEW), beast-c++.patch (NONE -> 1.1) (NEW), beast-guile2.patch (NONE -> 1.1) (NEW)
---- Diffs:
================================================================
Index: packages/beast/beast-desktop.patch
diff -u packages/beast/beast-desktop.patch:1.1 packages/beast/beast-desktop.patch:1.2
--- packages/beast/beast-desktop.patch:1.1 Tue Nov 23 22:56:19 2004
+++ packages/beast/beast-desktop.patch Fri Apr 27 18:03:26 2012
@@ -1,10 +1,9 @@
-diff -aurN beast-0.6.3.orig/data/beast.desktop.in beast-0.6.3/data/beast.desktop.in
---- beast-0.6.3.orig/data/beast.desktop.in 2004-09-13 15:16:52.000000000 +0200
-+++ beast-0.6.3/data/beast.desktop.in 2004-11-23 22:34:38.431775048 +0100
+--- beast-0.7.4/data/beast.desktop.in.orig 2011-04-08 02:22:34.000000000 +0200
++++ beast-0.7.4/data/beast.desktop.in 2012-04-19 18:36:41.388043007 +0200
@@ -8,5 +8,5 @@
TryExec=beast
Exec=beast
Terminal=false
--Categories=GTK;GNOME;Application;AudioVideo;AudioVideoEditing;Music;Player;
-+Categories=GTK;GNOME;Audio;
+-Categories=GTK;GNOME;Audio;AudioVideo;AudioVideoEditing;Music;Player;Sequencer;Midi;
++Categories=GTK;GNOME;Audio;Sequencer;Midi;
MimeType=audio/x-bse;audio/x-bsewave;
================================================================
Index: packages/beast/beast.spec
diff -u packages/beast/beast.spec:1.26 packages/beast/beast.spec:1.27
--- packages/beast/beast.spec:1.26 Mon Feb 12 22:23:49 2007
+++ packages/beast/beast.spec Fri Apr 27 18:03:26 2012
@@ -2,28 +2,43 @@
Summary: BEAST (the Bedevilled Audio System)
Summary(pl.UTF-8): System dźwięku BEAST (Bedevilled Audio System)
Name: beast
-Version: 0.6.6
+Version: 0.7.4
Release: 1
-License: GPL, LGPL
-Group: Applications
-Source0: http://beast.gtk.org/beast-ftp/v0.6/%{name}-%{version}.tar.gz
-# Source0-md5: b79337930476c7a19f211b91857c4b4c
+License: LGPL v2.1+ (library/engine), GPL v2+ (application)
+Group: Applications/Sound
+Source0: http://beast.gtk.org/beast-ftp/v0.7/%{name}-%{version}.tar.bz2
+# Source0-md5: f383762ef20a6ed1ee0ee0e43172bfd6
Patch0: %{name}-desktop.patch
+Patch1: %{name}-guile2.patch
+Patch2: %{name}-assert.patch
+Patch3: %{name}-c++.patch
URL: http://beast.gtk.org/
+BuildRequires: alsa-lib-devel >= 1.0.5
BuildRequires: autoconf >= 2.57
-BuildRequires: automake
-BuildRequires: gtk+2-devel >= 2:2.4.11
-BuildRequires: guile-devel >= 1.6
+BuildRequires: automake >= 1.9
+BuildRequires: glib2-devel >= 1:2.6.4
+BuildRequires: gtk+2-devel >= 2:2.12.12
+BuildRequires: guile-devel >= 2.0
BuildRequires: libart_lgpl-devel >= 2.3.8
BuildRequires: libgnomecanvas-devel >= 2.4.0
BuildRequires: libmad-devel >= 0.14.2
+BuildRequires: libogg-devel >= 1:1.0.0
BuildRequires: libstdc++-devel
BuildRequires: libtool
-BuildRequires: libvorbis-devel >= 1:1.0
-BuildRequires: perl-base
+BuildRequires: libvorbis-devel >= 1:1.0.0
+BuildRequires: pango-devel >= 1:1.4.0
+BuildRequires: perl-base >= 5.2
BuildRequires: pkgconfig
+BuildRequires: python >= 2.4.1
+BuildRequires: xorg-lib-libX11-devel
Requires(post,postun): /sbin/ldconfig
Requires(post,postun): shared-mime-info
+Requires: alsa-lib >= 1.0.5
+Requires: glib2 >= 1:2.6.4
+Requires: gtk+2 >= 2:2.12.12
+Requires: libart_lgpl >= 2.3.8
+Requires: libgnomecanvas >= 2.4.0
+Requires: pango >= 1:1.4.0
BuildRoot: %{tmpdir}/%{name}-%{version}-root-%(id -u -n)
%description
@@ -44,6 +59,9 @@
Summary(pl.UTF-8): Pliki nagłówkowe dla BEAST
Group: Development/Libraries
Requires: %{name} = %{version}-%{release}
+Requires: glib2-devel >= 1:2.6.4
+Requires: libogg-devel >= 1:1.0.0
+Requires: libvorbis-devel >= 1:1.0.0
%description devel
Header files for BEAST.
@@ -54,25 +72,31 @@
%prep
%setup -q
%patch0 -p1
+%patch1 -p1
+%patch2 -p1
+%patch3 -p1
%build
-rm -f aclocal.m4
%{__libtoolize}
%{__aclocal}
+%{__autoheader}
%{__autoconf}
+%{__automake}
%configure \
- --enable-debug=no
+ --disable-debug \
+ --disable-silent-rules
%{__make}
%install
rm -rf $RPM_BUILD_ROOT
-install -d $RPM_BUILD_ROOT{%{_desktopdir},%{_pixmapsdir}}
+#install -d $RPM_BUILD_ROOT{%{_desktopdir},%{_pixmapsdir}}
%{__make} install \
- DESTDIR=$RPM_BUILD_ROOT
+ DESTDIR=$RPM_BUILD_ROOT \
+ UPDATE_MIME_DATABASE=
-rm -f $RPM_BUILD_ROOT%{_libdir}/bse/v%{version}/plugins/*.la
+%{__rm} $RPM_BUILD_ROOT%{_libdir}/bse/v%{version}/{drivers,plugins}/*.la
%find_lang %{name} --all-name
@@ -93,31 +117,41 @@
%files -f %{name}.lang
%defattr(644,root,root,755)
-%attr(755,root,root) %{_bindir}/*
-%attr(755,root,root) %{_libdir}/lib*.so.*.*.*
+%attr(755,root,root) %{_bindir}/beast*
+%attr(755,root,root) %{_bindir}/bsescm*
+%attr(755,root,root) %{_bindir}/bsewavetool
+%attr(755,root,root) %{_bindir}/sfidl
+%attr(755,root,root) %{_libdir}/libbse-0.7.so.*.*.*
+%attr(755,root,root) %ghost %{_libdir}/libbse-0.7.so.4
%dir %{_libdir}/bse
%dir %{_libdir}/bse/v%{version}
+%dir %{_libdir}/bse/v%{version}/drivers
+%attr(755,root,root) %{_libdir}/bse/v%{version}/drivers/bsemididevice-alsa.so
+%attr(755,root,root) %{_libdir}/bse/v%{version}/drivers/bsepcmdevice-alsa.so
%dir %{_libdir}/bse/v%{version}/plugins
%attr(755,root,root) %{_libdir}/bse/v%{version}/plugins/*.so
%{_datadir}/%{name}
%{_datadir}/bse
-%{_datadir}/application-registry/%{name}.applications
+# obsolete GNOME2-specific?
+#%{_datadir}/application-registry/%{name}.applications
+%{_datadir}/mime/packages/beast.xml
%{_datadir}/mime-info/bse.*
%{_desktopdir}/%{name}.desktop
-%{_pixmapsdir}/*.png
-%{_datadir}/mime/audio/x-bse.xml
-%{_datadir}/mime/audio/x-bsewave.xml
-%{_datadir}/mime/packages/beast.xml
-%{_mandir}/man1/*
+%{_pixmapsdir}/beast*.png
+%{_mandir}/man1/beast.1*
+%{_mandir}/man1/bsescm.1*
+%{_mandir}/man1/bsewavetool.1*
+%{_mandir}/man1/sfidl.1*
+%{_mandir}/man5/bse.5*
%files devel
%defattr(644,root,root,755)
-%attr(755,root,root) %{_libdir}/*.so
-%{_libdir}/*.la
+%attr(755,root,root) %{_libdir}/libbse.so
+%{_libdir}/libbse.la
+%{_includedir}/birnet
%{_includedir}/bse
%{_includedir}/sfi
-%{_mandir}/man3/*
-%{_pkgconfigdir}/*.pc
+%{_pkgconfigdir}/bse.pc
%define date %(echo `LC_ALL="C" date +"%a %b %d %Y"`)
%changelog
@@ -125,6 +159,12 @@
All persons listed below can be reached at <cvs_login>@pld-linux.org
$Log$
+Revision 1.27 2012/04/27 16:03:26 qboosh
+- updated to 0.7.4
+- updated desktop patch
+- added assert,c++ patches (for current gcc/glib)
+- added guile2 patch (port to guile 2.x)
+
Revision 1.26 2007/02/12 21:23:49 glen
- tabs in preamble
================================================================
Index: packages/beast/beast-assert.patch
diff -u /dev/null packages/beast/beast-assert.patch:1.1
--- /dev/null Fri Apr 27 18:03:31 2012
+++ packages/beast/beast-assert.patch Fri Apr 27 18:03:26 2012
@@ -0,0 +1,14 @@
+--- beast-0.7.4/birnet/birnetutils.cc.orig 2011-04-08 02:22:30.000000000 +0200
++++ beast-0.7.4/birnet/birnetutils.cc 2012-04-25 17:21:10.320665704 +0200
+@@ -250,9 +250,11 @@
+ BIRNET_STATIC_ASSERT (FLT_MIN <= 1E-37);
+ BIRNET_STATIC_ASSERT (FLT_MAX >= 1E+37);
+ BIRNET_STATIC_ASSERT (FLT_EPSILON <= 1E-5);
++#if 0 /* don't work with such static_assert */
+ BIRNET_STATIC_ASSERT (DBL_MIN <= 1E-37);
+ BIRNET_STATIC_ASSERT (DBL_MAX >= 1E+37);
+ BIRNET_STATIC_ASSERT (DBL_EPSILON <= 1E-9);
++#endif
+ BIRNET_STATIC_ASSERT (LDBL_MIN <= 1E-37);
+ BIRNET_STATIC_ASSERT (LDBL_MAX >= 1E+37);
+ BIRNET_STATIC_ASSERT (LDBL_EPSILON <= 1E-9);
================================================================
Index: packages/beast/beast-c++.patch
diff -u /dev/null packages/beast/beast-c++.patch:1.1
--- /dev/null Fri Apr 27 18:03:31 2012
+++ packages/beast/beast-c++.patch Fri Apr 27 18:03:26 2012
@@ -0,0 +1,11 @@
+--- beast-0.7.4/bse/bsecxxvalue.cc.orig 2011-04-08 19:39:21.000000000 +0200
++++ beast-0.7.4/bse/bsecxxvalue.cc 2012-04-26 16:51:16.032235592 +0200
+@@ -56,7 +56,7 @@
+ {
+ GValue *v = gvalue();
+ if (SFI_VALUE_HOLDS_STRING (v))
+- return sfi_value_get_string (v);
++ return (const SfiString)sfi_value_get_string (v);
+ else if (SFI_VALUE_HOLDS_CHOICE (v))
+ return sfi_value_get_choice (v);
+ else
================================================================
Index: packages/beast/beast-guile2.patch
diff -u /dev/null packages/beast/beast-guile2.patch:1.1
--- /dev/null Fri Apr 27 18:03:31 2012
+++ packages/beast/beast-guile2.patch Fri Apr 27 18:03:26 2012
@@ -0,0 +1,292 @@
+--- beast-0.7.4/configure.in.orig 2011-04-09 00:20:56.000000000 +0200
++++ beast-0.7.4/configure.in 2012-04-20 22:01:31.005986007 +0200
+@@ -421,12 +421,14 @@
+ GUILE_VERSION=`$GUILE_CONFIG info guileversion`
+ GUILE_CFLAGS=`$GUILE_CONFIG compile`
+ GUILE_LDFLAGS=`$GUILE_CONFIG link`
++ oldCPPFLAGS="$CPPFLAGS"
++ CPPFLAGS="$CPPFLAGS $GUILE_CFLAGS"
+ MC_CHECK_VERSION($GUILE_VERSION, $REQUIRED_VERSION, [guile_tests=`expr $guile_tests + 1`])
+ dnl # check headers seperately, since some distributions ship on-devel guile packages with guile-config
+- AC_CHECK_HEADER(guile/gh.h, guile_tests=`expr $guile_tests + 1`)
+- AC_CHECK_HEADER(libguile/properties.h, guile_tests=`expr $guile_tests + 1`) dnl # guile-1.6 headerfile
++ AC_CHECK_HEADER(libguile.h, guile_tests=`expr $guile_tests + 1`)
++ CPPFLAGS="$oldCPPFLAGS"
+ fi
+- if test $guile_tests = 4 ; then
++ if test $guile_tests = 3 ; then
+ BSESCM_CFLAGS="$GUILE_CFLAGS $BSESCM_CFLAGS"
+ BSESCM_LIBS="$GUILE_LDFLAGS $BSESCM_LIBS"
+ else
+--- beast-0.7.4/shell/bsescm.c.orig 2011-04-08 19:39:22.000000000 +0200
++++ beast-0.7.4/shell/bsescm.c 2012-04-26 21:18:52.321900930 +0200
+@@ -17,7 +17,7 @@
+ #include <string.h>
+ #include <errno.h>
+ #include <unistd.h>
+-#include <guile/gh.h>
++#include <libguile.h>
+ #include <bse/bse.h>
+ #include <bse/bsemain.h> /* for bse_init_textdomain_only() */
+ #include <sfi/sfistore.h> /* no bin-compat */
+@@ -33,7 +33,8 @@
+
+
+ /* --- prototypes --- */
+-static void gh_main (gint argc,
++static void gh_main (void *closure,
++ gint argc,
+ gchar *argv[]);
+ static void shell_parse_args (gint *argc_p,
+ gchar ***argv_p);
+@@ -108,14 +109,15 @@ main (int argc,
+ /* now that the BSE thread runs, drop scheduling priorities if we have any */
+ setpriority (PRIO_PROCESS, getpid(), 0);
+
+- gh_enter (argc, argv, gh_main);
++ scm_boot_guile (argc, argv, gh_main, NULL);
+
+ return 0;
+ }
+
+
+ static void
+-gh_main (int argc,
++gh_main (void * closure,
++ int argc,
+ char *argv[])
+ {
+ /* initial interpreter setup */
+@@ -130,11 +132,11 @@ gh_main (int argc,
+
+ /* exec Bse Scheme bootup code */
+ const gchar *boot_script = g_intern_printf ("%s/%s", boot_script_path, "bse-scm-glue.boot");
+- gh_load (boot_script);
++ scm_c_primitive_load (boot_script);
+
+ /* eval, auto-play or interactive */
+ if (bse_scm_eval_expr)
+- gh_eval_str (bse_scm_eval_expr);
++ scm_c_eval_string (bse_scm_eval_expr);
+ else
+ {
+ gboolean call_auto_play = FALSE;
+@@ -157,14 +159,14 @@ gh_main (int argc,
+ }
+ /* auto-play or interactive */
+ if (call_auto_play)
+- gh_eval_str ("(bse-scm-auto-play)");
++ scm_c_eval_string ("(bse-scm-auto-play)");
+ else
+ {
+ if (bse_scm_auto_load)
+- gh_eval_str ("(bse-server-register-blocking bse-server-register-core-plugins #f)"
++ scm_c_eval_string ("(bse-server-register-blocking bse-server-register-core-plugins #f)"
+ "(bse-server-register-blocking bse-server-register-scripts #f)"
+ "(bse-server-register-blocking bse-server-register-ladspa-plugins #f)");
+- gh_repl (argc, argv);
++ scm_shell (argc, argv);
+ }
+ }
+
+--- beast-0.7.4/shell/bsescminterp.h.orig 2011-04-08 19:39:22.000000000 +0200
++++ beast-0.7.4/shell/bsescminterp.h 2012-04-26 20:11:33.745318439 +0200
+@@ -18,7 +18,7 @@
+ #define __BSE_SCM_INTERP_H__
+
+ #include <bse/bse.h>
+-#include <guile/gh.h>
++#include <libguile.h>
+
+ G_BEGIN_DECLS
+
+--- beast-0.7.4/shell/bsescminterp.c.orig 2011-04-08 19:39:22.000000000 +0200
++++ beast-0.7.4/shell/bsescminterp.c 2012-04-26 20:59:51.038591385 +0200
+@@ -55,7 +55,7 @@
+ #define IS_SCM_INT(s_scm) SCM_I_INUMP (s_scm) // scm_is_integer() breaks for non-fractional floats
+ #define SFI_NUM_FROM_SCM(s_scm) ((SfiNum) scm_to_int64 (s_scm))
+ #define STRING_CHARS_FROM_SCM(s_scm) scm_i_string_chars (s_scm)
+-#define STRING_LENGTH_FROM_SCM(s_scm) scm_i_string_length (s_scm)
++#define STRING_LENGTH_FROM_SCM(s_scm) scm_c_string_length (s_scm)
+ #define IS_SCM_STRING(s_scm) scm_is_string (s_scm)
+ #define IS_SCM_SYMBOL(s_scm) scm_is_symbol (s_scm)
+ #define IS_SCM_BOOL(s_scm) scm_is_bool (s_scm)
+@@ -157,7 +157,7 @@ bse_scm_enter_gc (SCM *scm_gc_
+ gc_cell->free_func = free_func;
+ gc_cell->size_hint = size_hint + sizeof (BseScmGCCell);
+ SCM_NEWSMOB (s_cell, tc_glue_gc_cell, gc_cell);
+- *scm_gc_list = gh_cons (s_cell, *scm_gc_list);
++ *scm_gc_list = scm_cons (s_cell, *scm_gc_list);
+ }
+
+ static SCM
+@@ -494,21 +494,21 @@ bse_scm_from_value (const GValue *value)
+ sval = sfi_value_get_bool (value) ? SCM_BOOL_T : SCM_BOOL_F;
+ break;
+ case SFI_SCAT_INT:
+- sval = gh_long2scm (sfi_value_get_int (value));
++ sval = scm_from_long (sfi_value_get_int (value));
+ break;
+ case SFI_SCAT_NUM:
+ sval = scm_long_long2num (sfi_value_get_num (value));
+ break;
+ case SFI_SCAT_REAL:
+- sval = gh_double2scm (sfi_value_get_real (value));
++ sval = scm_make_real (sfi_value_get_real (value));
+ break;
+ case SFI_SCAT_STRING:
+ str = sfi_value_get_string (value);
+- sval = str ? gh_str02scm (str) : BSE_SCM_NIL;
++ sval = str ? scm_from_locale_string (str) : BSE_SCM_NIL;
+ break;
+ case SFI_SCAT_CHOICE:
+ str = sfi_value_get_choice (value);
+- sval = str ? gh_symbol2scm (str) : BSE_SCM_NIL;
++ sval = str ? scm_from_locale_symbol (str) : BSE_SCM_NIL;
+ break;
+ case SFI_SCAT_BBLOCK:
+ sval = BSE_SCM_NIL;
+@@ -692,7 +692,7 @@ signal_marshal_sproc (void *data)
+ sdata->n_args = 0;
+
+ while (i--)
+- args = gh_cons (bse_scm_from_value (sdata->args + i), args);
++ args = scm_cons (bse_scm_from_value (sdata->args + i), args);
+
+ s_ret = scm_apply (sdata->s_lambda, args, SCM_EOL);
+
+@@ -729,7 +729,7 @@ bse_scm_signal_connect (SCM s_proxy,
+ proxy = SCM_GET_GLUE_PROXY (s_proxy);
+
+ SCM_ASSERT (IS_SCM_STRING (s_signal), s_signal, SCM_ARG2, "bse-signal-connect");
+- SCM_ASSERT (gh_procedure_p (s_lambda), s_lambda, SCM_ARG3, "bse-signal-connect");
++ SCM_ASSERT (scm_is_true(scm_procedure_p (s_lambda)), s_lambda, SCM_ARG3, "bse-signal-connect");
+
+ scm_gc_protect_object (s_lambda);
+
+@@ -744,7 +744,7 @@ bse_scm_signal_connect (SCM s_proxy,
+ id = sfi_glue_signal_connect_closure (proxy, sdata->signal, closure, NULL);
+ BSE_SCM_ALLOW_INTS ();
+
+- return gh_ulong2scm (id);
++ return scm_from_ulong (id);
+ }
+
+ SCM
+@@ -917,14 +917,6 @@ void
+ bse_scm_enable_script_register (gboolean enabled)
+ {
+ script_register_enabled = enabled != FALSE;
+- if (script_register_enabled)
+- {
+- /* enable position recording wchih is required for __FILE__ and __LINE__ emulation */
+- SCM_DEVAL_P = 1;
+- SCM_BACKTRACE_P = 1;
+- SCM_RECORD_POSITIONS_P = 1;
+- SCM_RESET_DEBUG_MODE;
+- }
+ }
+
+ SCM
+@@ -1081,7 +1073,7 @@ bse_scm_context_pending (void)
+ pending = sfi_glue_context_pending ();
+ BSE_SCM_ALLOW_INTS ();
+
+- return gh_bool2scm (pending);
++ return scm_from_bool (pending);
+ }
+
+ SCM
+@@ -1090,7 +1082,7 @@ bse_scm_context_iteration (SCM s_may_blo
+ BSE_SCM_DEFER_INTS ();
+ if (sfi_glue_context_pending ())
+ sfi_glue_context_dispatch ();
+- else if (gh_scm2bool (s_may_block))
++ else if (scm_from_bool (s_may_block))
+ {
+ /* FIXME: we need a real poll() based wait implementation here */
+ do
+@@ -1124,14 +1116,14 @@ register_types (const gchar **types)
+ {
+ s = g_strdup_printf ("(define (bse-is-%s proxy) (bse-item-check-is-a proxy \"%s\"))",
+ sname + 4, *types);
+- gh_eval_str (s);
++ scm_c_eval_string (s);
+ g_free (s);
+ }
+ for (i = 0; names[i]; i++)
+ {
+ gchar *s = g_strdup_printf ("(define %s-%s (lambda list (bse-glue-call \"%s+%s\" list)))",
+ sname, names[i], *types, names[i]);
+- gh_eval_str (s);
++ scm_c_eval_string (s);
+ g_free (s);
+ }
+ g_free (sname);
+@@ -1159,29 +1151,29 @@ bse_scm_interp_init (void)
+
+ tc_glue_rec = scm_make_smob_type ("BseGlueRec", 0);
+ scm_set_smob_free (tc_glue_rec, bse_scm_free_glue_rec);
+- gh_new_procedure ("bse-rec-get", bse_scm_glue_rec_get, 2, 0, 0);
+- gh_new_procedure ("bse-rec-set", bse_scm_glue_rec_set, 3, 0, 0);
+- gh_new_procedure ("bse-rec-new", bse_scm_glue_rec_new, 0, 1, 0);
+- gh_new_procedure ("bse-rec-print", bse_scm_glue_rec_print, 1, 0, 0);
++ scm_c_define_gsubr ("bse-rec-get", 2, 0, 0, bse_scm_glue_rec_get);
++ scm_c_define_gsubr ("bse-rec-set", 3, 0, 0, bse_scm_glue_rec_set);
++ scm_c_define_gsubr ("bse-rec-new", 0, 1, 0, bse_scm_glue_rec_new);
++ scm_c_define_gsubr ("bse-rec-print", 1, 0, 0, bse_scm_glue_rec_print);
+
+ tc_glue_proxy = scm_make_smob_type ("SfiProxy", 0);
+ SCM_NEWSMOB (glue_null_proxy, tc_glue_proxy, 0);
+ scm_permanent_object (glue_null_proxy);
+ scm_set_smob_equalp (tc_glue_proxy, bse_scm_proxy_equalp);
+ scm_set_smob_print (tc_glue_proxy, bse_scm_proxy_print);
+- gh_new_procedure ("bse-proxy-is-null?", bse_scm_proxy_is_null, 1, 0, 0);
+- gh_new_procedure ("bse-proxy-get-null", bse_scm_proxy_get_null, 0, 1, 0);
++ scm_c_define_gsubr ("bse-proxy-is-null?", 1, 0, 0, bse_scm_proxy_is_null);
++ scm_c_define_gsubr ("bse-proxy-get-null", 0, 1, 0, bse_scm_proxy_get_null);
+
+- gh_new_procedure ("bse-glue-call", bse_scm_glue_call, 2, 0, 0);
+- gh_new_procedure ("bse-glue-set-prop", bse_scm_glue_set_prop, 3, 0, 0);
+- gh_new_procedure ("bse-glue-get-prop", bse_scm_glue_get_prop, 2, 0, 0);
++ scm_c_define_gsubr ("bse-glue-call", 2, 0, 0, bse_scm_glue_call);
++ scm_c_define_gsubr ("bse-glue-set-prop", 3, 0, 0, bse_scm_glue_set_prop);
++ scm_c_define_gsubr ("bse-glue-get-prop", 2, 0, 0, bse_scm_glue_get_prop);
+
+ procs = sfi_glue_list_proc_names ();
+ for (i = 0; procs[i]; i++)
+ if (strncmp (procs[i], "bse-", 4) == 0)
+ {
+ gchar *s = g_strdup_printf ("(define bse-%s (lambda list (bse-glue-call \"%s\" list)))", procs[i] + 4, procs[i]);
+- gh_eval_str (s);
++ scm_c_eval_string (s);
+ g_free (s);
+ }
+
+@@ -1189,15 +1181,15 @@ bse_scm_interp_init (void)
+ procs2[1] = NULL;
+ register_types (procs2);
+
+- gh_new_procedure0_0 ("bse-server-get", bse_scm_server_get);
+- gh_new_procedure ("bse-script-register", bse_scm_script_register, 6, 0, 1);
+- gh_new_procedure ("bse-script-fetch-args", bse_scm_script_args, 0, 0, 0);
+- gh_new_procedure ("bse-choice-match?", bse_scm_choice_match, 2, 0, 0);
+- gh_new_procedure ("bse-signal-connect", bse_scm_signal_connect, 3, 0, 0);
+- gh_new_procedure ("bse-signal-disconnect", bse_scm_signal_disconnect, 2, 0, 0);
+- gh_new_procedure ("bse-context-pending", bse_scm_context_pending, 0, 0, 0);
+- gh_new_procedure ("bse-context-iteration", bse_scm_context_iteration, 1, 0, 0);
+- gh_new_procedure ("bse-script-message", bse_scm_script_message, 1, 0, 1);
+- gh_new_procedure ("bse-gettext", bse_scm_gettext, 1, 0, 0);
+- gh_new_procedure ("bse-gettext-q", bse_scm_gettext_q, 1, 0, 0);
++ scm_c_define_gsubr ("bse-server-get", 0, 0, 0, bse_scm_server_get);
++ scm_c_define_gsubr ("bse-script-register", 6, 0, 1, bse_scm_script_register);
++ scm_c_define_gsubr ("bse-script-fetch-args", 0, 0, 0, bse_scm_script_args);
++ scm_c_define_gsubr ("bse-choice-match?", 2, 0, 0, bse_scm_choice_match);
++ scm_c_define_gsubr ("bse-signal-connect", 3, 0, 0, bse_scm_signal_connect);
++ scm_c_define_gsubr ("bse-signal-disconnect", 2, 0, 0, bse_scm_signal_disconnect);
++ scm_c_define_gsubr ("bse-context-pending", 0, 0, 0, bse_scm_context_pending);
++ scm_c_define_gsubr ("bse-context-iteration", 1, 0, 0, bse_scm_context_iteration);
++ scm_c_define_gsubr ("bse-script-message", 1, 0, 1, bse_scm_script_message);
++ scm_c_define_gsubr ("bse-gettext", 1, 0, 0, bse_scm_gettext);
++ scm_c_define_gsubr ("bse-gettext-q", 1, 0, 0, bse_scm_gettext_q);
+ }
================================================================
---- CVS-web:
http://cvs.pld-linux.org/packages/beast/beast-desktop.patch?r1=1.1&r2=1.2
http://cvs.pld-linux.org/packages/beast/beast.spec?r1=1.26&r2=1.27
More information about the pld-cvs-commit
mailing list