diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/hgspy.c | 54 |
1 files changed, 27 insertions, 27 deletions
diff --git a/src/hgspy.c b/src/hgspy.c index 514149c..56988e9 100644 --- a/src/hgspy.c +++ b/src/hgspy.c @@ -31,8 +31,8 @@ #include <hieroglyph/hgdict.h> #include <hieroglyph/hgstack.h> #include <hieroglyph/hgvaluenode.h> -#include <libretto/vm.h> -#include <libretto/operator.h> +#include <hieroglyph/vm.h> +#include <hieroglyph/operator.h> #include "visualizer.h" @@ -50,7 +50,7 @@ struct _HieroGlyphSpy { GtkWidget *prompt; GtkUIManager *ui; GThread *vm_thread; - LibrettoVM *vm; + HgVM *vm; gchar *file; gint error; gchar *statementedit_buffer; @@ -98,22 +98,22 @@ _hgspy_ask_dialog(HgSpy *spy, } static gboolean -_hgspy_op_private_statementedit(LibrettoOperator *op, - gpointer data) +_hgspy_op_private_statementedit(HgOperator *op, + gpointer data) { - LibrettoVM *vm = data; + HgVM *vm = data; gboolean retval = FALSE; gsize ret; - HgFileObject *stdin = libretto_vm_get_io(vm, LB_IO_STDIN), *file; + HgFileObject *stdin = hg_vm_get_io(vm, VM_IO_STDIN), *file; gchar buffer[1025]; - HgMemPool *pool = libretto_vm_get_current_pool(vm); + HgMemPool *pool = hg_vm_get_current_pool(vm); HgValueNode *node; - HgStack *ostack = libretto_vm_get_ostack(vm); + HgStack *ostack = hg_vm_get_ostack(vm); while (1) { ret = hg_file_object_read(stdin, buffer, sizeof (gchar), 1024); if (ret == 0) { - _libretto_operator_set_error(vm, op, LB_e_undefinedfilename); + _hg_operator_set_error(vm, op, VM_e_undefinedfilename); break; } file = hg_file_object_new(pool, HG_FILE_TYPE_BUFFER, @@ -121,12 +121,12 @@ _hgspy_op_private_statementedit(LibrettoOperator *op, "%statementedit", buffer, -1); if (file == NULL) { - _libretto_operator_set_error(vm, op, LB_e_VMerror); + _hg_operator_set_error(vm, op, VM_e_VMerror); break; } HG_VALUE_MAKE_FILE (node, file); if (node == NULL) { - _libretto_operator_set_error(vm, op, LB_e_VMerror); + _hg_operator_set_error(vm, op, VM_e_VMerror); break; } retval = hg_stack_push(ostack, node); @@ -144,7 +144,7 @@ _hgspy_file_read_cb(gpointer user_data, { HgSpy *spy = user_data; gsize retval = 0; - HgStack *ostack = libretto_vm_get_ostack(spy->vm); + HgStack *ostack = hg_vm_get_ostack(spy->vm); gchar *prompt; /* depends on hg_init.ps. */ guint depth = hg_stack_depth(ostack) - 2; @@ -265,17 +265,17 @@ _hgspy_vm_thread(gpointer data) }; HgFileObject * volatile in, * volatile out; HgMemPool *pool; - LibrettoOperator *op; + HgOperator *op; HgValueNode *key, *val; HgDict *dict; gint fd; gchar *filename = NULL; GString *buffer; - libretto_vm_init(); - spy->vm = libretto_vm_new(LB_EMULATION_LEVEL_1); - pool = libretto_vm_get_current_pool(spy->vm); - dict = libretto_vm_get_dict_systemdict(spy->vm); + hg_vm_init(); + spy->vm = hg_vm_new(VM_EMULATION_LEVEL_1); + pool = hg_vm_get_current_pool(spy->vm); + dict = hg_vm_get_dict_systemdict(spy->vm); in = hg_file_object_new(pool, HG_FILE_TYPE_BUFFER_WITH_CALLBACK, HG_FILE_MODE_READ, @@ -288,19 +288,19 @@ _hgspy_vm_thread(gpointer data) "stdout with callback", &callback, spy); - libretto_vm_set_io(spy->vm, LB_IO_STDIN, in); - libretto_vm_set_io(spy->vm, LB_IO_STDOUT, out); - libretto_vm_set_io(spy->vm, LB_IO_STDERR, out); + hg_vm_set_io(spy->vm, VM_IO_STDIN, in); + hg_vm_set_io(spy->vm, VM_IO_STDOUT, out); + hg_vm_set_io(spy->vm, VM_IO_STDERR, out); - op = libretto_operator_new(pool, "...statementedit", _hgspy_op_private_statementedit); + op = hg_operator_new(pool, "...statementedit", _hgspy_op_private_statementedit); if (op == NULL) { g_warning("Failed to create an operator"); return NULL; } - key = libretto_vm_get_name_node(spy->vm, "...statementedit"); + key = hg_vm_get_name_node(spy->vm, "...statementedit"); HG_VALUE_MAKE_POINTER (val, op); if (val == NULL) { - libretto_vm_set_error(spy->vm, key, LB_e_VMerror, FALSE); + hg_vm_set_error(spy->vm, key, VM_e_VMerror, FALSE); } else { hg_object_executable((HgObject *)val); hg_dict_insert(pool, dict, key, val); @@ -319,12 +319,12 @@ _hgspy_vm_thread(gpointer data) } write(fd, buffer->str, buffer->len); close(fd); - libretto_vm_startjob(spy->vm, filename, TRUE); + hg_vm_startjob(spy->vm, filename, TRUE); unlink(filename); g_free(filename); hg_mem_free(spy->vm); spy->vm = NULL; - libretto_vm_finalize(); + hg_vm_finalize(); spy->destroyed = FALSE; return NULL; @@ -340,7 +340,7 @@ _hgspy_run_vm(HgSpy *spy, } g_thread_exit(spy->vm_thread); hg_mem_free(spy->vm); - libretto_vm_finalize(); + hg_vm_finalize(); } spy->file = g_strdup(file); spy->vm_thread = g_thread_create(_hgspy_vm_thread, spy, FALSE, NULL); |