/* *	HT Editor *	htpal.cc * *	Copyright (C) 1999-2002 Stefan Weyergraf * *	This program is free software; you can redistribute it and/or modify *	it under the terms of the GNU General Public License version 2 as *	published by the Free Software Foundation. * *	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, write to the Free Software *	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */#include "atom.h"#include "display.h"#include "htctrl.h"#include "htdialog.h"#include "htpal.h"#include "htreg.h"#include "strtools.h"#include "snprintf.h"#include "tools.h"// include indices#include "httag.h"#include "syntax.h"#include "out_ht.h"//#include <stdlib.h>#include <string.h>#define ATOM_PALETTE_ENTRY		MAGIC32("PAL\x00")#define ATOM_HT_CREATE_PALETTE_ENTRY	MAGIC32("PAL\x10")struct pal_layout {	int idx;	const char *name;};/* palette layout: tags */pal_layout pal_layout_tags[]={{palidx_tags_edit_tag_cursor_select,	"edit-tag cursor select"},{palidx_tags_edit_tag_cursor_edit,	"edit-tag cursor edit"},{palidx_tags_edit_tag_cursor_unfocused,	"edit-tag cursor unfocused"},{palidx_tags_edit_tag_selected,		"edit-tag selected"},{palidx_tags_edit_tag_modified,		"edit-tag modified"},{palidx_tags_edit_tag,			"edit-tag"},{palidx_tags_sel_tag_cursor_focused,	"sel-tag cursor focused"},{palidx_tags_sel_tag_cursor_unfocused,	"sel-tag cursor unfocused"},{palidx_tags_sel_tag,			"sel-tag"},{0, NULL}};/* palette layout: generic */pal_layout pal_layout_generic[] = {{palidx_generic_body,			"body"},{palidx_generic_text_focused,		"text focused"},{palidx_generic_text_unfocused,		"text unfocused"},{palidx_generic_text_shortcut,		"text shortcut"},{palidx_generic_text_shortcut_selected,	"text shortcut selected"},{palidx_generic_text_selected,		"text selected"},{palidx_generic_text_disabled,		"text disabled"},{palidx_generic_frame_focused,		"frame focused"},{palidx_generic_frame_unfocused,	"frame unfocused"},{palidx_generic_frame_move_resize,	"frame move-resize"},{palidx_generic_frame_killer,		"frame killer"},{palidx_generic_scrollbar,		"scrollbar"},{palidx_generic_input_focused,		"input focused"},{palidx_generic_input_unfocused,	"input unfocused"},{palidx_generic_input_selected,		"input selected"},{palidx_generic_input_clip,		"input clip-chars"},{palidx_generic_button_focused,		"button focused"},{palidx_generic_button_unfocused,	"button unfocused"},{palidx_generic_button_shadow,		"button shadow"},{palidx_generic_button_shortcut,	"button shortcut"},{palidx_generic_list_focused_selected, 	"list focused & selected"},{palidx_generic_list_focused_unselected, "list focused & unselected"},{palidx_generic_list_unfocused_selected, "list unfocused & selected"},{palidx_generic_list_unfocused_unselected, "list unfocused & unselected"},{palidx_generic_cluster_focused,	"cluster focused"},{palidx_generic_cluster_unfocused,	"cluster unfocused"},{palidx_generic_cluster_shortcut,	"cluster shortcut"},{0, NULL}};/* palette layout: syntax */pal_layout pal_layout_syntax[] = {{palidx_syntax_whitespace,		"whitespace"},{palidx_syntax_comment,			"comment"},{palidx_syntax_identifier,		"identifier"},{palidx_syntax_reserved,		"reserved"},{palidx_syntax_intnum,			"integer number"},{palidx_syntax_floatnum,		"float number"},{palidx_syntax_string,			"string"},{palidx_syntax_char,			"character"},{palidx_syntax_symbol,			"symbol"},{palidx_syntax_preprocess,		"preprocess"},{palidx_syntax_meta, 			"meta"}};/* palette layout: analyser */pal_layout pal_layout_analyser[] = {{palidx_analyser_default,		"default"},{palidx_analyser_comment,		"comment"},{palidx_analyser_label,			"label"},{palidx_analyser_number,		"number"},{palidx_analyser_string,		"string"},{palidx_analyser_symbol,		"symbol-character"},};/* all layouts */struct pal_class {	pal_layout *layout;	const char *name;};pal_class pal_layouts[] ={{pal_layout_generic,	"generic"},{pal_layout_tags,	"tags"},{pal_layout_syntax,	"syntax"},{pal_layout_analyser,	"analyser"},{NULL, NULL}};/* *   reg/pal management */vcp getcolorv(palette *pal, uint index){	if ((index<pal->size) && (pal->data)) return pal->data[index];	return VCP(VC_WHITE, VC_RED);}pal_layout *find_pal_layout(pal_class *layouts, const char *pal_class, int *lsize){	pal_layout *pl = NULL;	while (layouts->layout && layouts->name) {		if (strcmp(layouts->name, pal_class) == 0) {			pl = layouts->layout;			break;		}		layouts++;	}	int s = 0;	if (pl) {		pal_layout *p = pl;		while (p->name) {			p++;			s++;		}	}	if (pl) *lsize = s;	return pl;}int find_pal_entry_idx(pal_layout *layout, const char *name){	while (layout->name) {		if (strcmp(layout->name, name) == 0) return layout->idx;		layout++;	}	return -1;}bool load_pal(const char *pal_class, const char *pal_flavour, palette *p){	if ((!pal_flavour) || (!pal_class)) return false;	char dir[256];		/* secure */	ht_snprintf(dir, sizeof dir, "%s/%s/%s", palettekey, pal_class, pal_flavour);	int psize = 0;	pal_layout *pl = find_pal_layout(pal_layouts, pal_class, &psize);	if (!pl) return false;	p->size = psize;	p->data = ht_malloc(sizeof *p->data * psize);	for (int i=0; i < psize; i++) p->data[i] = VCP(VC_WHITE, VC_RED);	ht_registry_node *n = NULL;	ht_registry_node_type rnt_pal = registry->lookup_node_type(rnt_palette_name);	while ((n = registry->enum_next(dir, n))) {		if (n->type == rnt_pal) {			int idx = find_pal_entry_idx(pl, n->name);			if (idx != -1 && idx < psize) {				p->data[idx] = ((palette_entry *)n->data)->color;			}		}	}	return true;}/* *	CLASS palette_entry */ palette_entry::palette_entry(uint _idx, vcp _color){	idx=_idx;	color=_color;}bool palette_entry::editdialog(const char *keyname){	Bounds b;	b.w = 50;	b.h = 15;	b.x = (screen->w - b.w)/2;	b.y = (screen->h - b.h)/2;		ht_dialog *d=new ht_dialog();	d->init(&b, "edit palette entry", FS_TITLE | FS_KILLER);		ht_color_block *fgc, *bgc;	ht_label *l1, *l2;		b.assign(2, 1, 16, 5);	fgc = new ht_color_block();	fgc->init(&b, VCP_FOREGROUND(color), cf_transparent | cf_light);	d->insert(fgc);	b.assign(2, 0, 16, 1);	l1 = new ht_label();	l1->init(&b, "~foreground", fgc);	d->insert(l1);		b.assign(20, 1, 16, 5);	bgc = new ht_color_block();	bgc->init(&b, VCP_BACKGROUND(color), cf_transparent | cf_light);	d->insert(bgc);		b.assign(20, 0, 16, 1);	l2 = new ht_label();	l2->init(&b, "~background", bgc);	d->insert(l2);	bool r = false;	if (d->run(false)) {		ht_color_block_data fgd, bgd;		ViewDataBuf vdb1(fgc, &fgd, sizeof fgd);		ViewDataBuf vdb2(bgc, &bgd, sizeof bgd);		color = VCP(fgd.color, bgd.color);		r = true;	}		d->done();	delete d;	return r;}void palette_entry::load(ObjectStream &f){	GET_INT32D(f, idx);	GET_INT32D(f, color);}ObjectID palette_entry::getObjectID() const{	return ATOM_PALETTE_ENTRY;}void palette_entry::store(ObjectStream &f) const{	PUT_INT32D(f, idx);	PUT_INT32D(f, color);}void palette_entry::strvalue(char *buf32bytes){	char *p = buf32bytes;	const char *text;	int fg = VCP_FOREGROUND(color);	int bg = VCP_BACKGROUND(color);	if (fg == VC_TRANSPARENT && bg == VC_TRANSPARENT) {		text = "transparent";		fg = VC_WHITE;		bg = VC_BLACK;	} else if (fg == VC_TRANSPARENT) {		text = "fgtrans";		fg = VC_WHITE;		if (bg == fg) fg = VC_BLACK;	} else if (bg == VC_TRANSPARENT) {		text = "bgtrans";		bg = VC_BLACK;		if (bg == fg) fg = VC_WHITE;	} else {		text = "normal";	}	p = tag_make_color(p, 32, VCP(fg, bg));	p += sprintf(p, text);	p = tag_make_default_color(p, 32);	*p = 0;}ht_registry_data *create_empty_palette_entry(){	return new palette_entry();}/* *	INIT */BUILDER(ATOM_PALETTE_ENTRY, palette_entry, ht_registry_data);bool init_pal(){	REGISTER(ATOM_PALETTE_ENTRY, palette_entry);	registerAtom(ATOM_HT_CREATE_PALETTE_ENTRY, (void*)create_empty_palette_entry);	return true;}/* *	DONE */void done_pal(){	UNREGISTER(ATOM_PALETTE_ENTRY, palette_entry);	unregisterAtom(ATOM_HT_CREATE_PALETTE_ENTRY);}