#include void xputenv P2C(const_string, var_name, const_string, value) { string new_item = concat3 (var_name, "=", value); unsigned name_len = strlen (var_name); if (putenv (new_item) < 0) FATAL1 ("putenv (%s) failed", new_item); free (new_item); } void xputenv_int P2C(const_string, var_name, int, num) { char str[MAX_INT_LENGTH]; sprintf (str, "%d", num); xputenv (var_name, str); }