mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-10 15:10:25 -07:00
Code Issues Projects Releases Packages Wiki Activity

memory: move ecl_alloc_adjustable_*_string to memory.d

Browse source 
These constructors are used to provide buffers that may be returned to cl_core.
This commit is contained in:
Daniel Kochmański 2026-03-06 23:01:13 +01:00
parent 2bcb475df4
commit bb278092e0
2 changed files with 35 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

35
src/c/memory.d
View file

@ -149,6 +149,41 @@ ecl_append_unsafe(cl_object x, cl_object y)
return head;
}
/*
Make a string of a certain size, with some leading zeros to keep C happy. The
string must be adjustable, to allow further growth. (See unixfsys.c for its
use).
*/
cl_object
ecl_alloc_adjustable_base_string(cl_index l)
{
cl_object output = ecl_alloc_object(t_base_string);
output->base_string.self = (ecl_base_char *)ecl_alloc_atomic(l+1);
output->base_string.self[l] = 0;
output->base_string.flags = ECL_FLAG_HAS_FILL_POINTER | ECL_FLAG_ADJUSTABLE;
output->base_string.elttype = ecl_aet_bc;
output->base_string.displaced = ECL_NIL;
output->base_string.dim = l;
output->base_string.fillp = 0;
return output;
}
#ifdef ECL_UNICODE
cl_object
ecl_alloc_adjustable_extended_string(cl_index l)
{
cl_index bytes = sizeof(ecl_character) * l;
cl_object output = ecl_alloc_object(t_string);
output->string.self = (ecl_character *)ecl_alloc_atomic(bytes);
output->string.flags = ECL_FLAG_HAS_FILL_POINTER | ECL_FLAG_ADJUSTABLE;
output->string.elttype = ecl_aet_ch;
output->string.displaced = ECL_NIL;
output->string.dim = l;
output->string.fillp = 0;
return output;
}
#endif
/* -- Rudimentary manual memory allocator ----------------------------------- */
static cl_object

35
src/c/string.d
View file

@ -69,41 +69,6 @@ do_make_string(cl_index s, ecl_character code)
@(return x);
@)
/*
Make a string of a certain size, with some leading zeros to
keep C happy. The string must be adjustable, to allow further
growth. (See unixfsys.c for its use).
*/
cl_object
ecl_alloc_adjustable_base_string(cl_index l)
{
cl_object output = ecl_alloc_object(t_base_string);
output->base_string.self = (ecl_base_char *)ecl_alloc_atomic(l+1);
output->base_string.self[l] = 0;
output->base_string.flags = ECL_FLAG_HAS_FILL_POINTER | ECL_FLAG_ADJUSTABLE;
output->base_string.elttype = ecl_aet_bc;
output->base_string.displaced = ECL_NIL;
output->base_string.dim = l;
output->base_string.fillp = 0;
return output;
}
#ifdef ECL_UNICODE
cl_object
ecl_alloc_adjustable_extended_string(cl_index l)
{
cl_index bytes = sizeof(ecl_character) * l;
cl_object output = ecl_alloc_object(t_string);
output->string.self = (ecl_character *)ecl_alloc_atomic(bytes);
output->string.flags = ECL_FLAG_HAS_FILL_POINTER | ECL_FLAG_ADJUSTABLE;
output->string.elttype = ecl_aet_ch;
output->string.displaced = ECL_NIL;
output->string.dim = l;
output->string.fillp = 0;
return output;
}
#endif
/*
ecl_make_simple_base_string(s) creates a simple-base string from C string s.
ecl_make_constant_base_string(s) does the same, but without copying the C string.