static enum v7_err jsBotSay(struct v7 *v7, v7_val_t *res) {
long argc = v7_argc(v7);
if (argc == 0) {
return V7_OK;
}
v7_val_t v = v7_arg(v7, 0);
if (!v7_is_string(v)) {
return V7_OK;
}
TString str = (const char*)v7_to_cstring(v7, &v);
TString font;
if (argc >= 2) {
v7_val_t fontt = v7_arg(v7, 1);
if (!v7_is_null(fontt) && !v7_is_undefined(fontt)) font = (const char*)v7_to_cstring(v7, &fontt);
}
int size = 0;
if (argc >= 3) {
v7_val_t sizee = v7_arg(v7, 2);
if (v7_is_number(sizee)) size = floor(v7_to_number(sizee));
if (size < 10) size = 10;
}
TString col;
if (argc >= 4) {
v7_val_t coll = v7_arg(v7, 3);
if (v7_is_string(coll)) col = (const char*)v7_to_cstring(v7, &coll);
if (col.GetAt(0) != L'#' || col.GetLength() != 7) col = L"";
}
_activeBot->say(str, font, size, col);
return V7_OK;
}
/* JS signature: listen(addr, [options]) */
SJ_PRIVATE enum v7_err Http_Server_listen(struct v7 *v7, v7_val_t *res) {
enum v7_err rcode = V7_OK;
char buf[50], *p = buf;
const char *ca_cert = NULL, *cert = NULL;
v7_val_t this_obj = v7_get_this(v7);
v7_val_t arg0 = v7_arg(v7, 0);
v7_val_t opts = v7_arg(v7, 1);
if (!v7_is_number(arg0) && !v7_is_string(arg0)) {
rcode = v7_throwf(v7, "TypeError", "Function expected");
goto clean;
}
if (!v7_is_undefined(opts) && !v7_is_object(opts)) {
rcode = v7_throwf(v7, "TypeError", "Options must be an object");
goto clean;
}
if (!v7_is_undefined(opts)) {
v7_val_t ca_cert_v = v7_get(v7, opts, "ssl_ca_cert", ~0);
v7_val_t cert_v = v7_get(v7, opts, "ssl_cert", ~0);
if (!v7_is_undefined(ca_cert_v) && !v7_is_string(ca_cert_v)) {
rcode = v7_throwf(v7, "TypeError", "ca_cert must be a string");
goto clean;
}
if (!v7_is_undefined(cert_v) && !v7_is_string(cert_v)) {
rcode = v7_throwf(v7, "TypeError", "cert must be a string");
goto clean;
}
if (!v7_is_undefined(ca_cert_v)) {
ca_cert = v7_to_cstring(v7, &ca_cert_v);
}
if (!v7_is_undefined(cert_v)) {
cert = v7_to_cstring(v7, &cert_v);
}
}
p = v7_stringify(v7, arg0, buf, sizeof(buf), 0);
rcode = start_http_server(v7, p, this_obj, ca_cert, cert);
if (rcode != V7_OK) {
goto clean;
}
*res = this_obj;
clean:
if (p != buf) {
free(p);
}
return rcode;
}
static enum v7_err jsBotFontStyle(struct v7* v7, v7_val_t* res) {
v7_val_t fontName = v7_arg(v7, 0);
v7_val_t fontSize = v7_arg(v7, 1);
v7_val_t fontColor = v7_arg(v7, 2);
if (!v7_is_string(fontName) || !v7_is_number(fontSize) || !v7_is_string(fontColor)) {
return V7_OK;
}
TString fontColor2 = v7_to_cstring(v7, &fontColor);
TString strFontName = (v7_is_null(fontName)) ? "" : (const char*)v7_to_cstring(v7, &fontName);
int nFontSize = (!v7_is_number(fontSize)) ? NULL : (int)v7_to_number(fontSize);
COLORREF nFontColor = (!v7_is_string(fontColor)) ? NULL : GetCol(fontColor2.GetAsWChar());
_activeBot->setFontStyle(strFontName, nFontSize, nFontColor);
return V7_OK;
}
static enum v7_err jsBotLoadFile(struct v7* v7, v7_val_t* res) {
v7_val_t file = v7_arg(v7, 0);
if (!v7_is_string(file)) {
return V7_OK;
}
TString fullPath = _activeBot->getWorkDir();
TString fileName = v7_to_cstring(v7, &file);
fullPath += fileName.GetAsWChar();
if (!fexists(fullPath)) {
return V7_OK;
}
v7_val_t result;
enum v7_err ress = V7_OK;
ress = v7_exec_file(v7, fullPath.GetAsChar(), &result);
//v7_val_t* v7Obj = _activeBot->getV7Obj();
//*v7Obj = v7_mk_object(v7);
if (ress != V7_OK) {
if (result == V7_SYNTAX_ERROR) MessageBox(NULL, "script fail syntax error", "Nooo", 0);
else if (result == V7_EXEC_EXCEPTION) MessageBox(NULL, "script fail, exception", "Nooo", 0);
else if (result == V7_EXEC_EXCEPTION) MessageBox(NULL, "script fail, exception", "Nooo", 0);
else if (result == V7_AST_TOO_LARGE) MessageBox(NULL, "script fail, ast too large", "Nooo", 0);
}
return V7_OK;
}
/*
* `on` method on a mqtt client object registers an event handler
* for a given event type. Recognized event types:
*
* - `connect`: invoked on sucessfull connection (mqtt connack message)
* - `error`: invoked on connection error
* - `close`: invoked when the connection gets closed
* - `message`: invoked when a new message is received. The callback
* receives (topic, message) arguments, both strings
*/
enum v7_err MQTT_on(struct v7 *v7, v7_val_t *res) {
enum v7_err rcode = V7_OK;
v7_val_t evv = v7_arg(v7, 0);
v7_val_t cb = v7_arg(v7, 1);
const char *ev, *key = NULL;
ev = v7_to_cstring(v7, &evv);
if (strcmp(ev, "connect") == 0) {
key = SJ_MQTT_CONNECT_CB;
} else if (strcmp(ev, "message") == 0) {
key = SJ_MQTT_MESSAGE_CB;
} else if (strcmp(ev, "error") == 0) {
key = SJ_MQTT_ERROR_CB;
} else if (strcmp(ev, "close") == 0) {
key = SJ_MQTT_CLOSE_CB;
} else {
rcode = v7_throwf(v7, "Error", "unsupported protocol");
goto clean;
}
v7_def(v7, v7_get_this(v7), key, ~0, V7_DESC_ENUMERABLE(0), cb);
(void) res;
clean:
return rcode;
}
/*
* Subscribes a mqtt client to a topic.
*/
enum v7_err MQTT_subscribe(struct v7 *v7, v7_val_t *res) {
enum v7_err rcode = V7_OK;
struct user_data *ud;
struct mg_connection *nc;
struct mg_mqtt_topic_expression expr;
v7_val_t topicv = v7_arg(v7, 0);
const char *topic;
nc = v7_to_foreign(v7_get(v7, v7_get_this(v7), "_nc", ~0));
if (nc == NULL) {
rcode = v7_throwf(v7, "Error", "unsupported protocol");
goto clean;
}
ud = (struct user_data *) nc->user_data;
topic = v7_to_cstring(v7, &topicv);
if (topic == NULL || strlen(topic) == 0) {
rcode = v7_throwf(v7, "TypeError", "invalid topic");
goto clean;
}
expr.topic = topic;
expr.qos = 0;
mg_mqtt_subscribe(nc, &expr, 1, ud->msgid++);
*res = v7_mk_boolean(1);
clean:
return rcode;
}
/*
* Publishes a message to a topic.
*
* Args:
* - `topic`: topic, string.
* - `message`: message, string.
*
* Only QOS 0 is implemented at the moment.
*/
enum v7_err MQTT_publish(struct v7 *v7, v7_val_t *res) {
enum v7_err rcode = V7_OK;
struct user_data *ud;
struct mg_connection *nc;
const char *topic;
const char *message;
size_t message_len;
v7_val_t topicv = v7_arg(v7, 0), messagev = v7_arg(v7, 1);
(void) res;
topic = v7_to_cstring(v7, &topicv);
if (topic == NULL || strlen(topic) == 0) {
rcode = v7_throwf(v7, "TypeError", "invalid topic");
goto clean;
}
if (!v7_is_string(messagev)) {
rcode = v7_throwf(v7, "TypeError", "invalid message");
goto clean;
}
message = v7_get_string_data(v7, &messagev, &message_len);
nc = v7_to_foreign(v7_get(v7, v7_get_this(v7), "_nc", ~0));
if (nc == NULL) {
rcode = v7_throwf(v7, "Error", "invalid connection");
goto clean;
}
ud = (struct user_data *) nc->user_data;
mg_mqtt_publish(nc, topic, ud->msgid++, MG_MQTT_QOS(0), message, message_len);
clean:
return rcode;
}
static enum v7_err jsBotEvent(struct v7* v7, v7_val_t* res) {
v7_val_t val = v7_arg(v7, 0);
TString strEvent = (const char*)v7_to_cstring(v7, &val);
v7_val_t* func = new v7_val_t;
v7_own(v7, func);
*func = v7_arg(v7, 1);
//if not a function type in 2nd argument
if (!v7_is_callable(v7, *func)) {
//TODO: throw error
return V7_OK;
}
else {
}
if (strEvent.IsEQNC(L"text")) {
_activeBot->_onTexts.Add(func);
}
else if (strEvent.IsEQNC(L"join")) {
_activeBot->_onJoin.Add(func);
}
else if (strEvent.IsEQNC(L"left")) {
_activeBot->_onLeft.Add(func);
}
else if (strEvent.IsEQNC(L"talk")) {
_activeBot->_onTalk.Add(func);
}
else if (strEvent.IsEQNC(L"motd")) {
_activeBot->_onMotd.Add(func);
}
else if (strEvent.IsEQNC(L"im")) {
_activeBot->_onIm.Add(func);
}
return V7_OK;
}
/*
* Create request object, used by `Http.request()` and `Http.get()`
*/
WARN_UNUSED_RESULT
static enum v7_err sj_http_request_common(struct v7 *v7, v7_val_t opts,
v7_val_t cb, v7_val_t *res) {
enum v7_err rcode = V7_OK;
char addr[200];
struct mg_connection *c;
struct user_data *ud;
struct mg_connect_opts copts;
#ifdef MG_ENABLE_SSL
int force_ssl;
#endif
memset(&copts, 0, sizeof(copts));
/*
* Determine type of provided `opts`, and if it's a string, then parse
* it to object
*/
if (v7_is_string(opts)) {
rcode = sj_url_parse(v7, opts, &opts);
if (rcode != V7_OK) {
goto clean;
}
} else if (!v7_is_object(opts)) {
rcode = v7_throwf(v7, "Error", "opts must be an object or a string URL");
goto clean;
}
/*
* Now, `opts` is guaranteed to be an object.
* Let's retrieve needed properties
*/
v7_val_t v_h = v7_get(v7, opts, "hostname", ~0);
if (v7_is_undefined(v_h)) {
v_h = v7_get(v7, opts, "host", ~0);
}
v7_val_t v_p = v7_get(v7, opts, "port", ~0);
v7_val_t v_uri = v7_get(v7, opts, "path", ~0);
v7_val_t v_m = v7_get(v7, opts, "method", ~0);
v7_val_t v_hdrs = v7_get(v7, opts, "headers", ~0);
/* Perform options validation and set defaults if needed */
int port = v7_is_number(v_p) ? v7_to_number(v_p) : 80;
const char *host = v7_is_string(v_h) ? v7_to_cstring(v7, &v_h) : "";
const char *uri = v7_is_string(v_uri) ? v7_to_cstring(v7, &v_uri) : "/";
const char *method = v7_is_string(v_m) ? v7_to_cstring(v7, &v_m) : "GET";
#ifdef MG_ENABLE_SSL
v7_val_t v_pr = v7_get(v7, opts, "protocol", ~0);
const char *protocol = v7_is_string(v_pr) ? v7_to_cstring(v7, &v_pr) : "";
force_ssl = (strcasecmp(protocol, "https") == 0);
if ((rcode = fill_ssl_connect_opts(v7, opts, force_ssl, &copts)) != V7_OK) {
goto clean;
}
#endif
/* Compose address like host:port */
snprintf(addr, sizeof(addr), "%s:%d", host, port);
/*
* Try to connect, passing `http_ev_handler` as the callback, which will
* call provided JavaScript function (we'll set it in user data below).
* TODO(alashkin): change mg_connect_opt to mg_connect_http_opt
*/
if ((c = mg_connect_opt(&sj_mgr, addr, http_ev_handler, copts)) == NULL) {
rcode = v7_throwf(v7, "Error", "Cannot connect");
goto clean;
}
/*
* Attach mongoose's built-in HTTP event handler to the connection, and send
* necessary headers
*/
mg_set_protocol_http_websocket(c);
mg_printf(c, "%s %s HTTP/1.1\r\n", method, uri);
mg_printf(c, "Host: %s\r\n", host);
http_write_headers(v7, v_hdrs, c);
http_write_chunked_encoding_header(c);
mg_printf(c, "%s", "\r\n");
/*
* Allocate and initialize user data structure that is used by the JS HTTP
* interface. Create the request object (which will have the request
* prototype `sj_http_request_proto`), and set provided callback function.
*/
c->user_data = ud = (struct user_data *) calloc(1, sizeof(*ud));
ud->v7 = v7;
ud->obj = v7_mk_object(v7);
ud->handler = cb;
v7_own(v7, &ud->obj);
v7_set_proto(v7, ud->obj, sj_http_request_proto);
/* internal property: mongoose connection */
v7_set(v7, ud->obj, "_c", ~0, v7_mk_foreign(c));
/* internal property: callback function that was passed as an argument */
v7_set(v7, ud->obj, "_cb", ~0, ud->handler);
*res = ud->obj;
clean:
return rcode;
}
/*
* Parse URL; used for:
*
* - `URL.parse()`
* - `Http.request()` and `Http.get()`, when provided `opts` is a string.
*/
static enum v7_err sj_url_parse(struct v7 *v7, v7_val_t url_v, v7_val_t *res) {
enum v7_err rcode = V7_OK;
v7_val_t opts, protocol_v;
size_t i, j, len;
int state = 0;
const char *url;
if (!v7_is_string(url_v)) {
rcode = v7_throwf(v7, "TypeError", "URL must be a string");
goto clean;
}
url = v7_get_string_data(v7, &url_v, &len);
opts = v7_mk_object(v7);
for (i = j = 0; j < len; j++) {
switch (state) {
case 0:
if (url[j] == '/') {
protocol_v = v7_mk_string(v7, url + i, j - i - 1, 1);
v7_set(v7, opts, "protocol", ~0, protocol_v);
j += 1;
i = j + 1;
state = 1;
}
break;
case 1:
if (url[j] == '/' || (j > i && url[j] == ':') || j == len - 1) {
int hl = j - i;
if (j == len - 1 && url[j] != '/' && url[j] != ':') hl++;
v7_set(v7, opts, "hostname", ~0, v7_mk_string(v7, url + i, hl, 1));
if (url[j] == '/' || j == len - 1) {
const char *protocol = v7_to_cstring(v7, &protocol_v);
int port = strcasecmp(protocol, "https") == 0 ? 443 : 80;
v7_set(v7, opts, "port", ~0, v7_mk_number(port));
i = j;
if (j == len - 1) j--;
state = 3;
} else {
i = j + 1;
state = 2;
}
}
break;
case 2:
if (url[j] == '/' || j == len - 1) {
char ps[6];
size_t l = j - i;
if (j == len - 1) l++;
if (l > sizeof(ps) - 1) l = sizeof(ps) - 1;
memcpy(ps, url + i, l);
ps[l] = '\0';
v7_set(v7, opts, "port", ~0, v7_mk_number(atoi(ps)));
i = j;
if (j == len - 1) j--;
state = 3;
}
break;
case 3:
if (j == len - 1) {
v7_val_t path_v = j - i > 0 ? v7_mk_string(v7, url + i, j - i + 1, 1)
: v7_mk_string(v7, "/", 1, 1);
v7_set(v7, opts, "path", ~0, path_v);
}
break;
}
}
*res = opts;
clean:
return rcode;
}
/*
* Make a new MQTT client.
*
* Arguments:
* url: url where to connect to
* opts: option object
*
* Recognized option object properties:
*
* - clientId: string; mqtt client id. defaults to
* Math.random().toString(16).substr(2, 10)
*
* Example:
*
* var client = MQTT.connect('mqtt://test.mosquitto.org');
*
* client.on('connect', function () {
* client.subscribe('presence');
* client.publish('presence', 'Hello mqtt');
* });
*
* client.on('message', function (topic, message) {
* console.log(message);
* });
*
* The API is modeled after https://www.npmjs.com/package/mqtt.
*
*/
enum v7_err sj_mqtt_connect(struct v7 *v7, v7_val_t *res) {
enum v7_err rcode = V7_OK;
const char *url;
size_t len;
struct mg_str host, scheme;
unsigned int port;
struct mg_connection *nc;
struct user_data *ud;
char *url_with_port = NULL;
v7_val_t urlv = v7_arg(v7, 0), opts = v7_arg(v7, 1);
v7_val_t client_id;
v7_val_t proto =
v7_get(v7, v7_get(v7, v7_get_global(v7), "MQTT", ~0), "proto", ~0);
if (!v7_is_string(urlv)) {
rcode = v7_throwf(v7, "Error", "invalid url string");
goto clean;
}
url = v7_get_string_data(v7, &urlv, &len);
if (mg_parse_uri(mg_mk_str(url), &scheme, NULL, &host, &port, NULL, NULL,
NULL) < 0) {
rcode = v7_throwf(v7, "Error", "invalid url string");
goto clean;
}
if (mg_vcmp(&scheme, "mqtt") != 0) {
rcode = v7_throwf(v7, "Error", "unsupported protocol");
goto clean;
}
url += sizeof("mqtt://") - 1;
client_id = v7_get(v7, opts, "clientId", ~0);
if (v7_is_undefined(client_id)) {
rcode = v7_exec(v7, "Math.random().toString(16).substr(2,8)", &client_id);
if (rcode != V7_OK) {
goto clean;
}
}
if (port == 0) {
int ret =
asprintf(&url_with_port, "%.*s%s", (int) host.len, host.p, ":1883");
(void) ret;
}
nc =
mg_connect(&sj_mgr, url_with_port ? url_with_port : url, mqtt_ev_handler);
if (nc == NULL) {
rcode = v7_throwf(v7, "Error", "cannot create connection");
goto clean;
}
mg_set_protocol_mqtt(nc);
*res = v7_mk_object(v7);
v7_set_proto(v7, *res, proto);
ud = calloc(1, sizeof(*ud));
ud->v7 = v7;
ud->client = *res;
ud->client_id = strdup(v7_to_cstring(v7, &client_id));
nc->user_data = ud;
v7_own(v7, &ud->client);
v7_def(v7, *res, "_nc", ~0, _V7_DESC_HIDDEN(1), v7_mk_foreign(nc));
clean:
free(url_with_port);
return rcode;
}
