Gwion coverage report

GCC Code Coverage Report

Directory:	src/		Exec	Total	Coverage
File:	src/import/import_fdef.c	Lines:	94	94	100.0 %
Date:	2020-09-21 18:02:52	Branches:	41	46	89.1 %


#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include "gwion_util.h"
#include "gwion_ast.h"
#include "gwion_env.h"
#include "vm.h"
#include "traverse.h"
#include "object.h"
#include "instr.h"
#include "emit.h"
#include "gwion.h"
#include "operator.h"
#include "import.h"
#include "gwi.h"
#include "clean.h"

ANN2(1,2,3) static m_bool dl_func_init(const Gwi gwi, const restrict m_str t,
    const restrict m_str n) {
  CHECK_BB(ck_ini(gwi, ck_fdef))
  gwi->ck->name = n;
  CHECK_BB(check_typename_def(gwi, gwi->ck))
  CHECK_OB((gwi->ck->td = str2decl(gwi, t)))
  vector_init(&gwi->ck->v);
  return GW_OK;
}

ANN m_int gwi_func_ini(const Gwi gwi, const restrict m_str t, const restrict m_str n) {
  return dl_func_init(gwi, t, n);
}

ANN Arg_List make_dll_arg_list(const Vector v) {
  Arg_List base = (Arg_List)vector_front(v), arg_list = base;
  for(m_uint i = 1; i < vector_size(v); ++i)
    arg_list = (arg_list->next = (Arg_List)vector_at(v, i));
  vector_release(v);
  v->ptr = NULL;
  return base;
}

ANEW ANN static Func_Base* gwi_func_base(const Gwi gwi, ImportCK *ck) {
  const Arg_List arg_list = make_dll_arg_list(&gwi->ck->v);
  Func_Base *base = new_func_base(gwi->gwion->mp, ck->td, ck->sym, arg_list, ck->flag | ae_flag_builtin);
  ck->td = NULL;
  if(ck->tmpl) {
    base->tmpl = gwi_tmpl(gwi);
    ck->tmpl = NULL;
  }
  return base;
}

ANEW ANN static Func_Def import_fdef(const Gwi gwi, ImportCK *ck) {
  Func_Base* base = gwi_func_base(gwi, ck);
  const Func_Def fdef = new_func_def(gwi->gwion->mp, base, NULL, loc(gwi));
  fdef->d.dl_func_ptr = (void*)(m_uint)ck->addr;
  if(base->tmpl)
    SET_FLAG(fdef->base, template);
  return fdef;
}

ANN static m_bool section_fdef(const Gwi gwi, const Func_Def fdef) {
  Section* section = new_section_func_def(gwi->gwion->mp, fdef);
  const Ast body = new_ast(gwi->gwion->mp, section, NULL);
  gwi_body(gwi, body);
  return GW_OK;
}

ANN static m_bool error_fdef(const Gwi gwi, const Func_Def fdef) {
  func_def_cleaner(gwi->gwion, fdef);
  return GW_ERROR;
}

ANN m_int gwi_func_valid(const Gwi gwi, ImportCK *ck) {
  const Func_Def fdef = import_fdef(gwi, ck);
  if(SAFE_FLAG(gwi->gwion->env->class_def, template))
    /*return*/ section_fdef(gwi, fdef);
  if(traverse_func_def(gwi->gwion->env, fdef) < 0)
    return error_fdef(gwi, fdef);
  ck_end(gwi);
  return GW_OK;
}

ANN m_int gwi_func_end(const Gwi gwi, const f_xfun addr, const ae_flag flag) {
  CHECK_BB(ck_ok(gwi, ck_fdef))
  gwi->ck->addr = addr;
  gwi->ck->flag = flag;
  if(gwi_func_valid(gwi, gwi->ck) > 0)
    return GW_OK;
  return GW_ERROR;
}

ANN m_int gwi_func_arg(const Gwi gwi, const restrict m_str t, const restrict m_str n) {
  CHECK_BB(ck_ok(gwi, ck_fdef))
  DECL_OB(Type_Decl*, td, = str2decl(gwi, t))
  const Var_Decl var = str2var(gwi, n);
  if(var) {
    const Arg_List arg = new_arg_list(gwi->gwion->mp, td, var, NULL);
    vector_add(&gwi->ck->v, (vtype)arg);
    return GW_OK;
  }
  free_type_decl(gwi->gwion->mp, td);
  return GW_ERROR;
}

