seth
/
dmd_gtk
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
dmd_gtk/src/dmd_5620.c

759 lines
19 KiB
C
Raw Blame History

/*
* This file is part of the GTK+ DMD 5620 Emultor.
*
* Copyright 2018, Seth Morabito <web@loomcom.com>
*
* Permission is hereby granted, free of charge, to any person
* obtaining a copy of this software and associated documentation
* files (the "Software"), to deal in the Software without
* restriction, including without limitation the rights to use, copy,
* modify, merge, publish, distribute, sublicense, and/or sell copies
* of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be
* included in all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
* NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
* BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
* ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
* CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
* SOFTWARE.
*/
#include <gtk/gtk.h>
#include <gmodule.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netdb.h>
#include <arpa/inet.h>
#include <netinet/in.h>
#include <string.h>
#include <unistd.h>
#include <fcntl.h>
#include <errno.h>
#include <signal.h>
#include <stdio.h>
#include <math.h>
#include <time.h>
#include <stdint.h>
#include <pthread.h>
#include "version.h"
#include "dmd_5620.h"
static char VERSION_STRING[64];
static GtkWidget *main_window;
static char telnet_buf[90];
static cairo_surface_t *surface = NULL;
static GdkPixbuf *pixbuf = NULL;
static pthread_t dmd_thread;
static int sock = -1;
static telnet_t *telnet;
static GQueue *telnet_rx_queue;
static char *nvram = NULL;
static volatile gboolean dmd_thread_run = TRUE;
static volatile int sigint_count = 0;
/* Implement a very dumb protocol. */
static const telnet_telopt_t dmd_telopts[] = {
{ TELNET_TELOPT_ECHO, TELNET_WONT, TELNET_DONT },
{ TELNET_TELOPT_TTYPE, TELNET_WILL, TELNET_DONT },
{ TELNET_TELOPT_COMPRESS, TELNET_WONT, TELNET_DONT },
{ TELNET_TELOPT_COMPRESS2, TELNET_WONT, TELNET_DONT },
{ TELNET_TELOPT_ZMP, TELNET_WONT, TELNET_DONT },
{ TELNET_TELOPT_MSSP, TELNET_WONT, TELNET_DONT },
{ -1, 0, 0}
};
static void
int_handler(int _signal)
{
if (sigint_count) {
printf("Shutting down immediately. Good bye.\n");
exit(3);
}
printf("\nAttempting to shut down cleanly...\n");
if (main_window != NULL) {
gtk_window_close(GTK_WINDOW(main_window));
}
sigint_count++;
}
static int
tx_send(int sock, const char *buffer, size_t size)
{
int rs;
while (size > 0) {
if ((rs = send(sock, buffer, size, 0)) == -1) {
fprintf(stderr, "send() failed: %s\n", strerror(errno));
return 1;
} else if (rs == 0) {
fprintf(stderr, "send() unexpectedly returned 0\n");
return 1;
}
/* update pointer and size to see if we've got more to send */
buffer += rs;
size -= rs;
}
return 0;
}
static void
telnet_handler(telnet_t *telnet, telnet_event_t *ev, void *data)
{
switch (ev->type) {
case TELNET_EV_DATA:
if (ev->data.size) {
for (int i = 0; i < ev->data.size; i++) {
g_queue_push_head(telnet_rx_queue,
GUINT_TO_POINTER(ev->data.buffer[i]));
}
}
break;
case TELNET_EV_SEND:
if (tx_send(sock, ev->data.buffer, ev->data.size) != 0) {
/* TODO: It's probably best to offer a clean shutdown and/or
retry here, somehow. */
fprintf(stderr, "ERROR: Could not send telnet buffer!\n");
}
break;
case TELNET_EV_TTYPE:
if (ev->ttype.cmd == TELNET_TTYPE_SEND) {
telnet_ttype_is(telnet, "dmd");
}
break;
default:
break;
}
}
static int
telnet_connect(char *host, char *port)
{
struct addrinfo *ai;
struct addrinfo hints;
struct sockaddr_in addr;
int flags;
int rs;
/* Look up the host */
memset(&hints, 0, sizeof(hints));
hints.ai_family = AF_UNSPEC;
hints.ai_socktype = SOCK_STREAM;
if ((rs = getaddrinfo(host, port, &hints, &ai)) != 0) {
return -1;
}
/* Create the socket */
sock = socket(AF_INET, SOCK_STREAM, 0);
if (sock == -1) {
return -1;
}
/* Bind the server socket */
memset(&addr, 0, sizeof(addr));
addr.sin_family = AF_INET;
if (bind(sock, (struct sockaddr *)&addr, sizeof(addr)) == -1) {
close(sock);
return -1;
}
/* Connect */
if (connect(sock, ai->ai_addr, ai->ai_addrlen) == -1) {
close(sock);
return -1;
}
/* Free up the looup info */
freeaddrinfo(ai);
/* Set non-blocking IO */
flags = fcntl(sock, F_GETFL, 0);
if (fcntl(sock, F_SETFL, flags | O_NONBLOCK)) {
close(sock);
return -1;
}
telnet = telnet_init(dmd_telopts, telnet_handler, 0, &sock);
return 0;
}
int
telnet_disconnect()
{
if (sock < 0) {
return -1;
}
telnet_free(telnet);
shutdown(sock, 2);
close(sock);
sock = -1;
return 0;
}
static void
close_window()
{
uint8_t buf[NVRAM_SIZE];
FILE *fp;
if (dmd_get_nvram(buf) == 0) {
fp = fopen(nvram, "w+");
if (fp == NULL) {
fprintf(stderr, "Could not open %s for writing. Skipping\n", nvram);
} else {
if (fwrite(buf, NVRAM_SIZE, 1, fp) != 1) {
fprintf(stderr, "Could not write full NVRAM file %s\n", nvram);
}
}
}
if (surface) {
cairo_surface_destroy(surface);
}
telnet_disconnect();
dmd_thread_run = 0;
gtk_main_quit();
}
static gboolean
configure_handler(GtkWidget *widget, GdkEventConfigure *event, gpointer data)
{
if (surface) {
cairo_surface_destroy(surface);
}
surface = gdk_window_create_similar_surface(gtk_widget_get_window(widget),
CAIRO_CONTENT_COLOR,
gtk_widget_get_allocated_width(widget),
gtk_widget_get_allocated_height(widget));
pixbuf = gdk_pixbuf_new(GDK_COLORSPACE_RGB, TRUE, 8, WIDTH, HEIGHT);
return TRUE;
}
static gboolean
draw_handler(GtkWidget *widget, cairo_t *cr, gpointer data)
{
cairo_set_source_surface(cr, surface, 0, 0);
cairo_paint(cr);
return FALSE;
}
static gboolean
refresh_display(gpointer data)
{
uint8_t oport;
GtkWidget *widget = (GtkWidget *)data;
const struct color *fg_color;
const struct color *bg_color;
if (widget == NULL || !GTK_IS_WIDGET(widget)) {
return FALSE;
}
guchar *p = gdk_pixbuf_get_pixels(pixbuf);
uint32_t p_index = 0;
uint8_t *vram = dmd_video_ram();
int byte_width = WIDTH / 8;
if (vram == NULL) {
fprintf(stderr, "ERROR: Unable to access video ram!\n");
exit(-1);
} else {
/* Bit 2 of the DUART output port controls whether the
* screen is Dark-on-Light or Light-on-Dark
*/
dmd_get_duart_output_port(&oport);
if (oport & 0x2) {
fg_color = &COLOR_DARK;
bg_color = &COLOR_LIGHT;
} else {
fg_color = &COLOR_LIGHT;
bg_color = &COLOR_DARK;
}
for (int y = 0; y < HEIGHT; y++) {
for (int x = 0; x < byte_width; x++) {
uint8_t b = vram[y*byte_width + x];
for (int i = 0; i < 8; i++) {
int bit = (b >> (7 - i)) & 1;
if (bit) {
p[p_index++] = fg_color->r;
p[p_index++] = fg_color->g;
p[p_index++] = fg_color->b;
p[p_index++] = fg_color->a;
} else {
p[p_index++] = bg_color->r;
p[p_index++] = bg_color->g;
p[p_index++] = bg_color->b;
p[p_index++] = bg_color->a;
}
}
}
}
}
cairo_t *cr;
cr = cairo_create(surface);
gdk_cairo_set_source_pixbuf(cr, pixbuf, 0, 0);
cairo_paint(cr);
cairo_fill(cr);
cairo_destroy(cr);
gtk_widget_queue_draw(widget);
return TRUE;
}
static gboolean
mouse_moved(GtkWidget *widget, GdkEventMotion *event, gpointer data)
{
dmd_mouse_move((uint16_t) event->x, (uint16_t) (1024 - event->y));
return TRUE;
}
static gboolean
mouse_button(GtkWidget *widget, GdkEventButton *event, gpointer data)
{
/* GDK mouse buttons are numbered 1,2,3, whereas the DMD
expects buttons to be numbered 0,1,2, so we remap
here. */
uint8_t button = event->button - 1;
switch(event->type) {
case GDK_BUTTON_PRESS:
dmd_mouse_down(button);
break;
case GDK_BUTTON_RELEASE:
dmd_mouse_up(button);
break;
default:
break;
}
return TRUE;
}
/*
* This is the main thread for stepping the DMD emulator.
*/
static void *
dmd_cpu_thread(void *threadid)
{
struct timespec sleep_time_req, sleep_time_rem;
int size;
ssize_t read_count;
uint8_t rxc;
uint8_t txc;
uint8_t nvram_buf[NVRAM_SIZE];
char tx_buf[1];
FILE *fp;
sleep_time_req.tv_sec = 0;
sleep_time_req.tv_nsec = 250000;
dmd_reset();
/* Load NVRAM, if any */
if (nvram != NULL) {
fp = fopen(nvram, "r");
/* If there's no file yet, don't load anything. */
if (fp != NULL) {
/* Validate the file size */
fseek(fp, 0, SEEK_END);
size = ftell(fp);
rewind(fp);
if (size != NVRAM_SIZE) {
fprintf(stderr,
"NVRAM file %s does not seem to be valid. Skipping.\n",
nvram);
} else {
if (fread(nvram_buf, NVRAM_SIZE, 1, fp) != 1) {
fprintf(stderr,
"Unable to read NVRAM file %s. Skipping.\n",
nvram);
} else {
dmd_set_nvram(nvram_buf);
}
}
}
}
while (dmd_thread_run) {
dmd_step_loop(10000);
/* Poll the receive queue for input for the RS-232 line */
if (!g_queue_is_empty(telnet_rx_queue)) {
rxc = (uint8_t)(GPOINTER_TO_UINT(g_queue_pop_tail(telnet_rx_queue)));
dmd_rx_char(rxc);
}
/* If a socket is available... */
if (sock >= 0) {
/* Poll for output from the RS-232 line */
if (dmd_tx_poll(&txc) == 0) {
tx_buf[0] = txc;
telnet_send(telnet, tx_buf, 1);
}
/* Try to receive more data from Telnet */
read_count = recv(sock, telnet_buf, sizeof(telnet_buf), 0);
if (read_count < 0) {
if (errno == EAGAIN) {
/* No worries, try again. */
} else {
fprintf(stderr,
"ERROR: Could not receive from "
"telnet. Closing connection. "
"rc=%ld err=%s\n",
read_count,
strerror(errno));
telnet_disconnect();
break;
}
} else {
telnet_recv(telnet, telnet_buf, read_count);
}
}
if (nanosleep(&sleep_time_req, &sleep_time_rem)) {
fprintf(stderr, "ERROR: Unable to idle.\n");
break;
}
}
g_queue_free(telnet_rx_queue);
pthread_exit(NULL);
}
static gboolean
keydown(GtkWidget *widget, GdkEventKey *event, gpointer data)
{
gboolean is_ctrl = event->state & GDK_CONTROL_MASK;
gboolean is_shift = event->state & GDK_SHIFT_MASK;
uint8_t c = 0;
switch(event->keyval) {
case GDK_KEY_VoidSymbol:
return TRUE;
case GDK_KEY_F1:
c = 0xe8;
break;
case GDK_KEY_F2:
c = 0xe9;
break;
case GDK_KEY_F3:
c = 0xea;
break;
case GDK_KEY_F4:
c = 0xeb;
break;
case GDK_KEY_F5:
c = 0xec;
break;
case GDK_KEY_F6:
c = 0xed;
break;
case GDK_KEY_F7:
c = 0xee;
break;
case GDK_KEY_F8:
c = 0xef;
break;
case GDK_KEY_F9:
if (is_shift) {
c = 0x8e;
} else {
c = 0xae;
}
break;
case GDK_KEY_Escape:
c = 0x1b;
break;
case GDK_KEY_Delete:
c = 0xfe;
break;
case GDK_KEY_BackSpace:
case GDK_KEY_Return:
case GDK_KEY_space:
case GDK_KEY_exclam:
case GDK_KEY_quotedbl:
case GDK_KEY_numbersign:
case GDK_KEY_dollar:
case GDK_KEY_percent:
case GDK_KEY_ampersand:
case GDK_KEY_apostrophe:
case GDK_KEY_parenleft:
case GDK_KEY_parenright:
case GDK_KEY_asterisk:
case GDK_KEY_plus:
case GDK_KEY_comma:
case GDK_KEY_minus:
case GDK_KEY_period:
case GDK_KEY_slash:
case GDK_KEY_0:
case GDK_KEY_1:
case GDK_KEY_2:
case GDK_KEY_3:
case GDK_KEY_4:
case GDK_KEY_5:
case GDK_KEY_6:
case GDK_KEY_7:
case GDK_KEY_8:
case GDK_KEY_9:
case GDK_KEY_colon:
case GDK_KEY_semicolon:
case GDK_KEY_less:
case GDK_KEY_equal:
case GDK_KEY_greater:
case GDK_KEY_question:
case GDK_KEY_quoteleft:
case GDK_KEY_braceleft:
case GDK_KEY_bar:
case GDK_KEY_braceright:
case GDK_KEY_asciitilde:
c = (uint8_t) (event->keyval & 0xff);
break;
case GDK_KEY_at:
case GDK_KEY_A:
case GDK_KEY_B:
case GDK_KEY_C:
case GDK_KEY_D:
case GDK_KEY_E:
case GDK_KEY_F:
case GDK_KEY_G:
case GDK_KEY_H:
case GDK_KEY_I:
case GDK_KEY_J:
case GDK_KEY_K:
case GDK_KEY_L:
case GDK_KEY_M:
case GDK_KEY_N:
case GDK_KEY_O:
case GDK_KEY_P:
case GDK_KEY_Q:
case GDK_KEY_R:
case GDK_KEY_S:
case GDK_KEY_T:
case GDK_KEY_U:
case GDK_KEY_V:
case GDK_KEY_W:
case GDK_KEY_X:
case GDK_KEY_Y:
case GDK_KEY_Z:
case GDK_KEY_bracketleft:
case GDK_KEY_backslash:
case GDK_KEY_bracketright:
case GDK_KEY_asciicircum:
case GDK_KEY_underscore:
if (is_ctrl) {
c = (uint8_t) ((event->keyval & 0xff) - 0x40);
} else {
c = (uint8_t) (event->keyval & 0xff);
}
break;
case GDK_KEY_a:
case GDK_KEY_b:
case GDK_KEY_c:
case GDK_KEY_d:
case GDK_KEY_e:
case GDK_KEY_f:
case GDK_KEY_g:
case GDK_KEY_h:
case GDK_KEY_i:
case GDK_KEY_j:
case GDK_KEY_k:
case GDK_KEY_l:
case GDK_KEY_m:
case GDK_KEY_n:
case GDK_KEY_o:
case GDK_KEY_p:
case GDK_KEY_q:
case GDK_KEY_r:
case GDK_KEY_s:
case GDK_KEY_t:
case GDK_KEY_u:
case GDK_KEY_v:
case GDK_KEY_w:
case GDK_KEY_x:
case GDK_KEY_y:
case GDK_KEY_z:
if (is_ctrl) {
c = (uint8_t) ((event->keyval & 0xff) - 0x60);
} else {
c = (uint8_t) (event->keyval & 0xff);
}
break;
default:
return TRUE;
}
dmd_rx_keyboard(c);
return TRUE;
}
/* Called on startup as a callback */
static void
dmd_setup(int *argc, char ***argv)
{
GtkWidget *drawing_area;
gtk_init(argc, argv);
main_window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
gtk_window_set_icon_name(GTK_WINDOW(main_window), "dmd5620");
gtk_window_set_title(GTK_WINDOW(main_window), "AT&T DMD 5620");
gtk_window_set_resizable(GTK_WINDOW(main_window), FALSE);
g_signal_connect(main_window, "destroy", G_CALLBACK(close_window), NULL);
gtk_container_set_border_width(GTK_CONTAINER(main_window), 0);
drawing_area = gtk_drawing_area_new();
gtk_widget_set_size_request(drawing_area, 800, 1024);
gtk_container_add(GTK_CONTAINER(main_window), drawing_area);
/* Try for 30 fps */
g_timeout_add(33, refresh_display, drawing_area);
/* Signals used to handle the backing surface */
g_signal_connect(drawing_area, "draw",
G_CALLBACK(draw_handler), NULL);
g_signal_connect(drawing_area, "configure-event",
G_CALLBACK(configure_handler), NULL);
/* UI signals */
g_signal_connect(drawing_area, "button-press-event",
G_CALLBACK(mouse_button), NULL);
g_signal_connect(drawing_area, "button-release-event",
G_CALLBACK(mouse_button), NULL);
g_signal_connect(G_OBJECT(main_window), "key-press-event",
G_CALLBACK(keydown), NULL);
g_signal_connect(drawing_area, "motion-notify-event",
G_CALLBACK(mouse_moved), NULL);
gtk_widget_set_events(drawing_area,
gtk_widget_get_events(drawing_area)
| GDK_BUTTON_PRESS_MASK
| GDK_BUTTON_RELEASE_MASK
| GDK_KEY_PRESS_MASK
| GDK_POINTER_MOTION_MASK);
gtk_widget_show_all(main_window);
}
int
main(int argc, char *argv[])
{
int c, errflg = 0;
long thread_id = 0;
char *host = NULL, *port = NULL;
int portno;
int rs;
snprintf(VERSION_STRING, 64, "%d.%d.%d", VERSION_MAJOR, VERSION_MINOR, VERSION_BUILD);
signal(SIGINT, int_handler);
extern char *optarg;
extern int optind, optopt;
while ((c = getopt(argc, argv, "vh:p:n:")) != -1) {
switch(c) {
case 'v':
printf("Version: %s\n", VERSION_STRING);
exit(0);
case 'h':
host = optarg;
break;
case 'p':
port = optarg;
break;
case 'n':
nvram = optarg;
break;
case '?':
fprintf(stderr, "Unrecognized option: -%c\n", optopt);
errflg++;
break;
}
}
if (errflg || host == NULL) {
fprintf(stderr, "Usage: dmd5620 [-v] -h host [-p port] [-n nvram_file] [-- <gtk_options> ...]\n");
exit(2);
}
if (port == NULL) {
port = "23";
}
portno = atoi(port);
if (portno < 1 || portno > 65535) {
fprintf(stderr, "Port %d out of range (1..65535)\n", portno);
exit(-1);
}
/* Initialize the telnet receive queue. */
telnet_rx_queue = g_queue_new();
if ((rs = telnet_connect(host, port)) != 0) {
fprintf(stderr, "Unable to connect to %s:%s: %s\n",
host, port, strerror(errno));
exit(-1);
}
if ((rs = pthread_create(&dmd_thread, NULL, dmd_cpu_thread, (void *)thread_id)) != 0) {
fprintf(stderr, "Could not create DMD cpu thread. Status=%d\n", rs);
exit(-1);
}
dmd_setup(&argc, &argv);
gtk_main();
void *join_status;
if ((rs = pthread_join(dmd_thread, &join_status)) != 0) {
fprintf(stderr, "Could not join DMD cpu thread. Status=%d\n", rs);
exit(-1);
}
return 0;
}
Reference in New Issue View Git Blame Copy Permalink