display_cfa634.c

#include "display.h"
#include "display_cfa634.h"
#include "config.h"
#include "io.h"
#include "io_gpio.h"
#include "uart.h"
#include "sys_time.h"

#include <stdint.h>
#include <stdbool.h>

typedef struct
{
	unsigned int	unicode;
	unsigned int	internal;
} unicode_map_t;

typedef struct
{
	unsigned int	unicode;
	unsigned int	internal;
	unsigned int	pattern[8];
} udg_map_t;

enum
{
	display_text_width =	20,
	display_text_height =	4,

	command_escape_2 =		0x01,
	command_restore =		0x03,
	command_contrast =		0x0f,
	command_goto =			0x11,
	command_scroll_off =	0x14,
	command_wrap_off =		0x18,
	command_escape_1 =		0x1e,

	mapeof = 0xffffffff,
};

roflash static const unicode_map_t unicode_map[] =
{
	{	0x0024,	0xa2	},	//	$
	{	0x0040,	0xa0	},	//	@
	{	0x005b,	0xfa	},	//	[
	{	0x005c,	0xfb	},	//	backslash
	{	0x005d,	0xfc	},	//	]
	{	0x005e,	0x0d	},	//	^
	{	0x005f,	0xc4	},	//	_
	{	0x0060,	0x87	},	//	`
	{	0x007b,	0xfd	},	//	{
	{	0x007c,	0xfe	},	//	|
	{	0x007d,	0xff	},	//	}
	{	0x007e,	0xce	},	//	~
	{	0x007f,	0xd6	},	//	del
	{	0x25b6,	0x10	},	//	▶ 
	{	0x25c0,	0x11	},	//	◀ 
	{	0x00ab,	0x14	},	//	«
	{	0x00bb,	0x15	},	//	»
	{	0x2196,	0x16	},	//	↖ 
	{	0x2197,	0x17	},	//	↗ 
	{	0x2199,	0x18	},	//	↙ 
	{	0x2198,	0x19	},	//	↘ 
	{	0x25b2,	0x1a	},	//	▲ 
	{	0x25bc,	0x1b	},	//	▼ 
	{	0x23ce,	0x1c	},	//	⏎ 
	{	0x258b,	0x1f	},	//	▋
	{	0x00a4,	0x24	},	//	¤ 
	{	0x00a1,	0x40	},	//	¡
	{	0x00c4,	0x5b	},	//	Ä
	{	0x00d6, 0x5c	},	//	Ö
	{	0x00d1, 0x5d	},	//	Ñ
	{	0x00dc, 0x5e	},	//	Ü
	{	0x00a7,	0x5f	},	//	§
	{	0x00bf,	0x60	},	//	¿
	{	0x00e4, 0x7b	},	//	ä
	{	0x00f6, 0x7c	},	//	ö
	{	0x00f1, 0x7d	},	//	ñ
	{	0x00fc, 0x7e	},	//	ü
	{	0x00e0, 0x7f	},	//	à
	{	0x2070, 0x80	},	//	⁰
	{	0x00b9, 0x81	},	//	¹
	{	0x00b2, 0x82	},	//	²
	{	0x00b3, 0x83	},	//	³
	{	0x2074, 0x84	},	//	⁴
	{	0x2075, 0x85	},	//	⁵
	{	0x2076, 0x86	},	//	⁶
	{	0x2077, 0x87	},	//	⁷
	{	0x2078, 0x88	},	//	⁸
	{	0x2079, 0x89	},	//	⁹
	{	0x00bd,	0x8a	},	//	½
	{	0x00bc,	0x8b	},	//	¼
	{	0x00b1,	0x8c	},	//	±
	{	0x2265,	0x8d	},	//	≥ 
	{	0x2264,	0x8e	},	//	≤ 
	{	0x00b5, 0x8f	},	//	µ
	{	0x03bc, 0x8f	},	//	μ
	{	0x266a,	0x90	},	//	♪ 
	{	0x266b,	0x91	},	//	♫ 
	{	0x1f514,0x92	},	//	🔔 
	{	0x1f56d,0x92	},	//	🕭 
	{	0x2665,	0x93	},	//	♥ 
	{	0x25c6,	0x94	},	//	◆ 
	{	0x1f4f6,0x95	},	//	📶
	{	0x201c,	0x98	},	//	“
	{	0x201d,	0x99	},	//	”
	{	0x03b1, 0x9c	},	//	α
	{	0x03b5, 0x9d	},	//	ε
	{	0x03b4, 0x9e	},	//	δ
	{	0x221e, 0x9f	},	//	∞
	{	0x00a3,	0xa1	},	//	£
	{	0x00a5,	0xa3	},	//	¥
	{	0x00e8,	0xa4	}, 	//	è
	{	0x00e9,	0xa5	}, 	//	é
	{	0x00f9,	0xa6	}, 	//	ù
	{	0x00ec,	0xa7	}, 	//	ì
	{	0x00f2,	0xa8	}, 	//	ò
	{	0x00e7,	0xa9	}, 	//	ç
	{	0x00d8,	0xab	}, 	//	Ø
	{	0x00f8,	0xac	}, 	//	ø
	{	0x0226,	0xae	}, 	//	Ȧ
	{	0x0227,	0xaf	}, 	//	ȧ
	{	0x00a2, 0xb1	},	//	¢
	{	0x03c4, 0xb3	},	//	τ
	{	0x03bb, 0xb4	},	//	λ
	{	0x03a9, 0xb5	},	//	Ω
	{	0x03c0,	0xb6	}, 	//	π
	{	0x03a8,	0xb7	}, 	//	Ψ
	{	0x03a3,	0xb8	}, 	//	Σ
	{	0x03b8,	0xb9	}, 	//	θ
	{	0x039e,	0xba	}, 	//	Ξ
	{	0x25cf,	0xbb	},	//	● 
	{	0x00c6,	0xbc	},	//	Æ
	{	0x00e6,	0xbd	},	//	æ
	{	0x03b2,	0xbe	}, 	//	β
	{	0x00c9,	0xbf	}, 	//	É
	{	0x0393,	0xc0	}, 	//	Γ
	{	0x039b,	0xc1	}, 	//	Λ
	{	0x03a0,	0xc2	}, 	//	Π
	{	0x03d2,	0xc3	}, 	//	ϒ
	{	0x00c8,	0xc5	}, 	//	È
	{	0x00ca,	0xc6	}, 	//	Ê
	{	0x00ea,	0xc7	}, 	//	ê
	{	0x00e7,	0xc8	}, 	//	ç
	{	0x25c7,	0xcf	},	//	◇ 
	{	0x258b,	0xd0	},	//	▋
	{	0x258c,	0xd1	},	//	▌
	{	0x258d,	0xd2	},	//	▍
	{	0x258e,	0xd3	},	//	▎
	{	0x258f,	0xd4	},	//	▏ 
	{	0x258b,	0xd6	},	//	▋
	{	0x258c,	0xd7	},	//	▌
	{	0x258d,	0xd8	},	//	▍
	{	0x258e,	0xd9	},	//	▎
	{	0x258f,	0xda	},	//	▏ 
	{	0x20a7,	0xdb	},	//	₧
	{	0x2191,	0xde	},	//	↑ 
	{	0x2192,	0xdf	},	//	→ 
	{	0x2193,	0xe0	},	//	↓ 
	{	0x2190,	0xe1	},	//	←
	{	0x00c1,	0xe2	}, 	//	Á
	{	0x00cd,	0xe3	}, 	//	Í
	{	0x00d3,	0xe4	}, 	//	Ó
	{	0x00da,	0xe5	}, 	//	Ú
	{	0x00e1,	0xe7	}, 	//	á
	{	0x00ed,	0xe8	}, 	//	í
	{	0x00f3,	0xe9	}, 	//	ó
	{	0x00fa,	0xea	}, 	//	ú
	{	0x00d4,	0xec	}, 	//	Ô
	{	0x00f4,	0xed	}, 	//	ô
	{	mapeof, 0xff	},	//	EOF
};

