let register_str_item_parser f = str_item_parser := f