2 * string-icalls.c: String internal calls for the corlib
5 * Patrik Torstensson (patrik.torstensson@labs2.com)
6 * Duncan Mak (duncan@ximian.com)
8 * (C) 2001 Ximian, Inc.
15 #include <mono/metadata/string-icalls.h>
16 #include <mono/metadata/class-internals.h>
17 #include <mono/metadata/appdomain.h>
18 #include <mono/metadata/tabledefs.h>
19 #include <mono/metadata/loader.h>
20 #include <mono/metadata/object.h>
21 #include <mono/metadata/exception.h>
22 #include <mono/metadata/debug-helpers.h>
24 /* Internal helper methods */
27 string_icall_is_in_array (MonoArray *chars, gint32 arraylength, gunichar2 chr);
30 empty_string (MonoDomain *domain)
32 MonoVTable *vtable = mono_class_vtable (domain, mono_defaults.string_class);
34 static MonoClassField *empty_field = NULL;
37 MonoClassField *field;
41 while ((field = mono_class_get_fields (mono_defaults.string_class, &iter))) {
42 if (!strcmp (field->name, "Empty"))
50 mono_field_static_get_value (vtable, empty_field, &o);
52 return (MonoString*)o;
56 ves_icall_System_String_ctor_charp (gpointer dummy, gunichar2 *value)
63 domain = mono_domain_get ();
66 return empty_string (domain);
68 for (i = 0; *(value + i) != '\0'; i++);
71 return mono_string_new_utf16 (domain, value, length);
75 ves_icall_System_String_ctor_char_int (gpointer dummy, gunichar2 value, gint32 count)
85 mono_raise_exception (mono_get_exception_argument_out_of_range ("count"));
87 domain = mono_domain_get ();
88 res = mono_string_new_size (domain, count);
90 chars = mono_string_chars (res);
91 for (i = 0; i < count; i++)
98 ves_icall_System_String_ctor_charp_int_int (gpointer dummy, gunichar2 *value, gint32 sindex, gint32 length)
105 domain = mono_domain_get ();
107 if ((value == NULL) && (length != 0))
108 mono_raise_exception (mono_get_exception_argument_out_of_range ("Out of range"));
110 if ((sindex < 0) || (length < 0))
111 mono_raise_exception (mono_get_exception_argument_out_of_range ("Out of range"));
114 return empty_string (domain);
116 begin = (gunichar2 *) (value + sindex);
118 return mono_string_new_utf16 (domain, begin, length);
122 ves_icall_System_String_ctor_sbytep (gpointer dummy, gint8 *value)
128 domain = mono_domain_get ();
131 return empty_string (domain);
133 return mono_string_new (domain, (const char *) value);
137 ves_icall_System_String_ctor_sbytep_int_int (gpointer dummy, gint8 *value, gint32 sindex, gint32 length)
147 domain = mono_domain_get ();
149 if ((value == NULL) && (length != 0))
150 mono_raise_exception (mono_get_exception_argument_out_of_range ("Out of range"));
152 if ((sindex < 0) || (length < 0))
153 mono_raise_exception (mono_get_exception_argument_out_of_range ("Out of range"));
155 begin = (guchar *) (value + sindex);
156 res = mono_string_new_size (domain, length);
157 chars = mono_string_chars (res);
158 for (i = 0; i < length; ++i)
159 chars [i] = begin [i];
165 ves_icall_System_String_ctor_chara (gpointer dummy, MonoArray *value)
171 domain = mono_domain_get ();
174 return mono_string_new_utf16 (domain, NULL, 0);
176 return mono_string_new_utf16 (domain, (gunichar2 *) mono_array_addr(value, gunichar2, 0), value->max_length);
180 ves_icall_System_String_ctor_chara_int_int (gpointer dummy, MonoArray *value,
181 gint32 sindex, gint32 length)
188 mono_raise_exception (mono_get_exception_argument_null ("value"));
190 mono_raise_exception (mono_get_exception_argument_out_of_range ("startIndex"));
192 mono_raise_exception (mono_get_exception_argument_out_of_range ("length"));
193 if (sindex + length > mono_array_length (value))
194 mono_raise_exception (mono_get_exception_argument_out_of_range ("Out of range"));
196 domain = mono_domain_get ();
198 return mono_string_new_utf16 (domain, (gunichar2 *) mono_array_addr(value, gunichar2, sindex), length);
202 ves_icall_System_String_ctor_encoding (gpointer dummy, gint8 *value, gint32 sindex,
203 gint32 length, MonoObject *enc)
208 MonoDomain *domain = mono_domain_get ();
209 MonoMethod *get_string;
215 if ((value == NULL) || (length == 0))
216 return mono_string_new_size (mono_domain_get (), 0);
218 mono_raise_exception (mono_get_exception_argument_null ("enc"));
220 mono_raise_exception (mono_get_exception_argument_out_of_range ("startIndex"));
222 mono_raise_exception (mono_get_exception_argument_out_of_range ("length"));
224 arr = mono_array_new (domain, mono_defaults.byte_class, length);
225 memcpy (mono_array_addr (arr, guint8, 0), value + sindex, length);
227 /* Find the System.Text.Encoding class */
228 for (klass = enc->vtable->klass; klass->parent->parent != NULL; klass = klass->parent)
231 get_string = mono_class_get_method_from_name (klass, "GetString", 1);
233 s = (MonoString*)mono_runtime_invoke (get_string, enc, args, &exc);
235 mono_raise_exception (mono_get_exception_argument ("", "Unable to decode the array into a valid string."));
240 /* This function is redirected to String.CreateString ()
241 by mono_marshal_get_native_wrapper () */
243 ves_icall_System_String_ctor_RedirectToCreateString (void)
245 g_assert_not_reached ();
249 ves_icall_System_String_InternalJoin (MonoString *separator, MonoArray * value, gint32 sindex, gint32 count)
264 insert = mono_string_chars(separator);
265 insertlen = mono_string_length(separator);
268 for (pos = sindex; pos != sindex + count; pos++) {
269 current = mono_array_get (value, MonoString *, pos);
271 length += mono_string_length (current);
273 if (pos < sindex + count - 1)
277 ret = mono_string_new_size( mono_domain_get (), length);
278 dest = mono_string_chars(ret);
281 for (pos = sindex; pos != sindex + count; pos++) {
282 current = mono_array_get (value, MonoString *, pos);
283 if (current != NULL) {
284 src = mono_string_chars (current);
285 srclen = mono_string_length (current);
287 memcpy (dest + destpos, src, srclen * sizeof(gunichar2));
291 if (pos < sindex + count - 1) {
292 memcpy(dest + destpos, insert, insertlen * sizeof(gunichar2));
293 destpos += insertlen;
301 ves_icall_System_String_InternalInsert (MonoString *me, gint32 sindex, MonoString *value)
305 gunichar2 *insertsrc;
312 src = mono_string_chars(me);
313 srclen = mono_string_length(me);
315 insertsrc = mono_string_chars(value);
316 insertlen = mono_string_length(value);
318 ret = mono_string_new_size( mono_domain_get (), srclen + insertlen);
319 dest = mono_string_chars(ret);
321 memcpy(dest, src, sindex * sizeof(gunichar2));
322 memcpy(dest + sindex, insertsrc, insertlen * sizeof(gunichar2));
323 memcpy(dest + sindex + insertlen, src + sindex, (srclen - sindex) * sizeof(gunichar2));
329 ves_icall_System_String_InternalReplace_Char (MonoString *me, gunichar2 oldChar, gunichar2 newChar)
338 src = mono_string_chars(me);
339 srclen = mono_string_length(me);
341 ret = mono_string_new_size( mono_domain_get (), srclen);
342 dest = mono_string_chars(ret);
344 for (i = 0; i != srclen; i++) {
345 if (src[i] == oldChar)
355 ves_icall_System_String_InternalRemove (MonoString *me, gint32 sindex, gint32 count)
364 srclen = mono_string_length(me);
365 ret = mono_string_new_size( mono_domain_get (), srclen - count);
367 src = mono_string_chars(me);
368 dest = mono_string_chars(ret);
370 memcpy(dest, src, sindex * sizeof(gunichar2));
371 memcpy(dest + sindex, src + sindex + count, (srclen - count - sindex) * sizeof(gunichar2));
377 ves_icall_System_String_InternalCopyTo (MonoString *me, gint32 sindex, MonoArray *dest, gint32 dindex, gint32 count)
379 gunichar2 *destptr = (gunichar2 *) mono_array_addr(dest, gunichar2, dindex);
380 gunichar2 *src = mono_string_chars(me);
384 memcpy(destptr, src + sindex, sizeof(gunichar2) * count);
388 ves_icall_System_String_InternalSplit (MonoString *me, MonoArray *separator, gint32 count)
393 gint32 arrsize, srcsize, splitsize;
394 gint32 i, lastpos, arrpos;
396 gunichar2 *tmpstrptr;
402 src = mono_string_chars(me);
403 srcsize = mono_string_length(me);
404 arrsize = mono_array_length(separator);
406 cmpchar = mono_array_get(separator, gunichar2, 0);
409 for (i = 0; i != srcsize && splitsize < count; i++) {
410 if (string_icall_is_in_array(separator, arrsize, src[i]))
417 /* if no split chars found return the string */
418 if (splitsize == 0) {
419 retarr = mono_array_new(mono_domain_get(), mono_get_string_class (), 1);
420 mono_array_setref (retarr, 0, me);
425 if (splitsize != count)
428 retarr = mono_array_new(mono_domain_get(), mono_get_string_class (), splitsize);
429 for (i = 0; i != srcsize && arrpos != count; i++) {
430 if (string_icall_is_in_array(separator, arrsize, src[i])) {
431 if (arrpos == count - 1)
432 tmpstrsize = srcsize - lastpos;
434 tmpstrsize = i - lastpos;
436 tmpstr = mono_string_new_size( mono_domain_get (), tmpstrsize);
437 tmpstrptr = mono_string_chars(tmpstr);
439 memcpy(tmpstrptr, src + lastpos, tmpstrsize * sizeof(gunichar2));
440 mono_array_setref (retarr, arrpos, tmpstr);
446 if (arrpos < count) {
447 tmpstrsize = srcsize - lastpos;
448 tmpstr = mono_string_new_size( mono_domain_get (), tmpstrsize);
449 tmpstrptr = mono_string_chars(tmpstr);
451 memcpy(tmpstrptr, src + lastpos, tmpstrsize * sizeof(gunichar2));
452 mono_array_setref (retarr, arrpos, tmpstr);
459 string_icall_is_in_array (MonoArray *chars, gint32 arraylength, gunichar2 chr)
464 for (arrpos = 0; arrpos != arraylength; arrpos++) {
465 cmpchar = mono_array_get(chars, gunichar2, arrpos);
474 ves_icall_System_String_InternalTrim (MonoString *me, MonoArray *chars, gint32 typ)
477 gunichar2 *src, *dest;
478 gint32 srclen, newlen, arrlen;
479 gint32 i, lenfirst, lenlast;
483 srclen = mono_string_length(me);
484 src = mono_string_chars(me);
485 arrlen = mono_array_length(chars);
490 if (0 == typ || 1 == typ) {
491 for (i = 0; i != srclen; i++) {
492 if (string_icall_is_in_array(chars, arrlen, src[i]))
499 if (0 == typ || 2 == typ) {
500 for (i = srclen - 1; i > lenfirst - 1; i--) {
501 if (string_icall_is_in_array(chars, arrlen, src[i]))
508 newlen = srclen - lenfirst - lenlast;
509 if (newlen == srclen)
512 ret = mono_string_new_size( mono_domain_get (), newlen);
513 dest = mono_string_chars(ret);
515 memcpy(dest, src + lenfirst, newlen *sizeof(gunichar2));
521 ves_icall_System_String_InternalIndexOfAny (MonoString *me, MonoArray *arr, gint32 sindex, gint32 count)
530 arraysize = mono_array_length(arr);
531 src = mono_string_chars(me);
533 for (pos = sindex; pos != count + sindex; pos++) {
534 for (loop = 0; loop != arraysize; loop++)
535 if ( src [pos] == mono_array_get(arr, gunichar2, loop) )
543 ves_icall_System_String_InternalLastIndexOf_Char (MonoString *me, gunichar2 value, gint32 sindex, gint32 count)
550 src = mono_string_chars(me);
551 for (pos = sindex; pos > sindex - count; pos--) {
552 if (src [pos] == value)
560 ves_icall_System_String_InternalLastIndexOf_Str (MonoString *me, MonoString *value, gint32 sindex, gint32 count)
569 lencmpstr = mono_string_length(value);
571 src = mono_string_chars(me);
572 cmpstr = mono_string_chars(value);
574 for (pos = sindex - lencmpstr + 1; pos > sindex - count; pos--) {
575 if (0 == memcmp(src + pos, cmpstr, lencmpstr * sizeof(gunichar2)))
583 ves_icall_System_String_InternalLastIndexOfAny (MonoString *me, MonoArray *anyOf, gint32 sindex, gint32 count)
592 arraysize = mono_array_length(anyOf);
593 src = mono_string_chars(me);
595 for (pos = sindex; pos > sindex - count; pos--) {
596 for (loop = 0; loop != arraysize; loop++)
597 if ( src [pos] == mono_array_get(anyOf, gunichar2, loop) )
605 ves_icall_System_String_InternalPad (MonoString *me, gint32 width, gunichar2 chr, MonoBoolean right)
616 srclen = mono_string_length(me);
617 src = mono_string_chars(me);
619 ret = mono_string_new_size( mono_domain_get (), width);
620 dest = mono_string_chars(ret);
621 fillcount = width - srclen;
624 memcpy(dest, src, srclen * sizeof(gunichar2));
625 for (i = srclen; i != width; i++)
632 for (i = 0; i != fillcount; i++)
635 memcpy(dest + fillcount, src, srclen * sizeof(gunichar2));
641 ves_icall_System_String_InternalAllocateStr (gint32 length)
645 return mono_string_new_size(mono_domain_get (), length);
649 ves_icall_System_String_InternalStrcpy_Str (MonoString *dest, gint32 destPos, MonoString *src)
656 srcptr = mono_string_chars (src);
657 destptr = mono_string_chars (dest);
659 g_memmove (destptr + destPos, srcptr, mono_string_length(src) * sizeof(gunichar2));
663 ves_icall_System_String_InternalStrcpy_StrN (MonoString *dest, gint32 destPos, MonoString *src, gint32 startPos, gint32 count)
670 srcptr = mono_string_chars (src);
671 destptr = mono_string_chars (dest);
672 g_memmove (destptr + destPos, srcptr + startPos, count * sizeof(gunichar2));
676 ves_icall_System_String_InternalStrcpy_Chars (MonoString *dest, gint32 destPos, MonoArray *src)
683 srcptr = mono_array_addr (src, gunichar2, 0);
684 destptr = mono_string_chars (dest);
686 g_memmove (destptr + destPos, srcptr, mono_array_length (src) * sizeof(gunichar2));
690 ves_icall_System_String_InternalStrcpy_CharsN (MonoString *dest, gint32 destPos, MonoArray *src, gint32 startPos, gint32 count)
697 srcptr = mono_array_addr (src, gunichar2, 0);
698 destptr = mono_string_chars (dest);
700 g_memmove (destptr + destPos, srcptr + startPos, count * sizeof(gunichar2));
704 ves_icall_System_String_InternalIntern (MonoString *str)
708 return mono_string_intern(str);
712 ves_icall_System_String_InternalIsInterned (MonoString *str)
716 return mono_string_is_interned(str);
720 ves_icall_System_String_get_Chars (MonoString *me, gint32 idx)
724 if ((idx < 0) || (idx >= mono_string_length (me)))
725 mono_raise_exception (mono_get_exception_index_out_of_range ());
726 return mono_string_chars(me)[idx];
730 ves_icall_System_String_InternalCharCopy (gunichar2 *src, gunichar2 *dest, gint32 count)
734 memcpy (dest, src, sizeof (gunichar2) * count);