diff options
Diffstat (limited to 'lib/libforms/forms.c')
| -rw-r--r-- | lib/libforms/forms.c | 267 |
1 files changed, 267 insertions, 0 deletions
diff --git a/lib/libforms/forms.c b/lib/libforms/forms.c new file mode 100644 index 0000000..2c2a87a --- /dev/null +++ b/lib/libforms/forms.c @@ -0,0 +1,267 @@ +/* + * Copyright (c) 1995 + * Paul Richards. All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer, + * verbatim and that no modifications are made prior to this + * point in the file. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by Paul Richards. + * 4. The name Paul Richards may not be used to endorse or promote products + * derived from this software without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY PAUL RICHARDS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL PAUL RICHARDS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + * + */ + +#include <strhash.h> +#include <ctype.h> +#include <stdio.h> +#include <stdlib.h> +#include <string.h> +#include <ncurses.h> +#include <forms.h> +#include <err.h> + +#include "internal.h" + +extern FILE *yyin; +hash_table *root_table, *cbind; +OBJECT *cur_obj; +int done; + +/* Default attribute commands */ +struct attr_cmnd attr_cmnds[] = { + {"box", ATTR_BOX }, + {"center", ATTR_CENTER }, + {"right", ATTR_RIGHT } +}; + +/* Internal bindings */ + +struct intbind { + char *key; + void *addr; +}; + +struct intbind internal_bindings[] = { + {"draw_box", &draw_box}, + {"draw_shadow", &draw_shadow} +}; + +/* Bind the internal function addresses */ + +void +bind_internals(hash_table *table) +{ + int i; + + for (i=0; i < (sizeof internal_bindings)/(sizeof (struct intbind)); i++) + if (bind_tuple(table, internal_bindings[i].key, + TT_FUNC, internal_bindings[i].addr) == ST_ERROR) + errx(-1, "Failed to bind internal tuples"); +} + +/* + * Find the default device and open a display on it. + */ + +DISPLAY * +default_open(DISPLAY *display) +{ + /* XXX -- not implemented, just calls ncurses */ + return (ncurses_open(display)); + +} + +int +load_objects(const char *filename) +{ + FILE *fd; + + root_table = hash_create(0); + if (!root_table) + errx(-1, "Failed to allocate root bindings table"); + + cbind = root_table; + + bind_internals(root_table); + + if (!(fd = fopen(filename, "r"))) { + warn("Couldn't open file %s", filename); + return (ST_ERROR); + } + + yyin = fd; + yyparse(); + + if (fclose(fd)) { + warn("Couldn't close file %s", filename); + return (ST_ERROR); + } + + return (ST_OK); +} + +int +start_object(char *objname) +{ + TUPLE *tuple; + OBJECT *object; + + tuple = get_tuple(root_table, objname, TT_OBJ_INST); + if (!tuple) + return (ST_NOBIND); + + object = (OBJECT *)tuple->addr; + cur_obj = object; + + set_display(object->display); + + cur_obj->status |= O_VISIBLE; + + while (!done) { + hash_traverse(root_table, &display_tuples, root_table); + hash_traverse(root_table, &refresh_displays, root_table); + process_object(cur_obj); + } + return (ST_DONE); +} + +int +call_function(char *func, OBJECT *obj) +{ + TUPLE *tuple; + + tuple = tuple_search(obj, func, TT_FUNC); + if (!tuple) + return (0); + + (*tuple->addr)(obj); + return (1); +} + +set_display(DISPLAY *display) +{ + switch (display->type) { + case DT_NCURSES: + ncurses_set_display(display); + break; + default: + break; + } +} + +void +display_object(OBJECT *obj) +{ + switch(obj->display->type) { + case DT_NCURSES: + ncurses_display_object(obj); + break; + default: + break; + } +} + +void +process_object(OBJECT *obj) +{ + TUPLE *tuple; + + /* Call user routine, if there is one. */ + if (obj->UserProcFunc) + if (call_function(obj->UserProcFunc, obj)) + return; + + /* Find the first non-compound object or a default override */ + while (obj->type == OT_COMPOUND) { + tuple = tuple_search(obj, obj->object.compound->defobj, TT_OBJ_INST); + obj = (OBJECT *)tuple->addr; + } + cur_obj = obj; + + switch(obj->display->type) { + case DT_NCURSES: + ncurses_process_object(obj); + break; + default: + break; + } +} + +int +refresh_displays(char *key, void *data, void *arg) +{ + TUPLE *tuple = (TUPLE *)data; + DISPLAY *display; + + if (tuple->type == TT_DISPLAY) + display = (DISPLAY *)tuple->addr; + switch (display->type) { + case DT_NCURSES: + ncurses_refresh_display(display); + break; + default: + break; + } + + return (1); +} + +int +display_tuples(char *key, void *data, void *arg) +{ + TUPLE *tuple = (TUPLE *)data; + OBJECT *obj; + void (* fn)(); + + switch(tuple->type) { + case TT_OBJ_INST: + obj = (OBJECT *)tuple->addr; + + /* Call user routine, if there is one. */ + if (obj->UserDrawFunc) { + if (!call_function(obj->UserDrawFunc, obj)) + display_object(obj); + } else + display_object(obj); + + /* Display sub-objects */ + if (obj->bind) + hash_traverse(obj->bind, &display_tuples, 0); + break; + default: + break; + } + return (1); +} + +AttrType +parse_default_attributes(char *string) +{ + int i; + + for (i=0; i < (sizeof attr_cmnds) / (sizeof (struct attr_cmnd)); i++) + if (!strcmp(string, attr_cmnds[i].attr_name)) + return (attr_cmnds[i].attr_type); + return (ATTR_UNKNOWN); +} |