roflash static const udg_map_t udg_map[] =
{
	{	0x00eb,	0,	// ë
		{
			0b00001010,
			0b00000000,
			0b00001110,
			0b00010001,
			0b00011111,
			0b00010000,
			0b00001110,
			0b00000000,
		}
	},
	{	0x00ef,	1,	// ï
		{
			0b00001010,
			0b00000000,
			0b00001100,
			0b00000100,
			0b00000100,
			0b00000100,
			0b00001110,
			0b00000000,
		}
	},
	{	0x03c3,	2,	// σ
		{
			0b00000000,
			0b00000011,
			0b00001110,
			0b00010001,
			0b00010001,
			0b00001110,
			0b00000000,
			0b00000000,
		}
	},
	{	0x03c1,	3,	// ρ
		{
			0b00000000,
			0b00000000,
			0b00001110,
			0b00010001,
			0b00011110,
			0b00010000,
			0b00010000,
			0b00000000,
		}
	},
	{
		0x00a9,	4,	//	©
		{
			0b00000100,
			0b00001010,
			0b00010111,
			0b00011001,
			0b00010111,
			0b00001010,
			0b00000100,
			0b00000000,
		}
	},
	{
		0x20ac,	5,	//	€
		{
			0b00000011,
			0b00000100,
			0b00011111,
			0b00000100,
			0b00011111,
			0b00000100,
			0b00000011,
			0b00000000,
		}
	},
	{	mapeof,	6,	// EOF,
		{ },
	}
};

static bool			display_setup;
static bool			display_logmode;
static unsigned int display_uart;
static unsigned int display_x, display_y;

static bool attr_result_used text_goto(int x, int y)
{
	if(x >= 0)
		display_x = x;

	if(y >= 0)
		display_y = y;

	if((display_x >= display_text_width) || (display_y >= display_text_height))
		return(true);

	uart_send(display_uart, command_goto);
	uart_send(display_uart, display_x);
	uart_send(display_uart, display_y);

	uart_flush(display_uart);

	return(true);
}

static bool attr_result_used text_send(unsigned int byte)
{
	if((display_x < display_text_width) && (display_y < display_text_height))
	{
		if((byte < ' ') || ((byte >= 128) && (byte <= 135)))
		{
			uart_send(display_uart, command_escape_1);
			uart_send(display_uart, command_escape_2);
		}

		uart_send(display_uart, byte);
		display_x++;
	}

	uart_flush(display_uart);

	return(true);
}

static attr_result_used bool text_send_ascii_string(const char *string)
{
	unsigned int current;

	for(current = 0; string[current]; current++)
		if(!text_send(string[current]))
			return(false);

	return(true);
}

static bool attr_result_used text_newline(void)
{
	unsigned int x, y, text_width;

	text_width = display_text_width;

	if(display_logmode)
	{
		y = (display_y + 1) % display_text_height;

		if(!text_goto(0, y))
			return(false);
	}
	else
	{
		if(display_y == 0)
			text_width = display_text_width - 6;

		y = display_y + 1;
	}

	if(display_y < display_text_height)
		for(x = display_x; x < text_width; x++)
			if(!text_send(' '))
				return(false);

	if(text_width != display_text_width)
	{
		unsigned int hour, minute;
		string_new(, time_date, 32);

		string_clear(&time_date);
		time_get(&hour, &minute, 0, 0, 0, 0);
		string_format(&time_date, " %02u:%02u", hour, minute);

		if(!text_goto(14, 0))
			return(false);

		if(!text_send_ascii_string(string_to_cstr(&time_date)))
			return(false);
	}

	if(!text_goto(0, y))
		return(false);

	return(true);
}

bool display_cfa634_setup(unsigned int io, unsigned int pin)
{
	if((io != io_id_gpio) || (pin >= max_pins_per_io))
		return(false);

	display_uart = io_gpio_get_uart_from_pin(pin);

	if((display_uart != 0) && (display_uart != 1))
		return(false);

	display_setup = true;

	return(true);
}

static attr_const bool bright(int brightness)
{
	roflash static const unsigned int values[5] = { 0, 55, 65, 70, 75 };

	if(!display_setup)
		return(false);

	if((brightness < 0) || (brightness > 4))
		return(false);

	uart_send(display_uart, command_contrast);
	uart_send(display_uart, values[brightness]);
	uart_flush(display_uart);

	return(true);
}

