fth_type_ops
static fth_type_ops_t *fth_type_ops; /* see forth.h */
fth_type_ops = &fth_struct_ops;
fth_type_ops = &fth_enum_ops;
fth_type_ops = &fth_null_ops;
return (fth_type_ops->fto_header(tid));
if (fth_type_ops->fto_members(name, format) < 0)
if (fth_type_ops->fto_trailer() < 0)