Loading...
Searching...
No Matches
slib_repl.cc
/* Scheme In One Defun, but in C this time.
* COPYRIGHT (c) 1988-1994 BY *
* PARADIGM ASSOCIATES INCORPORATED, CAMBRIDGE, MASSACHUSETTS. *
* See the source file SLIB.C for more information. *
*/
/*
gjc@paradigm.com or gjc@mitech.com or gjc@world.std.com
Paradigm Associates Inc Phone: 617-492-6079
29 Putnam Ave, Suite 6
Cambridge, MA 02138
*/
/***************************************************************/
/* This has been modified to act as an interface to siod as an */
/* embedded Lisp module. */
/* Also a (large) number of other functions have been added */
/* */
/* Alan W Black (awb@cstr.ed.ac.uk) 8th April 1996 */
/***************************************************************/
/****************************************************************/
/* */
/* read-eval print loop functions separated from main functions */
/* so LISP functions may be used without requiring full */
/* evaluation to be linked (and termcap) */
#include <cstdio>
#include "EST_unix.h"
#include <cstdlib>
#include <cstring>
#include "EST_String.h"
#include "EST_cutils.h"
#include "siod.h"
#include "siodp.h"
#include "siodeditline.h"
int siod_repl(int interactive)
{
int retval;
LISP histsize;
repl_prompt = siod_primary_prompt;
/* Set history size (ignored if no command-line editing included) */
histsize = siod_get_lval("editline_histsize",NULL);
if (histsize != NIL)
editline_histsize = get_c_int(histsize);
editline_history_file = walloc(char,strlen(siod_prog_name)+10);
sprintf(editline_history_file,".%s_history",siod_prog_name);
if (siod_get_lval("editline_no_echo",NULL) != NULL)
el_no_echo = 1;
siod_interactive = interactive;
siod_el_init();
siod_fancy_getc = siod_el_getc;
siod_fancy_ungetc = siod_el_ungetc;
retval = repl_driver(1,0,NULL);
if (interactive)
cout << endl;
return retval;
}