SEXP_t *oval_value_to_sexp(struct oval_value *val, oval_datatype_t dtype)
{
SEXP_t *val_sexp = NULL;
char *val_rptr = NULL;
switch (dtype) {
case OVAL_DATATYPE_EVR_STRING:
case OVAL_DATATYPE_DEBIAN_EVR_STRING:
case OVAL_DATATYPE_IPV4ADDR:
case OVAL_DATATYPE_IPV6ADDR:
case OVAL_DATATYPE_STRING:
case OVAL_DATATYPE_VERSION:
val_rptr = oval_value_get_text (val);
if (val_rptr != NULL) {
val_sexp = SEXP_string_newf("%s", val_rptr);
}
break;
case OVAL_DATATYPE_FLOAT:
val_sexp = SEXP_number_newf(oval_value_get_float(val));
break;
case OVAL_DATATYPE_INTEGER:
val_sexp = SEXP_number_newi_64(oval_value_get_integer(val));
break;
case OVAL_DATATYPE_BOOLEAN:
val_sexp = SEXP_number_newb(oval_value_get_boolean(val));
break;
case OVAL_DATATYPE_BINARY:
case OVAL_DATATYPE_FILESET_REVISION:
case OVAL_DATATYPE_IOS_VERSION:
// todo:
oscap_seterr(OSCAP_EFAMILY_OVAL, "Unsupported datatype: %s.", dtype);
val_sexp = NULL;
break;
default:
oscap_seterr(OSCAP_EFAMILY_OVAL, "Unknown datatype: %s.", dtype);
val_sexp = NULL;
break;
}
return val_sexp;
}
static void report_finding(struct result_info *res, llist *l, probe_ctx *ctx, oval_schema_version_t over)
{
SEXP_t *item, *user_id;
lnode *n = list_get_cur(l);
if (oval_schema_version_cmp(over, OVAL_SCHEMA_VERSION(5.10)) < 0)
user_id = SEXP_string_newf("%d", n->uid);
else
user_id = SEXP_number_newi_64((int64_t)n->uid);
item = probe_item_create(OVAL_LINUX_IFLISTENERS, NULL,
"interface_name", OVAL_DATATYPE_STRING, res->interface_name,
"protocol", OVAL_DATATYPE_STRING, res->protocol,
"hw_address", OVAL_DATATYPE_STRING, res->hw_address,
"program_name", OVAL_DATATYPE_STRING, n->cmd,
"pid", OVAL_DATATYPE_INTEGER, (int64_t)n->pid,
"user_id", OVAL_DATATYPE_SEXP, user_id,
NULL);
probe_item_collect(ctx, item);
SEXP_free(user_id);
}
int main (void)
{
SEXP_t *s_exp;
int8_t i8 = -1;
uint8_t u8 = 1;
int16_t i16 = -32000;
uint16_t u16 = 65000;
int32_t i32 = -100000;
uint32_t u32 = 100000;
int64_t i64 = -1 * (1 << 30);
uint64_t u64 = (uint64_t)1 << 48;
double f = 123.456;
s_exp = SEXP_number_newi_8 (i8);
SEXP_fprintfa (stdout, s_exp);
putc('\n', stdout);
SEXP_free (s_exp);
s_exp = SEXP_number_newu_8 (u8);
SEXP_fprintfa (stdout, s_exp);
putc('\n', stdout);
SEXP_free (s_exp);
s_exp = SEXP_number_newi_16 (i16);
SEXP_fprintfa (stdout, s_exp);
putc('\n', stdout);
SEXP_free (s_exp);
s_exp = SEXP_number_newu_16 (u16);
SEXP_fprintfa (stdout, s_exp);
putc('\n', stdout);
SEXP_free (s_exp);
s_exp = SEXP_number_newi_32 (i32);
SEXP_fprintfa (stdout, s_exp);
putc('\n', stdout);
SEXP_free (s_exp);
s_exp = SEXP_number_newu_32 (u32);
SEXP_fprintfa (stdout, s_exp);
putc('\n', stdout);
SEXP_free (s_exp);
s_exp = SEXP_number_newi_64 (i64);
SEXP_fprintfa (stdout, s_exp);
putc('\n', stdout);
SEXP_free (s_exp);
s_exp = SEXP_number_newu_64 (u64);
SEXP_fprintfa (stdout, s_exp);
putc('\n', stdout);
SEXP_free (s_exp);
s_exp = SEXP_number_newf (f);
SEXP_fprintfa (stdout, s_exp);
putc('\n', stdout);
SEXP_free (s_exp);
return (0);
}
