static void dump_module( value v, field f, void *p ) {
value vname;
const char *name;
if( !val_is_kind(v,neko_kind_module) )
return;
vname = val_field_name(f);
name = val_is_null(vname)?"???":val_string(vname);
((dump_param*)p)->callb( name, (neko_module*)val_data(v), &((dump_param*)p)->tot );
}
static void val_buffer_fields( value v, field f, void *_l ) {
vlist2 *l = (vlist2*)_l;
if( l->prev )
buffer_append_sub(l->b,", ",2);
else {
buffer_append_sub(l->b," ",1);
l->prev = 1;
}
val_buffer(l->b,val_field_name(f));
buffer_append_sub(l->b," => ",4);
val_buffer_rec(l->b,v,(vlist*)l);
}
/**
$field : int -> string
<doc>Reverse the hashed value of a field name. Return [null] on failure</doc>
**/
static value builtin_field( value f ) {
val_check(f,int);
return val_field_name(val_int(f));
}
value api_val_field_name(field inField)
{
return val_field_name(inField);
}
