mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Add `scm_c_symbol_length ()'.

Browse source
This commit is contained in:
Ludovic Courtès 2008-07-05 20:10:44 +02:00
parent 3f324bb3b8
commit 47463c8fd7
6 changed files with 29 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
NEWS
View file

@ -7,6 +7,10 @@ Please send Guile bug reports to bug-guile@gnu.org.
Changes in 1.8.6 (since 1.8.5) Changes in 1.8.6 (since 1.8.5)
* New features (see the manual for details)
** New convenience function `scm_c_symbol_length ()'
* Bugs fixed * Bugs fixed
** Internal `scm_i_' functions now have "hidden" linkage with GCC/ELF ** Internal `scm_i_' functions now have "hidden" linkage with GCC/ELF

4
doc/ref/ChangeLog
View file

@ -1,3 +1,7 @@
2008-07-05 Ludovic Courtès <ludo@gnu.org>
* api-data.texi (Symbol Primitives): Add `scm_c_symbol_length ()'.
2008-06-28 Ludovic Courtès <ludo@gnu.org> 2008-06-28 Ludovic Courtès <ludo@gnu.org>
* api-modules.texi (Using Guile Modules): Substitute "syntax * api-modules.texi (Using Guile Modules): Substitute "syntax

5
doc/ref/api-data.texi
View file

@ -4640,6 +4640,11 @@ immediately after creating the Scheme string. In certain cases, Guile
can then use @var{str} directly as its internal representation. can then use @var{str} directly as its internal representation.
@end deftypefn @end deftypefn
The size of a symbol can also be obtained from C:
@deftypefn {C Function} size_t scm_c_symbol_length (SCM sym)
Return the number of characters in @var{sym}.
@end deftypefn
Finally, some applications, especially those that generate new Scheme Finally, some applications, especially those that generate new Scheme
code dynamically, need to generate symbols for use in the generated code dynamically, need to generate symbols for use in the generated

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2008-07-05 Ludovic Courtès <ludo@gnu.org>
* strings.c (scm_c_symbol_length): New function.
* strings.h (scm_c_symbol_length): New declaration.
2008-07-04 Ludovic Courtès <ludo@gnu.org> 2008-07-04 Ludovic Courtès <ludo@gnu.org>
* __scm.h (SCM_INTERNAL): Add `extern' so that these symbols are * __scm.h (SCM_INTERNAL): Add `extern' so that these symbols are

10
libguile/strings.c
View file

@ -452,6 +452,16 @@ scm_i_symbol_length (SCM sym)
return STRINGBUF_LENGTH (SYMBOL_STRINGBUF (sym)); return STRINGBUF_LENGTH (SYMBOL_STRINGBUF (sym));
} }
size_t
scm_c_symbol_length (SCM sym)
#define FUNC_NAME "scm_c_symbol_length"
{
SCM_VALIDATE_SYMBOL (1, sym);
return STRINGBUF_LENGTH (SYMBOL_STRINGBUF (sym));
}
#undef FUNC_NAME
const char * const char *
scm_i_symbol_chars (SCM sym) scm_i_symbol_chars (SCM sym)
{ {

1
libguile/strings.h
View file

@ -90,6 +90,7 @@ SCM_API SCM scm_string_append (SCM args);
SCM_API SCM scm_c_make_string (size_t len, SCM chr); SCM_API SCM scm_c_make_string (size_t len, SCM chr);
SCM_API size_t scm_c_string_length (SCM str); SCM_API size_t scm_c_string_length (SCM str);
SCM_API size_t scm_c_symbol_length (SCM sym);
SCM_API SCM scm_c_string_ref (SCM str, size_t pos); SCM_API SCM scm_c_string_ref (SCM str, size_t pos);
SCM_API void scm_c_string_set_x (SCM str, size_t pos, SCM chr); SCM_API void scm_c_string_set_x (SCM str, size_t pos, SCM chr);
SCM_API SCM scm_c_substring (SCM str, size_t start, size_t end); SCM_API SCM scm_c_substring (SCM str, size_t start, size_t end);