let pp_print_storageclass ppf = function
Extern -> pp_print_string ppf "extern"
| Auto -> pp_print_string ppf "auto"
| Static -> pp_print_string ppf "static"
| Register -> pp_print_string ppf "register"
| Typedef -> pp_print_string ppf "typedef"
| Inline -> pp_print_string ppf "inline"