static void search_and_print(HifSack *sack, const char *name)
{
HyQuery q = hy_query_create(sack);
printf("found packages by name:\n");
hy_query_filter(q, HY_PKG_NAME, HY_EQ, name);
execute_print(sack, q, 0);
hy_query_clear(q);
printf("\nfound packages by substring of summary:\n");
hy_query_filter(q, HY_PKG_SUMMARY, HY_SUBSTR, name);
execute_print(sack, q, 0);
hy_query_free(q);
}
static bool print_exp(struct luadebug_debugger *session, const char *option)
{
if (!option) {
return false;
}
int status;
char *print_line = malloc(7 + strlen(option) + 1);
strcpy(print_line, "return ");
strcpy(print_line+7, option);
status = luaL_loadbuffer(session->L, print_line, strlen(print_line), "stdin");
if (status) {
session->user->print(session->user, RED "%s\n" CLEAR, lua_tostring(session->L, -1));
lua_pop(session->L, 1);
}
else {
lua_pushvalue(session->L, session->env_index);
#if HAKA_LUA52
lua_setupvalue(session->L, -2, 1);
#else
lua_setfenv(session->L, -2);
#endif
execute_print(session->L, session->user, true, NULL);
lua_pop(session->L, 1);
}
free(print_line);
return false;
}
static void search_filter_repos(HifSack *sack, const char *name) {
HyQuery q = hy_query_create(sack);
hy_query_filter(q, HY_PKG_NAME, HY_EQ, name);
hy_query_filter(q, HY_PKG_REPONAME, HY_NEQ, HY_SYSTEM_REPO_NAME);
execute_print(sack, q, 0);
hy_query_free(q);
}
static void
search_filter_files(HifSack *sack, const char *name)
{
HyQuery q = hy_query_create(sack);
hy_query_filter(q, HY_PKG_FILE, HY_EQ, name);
execute_print(sack, q, 0);
hy_query_free(q);
}
static void search_provides(HifSack *sack, const char *name,
const char *version)
{
HyQuery q = hy_query_create(sack);
hy_query_filter_provides(q, HY_GT, name, version);
execute_print(sack, q, 0);
hy_query_free(q);
}
static void search_anded(HifSack *sack, const char *name_substr,
const char *summary_substr)
{
HyQuery q = hy_query_create(sack);
hy_query_filter(q, HY_PKG_NAME, HY_SUBSTR, name_substr);
hy_query_filter(q, HY_PKG_SUMMARY, HY_SUBSTR, summary_substr);
execute_print(sack, q, 0);
hy_query_free(q);
}
static void updatables_query_name(HifSack *sack, const char *name)
{
HyQuery q = hy_query_create(sack);
hy_query_filter(q, HY_PKG_NAME, HY_EQ, name);
#if 0 // must stil work if enabled
hy_query_filter(q, HY_PKG_REPONAME, HY_NEQ, HY_SYSTEM_REPO_NAME);
#endif
hy_query_filter_upgrades(q, 1);
execute_print(sack, q, 0);
hy_query_free(q);
}
static void obsoletes(HifSack *sack)
{
HyQuery q = hy_query_create(sack);
hy_query_filter(q, HY_PKG_REPONAME, HY_EQ, HY_SYSTEM_REPO_NAME);
HifPackageSet *installed_pkgs = hy_query_run_set(q);
hy_query_free(q);
q = hy_query_create(sack);
hy_query_filter_package_in(q, HY_PKG_OBSOLETES, HY_EQ, installed_pkgs);
g_object_unref(installed_pkgs);
execute_print(sack, q, 1);
hy_query_free(q);
}
void luadebug_interactive_enter(struct lua_State *L, const char *single, const char *multi,
const char *msg)
{
char *line, *full_line = NULL;
bool multiline = false;
bool stop = false;
struct luadebug_interactive session;
{
mutex_lock(¤t_user_mutex);
session.user = current_user;
if (!session.user) {
message(HAKA_LOG_ERROR, L"interactive", L"no input/output handler");
mutex_unlock(¤t_user_mutex);
return;
}
luadebug_user_addref(session.user);
mutex_unlock(¤t_user_mutex);
}
mutex_lock(&active_session_mutex);
if (!single) single = "> ";
if (!multi) multi = ">> ";
session.user->completion = completion;
if (!session.user->start(session.user, "haka")) {
on_user_error();
luadebug_user_release(&session.user);
mutex_unlock(&active_session_mutex);
return;
}
current_session = &session;
LUA_STACK_MARK(L);
session.user->print(session.user, GREEN "entering interactive session" CLEAR ": %s\n", msg);
session.L = L;
session.env_index = capture_env(L, 1);
assert(session.env_index != -1);
session.complete.stack_env = session.env_index;
while (!stop && (line = session.user->readline(session.user, multiline ? multi : single))) {
int status = -1;
bool is_return = false;
char *current_line;
if (multiline) {
const size_t full_line_size = strlen(full_line);
assert(full_line);
full_line = realloc(full_line, full_line_size + 1 + strlen(line) + 1);
full_line[full_line_size] = ' ';
strcpy(full_line + full_line_size + 1, line);
current_line = full_line;
}
else {
session.user->addhistory(session.user, line);
current_line = line;
}
while (*current_line == ' ' || *current_line == '\t') {
++current_line;
}
is_return = (strncmp(current_line, "return ", 7) == 0) ||
(strcmp(current_line, "return") == 0);
if (!multiline && !is_return) {
char *return_line = malloc(7 + strlen(current_line) + 1);
strcpy(return_line, "return ");
strcpy(return_line+7, current_line);
status = luaL_loadbuffer(L, return_line, strlen(return_line), "stdin");
if (status) {
lua_pop(L, 1);
status = -1;
}
free(return_line);
}
if (status == -1) {
status = luaL_loadbuffer(L, current_line, strlen(current_line), "stdin");
}
multiline = false;
/* Change the chunk environment */
lua_pushvalue(L, session.env_index);
lua_setfenv(L, -2);
if (status == LUA_ERRSYNTAX) {
const char *message;
const int k = sizeof(EOF_MARKER) / sizeof(char) - 1;
size_t n;
message = lua_tolstring(L, -1, &n);
if (n > k &&
!strncmp(message + n - k, EOF_MARKER, k) &&
strlen(line) > 0) {
multiline = true;
} else {
session.user->print(session.user, RED "%s" CLEAR "\n", lua_tostring(L, -1));
}
lua_pop(L, 1);
}
else if (status == LUA_ERRMEM) {
session.user->print(session.user, RED "%s" CLEAR "\n", lua_tostring(L, -1));
lua_pop(L, 1);
}
else {
execute_print(L, session.user);
lua_pop(L, 1);
if (is_return) {
stop = true;
}
}
if (!multiline) {
free(full_line);
full_line = NULL;
}
else if (!full_line) {
full_line = strdup(line);
}
free(line);
}
free(full_line);
session.user->print(session.user, "\n");
session.user->print(session.user, GREEN "continue" CLEAR "\n");
lua_pop(L, 1);
LUA_STACK_CHECK(L, 0);
if (!session.user->stop(session.user)) {
on_user_error();
}
luadebug_user_release(&session.user);
current_session = NULL;
mutex_unlock(&active_session_mutex);
}
