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

(SCM_CHARS, SCM_UCHARS, SCM_LENGTH, scm_i_object_chars,

Browse source 
scm_i_object_length): Brought back from the dead.
This commit is contained in:
Marius Vollmer 2005-01-10 17:42:23 +00:00
parent 3d8bccbd81
commit a725fa951c
2 changed files with 36 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

27
libguile/deprecated.c
View file

@ -651,6 +651,33 @@ scm_strprint_obj (SCM obj)
return scm_object_to_string (obj, SCM_UNDEFINED);
}
char *
scm_i_object_chars (SCM obj)
{
scm_c_issue_deprecation_warning
("SCM_CHARS is deprecated. See the manual for alternatives.");
if (SCM_STRINGP (obj))
return SCM_STRING_CHARS (obj);
if (SCM_SYMBOLP (obj))
return SCM_SYMBOL_CHARS (obj);
abort ();
}
long
scm_i_object_length (SCM obj)
{
scm_c_issue_deprecation_warning
("SCM_LENGTH is deprecated. "
"Use scm_c_string_length instead, for example, or see the manual.");
if (SCM_STRINGP (obj))
return SCM_STRING_LENGTH (obj);
if (SCM_SYMBOLP (obj))
return SCM_SYMBOL_LENGTH (obj);
if (SCM_VECTORP (obj))
return SCM_VECTOR_LENGTH (obj);
abort ();
}
SCM
scm_sym2ovcell_soft (SCM sym, SCM obarray)
{

9
libguile/deprecated.h
View file

@ -226,6 +226,15 @@ SCM_API SCM scm_strprint_obj (SCM obj);
SCM_API SCM scm_read_0str (char *expr);
SCM_API SCM scm_eval_0str (const char *expr);
SCM_API char *scm_i_object_chars (SCM);
#define SCM_CHARS(x) scm_i_object_chars(x)
#define SCM_UCHARS(x) ((unsigned char *)SCM_CHARS(x))
SCM_API long scm_i_object_length (SCM);
#define SCM_LENGTH(x) scm_i_object_length(x)
#define scm_strhash(str, len, n) (scm_string_hash ((str), (len)) % (n))
SCM_API SCM scm_sym2ovcell_soft (SCM sym, SCM obarray);