comparison src/c/urweb.c @ 1994:94529780bbcf

getenv calls UNIX getenv() when no special alternative is set
author Adam Chlipala <adam@chlipala.net>
date Fri, 07 Mar 2014 11:50:45 -0500
parents 3d1d44111906
children c93fbd139732 01c8aceac480
comparison
equal deleted inserted replaced
1993:3d1d44111906 1994:94529780bbcf
3670 3670
3671 uw_Basis_string uw_Basis_getenv(uw_context ctx, uw_Basis_string name) { 3671 uw_Basis_string uw_Basis_getenv(uw_context ctx, uw_Basis_string name) {
3672 if (ctx->get_env) 3672 if (ctx->get_env)
3673 return ctx->get_env(ctx->get_env_data, name); 3673 return ctx->get_env(ctx->get_env_data, name);
3674 else 3674 else
3675 return NULL; 3675 return getenv(name);
3676 } 3676 }
3677 3677
3678 uw_Basis_string uw_unnull(uw_Basis_string s) { 3678 uw_Basis_string uw_unnull(uw_Basis_string s) {
3679 return s ? s : ""; 3679 return s ? s : "";
3680 } 3680 }