ANN m_int gwi_fptr_ini(const Gwi gwi, const restrict m_str type, const restrict m_str name) {
  return dl_func_init(gwi, type, name);
}

ANN static Fptr_Def import_fptr(const Gwi gwi) {
  Func_Base *base = gwi_func_base(gwi, gwi->ck);
  return new_fptr_def(gwi->gwion->mp, base);
}

ANN Type gwi_fptr_end(const Gwi gwi, const ae_flag flag) {
  CHECK_BO(ck_ok(gwi, ck_fdef))
  DECL_OO(const Fptr_Def, fptr, = import_fptr(gwi))
  fptr->base->flag |= flag;
  // what happens if it is in a template class ?
  const m_bool ret = traverse_fptr_def(gwi->gwion->env, fptr);
  if(fptr->base->func) // is it needed ?
    SET_FLAG(fptr->base->func, builtin);
  const Type t = ret > 0 ? fptr->type : NULL;
  free_fptr_def(gwi->gwion->mp, fptr);
  if(fptr->type)
    REM_REF(fptr->type, gwi->gwion)
  ck_end(gwi);
  return t;
}

ANN void ck_clean_fdef(MemPool mp, ImportCK *ck) {
  if(ck->td)
    free_type_decl(mp, ck->td);
  if(ck->v.ptr) {
    for(m_uint i = 0; i < vector_size(&ck->v); ++i) {
      Arg_List list = (Arg_List)vector_at(&ck->v, i);
      list->next = NULL;
      free_arg_list(mp, list);
    }
    vector_release(&ck->v);
  }
  if(ck->tmpl)
    free_id_list(mp, ck->tmpl);
}


Generated by: GCOVR (Version 4.2)

