josh/propane
1
0 Fork 0
Code Issues 3 Pull Requests Projects Releases Wiki Activity

Add p_context_delete() and p_tree_delete() for D targets

Browse Source
This commit is contained in:
josh committed 2026-02-28 21:12:35 -05:00
1 parent d440d0442d
commit dd687d0299
11 files changed
+105 -24
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

spec/test_named_optional_rule_component_tree.d
+7 -2
View File
@@ -10,8 +10,7 @@ int main()
unittest
{
string input = "b";
p_context_t * context;
context = p_context_new(input);
p_context_t * context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
Start * start = p_result(context);
assert(start.pToken1 is null);
@@ -21,6 +20,8 @@ unittest
assert(start.pR is null);
assert(start.r is null);
p_tree_delete(start);
input = "abcd";
context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
@@ -35,6 +36,8 @@ unittest
assert(start.pR == start.r);
assert_eq(TOKEN_c, start.pR.pToken1.token);
p_tree_delete(start);
input = "bdc";
context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
@@ -43,4 +46,6 @@ unittest
assert(start.pToken2 !is null);
assert(start.pR !is null);
assert_eq(TOKEN_d, start.pR.pToken1.token);
p_tree_delete(start);
}
spec/test_optional_rule_component_tree.d
+7 -2
View File
@@ -10,8 +10,7 @@ int main()
unittest
{
string input = "b";
p_context_t * context;
context = p_context_new(input);
p_context_t * context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
Start * start = p_result(context);
assert(start.pToken1 is null);
@@ -20,6 +19,8 @@ unittest
assert(start.pR3 is null);
assert(start.pR is null);
p_tree_delete(start);
input = "abcd";
context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
@@ -32,6 +33,8 @@ unittest
assert(start.pR == start.pR3);
assert_eq(TOKEN_c, start.pR.pToken1.token);
p_tree_delete(start);
input = "bdc";
context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
@@ -40,4 +43,6 @@ unittest
assert(start.pToken2 !is null);
assert(start.pR !is null);
assert_eq(TOKEN_d, start.pR.pToken1.token);
p_tree_delete(start);
}
spec/test_starting_rules_tree.d
+7 -2
View File
@@ -10,8 +10,7 @@ int main()
unittest
{
string input = "bbbb";
p_context_t * context;
context = p_context_new(input);
p_context_t * context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
Start * start = p_result(context);
assert(start.bs);
@@ -20,6 +19,8 @@ unittest
assert(start.bs.bs.bs.b);
assert(start.bs.bs.bs.bs.b);
p_tree_delete(start);
context = p_context_new(input);
assert(p_parse_Bs(context) == P_SUCCESS);
Bs * bs = p_result_Bs(context);
@@ -28,9 +29,13 @@ unittest
assert(bs.bs.bs.b);
assert(bs.bs.bs.bs.b);
p_tree_delete_Bs(bs);
input = "c";
context = p_context_new(input);
assert(p_parse_R(context) == P_SUCCESS);
R * r = p_result_R(context);
assert(r.c);
p_tree_delete_R(r);
}
spec/test_token_user_fields.d
+3 -2
View File
@@ -17,8 +17,7 @@ unittest
" # s1\n" ~
" # s2\n" ~
"second\n";
p_context_t * context;
context = p_context_new(input);
p_context_t * context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
Start * start = p_result(context);
assert(start.pIDs);
@@ -27,4 +26,6 @@ unittest
assert(start.pIDs.pIDs);
assert(start.pIDs.pIDs.id);
assert(start.pIDs.pIDs.id.comments == "# s1\n# s2\n");
p_tree_delete(start);
}
spec/test_tree.d
+7 -2
View File
@@ -10,8 +10,7 @@ int main()
unittest
{
string input = "a, ((b)), b";
p_context_t * context;
context = p_context_new(input);
p_context_t * context = p_context_new(input);
assert_eq(P_SUCCESS, p_parse(context));
Start * start = p_result(context);
assert(start.pItems1 !is null);
@@ -37,12 +36,16 @@ unittest
assert_eq(22, itemsmore.pItem.pToken1.pvalue);
assert(itemsmore.pItemsMore is null);
p_tree_delete(start);
input = "";
context = p_context_new(input);
assert_eq(P_SUCCESS, p_parse(context));
start = p_result(context);
assert(start.pItems is null);
p_tree_delete(start);
input = "2 1";
context = p_context_new(input);
assert_eq(P_SUCCESS, p_parse(context));
@@ -54,4 +57,6 @@ unittest
assert(start.pItems.pItem.pDual.pOne2 !is null);
assert(start.pItems.pItem.pDual.pTwo2 is null);
assert(start.pItems.pItem.pDual.pOne1 is null);
p_tree_delete(start);
}
spec/test_tree_field_aliases.d
+3 -2
View File
@@ -10,12 +10,13 @@ int main()
unittest
{
string input = "\na\nb\nc";
p_context_t * context;
context = p_context_new(input);
p_context_t * context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
Start * start = p_result(context);
assert_eq(TOKEN_a, start.first.pToken.token);
assert_eq(TOKEN_b, start.second.pToken.token);
assert_eq(TOKEN_c, start.third.pToken.token);
p_tree_delete(start);
}
spec/test_tree_invalid_positions.d
+9 -2
View File
@@ -10,8 +10,7 @@ int main()
unittest
{
string input = "\na\n bb ccc";
p_context_t * context;
context = p_context_new(input);
p_context_t * context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
Start * start = p_result(context);
@@ -34,6 +33,8 @@ unittest
assert_eq(3, start.end_position.row);
assert_eq(8, start.end_position.col);
p_tree_delete(start);
input = "a\nbb";
context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
@@ -58,6 +59,8 @@ unittest
assert_eq(2, start.end_position.row);
assert_eq(2, start.end_position.col);
p_tree_delete(start);
input = "a\nc\nc";
context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
@@ -82,6 +85,8 @@ unittest
assert_eq(3, start.end_position.row);
assert_eq(1, start.end_position.col);
p_tree_delete(start);
input = "a";
context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
@@ -101,4 +106,6 @@ unittest
assert_eq(1, start.position.col);
assert_eq(1, start.end_position.row);
assert_eq(1, start.end_position.col);
p_tree_delete(start);
}
spec/test_tree_ps.d
+7 -2
View File
@@ -10,8 +10,7 @@ int main()
unittest
{
string input = "a, ((b)), b";
p_context_t * context;
context = p_context_new(input);
p_context_t * context = p_context_new(input);
assert_eq(P_SUCCESS, p_parse(context));
PStartS * start = p_result(context);
assert(start.pItems1 !is null);
@@ -37,12 +36,16 @@ unittest
assert_eq(22, itemsmore.pItem.pToken1.pvalue);
assert(itemsmore.pItemsMore is null);
p_tree_delete(start);
input = "";
context = p_context_new(input);
assert_eq(P_SUCCESS, p_parse(context));
start = p_result(context);
assert(start.pItems is null);
p_tree_delete(start);
input = "2 1";
context = p_context_new(input);
assert_eq(P_SUCCESS, p_parse(context));
@@ -54,4 +57,6 @@ unittest
assert(start.pItems.pItem.pDual.pOne2 !is null);
assert(start.pItems.pItem.pDual.pTwo2 is null);
assert(start.pItems.pItem.pDual.pOne1 is null);
p_tree_delete(start);
}
spec/test_tree_token_positions.d
+5 -2
View File
@@ -10,8 +10,7 @@ int main()
unittest
{
string input = "abbccc";
p_context_t * context;
context = p_context_new(input);
p_context_t * context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
Start * start = p_result(context);
@@ -47,6 +46,8 @@ unittest
assert_eq(1, start.end_position.row);
assert_eq(6, start.end_position.col);
p_tree_delete(start);
input = "\n\n bb\nc\ncc\n\n a";
context = p_context_new(input);
assert(p_parse(context) == P_SUCCESS);
@@ -83,4 +84,6 @@ unittest
assert_eq(3, start.position.col);
assert_eq(7, start.end_position.row);
assert_eq(6, start.end_position.col);
p_tree_delete(start);
}