arrayResizeProto sname (StructField{ field_name = fname, field_array = farray })
 = case farray of
    Max _ -> "int " ++ arrayResize sname fname ++ "(struct " ++ sname ++ " *in, " ++ intType IKUnsigned IS32 ++ " nsize)"
    _ -> undefined
arrayResizeProto sname (StructField{ field_name = fname, field_array = farray })
 = case farray of
    Max _ -> "int " ++ arrayResize sname fname ++ "(struct " ++ sname ++ " *in, " ++ intType IKUnsigned IS32 ++ " nsize)"
    _ -> undefined
arrayResizeProto sname (StructField{ field_name = fname, field_array = farray })
 = case farray of
    Max _ -> "int " ++ arrayResize sname fname ++ "(struct " ++ sname ++ " *in, " ++ intType IKUnsigned IS32 ++ " nsize)"
    _ -> undefined