path: root/src/h.c

/* note: ISAs will (hopefully) no longer be used in my programs in favour of linked lists */
/* ISAs: _sizeof means size of array, _length means usable/initialized members in array */
#define DC_ISA(type, name) type ** name; size_t name##_sizeof; size_t name##_length /* in struct array */
#define DC_ALLOC_CHUNK 1
#define DC_REALLOC_K 1.5
#define DC_BIGGER_ARRAY(name) do { /* unlike in previous programs, _BIGGER_ARRAY */ \
		name = realloc(name, sizeof(name[0])*ceil(name##_sizeof*DC_REALLOC_K)); \
		for (int DC_BIGGER_ARRAY_i = name##_sizeof; DC_BIGGER_ARRAY_i < ceil(name##_sizeof*DC_REALLOC_K); DC_BIGGER_ARRAY_i++) \
			name[DC_BIGGER_ARRAY_i] = NULL; \
		name##_sizeof = ceil(name##_sizeof*DC_REALLOC_K); /* no longer initializes */ \
	} while (0) /* note that sizeof(name[0]) does not dereferencec name */
#define DC_MR(n) if (n##_sizeof <= n##_length) /* make room */ \
	DC_BIGGER_ARRAY(n)
#define DC_STRUCT_PREFIX void * data; /* some user data to be kind to api library users */
#define DC_LWS_BUF 65535 /* 2^16 SMALL FUCKING HINT: ^ je XOR operator v C (in povsod drugje) */
#define DC_LWS_MAX_RX DC_LWS_BUF /* max bytes a websocket may handle in a single receive */
#define DC_LWS_MAX_FD 64 /* max file descriptors LWS will have open. if unset, LWS acquires all unused */
#define DC_LWS_MAX_HEADER_LENGTH 64 /* _MAX_HEADER_LENGTH*_HEADERS_LENGTH is allocated for every reque */
#define DC_WS_PING_FORMAT "{\"op\":1,\"d\":%lld}"
/* it's strongly recommended to calloc structs during initialization. */
enum dc_status { /* theese are flags and should be and-checked */
	DC_UNSET = 0, /* default value when enum is calloced */
	DC_INCOMPLETE = 1 << 0, /* struct SHALL NOT be used by the ui, it is yet to be filled by api */
	DC_OK = 1 << 1, /* success status and also ws established*/
	DC_BAD_LOGIN = 1 << 2, /* login failed because of wrong credentials */
	DC_VERIFICATION_NEEDED = 1 << 3, /* login: check email, click link/reg: tough luck ur IP flagd */
	DC_CAPTCHA_NEEDED = 1 << 4, /* must solve captcha, tough luck, not impl, use browser login */
	DC_BAD_USERNAME = 1 << 5, /* provided username can't be registered */
	DC_BAD_EMAIL = 1 << 6, /* provided email can't be registered */
	DC_NOT_FOUND = 1 << 7, /* when querying for roles/users/... received a 404 */
	DC_BREAK = 1 << 8, /* attached handlers return this to stop processing this output */
	DC_RETRY = 1 << 9, /* attached timeout handlers return this so that ->last is not updated */
	DC_FROM_LWS = 1 << 10, /* LWS cb is the caller, so do not attempt to do lws_service (loop) */
	DC_FROM_API = 1 << 11, /* call originates from API function */
	DC_REQUEST_FAILED = 1 << 12, /* http request failed, reported to ui */
	DC_ERROR = 1 << 13, /* unknown error, non implemented non expected response */
	DC_NET_ERROR = 1 << 14, /* network failed or ws closed */
	DC_LEJP_CONSTRUCTED = 1 << 15, /* json parser was constructed */
	DC_SET_PASS = 1 << 16, /* whether _CREATE _cb shall set client->passs. api sets on _WS create */
	DC_IN_PROGRESS = 1 << 17, /* object is in parsing (by json_cb) */
	DC_DESTROY_CB = 1 << 18, /* wether cb shall call api on DESTROY (used for http responses) */
	DC_MAY_FREE = 1 << 19, /* whether dc_*_add() shall free passed in pointer if found one in ISA */
	DC_WS_ACTIVE = 1 << 20, /* set at API_WS so that api_o will reconnect WS if connection dropps */
	DC_INTERNAL = DC_FROM_LWS | DC_FROM_API, /* call originates from an internal function */
}; /* note: when checking status, first check for DC_OK, if it's set then disregard errors! */
enum dc_permissions { /* other permissions exist, but are not implemented/understood */
	DC_ALL_PERMISSIONS = 1 << 3, /* this is incredibly retarded, why is this SEPARATE?!? - admins */
	DC_CHANNEL_VIEW = 1 << 10, /* all enum fields here have values same as the server values */
	DC_MESSAGE_SEND = 1 << 11,
	DC_MESSAGE_READ = 1 << 16, /* na tistem vegova serverju sem lahko pošiljal ne pa bral sporočil */
	DC_VOICE_LISTEN = 1 << 20,
	DC_VOICE_SPEAK = 1 << 21
}; /* all enum fields here have values same as the values that the server sends */
enum dc_channel_type { /* other types exist, but are not implemented/understood */
	DC_CM = 0, /* channel messages */
	DC_DM = 1, /* direct messages */
	DC_VOICE = 2, /* all enum fields here have values same as the values that the server sends */
	DC_GROUP_DM = 3
};
enum dc_ws_packet { /* op numbers of websocket packets or json objects in other words */
	DC_PING = 1,
	DC_NONE = 69 /* nonexisting, set pass->packet to this before lejp_construct time 4 each packet */
};
enum dc_ws_intent { /* types of json blobs that the server sends us whenever available */
	DC_GUILDS = 1 << 0, /* all enum fields here have values same as the values that the serv sends */
	DC_USERS = 1 << 1, /* other types exist, but are not implemented/understood */
	DC_CMS = 1 << 9, /* channel messages */
	DC_DMS = 1 << 12, /* direct messages */
	DC_INTENTS = DC_GUILDS | DC_USERS | DC_CMS | DC_DMS /* what intents to subscribe to/are implem */
};
enum dc_api_io_type {
	/* all output structs have important structs set when an output is broadcast, for example if we get a channel from server but we don't possess it's guild (by id), api will wait for the guild and hold the channel in it's cache. for messages, tags in message are also parsed and queried. roles in premissions in channels are also fetched but not users in permissions, because permissions are currently only used for checking our permissions, not others' */
	/* none of the outputs transfer memory ownership. tr0 for inputs means transfer none, trp means pointer to struct owned by library is to be passed, tr1 means transfer of ownership to library */
	/* network requests are sent to the event-based network library immediatley on input. network library is polled for incoming network traffic on each _event call. not totally filled structs in cache are checked and if one is/becomes filled, it will be output. if a role is requested when this role already exists and is searched for (not filled), for example because a channel needs the role to be output or the user created another search for this role before, this search will be dropped and the passed struct will be freed. */
	/* this library has internally attached functions for handling many io types so that the library nicely detects when for example a new role is received. the on-role-received function for example checks cache and updates structs that need this role */
	/* struct dc_program * serves as a handle for the API. create it with dc_program_init (may return NULL which indicates a LWS init failure) and destroy it with dc_program_free. pass it to every call inside struct dc_api_io.program */
	DC_API_NONE,	/* i: do nothing */
			/* o: nothing to output */
	DC_API_MESSAGE,	/* i: send a message-tr0 or edit a message that was already sent-trp */
			/* o: message notification: GUI spawn or respawn if edited. */
	DC_API_CHANNEL,	/* i: TODO: create a channel-tr0 */
			/* o: new channel created, GUI spawn it. */
	DC_API_GUILD,	/* i: TODO: create a guild-tr0 */
			/* o: TODO: new guild created, GUI spawn it */
	DC_API_LOGIN,	/* i: pass a dc_client-tr1, to relogin FIX prev retd cl not create new */
			/* o: the previously passed dc_client with set status, do not use yet! \/ */
	DC_API_LOGIN_CB,/* i: used internally for passing response from http client to api, see source */
			/* o: to tell user that ->client is now fully filled and ready for use */
	DC_API_WS,	/* i: internal, LOGIN_CB calls it to start websocket setup */
			/* o: ->status of websocket setup (DC_OK indicates success) */
	DC_API_WS_CB,	/* i: internal, for passing response from ws lib to api, see source */
			/* o: N/A */
	DC_API_REGISTER,/* i: pass a dc_client, to relogin FIX pr rt cl&cl->user not creat new */
			/* o: the previously passed dc_client with set status */
	DC_API_STATUS,	/* i: N/A */
			/* o: new status message, pointer to internal string - tr0 */
	DC_API_USER,	/* i: query for user by id, pass dc_user-tr1 */
			/* o: prev passed dc_user but filled (or not: ->status may indicate error) */
	DC_API_ROLE,	/* i: query for role by id, pass dc_role-tr1 */
			/* o: prev passed dc_role but filled (or not: ->status may indicate error) */
	DC_API_ATTACH,	/* i: attaches function to handle output types */
			/* o: N/A */
}; /* do not confuse yourself, when for example login response is checked for errors, check client->status and not struct dc_api_io's member named status. that member is mostly only used internally. */
#define DC_API_TIMEOUT DC_API_NONE /* attached functions with type DC_API_TIMEOUT are called ->every seconds */
/* enum dc_status (* dc_api_attached_func) (struct dc_api_io, void * data); */ /* i tried simplifying but didn't work */
struct dc_api_io { /* output struct does NOT contain void * data (user pointer) from the input struct! */
	DC_STRUCT_PREFIX /* mostly useless here but it's only a couple of bytes so wth */
	enum dc_api_io_type type; /* NOTE: ALL POINTERS HERE ARE NOFREE */
	enum dc_status status;
	void * body;
	char * string;
	struct dc_message * message; /* for safety and to mininize casting, each type has a pointer */
	struct dc_channel * channel;
	struct dc_guild * guild;
	struct dc_client * client; /* must be set in pass->api_io.client when creating ws for client! */
	struct dc_user * user;
	struct dc_role * role;
	struct dc_program * program; /* this is library handle */
	struct dc_permission * permission;
	struct dc_attached_function * attached_function; /* ptr2 heap alloc struct when DC_API_ATTAH */
	struct dc_lws_pass * pass;
};
#define DC_API_IO_MEMB_GC(m, t) if (m && m->status & DC_IN_PROGRESS) { \
		t##_free(m); \
		m = NULL; }
#define DC_API_IO_GC(s) do { /* this is called if: json_cb will start parsing another before callback, */ \
		DC_API_IO_MEMB_GC(s.message, dc_message); /* WS connection closed, meaning json_cb */ \
		DC_API_IO_MEMB_GC(s.channel, dc_channel); /* will never be called again */ \
		DC_API_IO_MEMB_GC(s.guild, dc_guild); \
		DC_API_IO_MEMB_GC(s.user, dc_user); \
		DC_API_IO_MEMB_GC(s.role, dc_role); \
		DC_API_IO_MEMB_GC(s.permission, dc_permission); \
	} while (0)
