static SCM get_flags_scm (MuMsg *msg) { FlagData fdata; fdata.flags = mu_msg_get_flags (msg); fdata.lst = SCM_EOL; mu_flags_foreach ((MuFlagsForeachFunc)check_flag, &fdata); return fdata.lst; }
static void add_flags (JsonBuilder *bob, MuMsg *msg) { FlagData fdata; fdata.msgflags = mu_msg_get_flags (msg); fdata.bob = bob; bob = json_builder_set_member_name (bob, "flags"); bob = json_builder_begin_array (bob); mu_flags_foreach ((MuFlagsForeachFunc)each_flag, &fdata); bob = json_builder_end_array (bob); }