summaryrefslogtreecommitdiffstats
path: root/lib/libforms/forms.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib/libforms/forms.c')
-rw-r--r--lib/libforms/forms.c267
1 files changed, 0 insertions, 267 deletions
diff --git a/lib/libforms/forms.c b/lib/libforms/forms.c
deleted file mode 100644
index 2c2a87a..0000000
--- a/lib/libforms/forms.c
+++ /dev/null
@@ -1,267 +0,0 @@
-/*
- * 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);
-}
OpenPOWER on IntegriCloud