caddr_t
clr_deserialize (dk_session_t * ses, long mode, caddr_t asm_name, caddr_t type, void *udt)
{
MonoArray *v_args = NULL, *bin_data;
MonoArray *mono_list;
int len;
caddr_t in_values, bin_data_ptr;
MonoDomain *domain = virtuoso_domain;
get_mono_thread ();
in_values = (caddr_t) scan_session_boxing (ses);
if (DV_TYPE_OF (in_values) != DV_BIN)
return (caddr_t) box_num (0);
len = box_length (in_values);
bin_data = mono_array_new (domain, mono_get_byte_class(), len);
bin_data_ptr = mono_array_addr (bin_data, char, 0);
memcpy (bin_data_ptr, in_values, len);
if (in_values)
dk_free_tree (in_values);
v_args = MAKE_PARAM_ARRAY (domain, 4);
mono_array_set (v_args, gpointer, 0, bin_data);
SET_INT_ARG (domain, v_args, 1, mode);
SET_STRING_ARG (domain, v_args, 2, asm_name);
SET_STRING_ARG (domain, v_args, 3, type);
QR_RESET_CTX
{
mono_list = (MonoArray *) call_mono (VIRTCLR_NAME, "VInvoke:obj_deserialize", v_args, domain);
}
QR_RESET_CODE
{
caddr_t err;
POP_QR_RESET;
err = thr_get_error_code (THREAD_CURRENT_THREAD);
if (ARRAYP (err))
log_error ("Mono Deserialization error : [%s] [%s]", ERR_STATE(err), ERR_MESSAGE (err));
else
log_error ("Mono Deserialization error : unknown");
dk_free_tree (err);
return 0;
}
END_QR_RESET;
return sa_to_dk ((MonoArray *) mono_list, 0, 0, udt);
}
static LispObj *
LispStringTrim(LispBuiltin *builtin, int left, int right, int inplace)
/*
string-{,left-,right-}trim character-bag string
*/
{
unsigned char *string;
long start, end, length;
LispObj *ochars, *ostring;
ostring = ARGUMENT(1);
ochars = ARGUMENT(0);
if (!POINTERP(ochars) || !(XSTRINGP(ochars) || XCONSP(ochars))) {
if (ARRAYP(ochars) && ochars->data.array.rank == 1)
ochars = ochars->data.array.list;
else
LispDestroy("%s: %s is not a sequence",
STRFUN(builtin), STROBJ(ochars));
}
CHECK_STRING(ostring);
string = (unsigned char*)THESTR(ostring);
length = STRLEN(ostring);
start = 0;
end = length;
if (XSTRINGP(ochars)) {
unsigned char *chars = (unsigned char*)THESTR(ochars);
long i, clength = STRLEN(ochars);
if (left) {
for (; start < end; start++) {
for (i = 0; i < clength; i++)
if (string[start] == chars[i])
break;
if (i >= clength)
break;
}
}
if (right) {
for (--end; end >= 0; end--) {
for (i = 0; i < clength; i++)
if (string[end] == chars[i])
break;
if (i >= clength)
break;
}
++end;
}
}
else {
LispObj *ochar, *list;
if (left) {
for (; start < end; start++) {
for (list = ochars; CONSP(list); list = CDR(list)) {
ochar = CAR(list);
if (SCHARP(ochar) && string[start] == SCHAR_VALUE(ochar))
break;
}
if (!CONSP(list))
break;
}
}
if (right) {
for (--end; end >= 0; end--) {
for (list = ochars; CONSP(list); list = CDR(list)) {
ochar = CAR(list);
if (SCHARP(ochar) && string[end] == SCHAR_VALUE(ochar))
break;
}
if (!CONSP(list))
break;
}
++end;
}
}
if (start == 0 && end == length)
return (ostring);
length = end - start;
if (inplace) {
CHECK_STRING_WRITABLE(ostring);
memmove(string, string + start, length);
string[length] = '\0';
STRLEN(ostring) = length;
}
else {
string = LispMalloc(length + 1);
memcpy(string, THESTR(ostring) + start, length);
string[length] = '\0';
ostring = LSTRING2((char*)string, length);
}
return (ostring);
}
