plop

git-svn-id: http://svn.net-core.org/repos/t-engine4@87 51575b47-30f0-44d4-a5cc-537603b46e54

src/luaprofiler/stack.h

+/*
+** LuaProfiler
+** Copyright Kepler Project 2005-2007 (http://www.keplerproject.org/luaprofiler)
+** $Id: stack.h,v 1.5 2007/08/22 19:23:53 carregal Exp $
+*/
+
+/*****************************************************************************
+stack.h:
+   Simple stack manipulation
+*****************************************************************************/
+
+#ifndef _STACK_H
+#define _STACK_H
+
+#include <time.h>
+
+typedef struct lprofS_sSTACK_RECORD lprofS_STACK_RECORD;
+
+struct lprofS_sSTACK_RECORD {
+	clock_t time_marker_function_local_time;
+	clock_t time_marker_function_total_time;
+	char *file_defined;
+	char *function_name;
+	char *source_code;        
+	long line_defined;
+	long current_line;
+	float local_time;
+	float total_time;
+	lprofS_STACK_RECORD *next;
+};
+
+typedef lprofS_STACK_RECORD *lprofS_STACK;
+
+typedef struct lprofP_sSTATE lprofP_STATE;
+	
+struct lprofP_sSTATE {
+   int stack_level;
+   lprofS_STACK stack_top;
+};
+
+void lprofS_push(lprofS_STACK *p, lprofS_STACK_RECORD r);
+lprofS_STACK_RECORD lprofS_pop(lprofS_STACK *p);
+
+#endif

src/main.c

@@ -307,6 +307,7 @@ int main(int argc, char *argv[])
 	luaopen_socket_core(L);
 	luaopen_mime_core(L);
 	luaopen_struct(L);
+	luaopen_profiler(L);
 
 	// Make the uids repository
 	lua_newtable(L);