57
58
static void exec_advice (ostream& out, JPL_Method *jpl, AdviceInfo *ad);
58
59
static void call_advice (ostream& out, JPL_MethodCall *jpl, AdviceInfo *ad);
59
60
static void call_func (ostream& out, CStructure *in, AdviceInfo *ad);
60
static void aspectof(ostream& out, JoinPointLoc *loc, AspectInfo *aspect);
61
// static void aspectof(ostream& out, JoinPointLoc *loc, AspectInfo *aspect);
62
static void local_id (ostream& out, JoinPointLoc *jpl);
61
63
static void tjp_struct(ostream& out, JoinPointLoc *loc, int depth);
62
64
static void tjp_instance(ostream& out, JoinPointLoc *loc);
63
65
static void tjp_args_array(ostream& out, JoinPointLoc *loc);
64
66
static void tjp_argtypes(ostream& out, JoinPointLoc *loc);
65
static void cflow (ostream& out, AspectInfo *aspect_info, int index);
67
static void cflow (ostream& out, JPL_Aspect &jpl_aspect, int index);
66
68
static void tjp_typedef (ostream& out, const char *name);
67
69
static void type_check_function (ostream &out, CRecord *in, CRecord *cfor);
68
70
static void type_check_func (ostream &out, CRecord *in, const string &name);