4 /* srfi-13.c --- SRFI-13 procedures for Guile
6 * Copyright (C) 2001, 2004, 2006, 2008, 2010 Free Software Foundation, Inc.
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public License
10 * as published by the Free Software Foundation; either version 3 of
11 * the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful, but
14 * WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
25 #include "libguile/__scm.h"
27 SCM_API SCM
scm_string_null_p (SCM s
);
28 SCM_API SCM
scm_string_any (SCM pred
, SCM s
, SCM start
, SCM end
);
29 SCM_API SCM
scm_string_every (SCM pred
, SCM s
, SCM start
, SCM end
);
30 SCM_API SCM
scm_string_tabulate (SCM proc
, SCM len
);
31 SCM_API SCM
scm_string_to_list (SCM str
);
32 SCM_API SCM
scm_substring_to_list (SCM str
, SCM start
, SCM end
);
33 SCM_API SCM
scm_reverse_list_to_string (SCM chrs
);
34 SCM_API SCM
scm_string_join (SCM ls
, SCM delimiter
, SCM grammar
);
35 SCM_API SCM
scm_string_copy (SCM str
);
36 SCM_API SCM
scm_string_copy_x (SCM target
, SCM tstart
, SCM s
, SCM start
, SCM end
);
37 SCM_API SCM
scm_substring_move_x (SCM str1
, SCM start1
, SCM end1
,
38 SCM str2
, SCM start2
);
39 SCM_API SCM
scm_string_take (SCM s
, SCM n
);
40 SCM_API SCM
scm_string_drop (SCM s
, SCM n
);
41 SCM_API SCM
scm_string_take_right (SCM s
, SCM n
);
42 SCM_API SCM
scm_string_drop_right (SCM s
, SCM n
);
43 SCM_API SCM
scm_string_pad (SCM s
, SCM len
, SCM chr
, SCM start
, SCM end
);
44 SCM_API SCM
scm_string_pad_right (SCM s
, SCM len
, SCM chr
, SCM start
, SCM end
);
45 SCM_API SCM
scm_string_trim (SCM s
, SCM char_pred
, SCM start
, SCM end
);
46 SCM_API SCM
scm_string_trim_right (SCM s
, SCM char_pred
, SCM start
, SCM end
);
47 SCM_API SCM
scm_string_trim_both (SCM s
, SCM char_pred
, SCM start
, SCM end
);
48 SCM_API SCM
scm_substring_fill_x (SCM str
, SCM chr
, SCM start
, SCM end
);
49 SCM_API SCM
scm_string_fill_x (SCM str
, SCM chr
);
50 SCM_API SCM
scm_string_compare (SCM s1
, SCM s2
, SCM proc_lt
, SCM proc_eq
, SCM proc_gt
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
51 SCM_API SCM
scm_string_compare_ci (SCM s1
, SCM s2
, SCM proc_lt
, SCM proc_eq
, SCM proc_gt
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
52 SCM_API SCM
scm_string_eq (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
53 SCM_API SCM
scm_string_neq (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
54 SCM_API SCM
scm_string_lt (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
55 SCM_API SCM
scm_string_gt (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
56 SCM_API SCM
scm_string_le (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
57 SCM_API SCM
scm_string_ge (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
58 SCM_API SCM
scm_string_ci_eq (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
59 SCM_API SCM
scm_string_ci_neq (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
60 SCM_API SCM
scm_string_ci_lt (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
61 SCM_API SCM
scm_string_ci_gt (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
62 SCM_API SCM
scm_string_ci_le (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
63 SCM_API SCM
scm_string_ci_ge (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
64 SCM_API SCM
scm_substring_hash (SCM s
, SCM bound
, SCM start
, SCM end
);
65 SCM_API SCM
scm_substring_hash_ci (SCM s
, SCM bound
, SCM start
, SCM end
);
66 SCM_API SCM
scm_string_prefix_length (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
67 SCM_API SCM
scm_string_prefix_length_ci (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
68 SCM_API SCM
scm_string_suffix_length (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
69 SCM_API SCM
scm_string_suffix_length_ci (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
70 SCM_API SCM
scm_string_prefix_p (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
71 SCM_API SCM
scm_string_prefix_ci_p (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
72 SCM_API SCM
scm_string_suffix_p (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
73 SCM_API SCM
scm_string_suffix_ci_p (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
74 SCM_API SCM
scm_string_index (SCM s
, SCM char_pred
, SCM start
, SCM end
);
75 SCM_API SCM
scm_string_index_right (SCM s
, SCM char_pred
, SCM start
, SCM end
);
76 SCM_API SCM
scm_string_rindex (SCM s
, SCM char_pred
, SCM start
, SCM end
);
77 SCM_API SCM
scm_string_skip (SCM s
, SCM char_pred
, SCM start
, SCM end
);
78 SCM_API SCM
scm_string_skip_right (SCM s
, SCM char_pred
, SCM start
, SCM end
);
79 SCM_API SCM
scm_string_count (SCM s
, SCM char_pred
, SCM start
, SCM end
);
80 SCM_API SCM
scm_string_contains (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
81 SCM_API SCM
scm_string_contains_ci (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
82 SCM_API SCM
scm_substring_upcase_x (SCM str
, SCM start
, SCM end
);
83 SCM_API SCM
scm_substring_upcase (SCM str
, SCM start
, SCM end
);
84 SCM_API SCM
scm_string_upcase_x (SCM str
);
85 SCM_API SCM
scm_string_upcase (SCM str
);
86 SCM_API SCM
scm_substring_downcase_x (SCM str
, SCM start
, SCM end
);
87 SCM_API SCM
scm_substring_downcase (SCM str
, SCM start
, SCM end
);
88 SCM_API SCM
scm_string_downcase_x (SCM str
);
89 SCM_API SCM
scm_string_downcase (SCM str
);
90 SCM_API SCM
scm_string_titlecase_x (SCM str
, SCM start
, SCM end
);
91 SCM_API SCM
scm_string_titlecase (SCM str
, SCM start
, SCM end
);
92 SCM_API SCM
scm_string_capitalize_x (SCM str
);
93 SCM_API SCM
scm_string_capitalize (SCM str
);
94 SCM_API SCM
scm_string_reverse (SCM str
, SCM start
, SCM end
);
95 SCM_API SCM
scm_string_reverse_x (SCM str
, SCM start
, SCM end
);
96 SCM_API SCM
scm_string_append_shared (SCM ls
);
97 SCM_API SCM
scm_string_concatenate (SCM ls
);
98 SCM_API SCM
scm_string_concatenate_shared (SCM ls
);
99 SCM_API SCM
scm_string_concatenate_reverse (SCM ls
, SCM final_string
, SCM end
);
100 SCM_API SCM
scm_string_concatenate_reverse_shared (SCM ls
, SCM final_string
, SCM end
);
101 SCM_API SCM
scm_string_map (SCM proc
, SCM s
, SCM start
, SCM end
);
102 SCM_API SCM
scm_string_map_x (SCM proc
, SCM s
, SCM start
, SCM end
);
103 SCM_API SCM
scm_string_fold (SCM kons
, SCM knil
, SCM s
, SCM start
, SCM end
);
104 SCM_API SCM
scm_string_fold_right (SCM kons
, SCM knil
, SCM s
, SCM start
, SCM end
);
105 SCM_API SCM
scm_string_unfold (SCM p
, SCM f
, SCM g
, SCM seed
, SCM base
, SCM make_final
);
106 SCM_API SCM
scm_string_unfold_right (SCM p
, SCM f
, SCM g
, SCM seed
, SCM base
, SCM make_final
);
107 SCM_API SCM
scm_string_for_each (SCM proc
, SCM s
, SCM start
, SCM end
);
108 SCM_API SCM
scm_string_for_each_index (SCM proc
, SCM s
, SCM start
, SCM end
);
109 SCM_API SCM
scm_xsubstring (SCM s
, SCM from
, SCM to
, SCM start
, SCM end
);
110 SCM_API SCM
scm_string_xcopy_x (SCM target
, SCM tstart
, SCM s
, SCM sfrom
, SCM sto
, SCM start
, SCM end
);
111 SCM_API SCM
scm_string_replace (SCM s1
, SCM s2
, SCM start1
, SCM end1
, SCM start2
, SCM end2
);
112 SCM_API SCM
scm_string_tokenize (SCM s
, SCM token_char
, SCM start
, SCM end
);
113 SCM_API SCM
scm_string_split (SCM s
, SCM char_pred
);
114 SCM_API SCM
scm_string_filter (SCM char_pred
, SCM s
, SCM start
, SCM end
);
115 SCM_API SCM
scm_string_delete (SCM char_pred
, SCM s
, SCM start
, SCM end
);
117 SCM_INTERNAL
void scm_init_srfi_13 (void);
118 SCM_INTERNAL
void scm_init_srfi_13_14 (void);
120 #endif /* SCM_SRFI_13_H */