Commit f902c493dd7b5da5b57ef1b4019a3f842c133514
2024-11-19T21:52:59
plug memleaks
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92
diff --git a/lib/kc3/0.1/httpd.kc3 b/lib/kc3/0.1/httpd.kc3
index 75ef0bc..fd07d7d 100644
--- a/lib/kc3/0.1/httpd.kc3
+++ b/lib/kc3/0.1/httpd.kc3
@@ -56,6 +56,8 @@ defmodule HTTPd do
if (real_ip) do real_ip else client.addr_str end
end
request = Struct.put(request, :client_addr, client_addr)
+ user_agent = HTTP.Request.header(request, "User-Agent")
+ puts("--- #{client_addr} #{request.method} #{request.url} #{inspect(user_agent)}")
if (type(request.method) == Str) do
response = error_405_page(request)
else
@@ -72,7 +74,6 @@ defmodule HTTPd do
"Accept-Ranges", "bytes")
r = HTTP.Response.buf_write(response, client.buf_rw.w,
request.method != HEAD)
- user_agent = HTTP.Request.header(request, "User-Agent")
puts("#{response.code} #{client_addr} #{request.method} #{request.url} #{inspect(user_agent)}")
else
Event.del(client_ev)
diff --git a/libkc3/env.c b/libkc3/env.c
index 9cd2180..ab60ae4 100644
--- a/libkc3/env.c
+++ b/libkc3/env.c
@@ -2206,7 +2206,7 @@ s_tag * env_facts_collect_with (s_env *env, s_facts *facts,
tmp.type = TAG_LIST;
tmp.data.list = list;
if (false) {
- err_write_1("env_facts_first_with: ");
+ err_write_1("env_facts_collect_with: ");
err_inspect_tag(&tmp);
err_write_1("\n");
}
@@ -2303,6 +2303,7 @@ s_tag * env_facts_first_with (s_env *env, s_facts *facts,
if (! env_eval_call_callable_args(env, callback, arguments, &tmp)) {
goto clean;
}
+ facts_with_cursor_clean(&cursor);
ok:
list_delete_all(arguments);
if (false) {
@@ -2354,6 +2355,7 @@ s_tag * env_facts_first_with_tags (s_env *env, s_facts *facts,
if (! env_eval_call_callable_args(env, callback, arguments, &tmp)) {
goto clean;
}
+ facts_cursor_clean(&cursor);
ok:
list_delete_all(arguments);
*dest = tmp;
@@ -2384,7 +2386,7 @@ s_tag * env_facts_with (s_env *env, s_facts *facts, s_list **spec,
if (! facts_with_cursor_next(&cursor, &fact))
goto clean;
if (! fact)
- break;
+ goto ok;
tag_clean(&tmp);
fact_w_init_fact(fact_w, fact);
if (! env_eval_call_callable_args(env, callback, arguments, &tmp)) {
@@ -2394,6 +2396,8 @@ s_tag * env_facts_with (s_env *env, s_facts *facts, s_list **spec,
fact_w_clean(fact_w);
fact_w_init(fact_w);
}
+ facts_with_cursor_clean(&cursor);
+ ok:
list_delete_all(arguments);
*dest = tmp;
return dest;
@@ -2438,12 +2442,14 @@ s_tag * env_facts_with_macro (s_env *env, s_tag *facts_tag, s_tag *spec_tag,
if (! facts_with_cursor_next(&cursor, &fact))
goto clean;
if (! fact)
- break;
+ goto ok;
tag_clean(&tmp);
if (! env_eval_tag(env, block_tag, &tmp)) {
goto clean;
}
}
+ facts_with_cursor_clean(&cursor);
+ ok:
*dest = tmp;
return dest;
clean:
@@ -2484,6 +2490,7 @@ s_tag * env_facts_with_tags (s_env *env, s_facts *facts, s_tag *subject,
goto clean;
}
}
+ facts_cursor_clean(&cursor);
ok:
list_delete_all(arguments);
*dest = tmp;