-->
class c
private function foo();
public procedure bar();
end class
include builtins\structs.e as structs
sequence f = structs:get_struct_fields(c)
for i=1 to length(f) do
{string name, integer tid, integer flags} = f[i]
if and_bits(flags,SF_RTN) then
if tid!=ST_INTEGER then ?9/0 end if -- (sanity check)
printf(1,"%s:%s\n",{name,structs:get_field_flags(c,name,true)})
end if
end for