update infos

[lttv.git] / usertrace / lttng_usertrace.c

/* LTTng user-space tracing code
 *
 * Copyright 2006 Mathieu Desnoyers
 *
 */


#include <sys/types.h>
#include <sys/wait.h>
#include <unistd.h>
#include <stdlib.h>
#include <stdio.h>
#include <signal.h>
#include <syscall.h>
#include <features.h>
#include <pthread.h>
#include <malloc.h>
#include <string.h>

#include "lttng_usertrace.h"

#define MAX_TRACES 16


/* TLS for the trace info
 * http://www.dis.com/gnu/gcc/C--98-Thread-Local-Edits.html
 *
 * Add after paragraph 4
 *
 *     The storage for an object of thread storage duration shall be statically
 *     initialized before the first statement of the thread startup function. An
 *     object of thread storage duration shall not require dynamic
 *     initialization.
 * GCC extention permits init of a range.
 */

static __thread struct lttng_trace_info lttng_trace_info[MAX_TRACES] =
{	[ 0 ... MAX_TRACES-1 ].active = 0,
	[ 0 ... MAX_TRACES-1 ].filter = 0,
	[ 0 ... MAX_TRACES-1 ].nesting = ATOMIC_INIT(0),
	[ 0 ... MAX_TRACES-1 ].channel = 
		{ NULL,
			0,
			ATOMIC_INIT(0),
			ATOMIC_INIT(0),
			ATOMIC_INIT(0),
			ATOMIC_INIT(0),
			ATOMIC_INIT(0)
		}
};


/* Must be called we sure nobody else is using the info.
 * It implies that the trace should have been previously stopped
 * and that every writer has finished.
 *
 * Writers should always check if the trace must be destroyed when they
 * finish writing and the nesting level is 0.
 */
void lttng_free_trace_info(struct lttng_trace_info *info)
{
	int ret;
	
	if(info->active) {
		printf(
		"LTTng ERROR : lttng_free_trace_info should be called on inactive trace\n");
		exit(1);
	}
	if(!info->destroy) {
		printf(
		"LTTng ERROR : lttng_free_trace_info should be called on destroyed trace\n");
		exit(1);
	}
	if(atomic_read(&info->nesting) > 0) {
		printf(
		"LTTng ERROR : lttng_free_trace_info should not be nested on tracing\n");
		exit(1);
	}
	
	/* Remove the maps */
	ret = munmap(info->channel.cpu.start, info->channel.cpu.length);
	if(ret) {
		perror("LTTNG : error in munmap");
	}
	ret = munmap(info->channel.facilities.start, info->channel.facilities.length);
	if(ret) {
		perror("LTTNG : error in munmap");
	}
	
	/* Zero the structure */
	memset(info, 0, sizeof(struct lttng_trace_info));
}


static void lttng_get_new_info(void)
{
	unsigned long cpu_addr, fac_addr;
	unsigned int i, first_empty;
	int active, filter, destroy;
	int ret;

	/* Get all the new traces */
	while(1) {
		cpu_addr = fac_addr = 0;
		active = filter = destroy = 0;
		ret = ltt_update(&cpu_addr, &fac_addr, &active, &filter, &destroy);
		if(ret) {
			printf("LTTng : error in ltt_update\n");
			exit(1);
		}
		
		if(!cpu_addr || !fac_addr) break;
		
		first_empty = MAX_TRACES;
		/* Try to find the trace */
		for(i=0;i<MAX_TRACES;i++) {
			if(i<first_empty && !lttng_trace_info[i].channel.cpu.start)
				first_empty = i;
			if(cpu_addr == 
					(unsigned long)lttng_trace_info[i].channel.cpu.start &&
				 fac_addr == 
				 	(unsigned long)lttng_trace_info[i].channel.facilities.start) {
				/* Found */
				lttng_trace_info[i].filter = filter;
				lttng_trace_info[i].active = active;
				lttng_trace_info[i].destroy = destroy;
				if(destroy && !atomic_read(&lttng_trace_info[i].nesting)) {
					lttng_free_trace_info(&lttng_trace_info[i]);
				}
				break;
			}

		}
		if(i == MAX_TRACES) {
			/* Not found. Must take an empty slot */
			if(first_empty == MAX_TRACES) {
				printf(
				"LTTng WARNING : too many traces requested for pid %d by the kernel.\n"
				"                Compilation defined maximum is %u\n",
					getpid(), MAX_TRACES);

			} else {
				lttng_trace_info[first_empty].channel.cpu.start = (void*)cpu_addr;
				lttng_trace_info[first_empty].channel.cpu.length = PAGE_SIZE;
				lttng_trace_info[first_empty].channel.facilities.start =
																													(void*)fac_addr;
				lttng_trace_info[first_empty].channel.facilities.length = PAGE_SIZE;
				lttng_trace_info[first_empty].filter = filter;
				lttng_trace_info[first_empty].active = active;
			}
		}
	}
}


/* signal handler */
void __lttng_sig_trace_handler(int signo)
{
	int ret;
	sigset_t set, oldset;
	
  printf("LTTng signal handler : thread id : %lu, pid %lu\n", pthread_self(), getpid());
#if 0
	/* Disable signals */
	ret = sigfillset(&set);
	if(ret) {
		printf("Error in sigfillset\n");
		exit(1);
	}
	
	ret = sigprocmask(SIG_BLOCK, &set, &oldset);
	if(ret) {
		printf("Error in sigprocmask\n");
		exit(1);
	}
#endif //0
#if 0
	/* Enable signals */
	ret = sigprocmask(SIG_SETMASK, &oldset, NULL);
	if(ret) {
		printf("Error in sigprocmask\n");
		exit(1);
	}
#endif //0
}


static void thread_init(void)
{
	lttng_get_new_info();
	int err;

	/* Make some ltt_switch syscalls */
	err = ltt_switch((unsigned long)NULL);
	if(err) {
		printf("Error in ltt_switch system call\n");
		exit(1);
	}
}

void __attribute__((constructor)) __lttng_user_init(void)
{
	static struct sigaction act;
	int err;

  printf("LTTng user init\n");

	/* Activate the signal */
	act.sa_handler = __lttng_sig_trace_handler;
	err = sigemptyset(&(act.sa_mask));
	if(err) perror("Error with sigemptyset");
	err = sigaddset(&(act.sa_mask), SIGRTMIN+3);
	if(err) perror("Error with sigaddset");
	err = sigaction(SIGRTMIN+3, &act, NULL);
	if(err) perror("Error with sigaction");

	thread_init();
}


void lttng_thread_init(void)
{
	thread_init();
}