vim-55/src/misc1.c

3422     char_u  *var;
3429     var = mch_getenv((char_u *)"SYS$LOGIN");
3431     var = mch_getenv((char_u *)"HOME");
3434     if (var != NULL && *var == NUL)	/* empty is same as not set */
3435 	var = NULL;
3443     if (var != NULL && *var == '%')
3448 	p = vim_strchr(var + 1, '%');
3451 	    vim_strncpy(NameBuff, var + 1, p - (var + 1));
3457 		var = NameBuff;
3470     if (var == NULL)
3484 		var = NameBuff;
3492     if (enc_utf8 && var != NULL)
3499 	acp_to_enc(var, (int)STRLEN(var), &pp, &len);
3514     if (var == NULL)
3515 	var = "C:/";
3517     if (var != NULL)
3527 	    if (!mch_chdir((char *)var) && mch_dirname(IObuff, IOSIZE) == OK)
3528 		var = IObuff;
3533 	homedir = vim_strsave(var);
3601     char_u	*var;
3603     int		mustfree;	/* var was allocated, need to free it later */
3631 	    if (*src != '~')				/* environment var */
3634 		var = dst;
3638 		/* Unix has ${var-name} type environment vars */
3643 			*var++ = *tail++;
3655 			*var++ = TOUPPER_LOC(*tail);
3658 			*var++ = *tail++;
3669 		    var = NULL;
3679 		    *var = NUL;
3680 		    var = vim_getenv(dst, &mustfree);
3690 		var = homedir;
3700 		var = dst;
3706 		    *var++ = *tail++;
3707 		*var = NUL;
3723 			var = (char_u *)pw->pw_dir;
3725 			var = NULL;
3727 		if (var == NULL)
3734 		    var = ExpandOne(&xpc, dst, NULL,
3762 			    var = alloc(STRLEN(test) + 1);
3763 			    STRCPY(var, test);
3772 		var = NULL;
3780 	    if (p_ssl && var != NULL && vim_strchr(var, '\\') != NULL)
3782 		char_u	*p = vim_strsave(var);
3787 			vim_free(var);
3788 		    var = p;
3790 		    forward_slash(var);
3795 	    /* If "var" contains white space, escape it with a backslash.
3797 	    if (esc && var != NULL && vim_strpbrk(var, (char_u *)" \t") != NULL)
3799 		char_u	*p = vim_strsave_escaped(var, (char_u *)" \t");
3804 			vim_free(var);
3805 		    var = p;
3810 	    if (var != NULL && *var != NUL
3811 		    && (STRLEN(var) + STRLEN(tail) + 1 < (unsigned)dstlen))
3813 		STRCPY(dst, var);
3814 		dstlen -= (int)STRLEN(var);
3815 		c = (int)STRLEN(var);
3816 		/* if var[] ends in a path separator and tail[] starts
3818 		if (*var != NUL && after_pathsep(dst, dst + c)
3829 		vim_free(var);