Remove libforms, it was never used.

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);
-}