int main(int argc, char *argv[])
{
if0();
if1();
if2();
if3();
if4();
if5();
}
static int ftw_callback(const char *c_path, const struct stat *c_sb,
int c_type, struct FTW *fb)
{
int c_result = 1;
uw_frame_t cont_guard;
uw_push_guard(&cont_guard, 0);
uw_simple_catch_begin;
sig_check_fast();
{
val path = string_utf8(c_path);
val type = num(c_type);
val sb = stat_to_struct(*c_sb, path);
val level = num(fb->level);
val base = num(fb->base);
val result;
args_decl(args, ARGS_MIN);
args_add5(args, path, type, sb, level, base);
result = generic_funcall(s_callback, args);
c_result = if3(integerp(result), c_num(result), 0);
}
uw_unwind {
s_exit_point = uw_curr_exit_point;
uw_curr_exit_point = 0; /* stops unwinding */
}
uw_catch_end;
uw_pop_frame(&cont_guard);
return c_result;
}
//检测无效的if分支
void ifErr()
{
if1();
if2();
if3();
}
std::string Discovery::getHwAddress()
{
static std::string addr;
if (addr.length() > 0)
return addr;
#ifndef _WIN32
std::ifstream infile("/sys/class/net/et*/address");
if (infile.good()) {
std::getline(infile, addr);
return addr;
}
std::ifstream infile2("/sys/class/net/wl*/address");
if (infile2.good()) {
std::getline(infile2, addr);
return addr;
}
DIR *dir;
struct dirent *ent;
if (!(dir = opendir("/sys/class/net/")))
return "";
while ((ent = readdir(dir)) != NULL) {
if (ent->d_name[0] == '.' || strlen(ent->d_name) < 4)
continue;
if ((ent->d_name[0] == 'w' && ent->d_name[1] == 'l') || ent->d_name[0] == 'e') {
std::ifstream if3("/sys/class/net/" + std::string(ent->d_name )+"/address");
if (if3.good()) {
std::getline(if3, addr);
closedir(dir);
LOG(logDEBUG4) << "Using " << ent->d_name << "'s address";
return addr;
}
}
}
closedir(dir);
#else
char *mac_addr = (char*)malloc(17);
IP_ADAPTER_INFO AdapterInfo[16];
DWORD dwBufLen = sizeof(AdapterInfo);
GetAdaptersInfo(AdapterInfo, &dwBufLen);
if (GetAdaptersInfo(AdapterInfo, &dwBufLen) != NO_ERROR) {
LOG(logERROR) << "GetAdaptersInfo failed!";
return "";
}
PIP_ADAPTER_INFO pAdapterInfo = AdapterInfo;
do {
sprintf(mac_addr, "%02X:%02X:%02X:%02X:%02X:%02X",
pAdapterInfo->Address[0], pAdapterInfo->Address[1],
pAdapterInfo->Address[2], pAdapterInfo->Address[3],
pAdapterInfo->Address[4], pAdapterInfo->Address[5]);
//printf("Address: %s, mac: %s\n", pAdapterInfo->IpAddressList.IpAddress.String, mac_addr);
addr = std::string(mac_addr);
break;
pAdapterInfo = pAdapterInfo->Next;
} while (pAdapterInfo);
#endif
return addr;
}
val debug(val ctx, val bindings, val data, val line, val pos, val base)
{
uses_or2;
val form = ctx_form(ctx);
val rl = source_loc(form);
cons_bind (lineno, file, rl);
if (consp(data))
data = car(data);
else if (data == t)
data = nil;
if (!step_mode && !memqual(rl, breakpoints)
&& (debug_depth > next_depth))
{
return nil;
} else {
val print_form = t;
val print_data = t;
for (;;) {
val input, command;
if (print_form) {
format(std_debug, lit("stopped at line ~d of ~a\n"),
lineno, file, nao);
format(std_debug, lit("form: ~s\n"), form, nao);
format(std_debug, lit("depth: ~s\n"), num(debug_depth), nao);
print_form = nil;
}
if (print_data) {
int lim = cols * 8;
if (data && pos) {
val half = num((lim - 8) / 2);
val full = num((lim - 8));
val prefix, suffix;
if (lt(pos, half)) {
prefix = sub_str(data, zero, pos);
suffix = sub_str(data, pos, full);
} else {
prefix = sub_str(data, minus(pos, half), pos);
suffix = sub_str(data, pos, plus(pos, half));
}
format(std_debug, lit("data (~d:~d):\n~s . ~s\n"),
line, plus(pos, base), prefix, suffix, nao);
} else if (data && length_str_ge(data, num(lim - 2))) {
format(std_debug, lit("data (~d):\n~s...~s\n"), line,
sub_str(data, zero, num(lim/2 - 4)),
sub_str(data, num(-(lim/2 - 3)), t), nao);
} else {
format(std_debug, lit("data (~d):\n~s\n"), line, data, nao);
}
print_data = nil;
}
format(std_debug, lit("txr> "), nao);
flush_stream(std_debug);
input = split_str_set(or2(get_line(std_input), lit("q")), lit("\t "));
command = if3(equal(first(input), null_string),
or2(last_command, lit("")), first(input));
last_command = command;
if (equal(command, lit("?")) || equal(command, lit("h"))) {
help(std_debug);
continue;
} else if (equal(command, null_string)) {
continue;
} else if (equal(command, lit("c"))) {
step_mode = 0;
next_depth = -1;
return nil;
} else if (equal(command, lit("s"))) {
step_mode = 1;
return nil;
} else if (equal(command, lit("n"))) {
step_mode = 0;
next_depth = debug_depth;
return nil;
} else if (equal(command, lit("f"))) {
step_mode = 0;
next_depth = debug_depth - 1;
return nil;
} else if (equal(command, lit("v"))) {
show_bindings(bindings, std_debug);
} else if (equal(command, lit("o"))) {
print_form = t;
} else if (equal(command, lit("i"))) {
print_data = t;
} else if (equal(command, lit("b")) || equal(command, lit("d")) ||
equal(command, lit("g")))
{
if (!rest(input)) {
format(std_debug, lit("~s needs arguments\n"), command, nao);
continue;
} else {
val n = int_str(second(input), num(10));
val l = cons(n, or2(third(input), file));
if (!n) {
format(std_debug, lit("~s needs <line> [ <file> ]\n"),
command, nao);
continue;
}
if (equal(command, lit("b"))) {
breakpoints = remqual(l, breakpoints, nil);
push(l, &breakpoints);
} else if (equal(command, lit("d"))) {
val breakpoints_old = breakpoints;
breakpoints = remqual(l, breakpoints, nil);
if (breakpoints == breakpoints_old)
format(std_debug, lit("no such breakpoint\n"), nao);
} else {
opt_loglevel = c_num(n);
}
}
} else if (equal(command, lit("l"))) {
format(std_debug, lit("breakpoints: ~s\n"), breakpoints, nao);
} else if (equal(command, lit("w"))) {
format(std_debug, 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) {
if (iter->db.ub_p_a_pairs)
format(std_debug, lit("(~s ~s ~s)\n"), iter->db.func,
args_copy_to_list(iter->db.args),
iter->db.ub_p_a_pairs, nao);
else
format(std_debug, lit("(~s ~s)\n"), iter->db.func,
args_copy_to_list(iter->db.args), nao);
}
}
}
} else if (equal(command, lit("q"))) {
uw_throwf(debug_quit_s, lit("terminated via debugger"), nao);
} else {
format(std_debug, lit("unrecognized command: ~a\n"), command, nao);
}
}
return nil;
}
}
