zsh/Src/params.c

45 /* what level of localness we are at */
467 	     * This used to be a warning, but surely if we allow
469 	     * no error status we're in for all sorts of mayhem?
650  * entries for environment variables we inherit.           */
686      * be initialized before we copy the environment variables. *
718     /* Copy the environment variables we are inheriting to dynamic *
719      * memory, so we can do mallocs and frees on it.               */
729     /* Now incorporate environment variables we are inheriting *
731      * memory so that we can free them if needed               */
764 	 * For native emulation we always set the variable home
882 		 * needed to avoid freeing oldpm, but we do take it
949  * If fakecopy is set, we are just saving the details of a special
951  * and we need to do more work.
959      * Note that tpm, into which we're copying, may not be in permanent
990      * called from inside an associative array), we need the gets and sets
993      * In this case we assume the saved parameter is not itself special,
994      * so we just use the standard functions.  This is also why we switch off
1047  * *w is only set if we need to find the end of a word (input; should
1200 	     * This catches the case where we are using "k" (rather
1239     /* If we're NOT reverse subscripting, strip the inull()s so brackets *
1241      * so that the brackets will be escaped when we patcompile() or when *
1298 	     * Note for the confused (= pws):  the index r we
1466 	     * Remember we need to return a raw offset.
1478 		     * Second argument: we don't need to
1480 		     * we do need to handle characters appropriately.
1490 			 * See below: we have to move forward,
1543 				 * after everything we matched.
1556 		     * where we need prevcharlen and nextcharlen.
1573 			 * last one but we need to repeat if
1574 			 * we want another one.
1656     /* Now we untokenize everything except inull() markers so we can check *
1658      * in getarg() after we know whether we're doing reverse indexing.    */
1665     /* If we reached the end of the string (s == NULL) we have an error */
1681 	zlong we = 0, dummy;
1684 	start = getarg(&s, &inv, v, 0, &we, &startprevlen, &startnextlen);
1692 		 * offset so at this stage we need to convert from
1693 		 * the immediate offset into the value that we have
1704 			 * move up characters, counting how many we
1714 				p = target; /* pretend we hit exactly */
1760 		end = we ? we : start;
1766 	     * or next character to what we would expect, which is
1767 	     * why we had to calculate them in getarg().
1776 		 * This can't happen with KSH_ARRAYS; we already
1778 		 * Are we being strict?
1889 	    /* If no flags were passed, we need something to represent *
2019 		 * characters.  fwidth is a misnomer: we use
2022 		 * (tend - t) is the number of bytes we need
3013      * If this was a local variable, we need to keep the old
3041 	     * Re-export the old value which we removed in typeset_single().
3042 	     * I don't think we need to test for ALL_EXPORT here, since if
3058  * This could usefully be made type-specific, but then we need
3246 	/* ...but we can use the value without copying. */
3377      * with user tied variables since we can leak memory.
3463      * Special unset function because we allocated a struct tieddata
3464      * in typeset_single to hold the special data which we now
3469     /* paranoia -- shouldn't need these, but in case we reuse the struct... */
3911      * environment variable", but if that's what we're setting the value
3969      * If we've got no non-empty string at this
3971      * we shouldn't bother setting anything.
4181 /* Function used when we need to reinitialise the terminal */
4186     /* If non-interactive, delay setting up term till we need it. */
4233      * we reinitialise the terminal.  This is a bit inefficient.
4323      * If we are using unsetenv() to remove values from the
4324      * environment, which is the safe thing to do, we
4357     /* Else we have to make room and add it */
4455       * If we are using setenv/unsetenv to manage the environment,
4456       * we simply store the string we created in pm->env since
4461       * the other branch?  If so, we don't actually need to
4469      * Under Cygwin we must use putenv() to maintain consistency.
4552      * Note we don't remove PM_EXPORT from the flags.  This
4553      * may be asking for trouble but we need to know later
4554      * if we restore this parameter to its old value.
4613      * serious floating point operations we'd like to avoid.
4614      * Then we are liable to get all the digits
4615      * we asked for after the decimal point, or we should at least
4616      * bargain for it.  So we just allocate 512 + digits.  This
4636 	     * Here, we are given the number of significant figures, but
4694 	     * to reveal an ordinary parameter beneath.  Here we handle
4707 		 * that we cached off into tpm->u.dval.