Line	Branch	Exec	Source
1			#include <stdlib.h>
2			#include <string.h>
3			#include <ctype.h>
4			#include "gwion_util.h"
5			#include "gwion_ast.h"
6			#include "gwion_env.h"
7			#include "vm.h"
8			#include "traverse.h"
9			#include "object.h"
10			#include "instr.h"
11			#include "emit.h"
12			#include "gwion.h"
13			#include "operator.h"
14			#include "import.h"
15			#include "gwi.h"
16			#include "clean.h"
17
18		42038	ANN2(1,2,3) static m_bool dl_func_init(const Gwi gwi, const restrict m_str t,
19			const restrict m_str n) {
20	✓✓	42038	CHECK_BB(ck_ini(gwi, ck_fdef))
21		42037	gwi->ck->name = n;
22	✗✓	42037	CHECK_BB(check_typename_def(gwi, gwi->ck))
23	✓✓	42037	CHECK_OB((gwi->ck->td = str2decl(gwi, t)))
24		42034	vector_init(&gwi->ck->v);
25		42034	return GW_OK;
26			}
27
28		42033	ANN m_int gwi_func_ini(const Gwi gwi, const restrict m_str t, const restrict m_str n) {
29		42033	return dl_func_init(gwi, t, n);
30			}
31
32		42028	ANN Arg_List make_dll_arg_list(const Vector v) {
33		42028	Arg_List base = (Arg_List)vector_front(v), arg_list = base;
34	✓✓	49170	for(m_uint i = 1; i < vector_size(v); ++i)
35		7142	arg_list = (arg_list->next = (Arg_List)vector_at(v, i));
36		42028	vector_release(v);
37		42028	v->ptr = NULL;
38		42028	return base;
39			}
40
41		42028	ANEW ANN static Func_Base* gwi_func_base(const Gwi gwi, ImportCK *ck) {
42		42028	const Arg_List arg_list = make_dll_arg_list(&gwi->ck->v);
43		42028	Func_Base *base = new_func_base(gwi->gwion->mp, ck->td, ck->sym, arg_list, ck->flag \| ae_flag_builtin);
44		42028	ck->td = NULL;
45	✓✓	42028	if(ck->tmpl) {
46		4	base->tmpl = gwi_tmpl(gwi);
47		4	ck->tmpl = NULL;
48			}
49		42028	return base;
50			}
51
52		42024	ANEW ANN static Func_Def import_fdef(const Gwi gwi, ImportCK *ck) {
53		42024	Func_Base* base = gwi_func_base(gwi, ck);
54		42024	const Func_Def fdef = new_func_def(gwi->gwion->mp, base, NULL, loc(gwi));
55		42024	fdef->d.dl_func_ptr = (void*)(m_uint)ck->addr;
56	✓✓	42024	if(base->tmpl)
57		3	SET_FLAG(fdef->base, template);
58		42024	return fdef;
59			}
60
61		1	ANN static m_bool section_fdef(const Gwi gwi, const Func_Def fdef) {
62		1	Section* section = new_section_func_def(gwi->gwion->mp, fdef);
63		1	const Ast body = new_ast(gwi->gwion->mp, section, NULL);
64		1	gwi_body(gwi, body);
65		1	return GW_OK;
66			}
67
68		2	ANN static m_bool error_fdef(const Gwi gwi, const Func_Def fdef) {
69		2	func_def_cleaner(gwi->gwion, fdef);
70		2	return GW_ERROR;
71			}
72
73		42024	ANN m_int gwi_func_valid(const Gwi gwi, ImportCK *ck) {
74		42024	const Func_Def fdef = import_fdef(gwi, ck);
75	✓✓✓✓	42024	if(SAFE_FLAG(gwi->gwion->env->class_def, template))
76		1	/return/ section_fdef(gwi, fdef);
77	✓✓	42024	if(traverse_func_def(gwi->gwion->env, fdef) < 0)
78		2	return error_fdef(gwi, fdef);
79		42022	ck_end(gwi);
80		42022	return GW_OK;
81			}
82
83		42024	ANN m_int gwi_func_end(const Gwi gwi, const f_xfun addr, const ae_flag flag) {
84	✗✓	42024	CHECK_BB(ck_ok(gwi, ck_fdef))
85		42024	gwi->ck->addr = addr;
86		42024	gwi->ck->flag = flag;
87	✓✓	42024	if(gwi_func_valid(gwi, gwi->ck) > 0)
88		42022	return GW_OK;
89		2	return GW_ERROR;
90			}
91
92		23533	ANN m_int gwi_func_arg(const Gwi gwi, const restrict m_str t, const restrict m_str n) {
93	✗✓	23533	CHECK_BB(ck_ok(gwi, ck_fdef))
94	✓✓	23533	DECL_OB(Type_Decl*, td, = str2decl(gwi, t))
95		23530	const Var_Decl var = str2var(gwi, n);
96	✓✓	23530	if(var) {
97		23529	const Arg_List arg = new_arg_list(gwi->gwion->mp, td, var, NULL);
98		23529	vector_add(&gwi->ck->v, (vtype)arg);
99		23529	return GW_OK;
100			}
101		1	free_type_decl(gwi->gwion->mp, td);
102		1	return GW_ERROR;
103			}
104
105		5	ANN m_int gwi_fptr_ini(const Gwi gwi, const restrict m_str type, const restrict m_str name) {
106		5	return dl_func_init(gwi, type, name);
107			}
108
109		4	ANN static Fptr_Def import_fptr(const Gwi gwi) {
110		4	Func_Base *base = gwi_func_base(gwi, gwi->ck);
111		4	return new_fptr_def(gwi->gwion->mp, base);
112			}
113
114		4	ANN Type gwi_fptr_end(const Gwi gwi, const ae_flag flag) {
115	✗✓	4	CHECK_BO(ck_ok(gwi, ck_fdef))
116	✗✓	4	DECL_OO(const Fptr_Def, fptr, = import_fptr(gwi))
117		4	fptr->base->flag \|= flag;
118			// what happens if it is in a template class ?
119		4	const m_bool ret = traverse_fptr_def(gwi->gwion->env, fptr);
120	✓✓	4	if(fptr->base->func) // is it needed ?
121		3	SET_FLAG(fptr->base->func, builtin);
122	✓✓	4	const Type t = ret > 0 ? fptr->type : NULL;
123		4	free_fptr_def(gwi->gwion->mp, fptr);
124	✓✓	4	if(fptr->type)
125		3	REM_REF(fptr->type, gwi->gwion)
126		4	ck_end(gwi);
127		4	return t;
128			}
129
130		11	ANN void ck_clean_fdef(MemPool mp, ImportCK *ck) {
131	✓✓	11	if(ck->td)
132		6	free_type_decl(mp, ck->td);
133	✓✓	11	if(ck->v.ptr) {
134	✓✓	9	for(m_uint i = 0; i < vector_size(&ck->v); ++i) {
135		3	Arg_List list = (Arg_List)vector_at(&ck->v, i);
136		3	list->next = NULL;
137		3	free_arg_list(mp, list);
138			}
139		6	vector_release(&ck->v);
140			}
141	✓✓	11	if(ck->tmpl)
142		3	free_id_list(mp, ck->tmpl);
143		11	}