aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/src/purkle/purkle.c
blob: d00fd676d1e4b8de1ee5c134e7d1fc58f84a71c0 (plain)
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
100
101
102
103
104
#include "LumbrJack.h"
#include "GuiLua.h"
#include "SledjHamr.h"


static const char *ourName = "purkle";
static int skang, _M;
static Widget *entry, *history;
static winFang *me;

static winFang *purkleAdd(winFang *parent, int w, int h, EPhysics_World *world)
{
  winFang *me;

  me = winFangAdd(parent, 300, 26, w, h, "chatter box", "purkle", world);

  history = widgetAdd(me, WT_TEXTBOX, "", -1, -1, -1, -1);
  entry   = widgetAdd(me, WT_ENTRY,   "", -1, -1, -1, -1);
  winFangCalcMinSize(me);

  return me;
}

static int append(lua_State *L)
{
  char *text = NULL;

  pull_lua(L, 1, "$", &text);
  if (text)
  {
    eo_do(history->obj,
      elm_obj_entry_append("<br/>"),
      // TODO - Add a time stamp, and log to a file.
      elm_obj_entry_append(text),
      // TODO - really need a "scroll to the bottom" here, this cursor down wont work if lines get wrapped onto multiple lines.
      elm_obj_entry_cursor_down()
    );
  }
  return 0;
}

static int say(lua_State *L)
{
  char *name = "", *id = NULL, *text = NULL, buf[PATH_MAX];
  int channel;

  // TODO - Should include origin and distance?
  pull_lua(L, 1, "%channel $name $id $text", &channel, &name, &id, &text);
  if (id && text)
  {
    GuiLua *gl;
    Ecore_Con_Server *server = NULL;

    snprintf(buf, sizeof(buf), "events.listen(%d, '%s', '%s', '%s')", channel, name, id, text);
    // We do this rather than caching it, coz the server might change out from under us.
    lua_getfield(L, LUA_REGISTRYINDEX, glName);
    gl = lua_touserdata(L, -1);
    lua_pop(L, 1);
    if (gl)
        server = gl->server;
    if (server)
      sendForth(server, id, buf);
    else
      PW("PURKLE NOT SAY, no where to send %s", buf);
  }
  return 0;
}

int luaopen_purkle(lua_State *L)
{
  GuiLua *gl;
  winFang *parent = NULL;
  EPhysics_World *world = NULL;

// local skang = require 'skang'
  lua_getglobal(L, "require");
  lua_pushstring(L, SKANG);
  lua_call(L, 1, 1);
  lua_setfield(L, LUA_REGISTRYINDEX, SKANG);
  lua_getfield(L, LUA_REGISTRYINDEX, SKANG);
  skang = lua_gettop(L);

// local _M = skang.moduleBegin('test_c', nil, 'Copyright 2014 David Seikel', '0.1', '2014-03-27 03:57:00', nil, false)
  push_lua(L, "@ ( $ ~ $ $ $ ~ ! )", skang, MODULEBEGIN, ourName, "Copyright 2014 David Seikel", "0.1", "2014-05-08 07:18:00", 0, 1);
  _M = lua_gettop(L);

  push_lua(L, "@ ( = $ $ & $ )", skang, THINGASM, _M, "append", "Append text to the history box.", append, "string", 0);
  push_lua(L, "@ ( = $ $ & $ )", skang, THINGASM, _M, "say",    "Send chat to a channel.",         say,    "number,string,string,string", 0);

  lua_getfield(L, LUA_REGISTRYINDEX, glName);
  gl = lua_touserdata(L, -1);
  lua_pop(L, 1);
  if (gl)
  {
    parent = gl->parent;
    world = gl->world;
  }

  if (!me)  me = purkleAdd(parent, 600, 420, world);
  push_lua(L, "@ ( = )", skang, MODULEEND, _M, 0);

  // Return _M, the table itself, not the index.
  return 1;
}