2005-03-13 22:43:07 +00:00
|
|
|
|
/* srfi-60.h --- SRFI-60 procedures for Guile
|
|
|
|
|
|
*
|
2006-04-16 23:18:55 +00:00
|
|
|
|
* Copyright (C) 2005, 2006 Free Software Foundation, Inc.
|
2005-03-13 22:43:07 +00:00
|
|
|
|
*
|
|
|
|
|
|
* 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.
|
|
|
|
|
|
*
|
|
|
|
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
|
|
|
|
* License along with this library; if not, write to the Free Software
|
2005-05-23 19:57:22 +00:00
|
|
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
2005-03-13 22:43:07 +00:00
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#ifndef SCM_SRFI_60_H
|
|
|
|
|
|
#define SCM_SRFI_60_H
|
|
|
|
|
|
|
|
|
|
|
|
/* SCM_SRFI60_API is a macro prepended to all function and data definitions
|
|
|
|
|
|
which should be exported or imported in the resulting dynamic link
|
|
|
|
|
|
library in the Win32 port. */
|
|
|
|
|
|
|
|
|
|
|
|
#if defined (SCM_SRFI60_IMPORT)
|
|
|
|
|
|
# define SCM_SRFI60_API __declspec (dllimport) extern
|
|
|
|
|
|
#elif defined (SCM_SRFI60_EXPORT) || defined (DLL_EXPORT)
|
|
|
|
|
|
# define SCM_SRFI60_API __declspec (dllexport) extern
|
|
|
|
|
|
#else
|
|
|
|
|
|
# define SCM_SRFI60_API extern
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
SCM_SRFI60_API SCM scm_srfi60_log2_binary_factors (SCM n);
|
|
|
|
|
|
SCM_SRFI60_API SCM scm_srfi60_copy_bit (SCM index, SCM n, SCM bit);
|
|
|
|
|
|
SCM_SRFI60_API SCM scm_srfi60_rotate_bit_field (SCM n, SCM count, SCM start, SCM end);
|
|
|
|
|
|
SCM_SRFI60_API SCM scm_srfi60_reverse_bit_field (SCM n, SCM start, SCM end);
|
|
|
|
|
|
SCM_SRFI60_API SCM scm_srfi60_integer_to_list (SCM n, SCM len);
|
|
|
|
|
|
SCM_SRFI60_API SCM scm_srfi60_list_to_integer (SCM lst);
|
|
|
|
|
|
|
|
|
|
|
|
SCM_SRFI60_API void scm_init_srfi_60 (void);
|
|
|
|
|
|
|
|
|
|
|
|
#endif /* SCM_SRFI_60_H */
|
