From e2c2a6994d05124760ea7f18caf5d28fb47e453c Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 4 Jan 2010 12:11:33 +0100 Subject: add foreign value wrapper * libguile/foreign.h: * libguile/foreign.c: New files, implementing simple wrappers around foreign values, such as those that one might link in dynamically from a library. * libguile/tags.h (scm_tc7_foreign): Take a tc7 for foreign values. * libguile.h: * libguile/init.c: Add foreign.h to headers and init. * libguile/print.c (iprin1): Add printer for foreign values. * libguile/gc.c (scm_i_tag_name): Case for foreign values. * libguile/goops.c (scm_class_of, create_standard_classes): Add a class for foreign values. * libguile/evalext.c (scm_self_evaluating_p): Add case for foreign values. * libguile/Makefile.am: Add foreign.[ch] to the build. --- libguile.h | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'libguile.h') diff --git a/libguile.h b/libguile.h index 7a8b6333f..6f1b3f822 100644 --- a/libguile.h +++ b/libguile.h @@ -1,7 +1,7 @@ #ifndef SCM_LIBGUILE_H #define SCM_LIBGUILE_H -/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2002, 2003, 2004, 2006, 2008, 2009 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2002, 2003, 2004, 2006, 2008, 2009, 2010 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -50,6 +50,7 @@ extern "C" { #include "libguile/feature.h" #include "libguile/filesys.h" #include "libguile/fluids.h" +#include "libguile/foreign.h" #include "libguile/fports.h" #include "libguile/gc.h" #include "libguile/gdbint.h" -- cgit v1.2.1