diff options
author | Thomas White <taw@physics.org> | 2020-02-18 22:42:06 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-02-18 23:44:05 +0100 |
commit | 944c905ee4187477a769624514545338b81fa4d0 (patch) | |
tree | b86efa4b5615b85808f145f550042a9f0a8cd5f3 /src/nanolight.c | |
parent | c9984d69faa1ff4e6c8c5fe59b69e748387a8c80 (diff) |
Add basic Guile stuff
Diffstat (limited to 'src/nanolight.c')
-rw-r--r-- | src/nanolight.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/nanolight.c b/src/nanolight.c index 1bcb2ea..17411f1 100644 --- a/src/nanolight.c +++ b/src/nanolight.c @@ -1,7 +1,7 @@ /* * nanolight.c * - * Copyright © 2019 Thomas White <taw@bitwiz.me.uk> + * Copyright © 2019-2020 Thomas White <taw@bitwiz.me.uk> * * This file is part of NanoLight. * @@ -28,6 +28,7 @@ #include <sys/stat.h> #include <glib.h> #include <glib/gstdio.h> +#include <libguile.h> #include <libintl.h> #define _(x) gettext(x) @@ -35,6 +36,7 @@ #include "lightctx.h" #include "scanout.h" #include "display.h" +#include "scheme.h" static void show_help(const char *s) { @@ -56,6 +58,7 @@ int main(int argc, char *argv[]) struct lightctx nl; struct fixture_class cls; int c; + pthread_t repl_thread; gtk_init(&argc, &argv); @@ -194,7 +197,9 @@ int main(int argc, char *argv[]) create_fixture(&nl, &cls, "mh4", 0, 154, REVERSE_PAN); /* Set up output */ - g_timeout_add(100, scanout_cb, &nl); + g_timeout_add(50, scanout_cb, &nl); + + pthread_create(&repl_thread, NULL, run_repl, &nl); create_main_window(&nl); gtk_main(); |