js_uifc.c

			return JS_FALSE;
		}
		if(org==NULL)
			return(JS_TRUE);
	}
	if(argn<argc && JSVAL_IS_OBJECT(argv[argn])) {
		if((objarg = JSVAL_TO_OBJECT(argv[argn]))==NULL) {
			free(org);
			return(JS_FALSE);
		}
		if(JS_GetClass(cx, objarg) == &js_uifc_getstrxy_ctx_class) {
			p = JS_GetPrivate(cx, objarg);
			if (p != NULL) {
				lastkey = &(p->lastkey);
			}
		}
	}
	if(maxlen < 1) {
		JS_ReportError(cx, "max length less than one");
		free(org);
		return JS_FALSE;
	}
	if((str=(char*)malloc(maxlen+1))==NULL) {
		free(org);
		return(JS_FALSE);
	}
	memset(str,0,maxlen+1);
	if(org) {
		strncpy(str,org,maxlen);
		free(org);
	}
	rc=JS_SUSPENDREQUEST(cx);
	if(uifc->getstrxy(left, top, width, str, maxlen, mode, lastkey)<0) {
		JS_RESUMEREQUEST(cx, rc);
		free(str);
		JS_SET_RVAL(cx, arglist, JSVAL_NULL);
		return(JS_TRUE);
	}
	JS_RESUMEREQUEST(cx, rc);
	JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(JS_NewStringCopyZ(cx,str)));
	if(str)
		free(str);
	return(JS_TRUE);
}
static JSBool
js_uifc_showbuf(JSContext *cx, uintN argc, jsval *arglist)
{
	JSObject *obj=JS_THIS_OBJECT(cx, arglist);
	jsval *argv=JS_ARGV(cx, arglist);
	char*		str;
	char*		title = NULL;
	int32		left=0;
	int32		top=0;
	int32		width=INT_MAX;
	int32		height=INT_MAX;
	int32		mode=0;
	int		*cur = NULL;
	int		*bar = NULL;
	uifcapi_t*	uifc;
	uintN		argn=0;
	jsrefcount	rc;
	JSObject*	objarg;
	struct showbuf_ctx_private *p;
	JS_SET_RVAL(cx, arglist, JSVAL_VOID);
	if((uifc=get_uifc(cx,obj))==NULL)
		return(JS_FALSE);
	if (argc < 3) {
		JS_ReportError(cx, "showbuf requires at least three arguments");
		return JS_FALSE;
	}
	if (!JS_ValueToInt32(cx, argv[argn++], &mode))
		return JS_FALSE;
	JSVALUE_TO_MSTRING(cx, argv[argn++], title, NULL);
	if(JS_IsExceptionPending(cx)) {
		free(title);
		return JS_FALSE;
	}
	if(title==NULL)
		return(JS_TRUE);
	JSVALUE_TO_MSTRING(cx, argv[argn++], str, NULL);
	if(JS_IsExceptionPending(cx)) {
		free(title);
		return JS_FALSE;
	}
	if(str==NULL) {
		free(title);
		return(JS_TRUE);
	}
	if(argn<argc && JSVAL_IS_OBJECT(argv[argn])) {
		if((objarg = JSVAL_TO_OBJECT(argv[argn]))==NULL) {
			free(title);
			free(str);
			return(JS_FALSE);
		}
		if(JS_GetClass(cx, objarg) == &js_uifc_showbuf_ctx_class) {
			p = JS_GetPrivate(cx, objarg);
			if (p != NULL) {
				cur = &(p->cur);
				bar = &(p->bar);
				left = p->left;
				top = p->top;
				width = p->width;
				height = p->height;
			}
		}
	}
	rc=JS_SUSPENDREQUEST(cx);
	uifc->showbuf(mode, left, top, width, height,title, str, cur, bar);
	JS_RESUMEREQUEST(cx, rc);
	free(title);
	free(str);
	return(JS_TRUE);
}
/* Destructor */
static void
js_finalize(JSContext *cx, JSObject *obj)
{
	uifcapi_t* p;
	if((p=(uifcapi_t*)JS_GetPrivate(cx,obj))==NULL)
		return;
	free(p);
	JS_SetPrivate(cx,obj,NULL);
}
static jsSyncMethodSpec js_functions[] = {
	{"init",            js_uifc_init,       1,	JSTYPE_BOOLEAN,	JSDOCSTR("string title [, string interface_mode]")
	,JSDOCSTR("Initialize.  <tt>interface_mode</tt> is a string representing the desired console mode, one of 'STDIO', 'AUTO', "
		"'X', 'CURSES', 'ANSI', 'CONIO', or 'SDL'."
		"<p>"
		"Return value is <tt>true</tt> upon successful UIFC library initialization, <tt>false</tt> upon error."
	)
	,314
	},
	{"bail",			js_uifc_bail,		0,	JSTYPE_VOID,	JSDOCSTR("")
	,JSDOCSTR("Uninitialize the UIFC library")
	,314
	},
	{"msg",				js_uifc_msg,		1,	JSTYPE_VOID,	JSDOCSTR("string text")
	,JSDOCSTR("Print a short text message and wait for user acknowledgment")
	,314
	},
	{"pop",				js_uifc_pop,		1,	JSTYPE_VOID,	JSDOCSTR("[string text]")
	,JSDOCSTR("Pop-up (or down) a short text message. Pop-down by passing no <i>text</i> argument.")
	,314
	},
	{"input",			js_uifc_input,		0,	JSTYPE_STRING,	JSDOCSTR("[number mode] [,number left] [,number top] [,string prompt] [,string default] [,number maxlen [,number kmode]]")
	,JSDOCSTR("Prompt for a string input.<br>"
		"<tt>mode</tt> is an optional combination of <tt>WIN_</tt> mode flags from <tt>uifcdefs.js</tt>.<br>"
		"<tt>left</tt> and <tt>top</tt> are optional window offsets to display the input dialog box.<br>"
		"<tt>prompt</tt> is an optional text string to display as part of the string input dialog box.<br>"
		"<tt>default</tt> is an optional original text string that the user can edit (requires the <tt>K_EDIT kmode</tt> flag).<br>"
		"<tt>maxlen</tt> is an optional maximium input string length (default is 40 characters).<br>"
		"<tt>kmode</tt> is an optional combination of <tt>K_</tt> mode flags from either <tt>sbbsdefs.js</tt> or <tt>uifcdefs.js</tt>."
		"<p>"
		"Return value is the new/edited string or <tt>undefined</tt> if editing was aborted (e.g. via ESC key press)."
	)
	,314
	},
	{"list",			js_uifc_list,		0,	JSTYPE_NUMBER,	JSDOCSTR("[number mode,] string title, array options [,uifc.list.CTX object]")
	,JSDOCSTR("Select from a list of displayed options.<br>"
		"<tt>title</tt> is the brief description of the list (menu) to be displayed in the list heading.<br>"
		"<tt>options</tt> is an array of items (typically strings) that comprise the displayed list.<br>"
		"The <tt>CTX</tt> (context) object can be created using <tt>new uifc.list.CTX()</tt> and if the same object is passed in successive calls, allows <tt>WIN_SAV</tt> to work correctly.<br>"
		"The context object has the following properties and optional arguments to its constructor:<br><tt>cur, bar, top, left, width</tt>"
		"<p>"
		"Return value is <tt>-1</tt> if list is aborted (e.g. via ESC key press), <tt>false</tt> upon error (e.g. no option array provided),<br>"
		"or the 0-based numeric index of the option selected by the user. Other negative values may be returned in advanced modes/use-cases (e.g. copy/paste)"
	)
	,314
	},
	{"showhelp",			js_uifc_showhelp,	0,	JSTYPE_VOID,	JSDOCSTR("")
	,JSDOCSTR("Shows the current help text")
	,317
	},
	{"scrn",			js_uifc_scrn,		1,	JSTYPE_BOOLEAN,	JSDOCSTR("string text")
	,JSDOCSTR("Fill the screen with the appropriate background attribute.  string is the title for the application banner.")
	,31802
	},
	{"showbuf",			js_uifc_showbuf,	7,	JSTYPE_VOID,	JSDOCSTR("number mode, string title, string helpbuf [,uifc.showbuf.CTX object]")
	,JSDOCSTR("Shows a scrollable text buffer - optionally parsing \"help markup codes\"<br>"
		"The context object can be created using <tt>new uifc.showbuf.CTX()</tt> and if the same object is passed, allows <tt>WIN_SAV</tt> to work correctly.<br>"
		"The context object has the following properties and optional arguments to its constructor:<br><tt>cur, bar, top, left, width, height</tt>")
	,31802
	},
	{"timedisplay",			js_uifc_timedisplay,	0,	JSTYPE_VOID,	JSDOCSTR("[bool force = false]")
	,JSDOCSTR("Updates time in upper right corner of screen with current time in ASCII/Unix format")
	,31802
	},
	{"bottomline",			js_uifc_bottomline,	1,	JSTYPE_VOID,	JSDOCSTR("number mode")
	,JSDOCSTR("Displays the bottom line using the WIN_* mode flags")
	,31802
	},
	{"getstrxy",			js_uifc_getstrxy,	7,	JSTYPE_STRING,	JSDOCSTR("number left, number top, number width, number max, number mode[, string original][, uifc.getstrxy.CTX object]")
	,JSDOCSTR("String input/exit box at a specified position"
		"The context object can be created using <tt>new uifc.showbuf.CTX()</tt> and if the same object is passed, allows <tt>WIN_SAV</tt> to work correctly.<br>"
		"The context object has the following properties: <tt>lastkey</tt>")
	,31802
	},
	{0}
};
static JSBool js_uifc_resolve(JSContext *cx, JSObject *obj, jsid id)
{
	char*			name=NULL;
	JSBool			ret;
	jsval			objval;
	JSObject*		tobj;
	if(id != JSID_VOID && id != JSID_EMPTY) {
		jsval idval;
		JS_IdToValue(cx, id, &idval);
		if(JSVAL_IS_STRING(idval)) {
			JSSTRING_TO_MSTRING(cx, JSVAL_TO_STRING(idval), name, NULL);
			HANDLE_PENDING(cx, name);
		}
	}
	ret=js_SyncResolve(cx, obj, name, js_properties, js_functions, NULL, 0);
	if (name == NULL || strcmp(name, "list") == 0) {
		if(JS_GetProperty(cx, obj, "list", &objval)) {
			tobj = JSVAL_TO_OBJECT(objval);
			if (tobj)
				JS_InitClass(cx, tobj, NULL, &js_uifc_list_ctx_class, js_list_ctx_constructor, 0, NULL, NULL, NULL, NULL);
		}
	}
	if (name == NULL || strcmp(name, "showbuf") == 0) {
		if(JS_GetProperty(cx, obj, "showbuf", &objval)) {
			tobj = JSVAL_TO_OBJECT(objval);
			if (tobj)
				JS_InitClass(cx, tobj, NULL, &js_uifc_showbuf_ctx_class, js_showbuf_ctx_constructor, 0, NULL, NULL, NULL, NULL);
		}
	}
	if (name == NULL || strcmp(name, "getstrxy") == 0) {
		if(JS_GetProperty(cx, obj, "getstrxy", &objval)) {
			tobj = JSVAL_TO_OBJECT(objval);
			if (tobj)
				JS_InitClass(cx, tobj, NULL, &js_uifc_getstrxy_ctx_class, js_getstrxy_ctx_constructor, 0, NULL, NULL, NULL, NULL);
		}
	}
	if(name)
		free(name);
	return ret;
}
static JSBool js_uifc_enumerate(JSContext *cx, JSObject *obj)
{
	return(js_uifc_resolve(cx, obj, JSID_VOID));
}
static JSClass js_uifc_class = {
     "UIFC"					/* name			*/
    ,JSCLASS_HAS_PRIVATE	/* flags		*/
	,JS_PropertyStub		/* addProperty	*/
	,JS_PropertyStub		/* delProperty	*/
	,js_get					/* getProperty	*/
	,js_set					/* setProperty	*/
	,js_uifc_enumerate		/* enumerate	*/
	,js_uifc_resolve		/* resolve		*/
	,JS_ConvertStub			/* convert		*/
	,js_finalize			/* finalize		*/
};
JSObject* js_CreateUifcObject(JSContext* cx, JSObject* parent)
{
	JSObject*	obj;
	uifcapi_t*	api;
	if((obj = JS_DefineObject(cx, parent, "uifc", &js_uifc_class, NULL
		,JSPROP_ENUMERATE|JSPROP_READONLY))==NULL)
		return(NULL);
	if((api=(uifcapi_t*)malloc(sizeof(uifcapi_t)))==NULL)
		return(NULL);
	memset(api,0,sizeof(uifcapi_t));
	api->size=sizeof(uifcapi_t);
	api->esc_delay=25;
	if(!JS_SetPrivate(cx, obj, api))	/* Store a pointer to uifcapi_t */
		return(NULL);
#ifdef BUILD_JSDOCS
	js_DescribeSyncObject(cx,obj,"User InterFaCe object - Text User Interface (TUI) menu system for JSexec" ,314);
	js_CreateArrayOfStrings(cx, obj, "_property_desc_list", uifc_prop_desc, JSPROP_READONLY);
#endif
	return(obj);
}