/** @file ksession.c
 */
#include <assert.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <unistd.h>

#include <klish/khelper.h>
#include <klish/kscheme.h>
#include <klish/kpath.h>
#include <klish/ksession.h>


struct ksession_s {
	kscheme_t *scheme;
	kpath_t *path;
	bool_t done; // Indicates that session is over and must be closed
	size_t term_width;
	size_t term_height;
	pid_t spid; // Server process to serve current session
	pid_t pid; // Client's PID
	uid_t uid; // Client's UID
	char *user; // Client's user name (get by uid)
	bool_t isatty_stdin;
	bool_t isatty_stdout;
	bool_t isatty_stderr;
};


// Scheme
KGET(session, kscheme_t *, scheme);

// Path
KGET(session, kpath_t *, path);

// Done
KGET_BOOL(session, done);
KSET_BOOL(session, done);

// Width of pseudo terminal
KGET(session, size_t, term_width);
KSET(session, size_t, term_width);

// Height of pseudo terminal
KGET(session, size_t, term_height);
KSET(session, size_t, term_height);

// PID of server's service process
KGET(session, pid_t, spid);
KSET(session, pid_t, spid);

// PID of client (Unix socket peer)
KGET(session, pid_t, pid);
KSET(session, pid_t, pid);

// UID of client (Unix socket peer)
KGET(session, uid_t, uid);
KSET(session, uid_t, uid);

// Client user name (Unix socket peer)
KSET_STR(session, user);
KGET_STR(session, user);

// isatty
KGET_BOOL(session, isatty_stdin);
KSET_BOOL(session, isatty_stdin);
KGET_BOOL(session, isatty_stdout);
KSET_BOOL(session, isatty_stdout);
KGET_BOOL(session, isatty_stderr);
KSET_BOOL(session, isatty_stderr);


ksession_t *ksession_new(kscheme_t *scheme, const char *start_entry)
{
	ksession_t *session = NULL;
	const kentry_t *entry = NULL;
	const char *entry_to_search = NULL;
	klevel_t *level = NULL;

	assert(scheme);
	if (!scheme)
		return NULL;

	// Before real session allocation we will try to find starting entry.
	// Starting entry can be get from function argument, from STARTUP tag or
	// default name 'main' can be used. Don't create session if we can't get
	// starting entry at all. Priorities are (from higher) argument, STARTUP,
	// default name.
	if (start_entry)
		entry_to_search = start_entry;
	// STARTUP is not implemented yet
	else
		entry_to_search = KSESSION_STARTING_ENTRY;
	entry = kscheme_find_entry_by_path(scheme, entry_to_search);
	if (!entry)
		return NULL; // Can't find starting entry

	session = faux_zmalloc(sizeof(*session));
	assert(session);
	if (!session)
		return NULL;

	// Initialization
	session->scheme = scheme;
	// Create kpath_t stack
	session->path = kpath_new();
	assert(session->path);
	level = klevel_new(entry);
	assert(level);
	kpath_push(session->path, level);
	session->done = BOOL_FALSE;
	session->term_width = 0;
	session->term_height = 0;
	// Peer data
	session->pid = -1;
	session->uid = -1;
	session->user = NULL;
	session->isatty_stdin = BOOL_FALSE;
	session->isatty_stdout = BOOL_FALSE;
	session->isatty_stderr = BOOL_FALSE;
	session->spid = getpid(); // For forked processes

	return session;
}


void ksession_free(ksession_t *session)
{
	if (!session)
		return;

	kpath_free(session->path);
	faux_str_free(session->user);

	free(session);
}