You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
69 lines
1.5 KiB
C
69 lines
1.5 KiB
C
10 years ago
|
/*
|
||
|
|
* Secure Network Transport Layer Library implementation.
|
||
|
|
* This is a proprietary software. See COPYING for further details.
|
||
|
|
*
|
||
|
|
* (c) 2013-2014 Copyright Askele, inc. <http://askele.com>
|
||
|
|
* (c) 2013-2014 Copyright Askele Ingria, inc. <http://askele-ingria.com>
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <errno.h>
|
||
|
|
#include <string.h>
|
||
|
|
#include <pthread.h>
|
||
|
|
#include <sys/stat.h>
|
||
|
|
#include <sys/time.h>
|
||
|
|
#include <sys/types.h>
|
||
|
|
#include <sys/select.h>
|
||
|
|
#include <unistd.h>
|
||
|
|
#include <fcntl.h>
|
||
|
|
#include <netdb.h>
|
||
|
|
|
||
|
|
#include <uuid/uuid.h>
|
||
|
|
#include <openssl/ssl.h>
|
||
|
|
#include <openssl/err.h>
|
||
|
|
|
||
|
|
#include <tdata/usrtc.h>
|
||
|
|
#include <sexpr/sexp.h>
|
||
|
|
|
||
|
|
#include <sntl/connection.h>
|
||
|
|
|
||
|
|
/* this function is an ugly implementation to get C string with uuid */
|
||
|
|
char *__generate_uuid(void)
|
||
|
|
{
|
||
|
|
char *uuidc = NULL;
|
||
|
|
uuid_t uuid;
|
||
|
|
int len, i = 0;
|
||
|
|
|
||
|
|
len = sizeof(char)*(sizeof(uuid_t)*2) + sizeof(char);
|
||
|
|
if(!(uuidc = malloc(len))) return NULL;
|
||
|
|
|
||
|
|
uuid_generate_time_safe(uuid);
|
||
|
|
|
||
|
|
for(i = 0; i < sizeof(uuid_t); i++)
|
||
|
|
snprintf(uuidc+(2*i*sizeof(char)), len, "%02x", uuid[i]);
|
||
|
|
|
||
|
|
return uuidc;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* sexp helpers */
|
||
|
|
int sexp_list_car(sexp_t *expr, sexp_t **sx)
|
||
|
|
{
|
||
|
|
if (!SEXP_IS_LIST(expr) || expr->list->ty != SEXP_VALUE) return 1;
|
||
|
|
|
||
|
|
*sx = expr->list;
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int sexp_list_cdr(sexp_t *expr, sexp_t **sx)
|
||
|
|
{
|
||
|
|
/* Dummy function. Can we do cdr properly? */
|
||
|
|
if (!SEXP_IS_LIST(expr) || expr->list->ty != SEXP_VALUE) return 1;
|
||
|
|
|
||
|
|
if (!expr->list->next) *sx = NULL;
|
||
|
|
else *sx = expr->list->next;
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|