1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
/* BSE - Better Sound Engine -*-mode: c;-*-
* Copyright (C) 2002 Tim Janik
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* A copy of the GNU Lesser General Public License should ship along
* with this library; if not, see http://www.gnu.org/copyleft/.
*/
#include <bse/bseplugin.h>
#include <bse/bseprocedure.h>
#include <bse/bsecontainer.h>
AUTHORS = "Tim Janik <timj@gtk.org>";
LICENSE = "GNU Lesser General Public License";
PROCEDURE (bse-proxy-check, "Proxy Check") {
HELP = "Check whether a proxy has a certain type.";
IN = bse_param_spec_object ("item", "Item", "The Item",
BSE_TYPE_ITEM, SFI_PARAM_STANDARD);
IN = sfi_pspec_string ("type_name", "Type Name", NULL,
NULL, SFI_PARAM_STANDARD);
OUT = sfi_pspec_bool ("is_a", NULL, NULL,
FALSE, SFI_PARAM_STANDARD);
} BODY (BseProcedureClass *proc,
const GValue *in_values,
GValue *out_values)
{
/* extract parameter values */
BseItem *item = bse_value_get_object (in_values++);
gchar *type_name = sfi_value_get_string (in_values++);
GType type;
gboolean is_a;
/* check parameters */
if (!type_name)
type_name = "";
/* action */
type = g_type_from_name (type_name);
is_a = item && g_type_is_a (G_OBJECT_TYPE (item), type);
/* set output parameters */
sfi_value_set_bool (out_values++, is_a);
return BSE_ERROR_NONE;
}
|
