/usr/include/g-wrap/guile-runtime.h is in libgwrap-runtime-dev 1.9.14-2ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 | /**********************************************************************
Copyright (C) 2003-2005 Andreas Rottmann
This program 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, or (at
your option) any later version.
This program 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.
You should have received a copy of the GNU Lesser General Public
License along with this software; see the file COPYING. If not, write
to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139,
USA.
**********************************************************************/
#ifndef __G_WRAP_GUILE_RUNTIME_H__
#define __G_WRAP_GUILE_RUNTIME_H__
#include <libguile.h>
#include <g-wrap/ffi-support.h>
#include <g-wrap/core-runtime.h>
#include <g-wrap/guile-compatibility.h>
#ifdef __cplusplus
extern "C" {
#endif
typedef struct _GWEnumPair GWEnumPair;
struct _GWEnumPair
{
int val;
const char *sym;
};
void gw_guile_runtime_init (void);
SCM gw_guile_enum_val2sym(const GWEnumPair enum_pairs[], SCM scm_val,
SCM scm_show_all_p);
SCM gw_guile_enum_val2int(const GWEnumPair enum_pairs[], SCM scm_val);
void gw_guile_set_generics_module_x (SCM module);
void gw_guile_make_latent_variable (SCM sym, SCM proc, SCM arg);
void gw_guile_procedure_to_method_public (SCM proc, SCM class_name,
SCM generic_name, SCM n_req_args,
SCM use_optional_args);
/* G-Wrap C pointer object system funcs ****************************/
/*
* Copyright (C) 1996 Christopher Lee
*/
/** Wrapped C type funcs **/
SCM
gw_wct_create (const char *type_name,
int (*equal_p)(void *wcp_a, void *wcp_b),
int (*print)(SCM wcp, SCM port,
char writing_p,
int *use_default_printer_p),
SCM (*mark)(SCM wcp),
size_t (*cleanup)(void *wcp));
int gw_wct_p(SCM obj);
/** Wrapped C pointer funcs **/
/* create a wrapped C pointer of the given type, wrapping ptr */
SCM gw_wcp_assimilate_ptr(void *ptr, SCM type);
/* Before returning WCP, a <gw:wcp> SMOB, set DEPS as its list of
dependencies. DEPS should be a list of Scheme objects WCP depends on.
This is to prevent garbage-collection of the objects being used by
OBJECT. */
void gw_wcp_set_dependencies (SCM wcp, SCM deps);
/* see if the given obj is really a wcp */
int gw_wcp_p(SCM obj);
/* return the C pointer in the given wrapped C pointer object. */
void *gw_wcp_get_ptr(SCM wcp);
/* return non-zero if wrapped C pointer obj is of the given type. */
int gw_wcp_is_of_type_p(SCM type, SCM wcp);
/* return a new wrapped C pointer */
SCM gw_wcp_coerce(SCM wcp, SCM new_type);
/* set a finalization routine for the given wcp. Called at garbage
collection time with one argument, the wcp. */
/* private -- should only be manipulated by type-related code, not
accessed directly. */
void gw_wcp_set_scm_data(SCM wcp, SCM user_data);
SCM gw_wcp_get_scm_data(SCM wcp);
/* Misc ************************************************************/
void gw_wct_initialize (void);
#ifdef __cplusplus
}
#endif
#endif
|