(define dos_parameterdefinition_create
  (foreign-primitive scheme-object ((c-string name)
                                    (int metaType))
    "struct ParameterDefinition pd = {.name = name, .metaType = metaType};"
    "char pdc[sizeof(pd)];"
    "memcpy(pdc, &pd, sizeof(pdc));"
    "C_word* ptr = C_alloc(C_SIZEOF_STRING(sizeof(pdc)));"
    "C_return(C_bytevector(&ptr,C_SIZEOF_STRING(sizeof(pdc)),pdc));"))

(define dos_parameterdefinition_name
  (foreign-lambda* c-string ((blob sobj))
    "struct ParameterDefinition pd;"
    "memcpy(&pd, sobj, sizeof(sobj));"
    "C_return(pd.name);"))