contrib/bmake/var.c

272     GNode	*ctxt;		/* variable context */
351  *	ctxt		context in which to find it
366 VarFind(const char *name, GNode *ctxt, int flags)
417     var = Hash_FindEntry(&ctxt->context, name);
419     if ((var == NULL) && (flags & FIND_CMD) && (ctxt != VAR_CMD)) {
423 	(ctxt != VAR_GLOBAL))
426 	if ((var == NULL) && (ctxt != VAR_INTERNAL)) {
448 		   (ctxt != VAR_GLOBAL))
451 	    if ((var == NULL) && (ctxt != VAR_INTERNAL)) {
504  *	ctxt		context in which to set it
516 VarAdd(const char *name, const char *val, GNode *ctxt)
530     h = Hash_CreateEntry(&ctxt->context, name, NULL);
533     if (DEBUG(VAR) && (ctxt->flags & INTERNAL) == 0) {
534 	fprintf(debug_file, "%s:%s = %s\n", ctxt->name, name, val);
552 Var_Delete(const char *name, GNode *ctxt)
562     ln = Hash_FindEntry(&ctxt->context, cp);
565 	    ctxt->name, cp, ln ? "" : " (not found)");
582 	Hash_DeleteEntry(&ctxt->context, ln);
904  *	ctxt		context in which to set it
925 Var_Set(const char *name, const char *val, GNode *ctxt, int flags)
936 	expanded_name = Var_Subst(NULL, name, ctxt, VARF_WANTRES);
948     if (ctxt == VAR_GLOBAL) {
953 		    fprintf(debug_file, "%s:%s = %s ignored!\n", ctxt->name, name, val);
960     v = VarFind(name, ctxt, 0);
962 	if (ctxt == VAR_CMD && (flags & VAR_NO_EXPORT) == 0) {
970 	VarAdd(name, val, ctxt);
976 	    fprintf(debug_file, "%s:%s = %s\n", ctxt->name, name, val);
986     if (ctxt == VAR_CMD && (flags & VAR_NO_EXPORT) == 0) {
989 	    v = VarFind(name, ctxt, 0);
1024  *	ctxt		Context in which this should occur
1036  *	XXX: Knows its calling circumstances in that if called with ctxt
1043 Var_Append(const char *name, const char *val, GNode *ctxt)
1050 	expanded_name = Var_Subst(NULL, name, ctxt, VARF_WANTRES);
1063     v = VarFind(name, ctxt, (ctxt == VAR_GLOBAL) ? FIND_ENV : 0);
1066 	VarAdd(name, val, ctxt);
1072 	    fprintf(debug_file, "%s:%s = %s\n", ctxt->name, name,
1084 	    h = Hash_CreateEntry(&ctxt->context, name, NULL);
1098  *	ctxt		Context in which to start search
1109 Var_Exists(const char *name, GNode *ctxt)
1115 	cp = Var_Subst(NULL, name, ctxt, VARF_WANTRES);
1117     v = VarFind(cp ? cp : name, ctxt, FIND_CMD|FIND_GLOBAL|FIND_ENV);
1134  *	ctxt		context in which to search for it
1144 Var_Value(const char *name, GNode *ctxt, char **frp)
1148     v = VarFind(name, ctxt, FIND_ENV | FIND_GLOBAL | FIND_CMD);
1832         Var_Set(loop->tvar, word, loop->ctxt, VAR_NO_EXPORT);
1833         s = Var_Subst(NULL, loop->str, loop->ctxt, loop->errnum | VARF_WANTRES);
2211 VarGetPattern(GNode *ctxt, Var_Parse_State *vpstate MAKE_ATTR_UNUSED,
2260 		    cp2 = Var_Parse(cp, ctxt, errnum | VARF_WANTRES, &len,
2537 	       Var *v, GNode *ctxt, int flags,
2570 	    rval = Var_Parse(tstr, ctxt, flags, &rlen, &freeIt);
2595 				      0, 0, v, ctxt, flags, &used, freePtr);
2637 		    v_ctxt = ctxt;
2647 		    } else if (ctxt != VAR_GLOBAL) {
2648 			Var *gv = VarFind(v->name, ctxt, 0);
2669 		    pattern.rhs = VarGetPattern(ctxt, &parsestate, flags,
2719 		if ((loop.tvar = VarGetPattern(ctxt, &parsestate, flags,
2725 		if ((loop.str = VarGetPattern(ctxt, &parsestate, flags,
2735 		loop.ctxt = ctxt;
2736 		newStr = VarModify(ctxt, &parsestate, nstr, VarLoopExpand,
2738 		Var_Delete(loop.tvar, ctxt);
2755 		    Var_Set(np, nstr, ctxt, 0);
2758 		    Var_Set("_", nstr, ctxt, 0);
2810 			    cp2 = Var_Parse(cp, ctxt, nflags, &len, &freeIt);
2870 		if ((pattern.rhs = VarGetPattern(ctxt, &parsestate, flags,
2902 		estr = VarGetPattern(ctxt, &parsestate,
3017 		    newStr = VarSelectWords(ctxt, &parsestate,
3146 			newStr = VarModify(ctxt, &parsestate, nstr,
3155 			    newStr = VarModify(ctxt, &parsestate, nstr,
3274 		    pattern = Var_Subst(NULL, cp2, ctxt, flags | VARF_WANTRES);
3281 		    newStr = VarModify(ctxt, &parsestate, nstr, VarMatch,
3284 		    newStr = VarModify(ctxt, &parsestate, nstr, VarNoMatch,
3310 		if ((pattern.lhs = VarGetPattern(ctxt, &parsestate, flags,
3317 		if ((pattern.rhs = VarGetPattern(ctxt, &parsestate, flags,
3344 		newStr = VarModify(ctxt, &tmpparsestate, nstr,
3384 		if ((pattern.lhs = VarGetPattern(ctxt, &parsestate, flags,
3392 		if ((pattern.rhs = VarGetPattern(ctxt, &parsestate, flags,
3433 		if ((re = VarGetPattern(ctxt, &parsestate, flags, &cp, delim,
3437 		if ((pattern.replace = VarGetPattern(ctxt, &parsestate,
3477 		newStr = VarModify(ctxt, &tmpparsestate, nstr,
3497 		newStr = VarModify(ctxt, &parsestate, nstr, VarTail,
3506 		newStr = VarModify(ctxt, &parsestate, nstr, VarHead,
3515 		newStr = VarModify(ctxt, &parsestate, nstr, VarSuffix,
3524 		newStr = VarModify(ctxt, &parsestate, nstr, VarRoot,
3631 		if ((pattern.lhs = VarGetPattern(ctxt, &parsestate,
3636 		if ((pattern.rhs = VarGetPattern(ctxt, &parsestate,
3650 		    newStr = VarModify(ctxt, &parsestate, nstr,
3719  *	ctxt		The context for the variable
3741 Var_Parse(const char *str, GNode *ctxt, int flags,
3782 	v = VarFind(name, ctxt, FIND_ENV | FIND_GLOBAL | FIND_CMD);
3786 	    if ((ctxt == VAR_CMD) || (ctxt == VAR_GLOBAL)) {
3847 		char *rval = Var_Parse(tstr, ctxt, flags,  &rlen, &freeIt);
3884 	v = VarFind(str, ctxt, FIND_ENV | FIND_GLOBAL | FIND_CMD);
3889 	if ((v == NULL) && (ctxt != VAR_CMD) && (ctxt != VAR_GLOBAL) &&
3897 	    v = VarFind(name, ctxt, 0);
3912 		((ctxt == VAR_CMD) || (ctxt == VAR_GLOBAL)))
3933 		       ((ctxt == VAR_CMD) || (ctxt == VAR_GLOBAL)))
3994 	nstr = Var_Subst(NULL, nstr, ctxt, flags);
4007 				      v, ctxt, flags, &used, &extraFree);
4015 				      v, ctxt, flags, &used, freePtr);
4077  *	ctxt		the context wherein to find variables
4090 Var_Subst(const char *var, const char *str, GNode *ctxt, int flags)
4190 	    val = Var_Parse(str, ctxt, flags, &length, &freeIt);
4338 Var_Dump(GNode *ctxt)
4343     for (h = Hash_EnumFirst(&ctxt->context, &search);