#define DC_API_IO_EVERY(i, b, a) do { /* not sure if this works */ \
	 	if (i.message) b i.message a \
		if (i.channel) b i.channel a \
		if (i.guild) b i.guild a \
		if (i.user) b i.user a \
		if (i.role) b i.role a \
		if (i.permission) b i.permission a \
	} while (0)
void dc_api_io_free (struct dc_api_io * s) {
	if (!s)
		return;
	free(s);
	return;
}
void dc_api_i (struct dc_api_io);
enum dc_lws_headers {
	DC_LWS_AUTHORIZATION,
	DC_LWS_CONTENT_TYPE,
	DC_LWS_HEADERS_LENGTH
};
char * dc_lws_headers[] = {
	"Authorization:",
	"Content-Type:"
};
enum dc_json_paths { /* lws reduces the following char array to uint8_t, so we can match easier */
	DC_JSON_OP, /* packet type */
	DC_JSON_S, /* packet sequence number */
	DC_JSON_PING, /* interval */
	DC_JSON_ME, /* never useful in path parser, but startswith() checks if we're in object */
	DC_JSON_ME_USERNAME,
	DC_JSON_ME_ID,
	DC_JSON_ME_DISCRIMINATOR,
	DC_JSON_FRIEND, /* never useful in path parser, but startswith() checks if we're in object */
	DC_JSON_DM, /* never useful in path parser, but startswith() checks if we're in object */
	DC_JSON_DM_TYPE,
	DC_JSON_DM_ID,
	DC_JSON_DM_USER, /* never useful in path parser, but startswith() checks if we're in object */
	DC_JSON_DM_USER_NAME,
	DC_JSON_DM_USER_ID,
	DC_JSON_DM_USER_DISCRIMINATOR,
	DC_JSON_PATHS_LENGTH
};
char * dc_json_paths[] = { /* array of paths we are interested in */
	"op",
	"s",
	"d.heartbeat_interval",
	"d.user", /* NOTE: presence updates have same format, so only set own user once */
	"d.user.username",
	"d.user.id",
	"d.user.discriminator",
	"d.relationships[].user",
	"d.private_channels[]",
	"d.private_channels[].type",
	"d.private_channels[].id",
	"d.private_channels[].recipients[]",
	"d.private_channels[].recipients[].username",
	"d.private_channels[].recipients[].id",
	"d.private_channels[].recipients[].discriminator"
};
struct dc_lws_pass { /* struct that is allocated for in dc_lws_cb unique per connection in void * us */
	DC_STRUCT_PREFIX
	char * body; /* this contains post body and when _CB is called, it contains response, HTTP*/
	size_t body_length; /* body is NULL terminated or NULL in case of failure. WS doesn't use this */
	char headers[DC_LWS_HEADERS_LENGTH][DC_LWS_MAX_HEADER_LENGTH]; /* nofree, a static 2d array */
	int status; /* HTTP response code		/\ headers contain request headers, then resp. */
	struct dc_api_io api_io; /* so dc_api_io can decide what shall be passed into _CB */
	struct lejp_ctx json_ctx; /* holds a context for lejp */
	enum lejp_callbacks json_reason; /* holds last reason sent to json callback */
	struct lws * wsi; /* set on ESTABLISHED and NULLed on CLOSED or ERROR */
	enum dc_ws_packet packet; /* what type of packet are we currently handling in lejp */
	enum dc_status * parsing_status; /* to remove DC_IN_PROGRESS & signal if call api on COMPL */
	uint16_t reason; /* reason for closing connection */
	/* temporary debug things */
	char * cp;
	int len;
};
struct dc_payload {
	DC_STRUCT_PREFIX
	size_t length;
	char * body; /* yesfree - null terminated heap alocated string of strlen length, may contain 0 */
};
struct dc_payload * dc_payload_init () {
	struct dc_payload * s = calloc(1, sizeof(struct dc_payload));
	return s;
}
void dc_payload_free (struct dc_payload * s) {
	free(s->body-LWS_PRE);
	free(s);
	return;
}
#define DC_ISASQ(shortname) DC_ISA(struct dc_##shortname, shortname##s) /* in struct array of structs quick */
#define DC_ISAS_INIT(type/* w/o struct */, name) do { name##_sizeof = DC_ALLOC_CHUNK; /* structs ISA */ \
	name = calloc(name##_sizeof, sizeof(struct type *)); } while (0) /* prep arr, NO INIT membrs */
#define DC_ISASIQ(shortname) DC_ISAS_INIT(dc_##shortname, s->shortname##s) /* ISAS init quick */
#define DC_ISAF(shortname) for (size_t i = 0; i < s->shortname##s_sizeof; i++) /* ISA free */ \
		dc_##shortname##_free(s->shortname##s[i]); \
	free(s->shortname##s); /* no problem if we free past _lenght, as uninited are NULL */
struct dc_client {
	DC_STRUCT_PREFIX
	char * authorization; /* yesfree - authorization header value */
	char * email; /* yesfree */
	char * password; /* yesfree */
	struct dc_user * user; /* nofree - logged in user */
	enum dc_status status;
	struct dc_lws_pass * pass; /* pass of ws. _cb sets it on CREATE and NULLs on DESTROY */
	unsigned long long int last_packet; /* last packet sequence number for ping */
	time_t ping_interval;
	time_t last_ping;
	DC_ISASQ(payload); /* yesfree - array of payloads we must send over ws */
	DC_ISASQ(guild); /* yesfree array of pointers only - guilds of this user */
	DC_ISASQ(user); /* yesfree array of pointers only - friends of this user */
};
struct dc_client * dc_client_init () {
	struct dc_client * s = calloc(1, sizeof(*s));
	DC_ISASIQ(payload);
	DC_ISASIQ(guild);
	DC_ISASIQ(user);
	return s;
}
void dc_client_free (struct dc_client * s) {
	if (!s)
		return;
	free(s->authorization);
	free(s->email);
	free(s->password);
	DC_ISAF(payload);
	free(s->guilds);
	free(s->users);
	free(s);
}
void dc_ws_stack(struct dc_client * c, struct dc_payload * p) { /* we could just use pass->body and */
	DC_MR(c->payloads); /* just append to it, but the server closes if we send two objects in one */
	c->payloads[c->payloads_length++] = p; /* packet, like so: {"packet":1}{"packet":2}, so this. */
	p->body = realloc(p->body, p->length+LWS_PRE+1); /* when freeing, free p->body-LWS_PRE */
	memmove(p->body+LWS_PRE, p->body, p->length+1); /* body is no longer pointer we have to free */
	p->body += LWS_PRE;
	if (c->pass && c->pass->wsi)
		lws_callback_on_writable(c->pass->wsi);
	return;
}
struct dc_guild {
	DC_STRUCT_PREFIX
	char * name; /* yesfree */
	unsigned long long int id; /* 0 for virtual DMs guild */
	struct dc_client * client; /* nofree */
	struct dc_channel * channel; /* nofree - first channel */
	struct dc_role * role; /* nofree - first role. NOTE: 1. role->id == guild->id (@everyone role) */
	enum dc_permissions permissions;
	enum dc_status status;
#ifdef DC_UI_GTK
	GtkTreeIter iter; /* NOTE: only works when GtkTreeModel has a flag GTK_TREE_MODEL_ITERS_PERSIST; see paragraph 8 of description of file:///usr/share/doc/libgtk-3-doc/gtk3/GtkTreeModel.html */
	gboolean is_iter;
	/* GtkTreeRowReference * row; */ /* yesfree - indicating the row */ /* not used: IRC message: "00:51:29        @Company | also: Don't create too many tree row references, those things are slow"  */
#endif
};
struct dc_guild * dc_guild_init () {
	struct dc_guild * s = calloc(1, sizeof(*s));
	return s;
}
void dc_guild_free (struct dc_guild * s) {
	if (!s)
		return;
	free(s->name);
	free(s);
}
struct dc_channel {
	DC_STRUCT_PREFIX
	char * name; /* yesfree - name */
	char * topic; /* yesfree - topic */
	unsigned long long int id;
	enum dc_channel_type type;
	struct dc_guild * guild; /* nofree */
	struct dc_channel * next; /* nofree - next channel (linked list of all guilds of dc_guild) */
	struct dc_message * message; /* nofree - first message (ordered by time) */
	struct dc_permission * permission; /* nofree - first permission */
	enum dc_status status;
	DC_ISASQ(user); /* yesfree array only - participants in DM channels */
#ifdef DC_UI_GTK
	GtkTreeIter iter; /* see notes of struct dc_guild */
	gboolean is_iter; /* XXX use this with caution: only if it's possible for treemodels to contains orphans, this works. otherwise, parents will be removed first and then channels will not het their is_iters invalidated. guild's is_iter will always get invalidated. file:///usr/share/doc/libgtk-3-doc/gtk3/GtkTreeStore.html#gtk-tree-store-iter-is-valid could be a solution but it's said to be slow. */
#endif
};
struct dc_channel * dc_channel_init () {
	struct dc_channel * s = calloc(1, sizeof(*s));
	DC_ISASIQ(user);
	return s;
}
void dc_channel_free (struct dc_channel * s) {
	if (!s)
		return;
	free(s->name);
	free(s->topic);
	free(s->users);
	free(s);
}
struct dc_message {
	DC_STRUCT_PREFIX
	char * message; /* yesfree */
	char * attachment; /* yesfree - this is a HTTP URL. it would be nice to request file and store to ~/.cache/discord.c/ and only then use (RENDER IMAGE) from disk */
	struct dc_channel * channel; /* nofree */
	struct dc_user * user; /* nofree */
	time_t time;
	unsigned long long int id;
	struct dc_message * next; /* next message (linked list of all messages of dc_channel) */
	struct dc_message * reply; /* nofree - this message replies to another message or NULL */
	enum dc_status status;
};
struct dc_message * dc_message_init () {
	struct dc_message * s = calloc(1, sizeof(*s));
	return s;
}
void dc_message_free (struct dc_message * s) {
	if (!s)
		return;
	free(s->message);
	free(s->attachment);
	free(s);
}
struct dc_role {
	DC_STRUCT_PREFIX
	char * name; /* yesfree */
	unsigned long long int id;
	enum dc_permissions permissions;
	struct dc_guild * guild; /* nofree - owner of the role */
	struct dc_role * next; /* nofree - next role (linked list of all roles of dc_guild) */
	struct dc_role_membership * role_membership; /* nofree - first role membership ll) */
	enum dc_status status;
};
struct dc_role * dc_role_init () {
	struct dc_role * s = calloc(1, sizeof(*s));
	return s;
}
void dc_role_free (struct dc_role * s) {
	if (!s)
		return;
	free(s->name);
	free(s);
}
struct dc_role_membership {
	DC_STRUCT_PREFIX
	struct dc_channel * channel; /* nofree */
	struct dc_user * user; /* nofree */
	struct dc_role * role; /* nofree */
	struct dc_role_membership * next; /* nofree - next role membership (lili in role) */
};
struct dc_role_membership * dc_role_membership_init () {
	struct dc_role_membership * s = calloc(1, sizeof(*s));
	return s;
}
void dc_role_membership_free (struct dc_role_membership * s) {
	if (!s)
		return;
	free(s);
}
struct dc_user {
	DC_STRUCT_PREFIX
	char * username; /* yesfree */
	unsigned long long int id;
	short int discriminator;
	enum dc_status status;
};
struct dc_user * dc_user_init () {
	struct dc_user * s = calloc(1, sizeof(*s));
	return s;
}
void dc_user_free (struct dc_user * s) {
	if (!s)
		return;
	free(s->username);
	free(s);
}
struct dc_permission { /* permissions can be individual on a per-channel basis */
	DC_STRUCT_PREFIX
	enum dc_permissions allow;
	enum dc_permissions deny;
	unsigned long long int id; /* to whom does this permission apply */
	struct dc_channel * channel; /* nofree - on which channel does it apply */
	struct dc_user * user; /* nofree - non-null if permission applies to a user */
	struct dc_role * role; /* nofree - non-null if it applies to a role */
	struct dc_permission * next; /* nexrt permission in ll in channel */
	enum dc_status status;
}; /* permissions are only useful for checking OUR permissions, not others'. keep that in mind. */
struct dc_permission * dc_permission_init () {
	struct dc_permission * s = calloc(1, sizeof(*s));
	return s;
}
void dc_permission_free (struct dc_permission * s) {
	if (!s)
		return;
	free(s);
}
struct dc_attached_function {
	DC_STRUCT_PREFIX
	enum dc_api_io_type type;
	void * user_data; /* I hope I don't confuse this with void * data in DC_STRUCT_PREFIX */
	enum dc_status (* function) (struct dc_api_io, void *);
	time_t every; /* no meaning if type != DC_API_TIMEOUT */
	time_t last; /* no meaning if type != DC_API_TIMEOUT */
};
struct dc_attached_function * dc_attached_function_init () {
	struct dc_attached_function * s = calloc(1, sizeof(*s));
	return s;
}
void dc_attached_function_free (struct dc_attached_function * s) {
	if (!s)
		return;
	free(s);
}
void dc_lws_pass_free (struct dc_lws_pass * s) {
	if (!s)
		return;
	free(s->body);
	DC_API_IO_GC(s->api_io);
	free(s);
}
static int dc_lws_cb (struct lws *, enum lws_callback_reasons, void *, void *, size_t);
static const struct lws_protocols dc_lws_protocols[] = {
	{"dc", dc_lws_cb, /* sizeof(struct dc_lws_pass) */ 0 /* lws naj NE ALOCIRA */, DC_LWS_MAX_RX, 0, NULL, 0},
	{NULL, NULL, 0, 0, 0, NULL, 0}
};
struct dc_program { /* data storage and token used for communication with the library */
	DC_STRUCT_PREFIX /* this is the only struct that contains DC_ISAs */
	DC_ISASQ(client); /* yesfree */
	DC_ISASQ(guild); /* yesfree */
	DC_ISASQ(channel); /* yesfree */
	DC_ISASQ(message); /* yesfree */
	DC_ISASQ(role); /* yesfree */
	DC_ISASQ(role_membership); /* yesfree */
	DC_ISASQ(user); /* yesfree */
	DC_ISASQ(permission); /* yesfree */
	DC_ISASQ(attached_function); /* yesfree */
	DC_ISASQ(api_io); /* yesfree */
	struct lws_context * lws_context; /* yesfree */
}; /* ui functions MUST check if !(->status & DC_INCOMPLETE) before using array members, incompletes are yet to be filled by the api */
enum dc_status dc_handle_ping (struct dc_api_io io, void * userdata) { /* tries to ping ws of every cl */
	if (io.status & DC_INTERNAL)
		return DC_RETRY;
	for (size_t i = 0; i < io.program->clients_length; i++) {
		struct dc_client * client = io.program->clients[i];
		struct dc_lws_pass * pass = client->pass;
		if (!pass)
			continue;
		if (!pass->wsi)
			continue;
		if (!userdata) { /* so packet parser iow server may request an immediate ping */
			if (client->ping_interval && client->last_ping + client->ping_interval < time(NULL))
				client->last_ping = time(NULL);
			else
				continue;
		}
		fprintf(stderr, "dc_handle_ping: handling ping for client %d\n", i);
		struct dc_payload * payload = calloc(1, sizeof(struct dc_payload));
		payload->length = smprintf(&payload->body, DC_WS_PING_FORMAT, client->last_packet);
		dc_ws_stack(client, payload); /* send a payload */
	}
	return DC_OK;
}
struct dc_program * dc_program_init () {
	struct dc_program * s = calloc(1, sizeof(struct dc_program));
	DC_ISASIQ(client);
	DC_ISASIQ(guild);
	DC_ISASIQ(channel);
	DC_ISASIQ(message);
	DC_ISASIQ(role);
	DC_ISASIQ(role_membership);
	DC_ISASIQ(user);
	DC_ISASIQ(permission);
	DC_ISASIQ(attached_function);
	DC_ISASIQ(api_io);
	/* lws init */
	struct lws_context_creation_info info;
	memset(&info, 0, sizeof(info));
	info.options = LWS_SERVER_OPTION_DO_SSL_GLOBAL_INIT;
	info.port = CONTEXT_PORT_NO_LISTEN; /* we are not listening - we are a client */
	info.protocols = dc_lws_protocols;
	info.fd_limit_per_thread = DC_LWS_MAX_FD;
	if (!(s->lws_context = lws_create_context(&info))) {
		lwsl_err("lws init failed\n");
		return NULL;
	}
	struct dc_api_io io; /* attach a function for pinging wss of every client */
	memset(&io, 0, sizeof(io));
	io.type = DC_API_ATTACH;
	io.attached_function = calloc(1, sizeof(struct dc_attached_function));
	io.attached_function->type = DC_API_TIMEOUT;
	io.attached_function->every = 0; /* repediately call, handle_ping handles timing */
	io.attached_function->function = dc_handle_ping;
	io.program = s;
	dc_api_i(io);
	return s;
}
void dc_program_free (struct dc_program * s) {
	if (!s)
		return;
	DC_ISAF(client);
	DC_ISAF(guild);
	DC_ISAF(channel);
	DC_ISAF(message);
	DC_ISAF(role);
	DC_ISAF(role_membership);
	DC_ISAF(user);
	DC_ISAF(permission);
	DC_ISAF(attached_function);
	DC_ISAF(api_io);
	lws_context_destroy(s->lws_context); /* closes all connections and destroys all wsis */
	free(s);
}
void dc_api_stack (struct dc_api_io);
#define DC_FIND_X(x) struct dc_##x * dc_find_##x(struct dc_##x ** p, size_t l, unsigned long long int id) { \
	for (size_t i = 0; i < l; i++) \
		if (p[i]->id == id) { \
			fprintf(stderr, "id %llu was found!\n", id); \
			return p[i]; \
		} \
	return NULL; \
}
#define DC_FIND_LL_X(x) struct dc_##x * dc_find_ll_##x(struct dc_##x * u, unsigned long long int id) { \
	struct dc_##x ** z = &u; \
	if (!u) \
		return NULL; \
	while (*z) { \
		if ((*z)->id == id) \
			return *z; \
		z = &(*z)->next; \
	} \
	return NULL; \
} /* untested, not sure if works!!! */
#define DC_ADD_X(x) struct dc_##x * dc_add_##x (struct dc_##x *** p, size_t * so, size_t * l, struct dc_##x * u, enum dc_status s) { \
	struct dc_##x * us; \
	if ((us = dc_find_##x(*p, *l, u->id))) { \
		if (s & DC_MAY_FREE) { \
			dc_##x##_free(u); \
			fprintf(stderr, "debug: %s freed already existing member\n", __func__); \
		} \
		return us; \
	} \
	if (*so <= *l) { \
		*so = ceil(*so*DC_REALLOC_K); \
		*p = realloc(*p, sizeof(**p) * *so); \
		fprintf(stderr, "debug: %s resized ISA\n", __func__); \
	} \
	(*p)[(*l)++] = u; \
	return u; \
}
#define DC_ADDR_X(x, y) struct dc_##x * dc_addr_##x (struct dc_program * p, struct dc_##x *** a, size_t * so, size_t * l, struct dc_##x * u, enum dc_status s) { \
	struct dc_##x * us; \
	if (!a) { \
		if (u == (us = dc_add_##x(&p->x##s, &p->x##s_sizeof, &p->x##s_length, u, s))) \
			return us; \
	} else \
		if (u == (us = dc_add_##x(a, so, l, u, s))) \
			return us; \
	struct dc_api_io io; \
	memset(&io, 0, sizeof(io)); \
	io.type = DC_API_##y; \
	io.program = p; \
	io.x = u; \
	dc_api_stack(io); \
	return u; \
} /* add with report */
#define DC_GEN_X(x, y) DC_FIND_X(x) DC_ADD_X(x) DC_ADDR_X(x, y)
DC_GEN_X(user, USER)
DC_GEN_X(channel, CHANNEL)
DC_FIND_LL_X(channel)
#define DC_ISAE(a) &a, &a##_sizeof, &a##_length /* ISA Expand */
#define DC_ISAN NULL, NULL, NULL /* ISA NULL */