Added this.calling_bundle variable

Ticket: ENT-12724
Signed-off-by: Victor Moene <victor.moene@northern.tech>

Author: victormlg

cf-agent/verify_methods.c

@@ -169,6 +169,7 @@ PromiseResult VerifyMethod(EvalContext *ctx, const Rval call, const Attributes *
 
             BundleResolve(ctx, bp);
 
+            ((Bundle *) bp)->calling_bundle = (Bundle *) PromiseGetBundle(pp);
             result = ScheduleAgentOperations(ctx, bp);
 
             GetReturnValue(ctx, bp, pp);

libpromises/eval_context.c

@@ -1566,6 +1566,12 @@ void EvalContextStackPushPromiseFrame(EvalContext *ctx, const Promise *owner)
 
     EvalContextVariablePutSpecial(ctx, SPECIAL_SCOPE_THIS, "bundle", PromiseGetBundle(owner)->name, CF_DATA_TYPE_STRING, "source=promise");
     EvalContextVariablePutSpecial(ctx, SPECIAL_SCOPE_THIS, "namespace", PromiseGetNamespace(owner), CF_DATA_TYPE_STRING, "source=promise");
+    if (PromiseGetBundle(owner)->calling_bundle != NULL)
+    {
+        const char *calling_bundle_name = StringFormat("%s:%s", PromiseGetBundle(owner)->calling_bundle->ns, PromiseGetBundle(owner)->calling_bundle->name);
+        EvalContextVariablePutSpecial(ctx, SPECIAL_SCOPE_THIS, "calling_bundle", calling_bundle_name, CF_DATA_TYPE_STRING, "source=promise");
+        free(calling_bundle_name);
+    }
 
     // Recompute `with`
     for (size_t i = 0; i < SeqLength(owner->conlist); i++)

libpromises/policy.c

@@ -1324,6 +1324,7 @@ Bundle *PolicyAppendBundle(Policy *policy,
     bundle->custom_sections = SeqNew(10, BundleSectionDestroy);
     bundle->all_promises = SeqNew(10, NULL);
     bundle->evaluation_order = evaluation_order;
+    bundle->calling_bundle = NULL;
 
     return bundle;
 }

libpromises/policy.h

@@ -71,6 +71,7 @@ typedef struct
 struct Bundle_
 {
     Policy *parent_policy;
+    struct Bundle_ *calling_bundle;
 
     char *type;
     char *name;