PARROT_API Parrot_Int Parrot_api_string_free_exported_ascii(ARGIN(Parrot_PMC interp_pmc), ARGIN(char * const str)) { ASSERT_ARGS(Parrot_api_string_free_exported_ascii) EMBED_API_CALLIN(interp_pmc, interp); if (str != NULL) Parrot_str_free_cstring(str); EMBED_API_CALLOUT(interp_pmc, interp); }
PARROT_API Parrot_Int Parrot_api_pmc_deserialize(ARGIN(Parrot_PMC interp_pmc), ARGIN(Parrot_String fpmc), ARGOUT(Parrot_PMC * pmc)) { ASSERT_ARGS(Parrot_api_pmc_deserialize) EMBED_API_CALLIN(interp_pmc, interp) Parrot_pf_verify_image_string(interp, fpmc); *pmc = Parrot_thaw(interp, fpmc); EMBED_API_CALLOUT(interp_pmc, interp); }
PARROT_API Parrot_Int Parrot_api_string_export_ascii(ARGIN(Parrot_PMC interp_pmc), ARGIN(Parrot_String string), ARGOUT(char ** strout)) { ASSERT_ARGS(Parrot_api_string_export_ascii) EMBED_API_CALLIN(interp_pmc, interp); if (!STRING_IS_NULL(string)) *strout = Parrot_str_to_cstring(interp, string); else *strout = NULL; EMBED_API_CALLOUT(interp_pmc, interp); }