Передача целых чисел произвольного размера из пролога в C
Прямо сейчас я изучаю, как связать SICStus Prolog с C-кодом.
Я хотел бы иметь / использовать / увидеть реализацию C "веса Хэмминга" целых чисел произвольного размера в SICStus Prolog версии 4.
Мне кажется, что мне нужны функции C для тестирования типов терминов (SP_is_integer) и функции C для доступа к терминам Prolog (SP_get_integer, SP_get_integer_bytes).
Тем не менее, я не уверен, как использовать SP_get_integer_bytes портативным и надежным способом. Не могли бы вы указать мне на какой-нибудь хорошо продуманный твердый код C, делающий именно это?
1 ответ
Решение
Используйте это как-то так:
SP_term_ref tr = ... some term ...
int native = 0; // want portable, little endian
size_t buf_size = 0;
if (!SP_get_integer_bytes(tr, NULL, &buf_size, native)
// if buf_size was updated, then there was not really an error
&& buf_size == 0)
{
// Something wrong (e.g., not an integer)
return ERROR;
}
// here buf_size > 0
void *buffer = SP_malloc(buf_size);
if (buffer == NULL)
{
return ERROR;
}
if (!SP_get_integer_bytes(tr, buffer, &buf_size, native))
{
// Something wrong. This would be surprising here
error();
}
// Here buffer contains buf_size bytes, in
// twos-complement, with the least significant bytes at lowest index.
// ... do something with buffer ...
// finally clean up
SP_free(buffer);