method attr name = let sv = call_method sv "attr" [sv_of_string name] in (* sv_is_undef doesn't work properly XXX *) if sv_is_undef sv then None else Some (string_of_sv sv)