added gtk-main.c
This commit is contained in:
hyunghwan.chung
parent
3eeff592ed
commit
7677b55db3
433
moo/bin/gtk-main.c
Normal file
433
moo/bin/gtk-main.c
Normal file
@ -0,0 +1,433 @@
|
||||
/*
|
||||
* EXPERIMENTAL CODE TO DEMONSTRATE HOW TO CREATE A GUI LOG CONSOLE.
|
||||
* The purpose of this application is not to create a full gui environment.
|
||||
* I just want to create a autonomous gui log console like the text terminal.
|
||||
*
|
||||
* 1. create a general program that reads from a pipe and show contents.
|
||||
* - the moo's log write doesn't need to be modified.
|
||||
*
|
||||
*
|
||||
* 2. override the log_write callback to call the gtk text output gui function.
|
||||
* not possible to use moo as a main loop as gtk doesn't expose the event loop file descriptor
|
||||
* must use thread. the thread can't make a gui call.
|
||||
*
|
||||
* 3. execute moo when idle?
|
||||
* need to break down moo_invoke() to smaller pieces
|
||||
* no looping in moo_invoke(). it should be made to allow stepping from the caller side.
|
||||
*/
|
||||
|
||||
#include <gtk/gtk.h>
|
||||
#include <moo-std.h>
|
||||
#include <moo-utl.h>
|
||||
#include <string.h>
|
||||
|
||||
GtkWidget* log_view = NULL;
|
||||
GThread* moo_thread = NULL;
|
||||
moo_t* moo_vm = NULL;
|
||||
|
||||
/* ========================================================================= */
|
||||
|
||||
static void print_syntax_error (moo_t* moo, const char* main_src_file)
|
||||
{
|
||||
moo_synerr_t synerr;
|
||||
|
||||
moo_getsynerr (moo, &synerr);
|
||||
|
||||
moo_logbfmt (moo, MOO_LOG_STDERR, "ERROR: ");
|
||||
if (synerr.loc.file)
|
||||
{
|
||||
moo_logbfmt (moo, MOO_LOG_STDERR, "%js", synerr.loc.file);
|
||||
}
|
||||
else
|
||||
{
|
||||
moo_logbfmt (moo, MOO_LOG_STDERR, "%s", main_src_file);
|
||||
}
|
||||
|
||||
moo_logbfmt (moo, MOO_LOG_STDERR, "[%zu,%zu] %js",
|
||||
synerr.loc.line, synerr.loc.colm,
|
||||
(moo_geterrmsg(moo) != moo_geterrstr(moo)? moo_geterrmsg(moo): moo_geterrstr(moo))
|
||||
);
|
||||
|
||||
if (synerr.tgt.len > 0)
|
||||
{
|
||||
moo_logbfmt (moo, MOO_LOG_STDERR, " - %.*js", synerr.tgt.len, synerr.tgt.ptr);
|
||||
}
|
||||
|
||||
moo_logbfmt (moo, MOO_LOG_STDERR, "\n");
|
||||
}
|
||||
|
||||
struct log_data_t
|
||||
{
|
||||
GtkTextBuffer *buffer;
|
||||
moo_bch_t* ptr;
|
||||
moo_oow_t len;
|
||||
};
|
||||
|
||||
static gboolean append_log_textbuffer(struct log_data_t *data)
|
||||
{
|
||||
gtk_text_buffer_insert_at_cursor(data->buffer, data->ptr, data->len);
|
||||
g_free (data->ptr);
|
||||
g_free(data);
|
||||
return G_SOURCE_REMOVE;
|
||||
}
|
||||
|
||||
void write_log (GtkWidget* buffer, const moo_bch_t* ptr, moo_oow_t len)
|
||||
{
|
||||
/* cannot call gtk_text_buffer_insert_at_cursor() in a non-GUI thread.
|
||||
* use gdk_threads_add_idle() to append the task. i don't like it. */
|
||||
struct log_data_t* data = g_new0(struct log_data_t, 1);
|
||||
data->ptr = g_strndup(ptr, len);
|
||||
data->len = len;
|
||||
data->buffer = GTK_TEXT_BUFFER(buffer);
|
||||
gdk_threads_add_idle(append_log_textbuffer, data);
|
||||
}
|
||||
|
||||
static void log_write (moo_t* moo, moo_bitmask_t mask, const moo_ooch_t* msg, moo_oow_t len)
|
||||
{
|
||||
GtkWidget* buffer;
|
||||
moo_bch_t buf[256];
|
||||
moo_oow_t ucslen, bcslen, msgidx;
|
||||
moo_cmgr_t* log_cmgr = moo_get_utf8_cmgr();
|
||||
int n;
|
||||
|
||||
time_t now;
|
||||
#if defined(MOO_OOCH_IS_UCH)
|
||||
char ts[32 * MOO_BCSIZE_MAX];
|
||||
#else
|
||||
char ts[32];
|
||||
#endif
|
||||
size_t tslen;
|
||||
struct tm tm, *tmp;
|
||||
|
||||
buffer = gtk_text_view_get_buffer(GTK_TEXT_VIEW(log_view));
|
||||
|
||||
now = time(MOO_NULL);
|
||||
#if defined(_WIN32)
|
||||
tmp = localtime(&now);
|
||||
tslen = strftime(ts, sizeof(ts), "%Y-%m-%d %H:%M:%S %z ", tmp);
|
||||
if (tslen == 0)
|
||||
{
|
||||
tslen = sprintf(ts, "%04d-%02d-%02d %02d:%02d:%02d ", tmp->tm_year + 1900, tmp->tm_mon + 1, tmp->tm_mday, tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
|
||||
}
|
||||
#elif defined(__OS2__)
|
||||
#if defined(__WATCOMC__)
|
||||
tmp = _localtime(&now, &tm);
|
||||
#else
|
||||
tmp = localtime(&now);
|
||||
#endif
|
||||
|
||||
#if defined(__BORLANDC__)
|
||||
/* the borland compiler doesn't handle %z properly - it showed 00 all the time */
|
||||
tslen = strftime(ts, sizeof(ts), "%Y-%m-%d %H:%M:%S %Z ", tmp);
|
||||
#else
|
||||
tslen = strftime(ts, sizeof(ts), "%Y-%m-%d %H:%M:%S %z ", tmp);
|
||||
#endif
|
||||
if (tslen == 0)
|
||||
{
|
||||
tslen = sprintf(ts, "%04d-%02d-%02d %02d:%02d:%02d ", tmp->tm_year + 1900, tmp->tm_mon + 1, tmp->tm_mday, tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
|
||||
}
|
||||
|
||||
#elif defined(__DOS__)
|
||||
tmp = localtime(&now);
|
||||
/* since i know that %z/%Z is not available in strftime, i switch to sprintf immediately */
|
||||
tslen = sprintf(ts, "%04d-%02d-%02d %02d:%02d:%02d ", tmp->tm_year + 1900, tmp->tm_mon + 1, tmp->tm_mday, tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
|
||||
#else
|
||||
#if defined(HAVE_LOCALTIME_R)
|
||||
tmp = localtime_r(&now, &tm);
|
||||
#else
|
||||
tmp = localtime(&now);
|
||||
#endif
|
||||
|
||||
#if defined(HAVE_STRFTIME_SMALL_Z)
|
||||
tslen = strftime(ts, sizeof(ts), "%Y-%m-%d %H:%M:%S %z ", tmp);
|
||||
#else
|
||||
tslen = strftime(ts, sizeof(ts), "%Y-%m-%d %H:%M:%S %Z ", tmp);
|
||||
#endif
|
||||
if (tslen == 0)
|
||||
{
|
||||
tslen = sprintf(ts, "%04d-%02d-%02d %02d:%02d:%02d ", tmp->tm_year + 1900, tmp->tm_mon + 1, tmp->tm_mday, tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
|
||||
}
|
||||
#endif
|
||||
|
||||
#if defined(MOO_OOCH_IS_UCH)
|
||||
if (moo_getcmgr(moo) != log_cmgr)
|
||||
{
|
||||
moo_uch_t tsu[32];
|
||||
moo_oow_t tsulen;
|
||||
|
||||
/* the timestamp is likely to contain simple ascii characters only.
|
||||
* conversion is not likely to fail regardless of encodings.
|
||||
* so i don't check errors here */
|
||||
tsulen = MOO_COUNTOF(tsu);
|
||||
moo_convbtooochars (moo, ts, &tslen, tsu, &tsulen);
|
||||
tslen = MOO_COUNTOF(ts);
|
||||
moo_conv_uchars_to_bchars_with_cmgr (tsu, &tsulen, ts, &tslen, log_cmgr);
|
||||
}
|
||||
#endif
|
||||
|
||||
write_log (buffer, ts, tslen);
|
||||
|
||||
#if defined(MOO_OOCH_IS_UCH)
|
||||
msgidx = 0;
|
||||
while (len > 0)
|
||||
{
|
||||
ucslen = len;
|
||||
bcslen = MOO_COUNTOF(buf);
|
||||
|
||||
/*n = moo_convootobchars(moo, &msg[msgidx], &ucslen, buf, &bcslen);*/
|
||||
n = moo_conv_uchars_to_bchars_with_cmgr(&msg[msgidx], &ucslen, buf, &bcslen, log_cmgr);
|
||||
if (n == 0 || n == -2)
|
||||
{
|
||||
/* n = 0:
|
||||
* converted all successfully
|
||||
* n == -2:
|
||||
* buffer not sufficient. not all got converted yet.
|
||||
* write what have been converted this round. */
|
||||
|
||||
MOO_ASSERT (moo, ucslen > 0); /* if this fails, the buffer size must be increased */
|
||||
|
||||
/* attempt to write all converted characters */
|
||||
write_log (buffer, buf, bcslen);
|
||||
|
||||
if (n == 0) break;
|
||||
else
|
||||
{
|
||||
msgidx += ucslen;
|
||||
len -= ucslen;
|
||||
}
|
||||
}
|
||||
else if (n <= -1)
|
||||
{
|
||||
/* conversion error but i just stop here but don't treat it as a hard error. */
|
||||
break;
|
||||
}
|
||||
}
|
||||
#else
|
||||
write_log (buffer, msg, len);
|
||||
#endif
|
||||
}
|
||||
|
||||
static gboolean clear_moo_thread (gpointer user_data)
|
||||
{
|
||||
if (moo_thread)
|
||||
{
|
||||
g_thread_join (moo_thread);
|
||||
moo_thread = NULL;
|
||||
moo_vm = NULL;
|
||||
}
|
||||
return G_SOURCE_REMOVE;
|
||||
}
|
||||
/* ========================================================================= */
|
||||
|
||||
#define MIN_MEMSIZE 2048000ul
|
||||
|
||||
gpointer moo_thread_func (gpointer ctx)
|
||||
{
|
||||
static moo_ooch_t str_my_object[] = { 'M', 'y', 'O', 'b','j','e','c','t' }; /*TODO: make this an argument */
|
||||
static moo_ooch_t str_main[] = { 'm', 'a', 'i', 'n' };
|
||||
|
||||
moo_t* moo;
|
||||
moo_cfgstd_t cfg;
|
||||
moo_errinf_t errinf;
|
||||
|
||||
moo_iostd_t in;
|
||||
|
||||
moo_oocs_t objname;
|
||||
moo_oocs_t mthname;
|
||||
int i, xret;
|
||||
|
||||
memset (&cfg, 0, MOO_SIZEOF(cfg));
|
||||
cfg.type = MOO_CFGSTD_OPTB;
|
||||
cfg.cmgr = moo_get_utf8_cmgr();
|
||||
cfg.input_cmgr = cfg.cmgr;
|
||||
cfg.log_cmgr = cfg.cmgr;
|
||||
cfg.u.optb.log = "/dev/stderr,warn+";
|
||||
cfg.log_write = log_write;
|
||||
|
||||
moo = moo_openstd(0, &cfg, &errinf);
|
||||
if (!moo)
|
||||
{
|
||||
#if defined(MOO_OOCH_IS_BCH)
|
||||
fprintf (stderr, "ERROR: cannot open moo - [%d] %s\n", (int)errinf.num, errinf.msg);
|
||||
#elif (MOO_SIZEOF_UCH_T == MOO_SIZEOF_WCHAR_T)
|
||||
fprintf (stderr, "ERROR: cannot open moo - [%d] %ls\n", (int)errinf.num, errinf.msg);
|
||||
#else
|
||||
moo_bch_t bcsmsg[MOO_COUNTOF(errinf.msg) * 2]; /* error messages may get truncated */
|
||||
moo_oow_t wcslen, bcslen;
|
||||
bcslen = MOO_COUNTOF(bcsmsg);
|
||||
moo_conv_ucstr_to_utf8 (errinf.msg, &wcslen, bcsmsg, &bcslen);
|
||||
fprintf (stderr, "ERROR: cannot open moo - [%d] %s\n", (int)errinf.num, bcsmsg);
|
||||
#endif
|
||||
return -1;
|
||||
}
|
||||
|
||||
{
|
||||
moo_oow_t tab_size;
|
||||
|
||||
tab_size = 5000;
|
||||
moo_setoption (moo, MOO_OPTION_SYMTAB_SIZE, &tab_size);
|
||||
tab_size = 5000;
|
||||
moo_setoption (moo, MOO_OPTION_SYSDIC_SIZE, &tab_size);
|
||||
tab_size = 600;
|
||||
moo_setoption (moo, MOO_OPTION_PROCSTK_SIZE, &tab_size);
|
||||
}
|
||||
|
||||
if (moo_ignite(moo, MIN_MEMSIZE) <= -1)
|
||||
{
|
||||
moo_logbfmt (moo, MOO_LOG_STDERR, "ERROR: cannot ignite moo - [%d] %js\n", moo_geterrnum(moo), moo_geterrstr(moo));
|
||||
moo_close (moo);
|
||||
return -1;
|
||||
}
|
||||
|
||||
|
||||
memset (&in, 0, MOO_SIZEOF(in));
|
||||
#if 1
|
||||
in.type = MOO_IOSTD_FILEB;
|
||||
in.u.fileb.path = "../../kernel/test-001.moo";
|
||||
#else
|
||||
moo_uch_t tmp[1000];
|
||||
moo_oow_t bcslen, ucslen;
|
||||
ucslen = MOO_COUNTOF(tmp);
|
||||
moo_conv_utf8_to_ucstr("../../kernel/test-001.moo", &bcslen, tmp, &ucslen);
|
||||
in.type = MOO_IOSTD_FILEU;
|
||||
in.u.fileu.path = tmp;
|
||||
#endif
|
||||
in.cmgr = MOO_NULL;
|
||||
|
||||
/*compile:*/
|
||||
if (moo_compilestd(moo, &in, 1) <= -1)
|
||||
{
|
||||
if (moo->errnum == MOO_ESYNERR)
|
||||
{
|
||||
print_syntax_error (moo, in.u.fileb.path);
|
||||
}
|
||||
else
|
||||
{
|
||||
moo_logbfmt (moo, MOO_LOG_STDERR, "ERROR: cannot compile code - [%d] %js\n", moo_geterrnum(moo), moo_geterrmsg(moo));
|
||||
}
|
||||
|
||||
moo_close (moo);
|
||||
return -1;
|
||||
}
|
||||
|
||||
MOO_DEBUG0 (moo, "COMPILE OK. STARTING EXECUTION...\n");
|
||||
xret = 0;
|
||||
|
||||
|
||||
moo_start_ticker ();
|
||||
|
||||
moo_rcvtickstd (moo, 1);
|
||||
|
||||
objname.ptr = str_my_object;
|
||||
objname.len = 8;
|
||||
mthname.ptr = str_main;
|
||||
mthname.len = 4;
|
||||
if (moo_invoke(moo, &objname, &mthname) <= -1)
|
||||
{
|
||||
moo_logbfmt (moo, MOO_LOG_STDERR, "ERROR: cannot execute code - [%d] %js\n", moo_geterrnum(moo), moo_geterrmsg(moo));
|
||||
xret = -1;
|
||||
}
|
||||
|
||||
moo_stop_ticker ();
|
||||
|
||||
/*moo_dumpsymtab(moo);
|
||||
moo_dumpdic(moo, moo->sysdic, "System dictionary");*/
|
||||
|
||||
moo_close (moo);
|
||||
|
||||
gdk_threads_add_idle(clear_moo_thread, NULL);
|
||||
return xret;
|
||||
}
|
||||
|
||||
|
||||
static void start_moo (GtkWidget* widget, gpointer user_data)
|
||||
{
|
||||
if (!moo_thread)
|
||||
moo_thread = g_thread_new("moo", moo_thread_func, NULL);
|
||||
}
|
||||
|
||||
static void abort_moo ()
|
||||
{
|
||||
if (moo_vm) moo_abortstd (moo_vm);
|
||||
}
|
||||
|
||||
static void activate (GtkApplication *app, gpointer user_data)
|
||||
{
|
||||
/* Declare variables */
|
||||
GtkWidget *window;
|
||||
/*GtkWidget *log_view; */
|
||||
GtkWidget *scrolled_window;
|
||||
GtkWidget *button;
|
||||
GtkWidget* table;
|
||||
|
||||
GtkTextBuffer *buffer;
|
||||
|
||||
/* Create a window with a title, and a default size */
|
||||
window = gtk_application_window_new (app);
|
||||
gtk_window_set_title (GTK_WINDOW (window), "MOO LOGS");
|
||||
gtk_window_set_default_size (GTK_WINDOW (window), 720, 200);
|
||||
|
||||
|
||||
/* The text buffer represents the text being edited */
|
||||
buffer = gtk_text_buffer_new(NULL);
|
||||
|
||||
/* Text view is a widget in which can display the text buffer.
|
||||
* The line wrapping is set to break lines in between words.
|
||||
*/
|
||||
log_view = gtk_text_view_new_with_buffer(buffer);
|
||||
gtk_text_view_set_wrap_mode (GTK_TEXT_VIEW(log_view), GTK_WRAP_WORD);
|
||||
gtk_text_view_set_editable (GTK_TEXT_VIEW(log_view), FALSE);
|
||||
|
||||
/* Create the scrolled window. Usually NULL is passed for both parameters so
|
||||
* that it creates the horizontal/vertical adjustments automatically. Setting
|
||||
* the scrollbar policy to automatic allows the scrollbars to only show up
|
||||
* when needed.
|
||||
*/
|
||||
scrolled_window = gtk_scrolled_window_new (NULL, NULL);
|
||||
gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW(scrolled_window), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
|
||||
/* The function directly below is used to add children to the scrolled window
|
||||
* with scrolling capabilities (e.g log_view), otherwise,
|
||||
* gtk_scrolled_window_add_with_viewport() would have been used
|
||||
*/
|
||||
gtk_container_add (GTK_CONTAINER(scrolled_window), log_view);
|
||||
gtk_container_set_border_width (GTK_CONTAINER(scrolled_window), 5);
|
||||
|
||||
button = gtk_button_new_with_label("Start");
|
||||
g_signal_connect (button, "clicked", G_CALLBACK(start_moo), NULL);
|
||||
|
||||
|
||||
table = gtk_table_new(6, 2, FALSE);
|
||||
gtk_table_set_col_spacings(GTK_TABLE(table), 3);
|
||||
gtk_table_set_row_spacing(GTK_TABLE(table), 0, 3);
|
||||
|
||||
gtk_table_attach(GTK_TABLE(table), scrolled_window, 0, 2, 0, 4,
|
||||
GTK_FILL | GTK_EXPAND, GTK_FILL | GTK_EXPAND, 1, 1);
|
||||
gtk_table_attach(GTK_TABLE(table), button, 1, 2, 5, 6,
|
||||
0/*GTK_FILL | GTK_EXPAND*/, 0/*GTK_FILL | GTK_EXPAND*/, 0, 0);
|
||||
|
||||
gtk_container_add (GTK_CONTAINER(window), table);
|
||||
|
||||
/*g_signal_connect (window, "destroy", G_CALLBACK(quit_app), NULL);*/
|
||||
|
||||
|
||||
gtk_widget_show_all (window);
|
||||
}
|
||||
|
||||
|
||||
int main (int argc, char **argv)
|
||||
{
|
||||
GtkApplication *app;
|
||||
int status;
|
||||
|
||||
app = gtk_application_new ("moo.log", G_APPLICATION_FLAGS_NONE);
|
||||
g_signal_connect (app, "activate", G_CALLBACK(activate), NULL);
|
||||
status = g_application_run (G_APPLICATION(app), argc, argv);
|
||||
g_object_unref (app);
|
||||
|
||||
if (moo_thread)
|
||||
{
|
||||
g_thread_join (moo_thread);
|
||||
moo_thread = NULL;
|
||||
}
|
||||
return status;
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user