mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-22 19:44:10 +02:00
Code Activity

* Added function scm_str2string. Thanks to Martin Baulig.

Browse source
This commit is contained in:
Dirk Herrmann 2001-09-12 19:53:57 +00:00
parent 6ddd941279
commit b00418df09
6 changed files with 20 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2001-09-12 Martin Baulig <martin@home-of-linux.org>
* strings.[ch] (scm_str2string): New function.
2001-09-06 Marius Vollmer <mvo@zagadka.ping.de>
* gc.c (scm_done_free): Always subtract size from scm_mallocated

8
libguile/strings.c
View file

@ -162,6 +162,14 @@ scm_mem2string (const char *src, size_t len)
return s;
}
SCM
scm_str2string (const char *src)
{
return scm_mem2string (src, strlen (src));
}
SCM
scm_makfrom0str (const char *src)
{

1
libguile/strings.h
View file

@ -66,6 +66,7 @@ extern SCM scm_makfromstrs (int argc, char **argv);
extern SCM scm_take_str (char *s, size_t len);
extern SCM scm_take0str (char *s);
extern SCM scm_mem2string (const char *src, size_t len);
extern SCM scm_str2string (const char *src);
extern SCM scm_makfrom0str (const char *src);
extern SCM scm_makfrom0str_opt (const char *src);
extern SCM scm_allocate_string (size_t len);