source: mainline/uspace/app/trace/trace.c@ df3f85f

lfn serial ticket/834-toolchain-update topic/msim-upgrade topic/simplify-dev-export
Last change on this file since df3f85f was ce7676c, checked in by Jiri Svoboda <jiri@…>, 14 years ago

Fix double free bug in trace.
  • Property mode set to 100644
File size: 19.4 KB
Line 
1/*
2 * Copyright (c) 2008 Jiri Svoboda
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 *
9 * - Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
11 * - Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
14 * - The name of the author may not be used to endorse or promote products
15 * derived from this software without specific prior written permission.
16 *
17 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27 */
28
29/** @addtogroup trace
30 * @{
31 */
32/** @file
33 */
34
35#include <stdio.h>
36#include <stdlib.h>
37#include <unistd.h>
38#include <fibril.h>
39#include <errno.h>
40#include <udebug.h>
41#include <async.h>
42#include <task.h>
43#include <mem.h>
44#include <str.h>
45#include <bool.h>
46#include <loader/loader.h>
47#include <io/console.h>
48#include <io/keycode.h>
49#include <fibril_synch.h>
50#include <sys/types.h>
51#include <sys/typefmt.h>
52#include <vfs/vfs.h>
53
54#include <libc.h>
55
56/* Temporary: service and method names */
57#include "proto.h"
58#include <ipc/services.h>
59#include "../../srv/vfs/vfs.h"
60#include <ipc/console.h>
61
62#include "syscalls.h"
63#include "ipcp.h"
64#include "errors.h"
65#include "trace.h"
66
67#define THBUF_SIZE 64
68uintptr_t thread_hash_buf[THBUF_SIZE];
69int n_threads;
70
71int next_thread_id;
72
73ipc_call_t thread_ipc_req[THBUF_SIZE];
74
75async_sess_t *sess;
76bool abort_trace;
77
78uintptr_t thash;
79static bool paused;
80static fibril_condvar_t state_cv;
81static fibril_mutex_t state_lock;
82
83static bool cev_valid;
84static kbd_event_t cev;
85
86void thread_trace_start(uintptr_t thread_hash);
87
88static task_id_t task_id;
89static loader_t *task_ldr;
90static bool task_wait_for;
91
92/** Combination of events/data to print. */
93display_mask_t display_mask;
94
95static int program_run_fibril(void *arg);
96static int cev_fibril(void *arg);
97
98static void program_run(void)
99{
100 fid_t fid;
101
102 fid = fibril_create(program_run_fibril, NULL);
103 if (fid == 0) {
104 printf("Error creating fibril\n");
105 exit(1);
106 }
107
108 fibril_add_ready(fid);
109}
110
111static void cev_fibril_start(void)
112{
113 fid_t fid;
114
115 fid = fibril_create(cev_fibril, NULL);
116 if (fid == 0) {
117 printf("Error creating fibril\n");
118 exit(1);
119 }
120
121 fibril_add_ready(fid);
122}
123
124static int program_run_fibril(void *arg)
125{
126 int rc;
127
128 /*
129 * This must be done in background as it will block until
130 * we let the task reply to this call.
131 */
132 rc = loader_run(task_ldr);
133 if (rc != 0) {
134 printf("Error running program\n");
135 exit(1);
136 }
137
138 free(task_ldr);
139 task_ldr = NULL;
140
141 printf("program_run_fibril exiting\n");
142 return 0;
143}
144
145
146static int connect_task(task_id_t task_id)
147{
148 async_sess_t *ksess = async_connect_kbox(task_id);
149
150 if (!ksess) {
151 if (errno == ENOTSUP) {
152 printf("You do not have userspace debugging support "
153 "compiled in the kernel.\n");
154 printf("Compile kernel with 'Support for userspace debuggers' "
155 "(CONFIG_UDEBUG) enabled.\n");
156 return errno;
157 }
158
159 printf("Error connecting\n");
160 printf("ipc_connect_task(%" PRIu64 ") -> %d ", task_id, errno);
161 return errno;
162 }
163
164 int rc = udebug_begin(ksess);
165 if (rc < 0) {
166 printf("udebug_begin() -> %d\n", rc);
167 return rc;
168 }
169
170 rc = udebug_set_evmask(ksess, UDEBUG_EM_ALL);
171 if (rc < 0) {
172 printf("udebug_set_evmask(0x%x) -> %d\n ", UDEBUG_EM_ALL, rc);
173 return rc;
174 }
175
176 sess = ksess;
177 return 0;
178}
179
180static int get_thread_list(void)
181{
182 int rc;
183 size_t tb_copied;
184 size_t tb_needed;
185 int i;
186
187 rc = udebug_thread_read(sess, thread_hash_buf,
188 THBUF_SIZE*sizeof(unsigned), &tb_copied, &tb_needed);
189 if (rc < 0) {
190 printf("udebug_thread_read() -> %d\n", rc);
191 return rc;
192 }
193
194 n_threads = tb_copied / sizeof(uintptr_t);
195
196 printf("Threads:");
197 for (i = 0; i < n_threads; i++) {
198 printf(" [%d] (hash %p)", 1 + i, (void *) thread_hash_buf[i]);
199 }
200 printf("\ntotal of %zu threads\n", tb_needed / sizeof(uintptr_t));
201
202 return 0;
203}
204
205void val_print(sysarg_t val, val_type_t v_type)
206{
207 long sval;
208
209 sval = (long) val;
210
211 switch (v_type) {
212 case V_VOID:
213 printf("<void>");
214 break;
215
216 case V_INTEGER:
217 printf("%ld", sval);
218 break;
219
220 case V_HASH:
221 case V_PTR:
222 printf("%p", (void *) val);
223 break;
224
225 case V_ERRNO:
226 if (sval >= -15 && sval <= 0) {
227 printf("%ld %s (%s)", sval,
228 err_desc[-sval].name,
229 err_desc[-sval].desc);
230 } else {
231 printf("%ld", sval);
232 }
233 break;
234 case V_INT_ERRNO:
235 if (sval >= -15 && sval < 0) {
236 printf("%ld %s (%s)", sval,
237 err_desc[-sval].name,
238 err_desc[-sval].desc);
239 } else {
240 printf("%ld", sval);
241 }
242 break;
243
244 case V_CHAR:
245 if (sval >= 0x20 && sval < 0x7f) {
246 printf("'%c'", (char) sval);
247 } else {
248 switch (sval) {
249 case '\a': printf("'\\a'"); break;
250 case '\b': printf("'\\b'"); break;
251 case '\n': printf("'\\n'"); break;
252 case '\r': printf("'\\r'"); break;
253 case '\t': printf("'\\t'"); break;
254 case '\\': printf("'\\\\'"); break;
255 default: printf("'\\x%02" PRIxn "'", val); break;
256 }
257 }
258 break;
259 }
260}
261
262
263static void print_sc_retval(sysarg_t retval, val_type_t val_type)
264{
265 printf(" -> ");
266 val_print(retval, val_type);
267 putchar('\n');
268}
269
270static void print_sc_args(sysarg_t *sc_args, int n)
271{
272 int i;
273
274 putchar('(');
275 if (n > 0) printf("%" PRIun, sc_args[0]);
276 for (i = 1; i < n; i++) {
277 printf(", %" PRIun, sc_args[i]);
278 }
279 putchar(')');
280}
281
282static void sc_ipc_call_async_fast(sysarg_t *sc_args, sysarg_t sc_rc)
283{
284 ipc_call_t call;
285 sysarg_t phoneid;
286
287 if (sc_rc == (sysarg_t) IPC_CALLRET_FATAL ||
288 sc_rc == (sysarg_t) IPC_CALLRET_TEMPORARY)
289 return;
290
291 phoneid = sc_args[0];
292
293 IPC_SET_IMETHOD(call, sc_args[1]);
294 IPC_SET_ARG1(call, sc_args[2]);
295 IPC_SET_ARG2(call, sc_args[3]);
296 IPC_SET_ARG3(call, sc_args[4]);
297 IPC_SET_ARG4(call, sc_args[5]);
298 IPC_SET_ARG5(call, 0);
299
300 ipcp_call_out(phoneid, &call, sc_rc);
301}
302
303static void sc_ipc_call_async_slow(sysarg_t *sc_args, sysarg_t sc_rc)
304{
305 ipc_call_t call;
306 int rc;
307
308 if (sc_rc == (sysarg_t) IPC_CALLRET_FATAL ||
309 sc_rc == (sysarg_t) IPC_CALLRET_TEMPORARY)
310 return;
311
312 memset(&call, 0, sizeof(call));
313 rc = udebug_mem_read(sess, &call.args, sc_args[1], sizeof(call.args));
314
315 if (rc >= 0) {
316 ipcp_call_out(sc_args[0], &call, sc_rc);
317 }
318}
319
320static void sc_ipc_call_sync_fast(sysarg_t *sc_args)
321{
322 ipc_call_t question, reply;
323 int rc;
324 int phoneid;
325
326 phoneid = sc_args[0];
327
328 IPC_SET_IMETHOD(question, sc_args[1]);
329 IPC_SET_ARG1(question, sc_args[2]);
330 IPC_SET_ARG2(question, sc_args[3]);
331 IPC_SET_ARG3(question, sc_args[4]);
332 IPC_SET_ARG4(question, 0);
333 IPC_SET_ARG5(question, 0);
334
335 memset(&reply, 0, sizeof(reply));
336 rc = udebug_mem_read(sess, &reply.args, sc_args[5], sizeof(reply.args));
337 if (rc < 0)
338 return;
339
340 ipcp_call_sync(phoneid, &question, &reply);
341}
342
343static void sc_ipc_call_sync_slow_b(unsigned thread_id, sysarg_t *sc_args)
344{
345 ipc_call_t question;
346 int rc;
347
348 memset(&question, 0, sizeof(question));
349 rc = udebug_mem_read(sess, &question.args, sc_args[1],
350 sizeof(question.args));
351
352 if (rc < 0) {
353 printf("Error: mem_read->%d\n", rc);
354 return;
355 }
356
357 thread_ipc_req[thread_id] = question;
358}
359
360static void sc_ipc_call_sync_slow_e(unsigned thread_id, sysarg_t *sc_args)
361{
362 ipc_call_t reply;
363 int rc;
364
365 memset(&reply, 0, sizeof(reply));
366 rc = udebug_mem_read(sess, &reply.args, sc_args[2],
367 sizeof(reply.args));
368
369 if (rc < 0) {
370 printf("Error: mem_read->%d\n", rc);
371 return;
372 }
373
374 ipcp_call_sync(sc_args[0], &thread_ipc_req[thread_id], &reply);
375}
376
377static void sc_ipc_wait(sysarg_t *sc_args, int sc_rc)
378{
379 ipc_call_t call;
380 int rc;
381
382 if (sc_rc == 0) return;
383
384 memset(&call, 0, sizeof(call));
385 rc = udebug_mem_read(sess, &call, sc_args[0], sizeof(call));
386
387 if (rc >= 0)
388 ipcp_call_in(&call, sc_rc);
389}
390
391static void event_syscall_b(unsigned thread_id, uintptr_t thread_hash,
392 unsigned sc_id, sysarg_t sc_rc)
393{
394 sysarg_t sc_args[6];
395 int rc;
396
397 /* Read syscall arguments */
398 rc = udebug_args_read(sess, thread_hash, sc_args);
399
400 if (rc < 0) {
401 printf("error\n");
402 return;
403 }
404
405 if ((display_mask & DM_SYSCALL) != 0) {
406 /* Print syscall name and arguments */
407 printf("%s", syscall_desc[sc_id].name);
408 print_sc_args(sc_args, syscall_desc[sc_id].n_args);
409 }
410
411 switch (sc_id) {
412 case SYS_IPC_CALL_SYNC_SLOW:
413 sc_ipc_call_sync_slow_b(thread_id, sc_args);
414 break;
415 default:
416 break;
417 }
418}
419
420static void event_syscall_e(unsigned thread_id, uintptr_t thread_hash,
421 unsigned sc_id, sysarg_t sc_rc)
422{
423 sysarg_t sc_args[6];
424 int rv_type;
425 int rc;
426
427 /* Read syscall arguments */
428 rc = udebug_args_read(sess, thread_hash, sc_args);
429
430// printf("[%d] ", thread_id);
431
432 if (rc < 0) {
433 printf("error\n");
434 return;
435 }
436
437 if ((display_mask & DM_SYSCALL) != 0) {
438 /* Print syscall return value */
439 rv_type = syscall_desc[sc_id].rv_type;
440 print_sc_retval(sc_rc, rv_type);
441 }
442
443 switch (sc_id) {
444 case SYS_IPC_CALL_ASYNC_FAST:
445 sc_ipc_call_async_fast(sc_args, sc_rc);
446 break;
447 case SYS_IPC_CALL_ASYNC_SLOW:
448 sc_ipc_call_async_slow(sc_args, sc_rc);
449 break;
450 case SYS_IPC_CALL_SYNC_FAST:
451 sc_ipc_call_sync_fast(sc_args);
452 break;
453 case SYS_IPC_CALL_SYNC_SLOW:
454 sc_ipc_call_sync_slow_e(thread_id, sc_args);
455 break;
456 case SYS_IPC_WAIT:
457 sc_ipc_wait(sc_args, sc_rc);
458 break;
459 default:
460 break;
461 }
462}
463
464static void event_thread_b(uintptr_t hash)
465{
466 printf("New thread, hash %p\n", (void *) hash);
467 thread_trace_start(hash);
468}
469
470static int trace_loop(void *thread_hash_arg)
471{
472 int rc;
473 unsigned ev_type;
474 uintptr_t thread_hash;
475 unsigned thread_id;
476 sysarg_t val0, val1;
477
478 thread_hash = (uintptr_t)thread_hash_arg;
479 thread_id = next_thread_id++;
480 if (thread_id >= THBUF_SIZE) {
481 printf("Too many threads.\n");
482 return ELIMIT;
483 }
484
485 printf("Start tracing thread [%u] (hash %p).\n",
486 thread_id, (void *) thread_hash);
487
488 while (!abort_trace) {
489
490 fibril_mutex_lock(&state_lock);
491 if (paused) {
492 printf("Thread [%u] paused. Press R to resume.\n",
493 thread_id);
494
495 while (paused)
496 fibril_condvar_wait(&state_cv, &state_lock);
497
498 printf("Thread [%u] resumed.\n", thread_id);
499 }
500 fibril_mutex_unlock(&state_lock);
501
502 /* Run thread until an event occurs */
503 rc = udebug_go(sess, thread_hash,
504 &ev_type, &val0, &val1);
505
506// printf("rc = %d, ev_type=%d\n", rc, ev_type);
507 if (ev_type == UDEBUG_EVENT_FINISHED) {
508 /* Done tracing this thread */
509 break;
510 }
511
512 if (rc >= 0) {
513 switch (ev_type) {
514 case UDEBUG_EVENT_SYSCALL_B:
515 event_syscall_b(thread_id, thread_hash, val0, (int)val1);
516 break;
517 case UDEBUG_EVENT_SYSCALL_E:
518 event_syscall_e(thread_id, thread_hash, val0, (int)val1);
519 break;
520 case UDEBUG_EVENT_STOP:
521 printf("Stop event\n");
522 fibril_mutex_lock(&state_lock);
523 paused = true;
524 fibril_mutex_unlock(&state_lock);
525 break;
526 case UDEBUG_EVENT_THREAD_B:
527 event_thread_b(val0);
528 break;
529 case UDEBUG_EVENT_THREAD_E:
530 printf("Thread %" PRIun " exited.\n", val0);
531 fibril_mutex_lock(&state_lock);
532 abort_trace = true;
533 fibril_condvar_broadcast(&state_cv);
534 fibril_mutex_unlock(&state_lock);
535 break;
536 default:
537 printf("Unknown event type %d.\n", ev_type);
538 break;
539 }
540 }
541
542 }
543
544 printf("Finished tracing thread [%d].\n", thread_id);
545 return 0;
546}
547
548void thread_trace_start(uintptr_t thread_hash)
549{
550 fid_t fid;
551
552 thash = thread_hash;
553
554 fid = fibril_create(trace_loop, (void *)thread_hash);
555 if (fid == 0) {
556 printf("Warning: Failed creating fibril\n");
557 }
558 fibril_add_ready(fid);
559}
560
561static loader_t *preload_task(const char *path, char **argv,
562 task_id_t *task_id)
563{
564 loader_t *ldr;
565 int rc;
566
567 /* Spawn a program loader */
568 ldr = loader_connect();
569 if (ldr == NULL)
570 return 0;
571
572 /* Get task ID. */
573 rc = loader_get_task_id(ldr, task_id);
574 if (rc != EOK)
575 goto error;
576
577 /* Send program pathname */
578 rc = loader_set_pathname(ldr, path);
579 if (rc != EOK)
580 goto error;
581
582 /* Send arguments */
583 rc = loader_set_args(ldr, (const char **) argv);
584 if (rc != EOK)
585 goto error;
586
587 /* Send default files */
588 int *files[4];
589 int fd_stdin;
590 int fd_stdout;
591 int fd_stderr;
592
593 if ((stdin != NULL) && (fhandle(stdin, &fd_stdin) == EOK))
594 files[0] = &fd_stdin;
595 else
596 files[0] = NULL;
597
598 if ((stdout != NULL) && (fhandle(stdout, &fd_stdout) == EOK))
599 files[1] = &fd_stdout;
600 else
601 files[1] = NULL;
602
603 if ((stderr != NULL) && (fhandle(stderr, &fd_stderr) == EOK))
604 files[2] = &fd_stderr;
605 else
606 files[2] = NULL;
607
608 files[3] = NULL;
609
610 rc = loader_set_files(ldr, files);
611 if (rc != EOK)
612 goto error;
613
614 /* Load the program. */
615 rc = loader_load_program(ldr);
616 if (rc != EOK)
617 goto error;
618
619 /* Success */
620 return ldr;
621
622 /* Error exit */
623error:
624 loader_abort(ldr);
625 return NULL;
626}
627
628static int cev_fibril(void *arg)
629{
630 (void) arg;
631
632 console_ctrl_t *console = console_init(stdin, stdout);
633
634 while (true) {
635 fibril_mutex_lock(&state_lock);
636 while (cev_valid)
637 fibril_condvar_wait(&state_cv, &state_lock);
638 fibril_mutex_unlock(&state_lock);
639
640 if (!console_get_kbd_event(console, &cev))
641 return -1;
642
643 fibril_mutex_lock(&state_lock);
644 cev_valid = true;
645 fibril_condvar_broadcast(&state_cv);
646 fibril_mutex_unlock(&state_lock);
647 }
648}
649
650static void trace_task(task_id_t task_id)
651{
652 kbd_event_t ev;
653 bool done;
654 int i;
655 int rc;
656
657 ipcp_init();
658
659 rc = get_thread_list();
660 if (rc < 0) {
661 printf("Failed to get thread list (error %d)\n", rc);
662 return;
663 }
664
665 abort_trace = false;
666
667 for (i = 0; i < n_threads; i++) {
668 thread_trace_start(thread_hash_buf[i]);
669 }
670
671 done = false;
672
673 while (!done) {
674 fibril_mutex_lock(&state_lock);
675 while (!cev_valid && !abort_trace)
676 fibril_condvar_wait(&state_cv, &state_lock);
677 fibril_mutex_unlock(&state_lock);
678
679 ev = cev;
680
681 fibril_mutex_lock(&state_lock);
682 cev_valid = false;
683 fibril_condvar_broadcast(&state_cv);
684 fibril_mutex_unlock(&state_lock);
685
686 if (abort_trace)
687 break;
688
689 if (ev.type != KEY_PRESS)
690 continue;
691
692 switch (ev.key) {
693 case KC_Q:
694 done = true;
695 break;
696 case KC_P:
697 printf("Pause...\n");
698 rc = udebug_stop(sess, thash);
699 if (rc != EOK)
700 printf("Error: stop -> %d\n", rc);
701 break;
702 case KC_R:
703 fibril_mutex_lock(&state_lock);
704 paused = false;
705 fibril_condvar_broadcast(&state_cv);
706 fibril_mutex_unlock(&state_lock);
707 printf("Resume...\n");
708 break;
709 default:
710 break;
711 }
712 }
713
714 printf("\nTerminate debugging session...\n");
715 abort_trace = true;
716 udebug_end(sess);
717 async_hangup(sess);
718
719 ipcp_cleanup();
720
721 printf("Done\n");
722 return;
723}
724
725static void main_init(void)
726{
727 proto_t *p;
728 oper_t *o;
729
730 val_type_t arg_def[OPER_MAX_ARGS] = {
731 V_INTEGER,
732 V_INTEGER,
733 V_INTEGER,
734 V_INTEGER,
735 V_INTEGER
736 };
737
738 val_type_t resp_def[OPER_MAX_ARGS] = {
739 V_INTEGER,
740 V_INTEGER,
741 V_INTEGER,
742 V_INTEGER,
743 V_INTEGER
744 };
745
746 next_thread_id = 1;
747 paused = false;
748 cev_valid = false;
749
750 fibril_mutex_initialize(&state_lock);
751 fibril_condvar_initialize(&state_cv);
752
753 proto_init();
754
755 p = proto_new("vfs");
756 o = oper_new("open", 2, arg_def, V_INT_ERRNO, 0, resp_def);
757 proto_add_oper(p, VFS_IN_OPEN, o);
758 o = oper_new("read", 1, arg_def, V_ERRNO, 1, resp_def);
759 proto_add_oper(p, VFS_IN_READ, o);
760 o = oper_new("write", 1, arg_def, V_ERRNO, 1, resp_def);
761 proto_add_oper(p, VFS_IN_WRITE, o);
762 o = oper_new("seek", 3, arg_def, V_ERRNO, 0, resp_def);
763 proto_add_oper(p, VFS_IN_SEEK, o);
764 o = oper_new("truncate", 5, arg_def, V_ERRNO, 0, resp_def);
765 proto_add_oper(p, VFS_IN_TRUNCATE, o);
766 o = oper_new("fstat", 1, arg_def, V_ERRNO, 0, resp_def);
767 proto_add_oper(p, VFS_IN_FSTAT, o);
768 o = oper_new("close", 1, arg_def, V_ERRNO, 0, resp_def);
769 proto_add_oper(p, VFS_IN_CLOSE, o);
770 o = oper_new("mount", 2, arg_def, V_ERRNO, 0, resp_def);
771 proto_add_oper(p, VFS_IN_MOUNT, o);
772/* o = oper_new("unmount", 0, arg_def);
773 proto_add_oper(p, VFS_IN_UNMOUNT, o);*/
774 o = oper_new("sync", 1, arg_def, V_ERRNO, 0, resp_def);
775 proto_add_oper(p, VFS_IN_SYNC, o);
776 o = oper_new("mkdir", 1, arg_def, V_ERRNO, 0, resp_def);
777 proto_add_oper(p, VFS_IN_MKDIR, o);
778 o = oper_new("unlink", 0, arg_def, V_ERRNO, 0, resp_def);
779 proto_add_oper(p, VFS_IN_UNLINK, o);
780 o = oper_new("rename", 0, arg_def, V_ERRNO, 0, resp_def);
781 proto_add_oper(p, VFS_IN_RENAME, o);
782 o = oper_new("stat", 0, arg_def, V_ERRNO, 0, resp_def);
783 proto_add_oper(p, VFS_IN_STAT, o);
784
785 proto_register(SERVICE_VFS, p);
786}
787
788static void print_syntax()
789{
790 printf("Syntax:\n");
791 printf("\ttrace [+<events>] <executable> [<arg1> [...]]\n");
792 printf("or\ttrace [+<events>] -t <task_id>\n");
793 printf("Events: (default is +tp)\n");
794 printf("\n");
795 printf("\tt ... Thread creation and termination\n");
796 printf("\ts ... System calls\n");
797 printf("\ti ... Low-level IPC\n");
798 printf("\tp ... Protocol level\n");
799 printf("\n");
800 printf("Examples:\n");
801 printf("\ttrace +s /app/tetris\n");
802 printf("\ttrace +tsip -t 12\n");
803}
804
805static display_mask_t parse_display_mask(const char *text)
806{
807 display_mask_t dm = 0;
808 const char *c = text;
809
810 while (*c) {
811 switch (*c) {
812 case 't':
813 dm = dm | DM_THREAD;
814 break;
815 case 's':
816 dm = dm | DM_SYSCALL;
817 break;
818 case 'i':
819 dm = dm | DM_IPC;
820 break;
821 case 'p':
822 dm = dm | DM_SYSTEM | DM_USER;
823 break;
824 default:
825 printf("Unexpected event type '%c'.\n", *c);
826 exit(1);
827 }
828
829 ++c;
830 }
831
832 return dm;
833}
834
835static int parse_args(int argc, char *argv[])
836{
837 char *err_p;
838
839 task_id = 0;
840
841 --argc;
842 ++argv;
843
844 while (argc > 0) {
845 char *arg = *argv;
846 if (arg[0] == '+') {
847 display_mask = parse_display_mask(&arg[1]);
848 } else if (arg[0] == '-') {
849 if (arg[1] == 't') {
850 /* Trace an already running task */
851 --argc;
852 ++argv;
853 task_id = strtol(*argv, &err_p, 10);
854 task_ldr = NULL;
855 task_wait_for = false;
856 if (*err_p) {
857 printf("Task ID syntax error\n");
858 print_syntax();
859 return -1;
860 }
861 } else {
862 printf("Uknown option '%c'\n", arg[0]);
863 print_syntax();
864 return -1;
865 }
866 } else {
867 break;
868 }
869
870 --argc;
871 ++argv;
872 }
873
874 if (task_id != 0) {
875 if (argc == 0)
876 return 0;
877 printf("Extra arguments\n");
878 print_syntax();
879 return -1;
880 }
881
882 if (argc < 1) {
883 printf("Missing argument\n");
884 print_syntax();
885 return -1;
886 }
887
888 /* Preload the specified program file. */
889 printf("Spawning '%s' with arguments:\n", *argv);
890
891 char **cp = argv;
892 while (*cp)
893 printf("'%s'\n", *cp++);
894
895 task_ldr = preload_task(*argv, argv, &task_id);
896 task_wait_for = true;
897
898 return 0;
899}
900
901int main(int argc, char *argv[])
902{
903 int rc;
904 task_exit_t texit;
905 int retval;
906
907 printf("System Call / IPC Tracer\n");
908 printf("Controls: Q - Quit, P - Pause, R - Resume\n");
909
910 display_mask = DM_THREAD | DM_SYSTEM | DM_USER;
911
912 if (parse_args(argc, argv) < 0)
913 return 1;
914
915 main_init();
916
917 rc = connect_task(task_id);
918 if (rc < 0) {
919 printf("Failed connecting to task %" PRIu64 ".\n", task_id);
920 return 1;
921 }
922
923 printf("Connected to task %" PRIu64 ".\n", task_id);
924
925 if (task_ldr != NULL)
926 program_run();
927
928 cev_fibril_start();
929 trace_task(task_id);
930
931 if (task_wait_for) {
932 printf("Waiting for task to exit.\n");
933
934 rc = task_wait(task_id, &texit, &retval);
935 if (rc != EOK) {
936 printf("Failed waiting for task.\n");
937 return -1;
938 }
939
940 if (texit == TASK_EXIT_NORMAL) {
941 printf("Task exited normally, return value %d.\n",
942 retval);
943 } else {
944 printf("Task exited unexpectedly.\n");
945 }
946 }
947
948 return 0;
949}
950
951/** @}
952 */
Note: See TracBrowser for help on using the repository browser.