aboutsummaryrefslogtreecommitdiff
path: root/src-old/debugger.c
diff options
context:
space:
mode:
Diffstat (limited to 'src-old/debugger.c')
-rw-r--r--src-old/debugger.c229
1 files changed, 0 insertions, 229 deletions
diff --git a/src-old/debugger.c b/src-old/debugger.c
deleted file mode 100644
index f15478a..0000000
--- a/src-old/debugger.c
+++ /dev/null
@@ -1,229 +0,0 @@
-/*
- * print.c
- *
- * Copyright © 2017-2018 Thomas White <taw@bitwiz.org.uk>
- *
- * This file is part of Colloquium.
- *
- * Colloquium is free software: you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program. If not, see <http://www.gnu.org/licenses/>.
- *
- */
-
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-
-#include <gtk/gtk.h>
-#include <assert.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include "presentation.h"
-#include "narrative_window.h"
-#include "render.h"
-#include "frame.h"
-#include "utils.h"
-
-
-#define MAX_DEBUG_RUNS (1024)
-
-struct debugwindow
-{
- GtkWidget *window;
- GtkWidget *drawingarea;
- struct frame *fr;
- guint timeout;
-};
-
-
-static void plot_hr(cairo_t *cr, double *ypos, double width)
-{
- cairo_move_to(cr, 10.0, *ypos+5.5);
- cairo_line_to(cr, width-20.0, *ypos+5.5);
- cairo_set_source_rgba(cr, 0.0, 0.0, 0.0, 1.0);
- cairo_set_line_width(cr, 1.0);
- cairo_stroke(cr);
- *ypos += 10.0;
-}
-
-
-static void plot_text(cairo_t *cr, double *ypos, PangoFontDescription *fontdesc,
- const char *tmp)
-{
- PangoLayout *layout;
- PangoRectangle ext;
-
- cairo_move_to(cr, 10.0, *ypos);
-
- layout = pango_cairo_create_layout(cr);
- pango_layout_set_text(layout, tmp, -1);
- pango_layout_set_font_description(layout, fontdesc);
-
- pango_layout_get_extents(layout, NULL, &ext);
- *ypos += ext.height/PANGO_SCALE;
-
- cairo_set_source_rgba(cr, 0.0, 0.0, 0.0, 1.0);
- pango_cairo_show_layout(cr, layout);
-
- g_object_unref(layout);
-}
-
-
-static const char *str_type(enum para_type t)
-{
- switch ( t ) {
-
- /* Text paragraph */
- case PARA_TYPE_TEXT : return "text";
-
- /* Callback paragraph */
- case PARA_TYPE_CALLBACK : return "callback";
-
- /* Unknown paragraph type */
- default : return "unknown";
- }
-}
-
-static void debug_text_para(Paragraph *para, cairo_t *cr, double *ypos,
- PangoFontDescription *fontdesc)
-{
- int i, nrun;
- char tmp[256];
-
- nrun = para_debug_num_runs(para);
- /* How many text runs */
- snprintf(tmp, 255, " %i runs", nrun);
- plot_text(cr, ypos, fontdesc, tmp);
-
- for ( i=0; i<nrun; i++ ) {
- SCBlock *scblock;
- if ( para_debug_run_info(para, i, &scblock) ) {
- /* Failed to get debug info for paragraph */
- plot_text(cr, ypos, fontdesc, "Error");
- } else {
- snprintf(tmp, 255, " Run %i: SCBlock %p", i, scblock);
- plot_text(cr, ypos, fontdesc, tmp);
- }
- }
-
- snprintf(tmp, 255, "Newline at end: %p",
- para_debug_get_newline_at_end(para));
- plot_text(cr, ypos, fontdesc, tmp);
-}
-
-
-static gboolean dbg_draw_sig(GtkWidget *da, cairo_t *cr, struct debugwindow *dbgw)
-{
- int width, height;
- char tmp[256];
- PangoFontDescription *fontdesc;
- int i;
- double ypos = 10.0;
-
- /* Background */
- width = gtk_widget_get_allocated_width(GTK_WIDGET(da));
- height = gtk_widget_get_allocated_height(GTK_WIDGET(da));
- cairo_set_source_rgba(cr, 1.0, 0.8, 0.8, 1.0);
- cairo_rectangle(cr, 0.0, 0.0, width, height);
- cairo_fill(cr);
-
- if ( dbgw->fr == NULL ) return FALSE;
-
- fontdesc = pango_font_description_new();
- pango_font_description_set_family_static(fontdesc, "Serif");
- pango_font_description_set_style(fontdesc, PANGO_STYLE_ITALIC);
- pango_font_description_set_absolute_size(fontdesc, 15*PANGO_SCALE);
-
- snprintf(tmp, 255, "Frame %p has %i paragraphs", dbgw->fr, dbgw->fr->n_paras);
- plot_text(cr, &ypos, fontdesc, tmp);
-
- for ( i=0; i<dbgw->fr->n_paras; i++ ) {
-
- enum para_type t = para_type(dbgw->fr->paras[i]);
- SCBlock *scblock = para_scblock(dbgw->fr->paras[i]);
-
- plot_hr(cr, &ypos, width);
- snprintf(tmp, 255, "Paragraph %i: type %s", i, str_type(t));
- plot_text(cr, &ypos, fontdesc, tmp);
-
- snprintf(tmp, 255, "SCBlock %p", scblock);
- plot_text(cr, &ypos, fontdesc, tmp);
-
- if ( t == PARA_TYPE_TEXT ) {
- debug_text_para(dbgw->fr->paras[i], cr, &ypos, fontdesc);
- }
-
- plot_text(cr, &ypos, fontdesc, "");
-
- }
-
- pango_font_description_free(fontdesc);
-
- return FALSE;
-}
-
-
-static gboolean queue_redraw(void *vp)
-{
- struct debugwindow *dbgw = vp;
- gint w, h;
- w = gtk_widget_get_allocated_width(GTK_WIDGET(dbgw->drawingarea));
- h = gtk_widget_get_allocated_height(GTK_WIDGET(dbgw->drawingarea));
- gtk_widget_queue_draw_area(GTK_WIDGET(dbgw->drawingarea), 0, 0, w, h);
- return TRUE;
-}
-
-
-static gboolean close_sig(GtkWidget *widget, GdkEvent *event, struct debugwindow *dbgw)
-{
- g_source_remove(dbgw->timeout);
- free(dbgw);
- return FALSE;
-}
-
-
-void open_debugger(struct frame *fr)
-{
- struct debugwindow *dbgw;
- GtkWidget *scroll;
-
- if ( fr == NULL ) return;
-
- dbgw = calloc(1, sizeof(struct debugwindow));
- if ( dbgw == NULL ) return;
-
- dbgw->fr = fr;
-
- dbgw->window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
- gtk_window_set_role(GTK_WINDOW(dbgw->window), "debugger");
- gtk_window_set_title(GTK_WINDOW(dbgw->window), "Colloquium debugger");
-
- scroll = gtk_scrolled_window_new(NULL, NULL);
- gtk_container_add(GTK_CONTAINER(dbgw->window), scroll);
-
- dbgw->drawingarea = gtk_drawing_area_new();
- gtk_container_add(GTK_CONTAINER(scroll), dbgw->drawingarea);
- gtk_widget_set_size_request(dbgw->drawingarea, 100, 8000);
-
- g_signal_connect(G_OBJECT(dbgw->drawingarea), "draw",
- G_CALLBACK(dbg_draw_sig), dbgw);
-
- g_signal_connect(G_OBJECT(dbgw->window), "delete-event",
- G_CALLBACK(close_sig), dbgw);
-
- dbgw->timeout = g_timeout_add(1000, queue_redraw, dbgw);
-
- gtk_widget_show_all(dbgw->window);
-}
generated by cgit v1.2.3 (git 2.25.1) at 2024-05-02 02:43:12 +0000