1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <dirent.h>
#include <setjmp.h>
#include <stdarg.h>
#include <wchar.h>
#include "config.h"
#include "lib.h"
#include "debug.h"
#include "gc.h"
#include "unwind.h"
#include "stream.h"
#include "parser.h"
int opt_debugger;
static int step_mode;
val breakpoints;
val last_command;
static void help(void)
{
}
val debug(val form, val bindings, val data, val line, val chr)
{
val lineno = source_loc(form);
if (!step_mode && !memqual(lineno, breakpoints)) {
return nil;
} else {
val print_form = t;
val print_data = t;
for (;;) {
val input, command;
if (print_form) {
format(std_output, lit("stopped at line ~a\n"), lineno, nao);
format(std_output, lit("form: ~s\n"), form, nao);
}
if (print_data) {
if (data && chr) {
val prefix = sub_str(data, zero, chr);
val suffix = sub_str(data, chr, nil);
format(std_output, lit("data (~s:~s):\n~s . ~s\n"),
line, chr, prefix, suffix, nao);
} else {
format(std_output, lit("data (~s):\n~s\n"), line, data, nao);
}
}
format(std_output, lit("txr> "), nao);
flush_stream(std_output);
input = split_str_set(get_line(std_input), lit("\t "));
command = if3(equal(first(input), null_string),
last_command, first(input));
last_command = command;
if (equal(command, lit("?")) || equal(command, lit("help"))) {
help();
continue;
} else if (equal(command, lit("c"))) {
step_mode = 0;
return nil;
} else if (equal(command, lit("n"))) {
step_mode = 1;
return nil;
} else if (equal(command, lit("v"))) {
format(std_output, lit("bindings: ~s\n"), bindings, nao);
} else if (equal(command, lit("f"))) {
print_form = t;
} else if (equal(command, lit("d"))) {
print_data = t;
} else if (equal(command, lit("b")) || equal(command, lit("d"))) {
if (!rest(input)) {
format(std_output, lit("b needs argument\n"), nao);
continue;
} else {
long n = wcstol(c_str(second(input)), NULL, 10);
if (equal(command, lit("b")))
push(num(n), &breakpoints);
}
} else if (equal(command, lit("l"))) {
format(std_output, lit("breakpoints: ~s\n"), breakpoints, nao);
} else if (equal(command, lit("w"))) {
format(std_output, lit("backtrace:\n"), nao);
{
uw_frame_t *iter;
for (iter = uw_current_frame(); iter != 0; iter = iter->uw.up) {
if (iter->uw.type == UW_DBG) {
format(std_output, lit("(~s ~s)\n"), iter->db.func, iter->db.args, nao);
}
}
}
} else if (equal(command, lit("q"))) {
uw_throwf(query_error_s, lit("terminated via debugger"), nao);
} else {
format(std_output, lit("unrecognized command: ~a\n"), command, nao);
}
}
return nil;
}
}
void debug_init(void)
{
step_mode = 1;
protect(&breakpoints, &last_command, (val *) 0);
}
|
