diff options
Diffstat (limited to 'srfi/srfi-14.h')
-rw-r--r-- | srfi/srfi-14.h | 128 |
1 files changed, 0 insertions, 128 deletions
diff --git a/srfi/srfi-14.h b/srfi/srfi-14.h deleted file mode 100644 index d6155fa63..000000000 --- a/srfi/srfi-14.h +++ /dev/null @@ -1,128 +0,0 @@ -#ifndef SCM_SRFI_14_H -#define SCM_SRFI_14_H -/* srfi-14.c --- SRFI-14 procedures for Guile - * - * Copyright (C) 2001 Free Software Foundation, Inc. - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License as - * published by the Free Software Foundation; either version 2, 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 - * General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA - * - * As a special exception, the Free Software Foundation gives - * permission for additional uses of the text contained in its release - * of GUILE. - * - * The exception is that, if you link the GUILE library with other - * files to produce an executable, this does not by itself cause the - * resulting executable to be covered by the GNU General Public - * License. Your use of that executable is in no way restricted on - * account of linking the GUILE library code into it. - * - * This exception does not however invalidate any other reasons why - * the executable file might be covered by the GNU General Public - * License. - * - * This exception applies only to the code released by the Free - * Software Foundation under the name GUILE. If you copy code from - * other Free Software Foundation releases into a copy of GUILE, as - * the General Public License permits, the exception does not apply to - * the code that you add in this way. To avoid misleading anyone as - * to the status of such modified files, you must delete this - * exception notice from them. - * - * If you write modifications of your own for GUILE, it is your choice - * whether to permit this exception to apply to your modifications. - * If you do not wish that, delete this exception notice. */ - - -/* SCM_SRFI1314_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_SRFI1314_IMPORT) -# define SCM_SRFI1314_API __declspec (dllimport) extern -#elif defined (SCM_SRFI1314_EXPORT) || defined (DLL_EXPORT) -# define SCM_SRFI1314_API __declspec (dllexport) extern -#else -# define SCM_SRFI1314_API extern -#endif - -#define SCM_CHARSET_SIZE 256 - -/* We expect 8-bit bytes here. Should be no problem in the year - 2001. */ -#ifndef SCM_BITS_PER_LONG -# define SCM_BITS_PER_LONG (sizeof (long) * 8) -#endif - -#define SCM_CHARSET_GET(cs, idx) (((long *) SCM_SMOB_DATA (cs))\ - [((unsigned char) (idx)) / SCM_BITS_PER_LONG] &\ - (1L << (((unsigned char) (idx)) % SCM_BITS_PER_LONG))) - -#define SCM_CHARSETP(x) (!SCM_IMP (x) && (SCM_TYP16 (x) == scm_tc16_charset)) - -/* Smob type code for character sets. */ -SCM_SRFI1314_API int scm_tc16_charset; - -SCM_SRFI1314_API void scm_c_init_srfi_14 (void); -SCM_SRFI1314_API void scm_init_srfi_14 (void); - -SCM_SRFI1314_API SCM scm_char_set_p (SCM obj); -SCM_SRFI1314_API SCM scm_char_set_eq (SCM char_sets); -SCM_SRFI1314_API SCM scm_char_set_leq (SCM char_sets); -SCM_SRFI1314_API SCM scm_char_set_hash (SCM cs, SCM bound); -SCM_SRFI1314_API SCM scm_char_set_cursor (SCM cs); -SCM_SRFI1314_API SCM scm_char_set_ref (SCM cs, SCM cursor); -SCM_SRFI1314_API SCM scm_char_set_cursor_next (SCM cs, SCM cursor); -SCM_SRFI1314_API SCM scm_end_of_char_set_p (SCM cursor); -SCM_SRFI1314_API SCM scm_char_set_fold (SCM kons, SCM knil, SCM cs); -SCM_SRFI1314_API SCM scm_char_set_unfold (SCM p, SCM f, SCM g, SCM seed, SCM base_cs); -SCM_SRFI1314_API SCM scm_char_set_unfold_x (SCM p, SCM f, SCM g, SCM seed, SCM base_cs); -SCM_SRFI1314_API SCM scm_char_set_for_each (SCM proc, SCM cs); -SCM_SRFI1314_API SCM scm_char_set_map (SCM proc, SCM cs); -SCM_SRFI1314_API SCM scm_char_set_copy (SCM cs); -SCM_SRFI1314_API SCM scm_char_set (SCM rest); -SCM_SRFI1314_API SCM scm_list_to_char_set (SCM list, SCM base_cs); -SCM_SRFI1314_API SCM scm_list_to_char_set_x (SCM list, SCM base_cs); -SCM_SRFI1314_API SCM scm_string_to_char_set (SCM str, SCM base_cs); -SCM_SRFI1314_API SCM scm_string_to_char_set_x (SCM str, SCM base_cs); -SCM_SRFI1314_API SCM scm_char_set_filter (SCM pred, SCM cs, SCM base_cs); -SCM_SRFI1314_API SCM scm_char_set_filter_x (SCM pred, SCM cs, SCM base_cs); -SCM_SRFI1314_API SCM scm_ucs_range_to_char_set (SCM lower, SCM upper, SCM error, SCM base_cs); -SCM_SRFI1314_API SCM scm_ucs_range_to_char_set_x (SCM lower, SCM upper, SCM error, SCM base_cs); -SCM_SRFI1314_API SCM scm_char_set_size (SCM cs); -SCM_SRFI1314_API SCM scm_char_set_count (SCM pred, SCM cs); -SCM_SRFI1314_API SCM scm_char_set_to_list (SCM cs); -SCM_SRFI1314_API SCM scm_char_set_to_string (SCM cs); -SCM_SRFI1314_API SCM scm_char_set_contains_p (SCM cs, SCM ch); -SCM_SRFI1314_API SCM scm_char_set_every (SCM pred, SCM cs); -SCM_SRFI1314_API SCM scm_char_set_any (SCM pred, SCM cs); -SCM_SRFI1314_API SCM scm_char_set_adjoin (SCM cs, SCM rest); -SCM_SRFI1314_API SCM scm_char_set_delete (SCM cs, SCM rest); -SCM_SRFI1314_API SCM scm_char_set_adjoin_x (SCM cs, SCM rest); -SCM_SRFI1314_API SCM scm_char_set_delete_x (SCM cs, SCM rest); -SCM_SRFI1314_API SCM scm_char_set_complement (SCM cs); -SCM_SRFI1314_API SCM scm_char_set_union (SCM rest); -SCM_SRFI1314_API SCM scm_char_set_intersection (SCM rest); -SCM_SRFI1314_API SCM scm_char_set_difference (SCM cs1, SCM rest); -SCM_SRFI1314_API SCM scm_char_set_xor (SCM rest); -SCM_SRFI1314_API SCM scm_char_set_diff_plus_intersection (SCM cs1, SCM rest); -SCM_SRFI1314_API SCM scm_char_set_complement_x (SCM cs); -SCM_SRFI1314_API SCM scm_char_set_union_x (SCM cs1, SCM rest); -SCM_SRFI1314_API SCM scm_char_set_intersection_x (SCM cs1, SCM rest); -SCM_SRFI1314_API SCM scm_char_set_difference_x (SCM cs1, SCM rest); -SCM_SRFI1314_API SCM scm_char_set_xor_x (SCM cs1, SCM rest); -SCM_SRFI1314_API SCM scm_char_set_diff_plus_intersection_x (SCM cs1, SCM cs2, SCM rest); - -#endif /* SCM_SRFI_14_H */ |