Skip to content

GitLab

GHC
GHC
Commit 024311c4 authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files
Options

Remove some more old, unused code

parent cc097a43
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 1051 deletions
rts/VisCallbacks.c deleted 100644 → 0
View file @ cc097a43
/* -----------------------------------------------------------------------------
*
* (c) The GHC Team 2000
*
* RTS GTK Front Panel (callbacks)
*
* ---------------------------------------------------------------------------*/
#ifdef RTS_GTK_FRONTPANEL
#include "Rts.h"
#include <gtk/gtk.h>
#include "VisCallbacks.h"
#include "VisWindow.h"
#include "VisSupport.h"
#include "FrontPanel.h"
void
on_cont_radio_clicked (GtkButton *button,
gpointer user_data)
{
update_mode = Continuous;
}
void
on_stop_before_radio_clicked (GtkButton *button,
gpointer user_data)
{
update_mode = BeforeGC;
}
void
on_stop_after_radio_clicked (GtkButton *button,
gpointer user_data)
{
update_mode = AfterGC;
}
void
on_stop_both_radio_clicked (GtkButton *button,
gpointer user_data)
{
update_mode = BeforeAfterGC;
}
void
on_stop_but_clicked (GtkButton *button,
gpointer user_data)
{
stop_now = TRUE;
}
void
on_continue_but_clicked (GtkButton *button,
gpointer user_data)
{
continue_now = TRUE;
}
void
on_quit_but_clicked (GtkButton *button,
gpointer user_data)
{
quit = TRUE;
}
#endif /* RTS_GTK_FRONTPANEL */
rts/VisCallbacks.h deleted 100644 → 0
View file @ cc097a43
#include <gtk/gtk.h>
void
on_cont_radio_clicked (GtkButton *button,
gpointer user_data);
void
on_stop_before_radio_clicked (GtkButton *button,
gpointer user_data);
void
on_stop_after_radio_clicked (GtkButton *button,
gpointer user_data);
void
on_stop_both_radio_clicked (GtkButton *button,
gpointer user_data);
void
on_stop_but_clicked (GtkButton *button,
gpointer user_data);
void
on_continue_but_clicked (GtkButton *button,
gpointer user_data);
void
on_quit_but_clicked (GtkButton *button,
gpointer user_data);
rts/VisSupport.c deleted 100644 → 0
View file @ cc097a43
/*
* DO NOT EDIT THIS FILE - it is generated by Glade.
*/
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
#include <string.h>
#include <stdio.h>
#include <gtk/gtk.h>
#include "VisSupport.h"
GtkWidget*
lookup_widget (GtkWidget *widget,
const gchar *widget_name)
{
GtkWidget *parent, *found_widget;
for (;;)
{
if (GTK_IS_MENU (widget))
parent = gtk_menu_get_attach_widget (GTK_MENU (widget));
else
parent = widget->parent;
if (!parent)
parent = (GtkWidget*) g_object_get_data (G_OBJECT (widget), "GladeParentKey");
if (parent == NULL)
break;
widget = parent;
}
found_widget = (GtkWidget*) g_object_get_data (G_OBJECT (widget),
widget_name);
if (!found_widget)
g_warning ("Widget not found: %s", widget_name);
return found_widget;
}
static GList *pixmaps_directories = NULL;
/* Use this function to set the directory containing installed pixmaps. */
void
add_pixmap_directory (const gchar *directory)
{
pixmaps_directories = g_list_prepend (pixmaps_directories,
g_strdup (directory));
}
/* This is an internally used function to find pixmap files. */
static gchar*
find_pixmap_file (const gchar *filename)
{
GList *elem;
/* We step through each of the pixmaps directory to find it. */
elem = pixmaps_directories;
while (elem)
{
gchar *pathname = g_strdup_printf ("%s%s%s", (gchar*)elem->data,
G_DIR_SEPARATOR_S, filename);
if (g_file_test (pathname, G_FILE_TEST_EXISTS))
return pathname;
g_free (pathname);
elem = elem->next;
}
return NULL;
}
/* This is an internally used function to create pixmaps. */
GtkWidget*
create_pixmap (GtkWidget *widget,
const gchar *filename)
{
gchar *pathname = NULL;
GtkWidget *pixmap;
if (!filename || !filename[0])
return gtk_image_new ();
pathname = find_pixmap_file (filename);
if (!pathname)
{
g_warning ("Couldn't find pixmap file: %s", filename);
return gtk_image_new ();
}
pixmap = gtk_image_new_from_file (pathname);
g_free (pathname);
return pixmap;
}
/* This is an internally used function to create pixmaps. */
GdkPixbuf*
create_pixbuf (const gchar *filename)
{
gchar *pathname = NULL;
GdkPixbuf *pixbuf;
GError *error = NULL;
if (!filename || !filename[0])
return NULL;
pathname = find_pixmap_file (filename);
if (!pathname)
{
g_warning ("Couldn't find pixmap file: %s", filename);
return NULL;
}
pixbuf = gdk_pixbuf_new_from_file (pathname, &error);
if (!pixbuf)
{
fprintf (stderr, "Failed to load pixbuf file: %s: %s\n",
pathname, error->message);
g_error_free (error);
}
g_free (pathname);
return pixbuf;
}
/* This is used to set ATK action descriptions. */
void
glade_set_atk_action_description (AtkAction *action,
const gchar *action_name,
const gchar *description)
{
gint n_actions, i;
n_actions = atk_action_get_n_actions (action);
for (i = 0; i < n_actions; i++)
{
if (!strcmp (atk_action_get_name (action, i), action_name))
atk_action_set_description (action, i, description);
}
}
rts/VisSupport.h deleted 100644 → 0
View file @ cc097a43
/*
* DO NOT EDIT THIS FILE - it is generated by Glade.
*/
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include <gtk/gtk.h>
/*
* Public Functions.
*/
/*
* This function returns a widget in a component created by Glade.
* Call it with the toplevel widget in the component (i.e. a window/dialog),
* or alternatively any widget in the component, and the name of the widget
* you want returned.
*/
GtkWidget* lookup_widget (GtkWidget *widget,
const gchar *widget_name);
/* Use this function to set the directory containing installed pixmaps. */
void add_pixmap_directory (const gchar *directory);
/*
* Private Functions.
*/
/* This is used to create the pixmaps used in the interface. */
GtkWidget* create_pixmap (GtkWidget *widget,
const gchar *filename);
/* This is used to create the pixbufs used in the interface. */
GdkPixbuf* create_pixbuf (const gchar *filename);
/* This is used to set ATK action descriptions. */
void glade_set_atk_action_description (AtkAction *action,
const gchar *action_name,
const gchar *description);
rts/VisWindow.c deleted 100644 → 0
View file @ cc097a43
This diff is collapsed.
rts/VisWindow.h deleted 100644 → 0
View file @ cc097a43
/*
* DO NOT EDIT THIS FILE - it is generated by Glade.
*/
GtkWidget* create_GHC_Front_Panel (void);
rts/ghc.mk
View file @ 024311c4
......@@ -29,7 +29,7 @@ all_rts : $(ALL_RTS_LIBS)
# -----------------------------------------------------------------------------
# Defining the sources
ALL_DIRS = hooks parallel sm eventlog
ALL_DIRS = hooks sm eventlog
ifeq "$(HostOS_CPP)" "mingw32"
ALL_DIRS += win32
......@@ -37,11 +37,7 @@ else
ALL_DIRS += posix
endif
EXCLUDED_SRCS :=
EXCLUDED_SRCS += rts/parallel/SysMan.c
EXCLUDED_SRCS += $(wildcard rts/Vis*.c)
rts_C_SRCS := $(filter-out $(EXCLUDED_SRCS),$(wildcard rts/*.c $(foreach dir,$(ALL_DIRS),rts/$(dir)/*.c)))
rts_C_SRCS := $(wildcard rts/*.c $(foreach dir,$(ALL_DIRS),rts/$(dir)/*.c))
rts_CMM_SRCS := $(wildcard rts/*.cmm)
# Don't compile .S files when bootstrapping a new arch
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment