contrib/bmake/var.c

269     GNode	*ctxt;		/* variable context */
348  *	ctxt		context in which to find it
363 VarFind(const char *name, GNode *ctxt, int flags)
414     var = Hash_FindEntry(&ctxt->context, name);
416     if ((var == NULL) && (flags & FIND_CMD) && (ctxt != VAR_CMD)) {
420 	(ctxt != VAR_GLOBAL))
423 	if ((var == NULL) && (ctxt != VAR_INTERNAL)) {
445 		   (ctxt != VAR_GLOBAL))
448 	    if ((var == NULL) && (ctxt != VAR_INTERNAL)) {
501  *	ctxt		context in which to set it
513 VarAdd(const char *name, const char *val, GNode *ctxt)
527     h = Hash_CreateEntry(&ctxt->context, name, NULL);
531 	fprintf(debug_file, "%s:%s = %s\n", ctxt->name, name, val);
549 Var_Delete(const char *name, GNode *ctxt)
559     ln = Hash_FindEntry(&ctxt->context, cp);
562 	    ctxt->name, cp, ln ? "" : " (not found)");
579 	Hash_DeleteEntry(&ctxt->context, ln);
893  *	ctxt		context in which to set it
914 Var_Set(const char *name, const char *val, GNode *ctxt, int flags)
925 	expanded_name = Var_Subst(NULL, name, ctxt, 0);
937     if (ctxt == VAR_GLOBAL) {
942 		    fprintf(debug_file, "%s:%s = %s ignored!\n", ctxt->name, name, val);
949     v = VarFind(name, ctxt, 0);
951 	if (ctxt == VAR_CMD && (flags & VAR_NO_EXPORT) == 0) {
959 	VarAdd(name, val, ctxt);
965 	    fprintf(debug_file, "%s:%s = %s\n", ctxt->name, name, val);
975     if (ctxt == VAR_CMD && (flags & VAR_NO_EXPORT) == 0) {
978 	    v = VarFind(name, ctxt, 0);
1017  *	ctxt		Context in which this should occur
1029  *	XXX: Knows its calling circumstances in that if called with ctxt
1036 Var_Append(const char *name, const char *val, GNode *ctxt)
1043 	expanded_name = Var_Subst(NULL, name, ctxt, 0);
1056     v = VarFind(name, ctxt, (ctxt == VAR_GLOBAL) ? FIND_ENV : 0);
1059 	VarAdd(name, val, ctxt);
1065 	    fprintf(debug_file, "%s:%s = %s\n", ctxt->name, name,
1077 	    h = Hash_CreateEntry(&ctxt->context, name, NULL);
1092  *	ctxt		Context in which to start search
1103 Var_Exists(const char *name, GNode *ctxt)
1109 	cp = Var_Subst(NULL, name, ctxt, FALSE);
1111     v = VarFind(cp ? cp : name, ctxt, FIND_CMD|FIND_GLOBAL|FIND_ENV);
1130  *	ctxt		context in which to search for it
1140 Var_Value(const char *name, GNode *ctxt, char **frp)
1144     v = VarFind(name, ctxt, FIND_ENV | FIND_GLOBAL | FIND_CMD);
1828         Var_Set(loop->tvar, word, loop->ctxt, VAR_NO_EXPORT);
1829         s = Var_Subst(NULL, loop->str, loop->ctxt, loop->errnum);
2162 VarGetPattern(GNode *ctxt, Var_Parse_State *vpstate MAKE_ATTR_UNUSED,
2210 		    cp2 = Var_Parse(cp, ctxt, errnum, &len, &freeIt);
2488 	       Var *v, GNode *ctxt, Boolean errnum,
2519 	    rval = Var_Parse(tstr, ctxt, errnum, &rlen, &freeIt);
2546 				      v, ctxt, errnum, &used, freePtr);
2589 		    v_ctxt = ctxt;
2599 		    } else if (ctxt != VAR_GLOBAL) {
2600 			Var *gv = VarFind(v->name, ctxt, 0);
2620 		    pattern.rhs = VarGetPattern(ctxt, &parsestate, errnum,
2669 		if ((loop.tvar = VarGetPattern(ctxt, &parsestate, errnum,
2675 		if ((loop.str = VarGetPattern(ctxt, &parsestate, errnum,
2685 		loop.ctxt = ctxt;
2686 		newStr = VarModify(ctxt, &parsestate, nstr, VarLoopExpand,
2742 			    cp2 = Var_Parse(cp, ctxt, errnum, &len, &freeIt);
2818 		if ((pattern.rhs = VarGetPattern(ctxt, &parsestate, errnum,
2847 		estr = VarGetPattern(ctxt, &parsestate,
2964 		    newStr = VarSelectWords(ctxt, &parsestate,
3071 			newStr = VarModify(ctxt, &parsestate, nstr,
3080 			    newStr = VarModify(ctxt, &parsestate, nstr,
3199 		    pattern = Var_Subst(NULL, cp2, ctxt, errnum);
3206 		    newStr = VarModify(ctxt, &parsestate, nstr, VarMatch,
3209 		    newStr = VarModify(ctxt, &parsestate, nstr, VarNoMatch,
3235 		if ((pattern.lhs = VarGetPattern(ctxt, &parsestate, errnum,
3242 		if ((pattern.rhs = VarGetPattern(ctxt, &parsestate, errnum,
3269 		newStr = VarModify(ctxt, &tmpparsestate, nstr,
3292 		if ((pattern.lhs = VarGetPattern(ctxt, &parsestate, errnum,
3300 		if ((pattern.rhs = VarGetPattern(ctxt, &parsestate, errnum,
3342 		if ((re = VarGetPattern(ctxt, &parsestate, errnum, &cp, delim,
3346 		if ((pattern.replace = VarGetPattern(ctxt, &parsestate,
3386 		newStr = VarModify(ctxt, &tmpparsestate, nstr,
3406 		newStr = VarModify(ctxt, &parsestate, nstr, VarTail,
3415 		newStr = VarModify(ctxt, &parsestate, nstr, VarHead,
3424 		newStr = VarModify(ctxt, &parsestate, nstr, VarSuffix,
3433 		newStr = VarModify(ctxt, &parsestate, nstr, VarRoot,
3520 		if ((pattern.lhs = VarGetPattern(ctxt, &parsestate,
3525 		if ((pattern.rhs = VarGetPattern(ctxt, &parsestate,
3539 		    newStr = VarModify(ctxt, &parsestate, nstr,
3610  *	ctxt		The context for the variable
3630 Var_Parse(const char *str, GNode *ctxt, Boolean errnum, int *lengthPtr,
3672 	v = VarFind(name, ctxt, FIND_ENV | FIND_GLOBAL | FIND_CMD);
3676 	    if ((ctxt == VAR_CMD) || (ctxt == VAR_GLOBAL)) {
3725 		char *rval = Var_Parse(tstr, ctxt, errnum, &rlen, &freeIt);
3763 	v = VarFind(str, ctxt, FIND_ENV | FIND_GLOBAL | FIND_CMD);
3768 	if ((v == NULL) && (ctxt != VAR_CMD) && (ctxt != VAR_GLOBAL) &&
3776 	    v = VarFind(name, ctxt, 0);
3787 		    nstr = VarModify(ctxt, &parsestate, nstr, VarHead,
3790 		    nstr = VarModify(ctxt, &parsestate, nstr, VarTail,
3808 		((ctxt == VAR_CMD) || (ctxt == VAR_GLOBAL)))
3829 		       ((ctxt == VAR_CMD) || (ctxt == VAR_GLOBAL)))
3890 	nstr = Var_Subst(NULL, nstr, ctxt, errnum);
3904 			      v, ctxt, errnum, &used, freePtr);
3962  *	ctxt		the context wherein to find variables
3973 Var_Subst(const char *var, const char *str, GNode *ctxt, Boolean undefErr)
4071 	    val = Var_Parse(str, ctxt, undefErr, &length, &freeIt);
4221 Var_Dump(GNode *ctxt)
4226     for (h = Hash_EnumFirst(&ctxt->context, &search);