static bool init(void)
{
	const udg_map_t *map;
	unsigned int baudrate, ix, byte;

	if(!display_setup)
		return(false);

	if(!config_get_uint("cfa634.baud", &baudrate, -1, -1))
		return(false);

	uart_baudrate(display_uart, baudrate);
	uart_data_bits(display_uart, 8);
	uart_stop_bits(display_uart, 1);
	uart_parity(display_uart, parity_none);

	for(map = udg_map, ix = 0; map->unicode != mapeof; map++, ix++)
	{
		uart_send(display_uart, 25);	// send UDG
		uart_send(display_uart, map->internal);

		uart_flush(display_uart);
		msleep(1);

		for(byte = 0; byte < 8; byte++)
		{
			uart_send(display_uart, map->pattern[byte] & 0xff);
			uart_flush(display_uart);
			msleep(1);
		}
	}

	return(bright(1));
}

static bool begin(unsigned int slot, bool logmode)
{
	uart_send(display_uart, command_restore);
	uart_send(display_uart, command_scroll_off);
	uart_send(display_uart, command_wrap_off);

	display_logmode = logmode;

	if(!text_goto(0, 0))
		return(false);

	uart_flush(display_uart);

	return(true);
}

static bool output(unsigned int length, const unsigned int unicode[])
{
	const unicode_map_t *unicode_map_ptr;
	const udg_map_t *udg_map_ptr;
	unsigned int current_index, current;

	for(current_index = 0; current_index < length; current_index++)
	{
		current = unicode[current_index];

		if(current == '\n')
		{
			if(!text_newline())
				return(false);

			continue;
		}

		if((display_y < display_text_height) && (display_x < display_text_width))
		{
			for(unicode_map_ptr = unicode_map; unicode_map_ptr->unicode != mapeof; unicode_map_ptr++)
				if(unicode_map_ptr->unicode == current)
				{
					if(!text_send(unicode_map_ptr->internal))
						return(false);

					continue;
				}

			for(udg_map_ptr = udg_map; udg_map_ptr->unicode != mapeof; udg_map_ptr++)
				if((udg_map_ptr->unicode == current))
				{
					if(!text_send(udg_map_ptr->internal))
						return(false);

					continue;
				}

			if((current < ' ') || (current > '}'))
				current = ' ';

			uart_send(display_uart, current);
		}
	}

	return(true);
}

static bool end(void)
{
	while(display_y < display_text_height)
		if(!text_newline())
			break;

	uart_flush(display_uart);

	return(true);
}

roflash const char help_description_display_cfa634[] =	"> usage: dc6 <baud rate or 0 (disable)>\n";

app_action_t application_function_display_cfa634(app_params_t *parameters)
{
	unsigned int baudrate;

	baudrate = 0;

	if(parse_uint(1, parameters->src, &baudrate, 0, ' ') == parse_ok)
	{
		if(!config_open_write())
			goto config_error;

		if(baudrate == 0)
			config_delete("cfa634.", true, -1, -1);
		else
			if(!config_set_uint("cfa634.baud", baudrate, -1, -1))
				goto config_error;

		if(!config_close_write())
			goto config_error;
	}

	if(!config_get_uint("cfa634.baud", &baudrate, -1, -1))
	{
		string_format(parameters->dst, "no cfa634 display configured\n");
		return(app_action_error);
	}

	string_format(parameters->dst, "cfa634: baud rate: %u\n", baudrate);

	return(app_action_normal);

config_error:
	config_abort_write();
	string_clear(parameters->dst);
	string_append(parameters->dst, "> cannot set config\n");
	return(app_action_error);
}

static bool info(display_info_t *infostruct)
{
	strncpy(infostruct->name, "CrystalFontz CFA634", sizeof(infostruct->name));

	infostruct->columns = 20;
	infostruct->rows = 4;
	infostruct->cell_width = 0;
	infostruct->cell_height = 0;
	infostruct->width = 0;
	infostruct->height = 0;
	infostruct->pixel_mode = display_pixel_mode_none;

	return(true);
}

roflash const display_hooks_t display_hooks_cfa =
{
	init,
	info,
	begin,
	output,
	end,
	bright,
	(void *)0,
	(void *)0,
	(void *)0,
	(void *)0,
};