Forms

[fowler]

I've written some things that do this - here's the simplest solution
I have yet been able to find:

#include <stdio.h>
#include "lisp.h"
#include "ooglutil.h"

main() {
	Lake *lake;
	LObject *obj;

	/* Do all the stuff to set up the forms here -
	ie create_the_forms, fl_show_form etc */

	LInit();
	lake = LakeDefine(stdin, NULL);
	/* Register all the callback routines for the lisp
	stuff here */

	while (1) {
		if (async_fnextc(stdin, 0) != NODATA) {
			obj = LSexpr(lake);
			LEval(obj);
		}
		fl_check_forms();
	}
}

This does the same thing as graffitti, just with fewer function calls.
async_fnextc is in ooglutil.  I haven't ever worried about the
specifics - I just call it like this and so far it has seemed to work.
I do remember having a horrible time trying to plow through the select
man page once - I agree that it is completely awful.

Hope this helps somewhat.

-Celeste