Initial data commit

Task/Hello-world-Graphical/Neko/hello-world-graphical-1.neko

@@ -0,0 +1,117 @@
+/*
+  Tectonics:
+    gcc -shared -fPIC -o nekoagar.ndll nekoagar.c `agar-config --cflags --libs`
+*/
+
+/* Neko primitives for libAgar http://www.libagar.org */
+#include <stdio.h>
+#include <neko.h>
+#include <agar/core.h>
+#include <agar/gui.h>
+
+#define val_widget(v)       ((AG_Widget *)val_data(v))
+DEFINE_KIND(k_agar_widget);
+
+/* Initialize Agar Core given appname and flags */
+value agar_init_core(value appname, value flags) {
+#ifdef DEBUG
+  if (!val_is_null(appname))  val_check(appname, string);
+  val_check(flags, int);
+#endif
+  if (AG_InitCore(val_string(appname), val_int(flags)) == -1)  return alloc_bool(0);
+  return alloc_bool(1);
+}
+DEFINE_PRIM(agar_init_core, 2);
+
+/* Initialize Agar GUI given graphic engine driver */
+value agar_init_gui(value driver) {
+#ifdef DEBUG
+  if (!val_is_null(driver))  val_check(driver, string);
+#endif
+  if (AG_InitGraphics(val_string(driver)) == -1)  return alloc_bool(0);
+  AG_BindStdGlobalKeys();
+  return alloc_bool(1);
+}
+DEFINE_PRIM(agar_init_gui, 1);
+
+/* Initialize Agar given appname, flags and GUI driver */
+value agar_init(value appname, value flags, value driver) {
+#ifdef DEBUG
+  if (!val_is_null(appname))  val_check(appname, string);
+  val_check(flags, int);
+  if (!val_is_null(driver))  val_check(driver, string);
+#endif
+  if (!val_bool(agar_init_core(appname, flags)))  return alloc_bool(0);
+  if (!val_bool(agar_init_gui(driver)))  return alloc_bool(0);
+  return alloc_bool(1);
+}
+DEFINE_PRIM(agar_init, 3);
+
+
+/* end the Agar event loop on window-close */
+void rundown(AG_Event *event) {
+  AG_Terminate(0);
+}
+
+
+/* Create an Agar window, given UInt flags (which might use 32 bits...) */
+value agar_window(value flags) {
+#ifdef DEBUG
+  val_check(flags, int);
+#endif
+  AG_Window *win;
+  win = AG_WindowNew(val_int(flags));
+  AG_SetEvent(win, "window-close", rundown, "%p", win);
+
+  if ( win == NULL) return alloc_bool(0);
+  return alloc_abstract(k_agar_widget, win);
+}
+DEFINE_PRIM(agar_window, 1);
+
+
+/* Show a window */
+value agar_window_show(value w) {
+  AG_Window *win;
+
+#ifdef DEBUG
+  val_check_kind(w, k_agar_widget);
+#endif
+  win = (AG_Window *)val_widget(w);
+  AG_WindowShow(win);
+  return alloc_bool(1);
+}
+DEFINE_PRIM(agar_window_show, 1);
+
+
+/* New box */
+value agar_box(value parent, value type, value flags) {
+  AG_Box *b;
+
+#ifdef DEBUG
+  val_check_kind(parent, k_agar_widget);
+#endif
+  b = AG_BoxNew(val_widget(parent), val_int(type), val_int(flags));
+  return alloc_abstract(k_agar_widget, b);
+}
+DEFINE_PRIM(agar_box, 3);
+
+/* New label */
+value agar_label(value parent, value flags, value text) {
+  AG_Label *lw;
+
+#ifdef DEBUG
+  val_check_kind(parent, k_agar_widget);
+#endif
+  lw = AG_LabelNewS(val_widget(parent), val_int(flags), val_string(text));
+  return alloc_abstract(k_agar_widget, lw);
+}
+DEFINE_PRIM(agar_label, 3);
+
+
+/* Event Loop */
+value agar_eventloop(void) {
+  int rc;
+  rc = AG_EventLoop();
+  return alloc_int(rc);
+}
+DEFINE_PRIM(agar_eventloop, 0);

Task/Hello-world-Graphical/Neko/hello-world-graphical-2.neko

@@ -0,0 +1,34 @@
+/**
+ <doc><pre>
+ Hello world, graphical, in Neko, via Agar label
+ Tectonics:
+   gcc -shared -fPIC -o nekoagar.ndll rosetta-nekoagar.c `agar-config --cflags --libs`
+   nekoc hello-graphical.neko
+   neko hello-graphical
+ </pre></doc>
+*/
+
+/* Load some libagar bindings  http://www.libagar.org/mdoc.cgi?man=AG_Intro.3 */
+var agar_init = $loader.loadprim("nekoagar@agar_init", 3);
+var agar_window = $loader.loadprim("nekoagar@agar_window", 1);
+var agar_window_show = $loader.loadprim("nekoagar@agar_window_show", 1);
+var agar_box = $loader.loadprim("nekoagar@agar_box", 3);
+var agar_label = $loader.loadprim("nekoagar@agar_label", 3);
+var agar_eventloop = $loader.loadprim("nekoagar@agar_eventloop", 0);
+
+/* Init with driver; NULL for best choice on current system */
+try {
+  var rc = agar_init("nekoagar", 0, val_null);
+  if $not(rc) $throw("Error: agar_init non zero");
+} catch e {
+  $throw("Error: agar_init exception");
+}
+
+/* Put up a window, with a box, and a label in the box */
+var w = agar_window(0);
+var box = agar_box(w, 1, 0);
+var label = agar_label(box, 0, "Goodbye, World!");
+agar_window_show(w);
+
+/* Run the event loop */
+agar_eventloop();