3 /* srfi-1.h --- SRFI-1 procedures for Guile
5 * Copyright (C) 2002, 2003 Free Software Foundation, Inc.
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23 /* SCM_SRFI1_API is a macro prepended to all function and data definitions
24 which should be exported or imported in the resulting dynamic link
25 library in the Win32 port. */
27 #if defined (SCM_SRFI1_IMPORT)
28 # define SCM_SRFI1_API __declspec (dllimport) extern
29 #elif defined (SCM_SRFI1_EXPORT) || defined (DLL_EXPORT)
30 # define SCM_SRFI1_API __declspec (dllexport) extern
32 # define SCM_SRFI1_API extern
35 SCM_SRFI1_API SCM
scm_srfi1_count (SCM pred
, SCM lst1
, SCM rest
);
36 SCM_SRFI1_API SCM
scm_srfi1_delete (SCM x
, SCM lst
, SCM pred
);
37 SCM_SRFI1_API SCM
scm_srfi1_delete_x (SCM x
, SCM lst
, SCM pred
);
38 SCM_SRFI1_API SCM
scm_srfi1_delete_duplicates (SCM lst
, SCM pred
);
39 SCM_SRFI1_API SCM
scm_srfi1_delete_duplicates_x (SCM lst
, SCM pred
);
40 SCM_SRFI1_API SCM
scm_srfi1_length_plus (SCM lst
);
41 SCM_SRFI1_API SCM
scm_srfi1_list_copy (SCM lst
);
42 SCM_SRFI1_API SCM
scm_srfi1_map (SCM proc
, SCM arg1
, SCM args
);
43 SCM_SRFI1_API SCM
scm_srfi1_for_each (SCM proc
, SCM arg1
, SCM args
);
44 SCM_SRFI1_API SCM
scm_srfi1_member (SCM obj
, SCM ls
, SCM pred
);
45 SCM_SRFI1_API SCM
scm_srfi1_assoc (SCM key
, SCM alist
, SCM pred
);
46 SCM_SRFI1_API SCM
scm_srfi1_partition (SCM pred
, SCM list
);
48 SCM_SRFI1_API
void scm_init_srfi_1 (void);
50 #endif /* SCM_SRFI_1_H */