let builtin_to_typespec t =
  List.map (fun x -> TypeSpec (PtypespecBuiltin x))
  (match t with
  | Tlongdouble -> [LongDouble]
  | Tdouble -> [Double]
  | Tfloat -> [Float]
  | Tlonglong -> [LongLong]
  | Tulonglong -> [UnsignedLongLong]
  | Tlong -> [Long]
  | Tulong -> [UnsignedLong]
  | Tint -> [Int]
  | Tuint -> [UnsignedInt]
  | Tshort -> [Short]
  | Tushort -> [UnsignedShort]
  | Tchar -> [Char]
  | Tuchar -> [UnsignedChar]
  | Tschar -> [SignedChar])