|
 |
3b3638b |
diff -up ksh-20120801/src/cmd/ksh93/sh/init.c.fixset ksh-20120801/src/cmd/ksh93/sh/init.c
|
|
|
3b3638b |
--- ksh-20120801/src/cmd/ksh93/sh/init.c.fixset 2014-11-03 15:45:36.510997271 +0100
|
|
|
3b3638b |
+++ ksh-20120801/src/cmd/ksh93/sh/init.c 2014-11-03 16:20:44.398917280 +0100
|
|
|
3b3638b |
@@ -2003,8 +2003,91 @@ static Dt_t *inittree(Shell_t *shp,const
|
|
|
3b3638b |
* skip over items that are not name-value pairs
|
|
|
3b3638b |
*/
|
|
|
3b3638b |
|
|
|
3b3638b |
+
|
|
|
3b3638b |
static void env_init(Shell_t *shp)
|
|
|
3b3638b |
{
|
|
|
3b3638b |
+ register char *cp;
|
|
|
3b3638b |
+ register Namval_t *np;
|
|
|
3b3638b |
+ register char **ep=environ;
|
|
|
3b3638b |
+ register char *next=0;
|
|
|
3b3638b |
+#ifdef _ENV_H
|
|
|
3b3638b |
+ shp->env = env_open(environ,3);
|
|
|
3b3638b |
+ env_delete(shp->env,"_");
|
|
|
3b3638b |
+#endif
|
|
|
3b3638b |
+ if(ep)
|
|
|
3b3638b |
+ {
|
|
|
3b3638b |
+ while(cp= *ep++)
|
|
|
3b3638b |
+ {
|
|
|
3b3638b |
+ if(*cp=='A' && cp[1]=='_' && cp[2]=='_' && cp[3]=='z' && cp[4]=='=')
|
|
|
3b3638b |
+ next = cp+4;
|
|
|
3b3638b |
+ else if(np=nv_open(cp,shp->var_tree,(NV_EXPORT|NV_IDENT|NV_ASSIGN|NV_NOFAIL)))
|
|
|
3b3638b |
+ {
|
|
|
3b3638b |
+ nv_onattr(np,NV_IMPORT);
|
|
|
3b3638b |
+ np->nvenv = cp;
|
|
|
3b3638b |
+ nv_close(np);
|
|
|
3b3638b |
+ }
|
|
|
3b3638b |
+ else /* swap with front */
|
|
|
3b3638b |
+ {
|
|
|
3b3638b |
+ ep[-1] = environ[shp->nenv];
|
|
|
3b3638b |
+ environ[shp->nenv++] = cp;
|
|
|
3b3638b |
+ }
|
|
|
3b3638b |
+ }
|
|
|
3b3638b |
+ while(cp=next)
|
|
|
3b3638b |
+ {
|
|
|
3b3638b |
+ if(next = strchr(++cp,'='))
|
|
|
3b3638b |
+ *next = 0;
|
|
|
3b3638b |
+ np = nv_search(cp+2,shp->var_tree,NV_ADD);
|
|
|
3b3638b |
+ if(np!=SHLVL && nv_isattr(np,NV_IMPORT|NV_EXPORT))
|
|
|
3b3638b |
+ {
|
|
|
3b3638b |
+ int flag = *(unsigned char*)cp-' ';
|
|
|
3b3638b |
+ int size = *(unsigned char*)(cp+1)-' ';
|
|
|
3b3638b |
+ if((flag&NV_INTEGER) && size==0)
|
|
|
3b3638b |
+ {
|
|
|
3b3638b |
+ /* check for floating*/
|
|
|
3b3638b |
+ char *ep,*val = nv_getval(np);
|
|
|
3b3638b |
+ strtol(val,&ep,10);
|
|
|
3b3638b |
+ if(*ep=='.' || *ep=='e' || *ep=='E')
|
|
|
3b3638b |
+ {
|
|
|
3b3638b |
+ char *lp;
|
|
|
3b3638b |
+ flag |= NV_DOUBLE;
|
|
|
3b3638b |
+ if(*ep=='.')
|
|
|
3b3638b |
+ {
|
|
|
3b3638b |
+ strtol(ep+1,&lp,10);
|
|
|
3b3638b |
+ if(*lp)
|
|
|
3b3638b |
+ ep = lp;
|
|
|
3b3638b |
+ }
|
|
|
3b3638b |
+ if(*ep && *ep!='.')
|
|
|
3b3638b |
+ {
|
|
|
3b3638b |
+ flag |= NV_EXPNOTE;
|
|
|
3b3638b |
+ size = ep-val;
|
|
|
3b3638b |
+ }
|
|
|
3b3638b |
+ else
|
|
|
3b3638b |
+ size = strlen(ep);
|
|
|
3b3638b |
+ size--;
|
|
|
3b3638b |
+ }
|
|
|
3b3638b |
+ }
|
|
|
3b3638b |
+ nv_newattr(np,flag|NV_IMPORT|NV_EXPORT,size);
|
|
|
3b3638b |
+ }
|
|
|
3b3638b |
+ else
|
|
|
3b3638b |
+ cp += 2;
|
|
|
3b3638b |
+ }
|
|
|
3b3638b |
+ }
|
|
|
3b3638b |
+#ifdef _ENV_H
|
|
|
3b3638b |
+ env_delete(shp->env,e_envmarker);
|
|
|
3b3638b |
+#endif
|
|
|
3b3638b |
+ if(nv_isnull(PWDNOD) || nv_isattr(PWDNOD,NV_TAGGED))
|
|
|
3b3638b |
+ {
|
|
|
3b3638b |
+ nv_offattr(PWDNOD,NV_TAGGED);
|
|
|
3b3638b |
+ path_pwd(shp,0);
|
|
|
3b3638b |
+ }
|
|
|
3b3638b |
+ if((cp = nv_getval(SHELLNOD)) && (sh_type(cp)&SH_TYPE_RESTRICTED))
|
|
|
3b3638b |
+ sh_onoption(SH_RESTRICTED); /* restricted shell */
|
|
|
3b3638b |
+ return;
|
|
|
3b3638b |
+}
|
|
|
3b3638b |
+
|
|
|
3b3638b |
+
|
|
|
3b3638b |
+static void env_init_backup(Shell_t *shp)
|
|
|
3b3638b |
+{
|
|
|
3b3638b |
register char *cp;
|
|
|
3b3638b |
register Namval_t *np,*mp;
|
|
|
3b3638b |
register char **ep=environ;
|