Commit 376bbec40b9359e0742771a1732e3a68a897fdcc
2024-12-20T13:21:21
ncpu global variable
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 93 94 95 96 97 98 99
diff --git a/.ikc3_history b/.ikc3_history
index 36e6754..3e43f5c 100644
--- a/.ikc3_history
+++ b/.ikc3_history
@@ -1,4 +1,3 @@
-points = [{(F128) 0, (F128) 1}, {(F128) 0.5, (F128) 0.6}]
points[0]
points[1]
points[2]
@@ -97,4 +96,4 @@ Gtk4.init()
w = Gtk4.Window.new()
Gtk4.Window.present(w)
Gtk4.main()
-
+ncpu
diff --git a/lib/kc3/0.1/httpd.kc3 b/lib/kc3/0.1/httpd.kc3
index dabd09d..2eff99b 100644
--- a/lib/kc3/0.1/httpd.kc3
+++ b/lib/kc3/0.1/httpd.kc3
@@ -119,7 +119,7 @@ defmodule HTTPd do
end
}
- def thread_count = 8
+ def thread_count = ncpu
def server = fn (host, port) {
def socket = Socket.listen(host, port)
diff --git a/libkc3/env.c b/libkc3/env.c
index c6005f6..db694a1 100644
--- a/libkc3/env.c
+++ b/libkc3/env.c
@@ -11,6 +11,11 @@
* THIS SOFTWARE.
*/
#include <string.h>
+
+#ifndef __APPLE__
+#include <sys/sysinfo.h>
+#endif
+
#include <unistd.h>
#include "alloc.h"
#include "array.h"
@@ -2740,6 +2745,7 @@ s_env * env_init_globals (s_env *env)
{
s_tag *file_dir;
s_tag *file_path;
+ s_tag *ncpu;
if (! (env->read_time_frame = frame_new(NULL, NULL)))
return NULL;
if (! (file_dir = frame_binding_new(env->read_time_frame,
@@ -2755,6 +2761,14 @@ s_env * env_init_globals (s_env *env)
return NULL;
if (! (env->global_frame = frame_new(env->read_time_frame, NULL)))
return NULL;
+ if (! (ncpu = frame_binding_new(env->read_time_frame,
+ &g_sym_ncpu)))
+ return NULL;
+#if HAVE_PTHREAD
+ tag_init_u8(ncpu, get_nprocs());
+#else
+ tag_init_u8(ncpu, 1);
+#endif
return env;
}
diff --git a/libkc3/sym.c b/libkc3/sym.c
index 9ee548b..7543346 100644
--- a/libkc3/sym.c
+++ b/libkc3/sym.c
@@ -97,6 +97,7 @@ const s_sym g_sym_is_loading = {{{NULL}, 10, {"is_loading"}}};
const s_sym g_sym_load_time = {{{NULL}, 9, {"load_time"}}};
const s_sym g_sym_macro = {{{NULL}, 5, {"macro"}}};
const s_sym g_sym_module = {{{NULL}, 6, {"module"}}};
+const s_sym g_sym_ncpu = {{{NULL}, 4, {"ncpu"}}};
const s_sym g_sym_operator = {{{NULL}, 8, {"operator"}}};
const s_sym g_sym_operator_associativity =
{{{NULL}, 22, {"operator_associativity"}}};
@@ -414,6 +415,7 @@ void sym_init_g_sym (void)
sym_register(&g_sym_load_time, NULL);
sym_register(&g_sym_macro, NULL);
sym_register(&g_sym_module, NULL);
+ sym_register(&g_sym_ncpu, NULL);
sym_register(&g_sym_operator, NULL);
sym_register(&g_sym_operator_associativity, NULL);
sym_register(&g_sym_operator_equal, NULL);
diff --git a/libkc3/sym.h b/libkc3/sym.h
index 2bc8153..2ebfefe 100644
--- a/libkc3/sym.h
+++ b/libkc3/sym.h
@@ -101,6 +101,7 @@ extern const s_sym g_sym_is_loading;
extern const s_sym g_sym_load_time;
extern const s_sym g_sym_macro;
extern const s_sym g_sym_module;
+extern const s_sym g_sym_ncpu;
extern const s_sym g_sym_operator;
extern const s_sym g_sym_operator_associativity;
extern const s_sym g_sym_operator_equal;