23 #include <sys/types.h>
31 #define _XOPEN_SOURCE_EXTENDED
32 #include "/usr/xpg4/include/term.h"
43 #if defined(HAVE_TERMIOS_H) && ! defined(TCSANOW)
46 #if defined(HAVE_TERM_H) && ! defined(TCSANOW)
54 #define STDIN_FILENO 0
57 #define STDOUT_FILENO 1
60 #define feCTRL(C) ((C) & 0x1F)
72 #define fe_hist_max 32
80 int on_exit(
void (*
f)(
int,
void *),
void *arg);
125 struct termios tattr;
129 tattr.c_lflag &= ~(ICANON|
ECHO);
130 tattr.c_cc[VMIN] = 1;
131 tattr.c_cc[VTIME] = 0;
160 fe_echo = fopen( ttyname(fileno(stdin)),
"w" );
164 struct termios tattr;
176 tattr.c_lflag &= ~(ICANON|
ECHO);
177 tattr.c_cc[VMIN] = 1;
178 tattr.c_cc[VTIME] = 0;
184 printf(
"need TERM\n");
186 else if(tgetent(termcap_buff,term)<=0)
188 printf(
"could not access termcap data base\n");
198 char *t_buf=(
char *)
omAlloc(128);
201 char** t_buf_ptr= &t_buf;
203 temp = tgetstr (
"pc", t_buf_ptr);
204 PC = (temp!=
NULL) ? *temp :
'\0';
205 BC=tgetstr(
"le",t_buf_ptr);
206 UP=tgetstr(
"up",t_buf_ptr);
214 temp = tgetstr (
"ti", t_buf_ptr);
316 strncpy(s,
fe_hist[(*pos)],size-2);
410 if (i<size-1) s[
i]=
'\n';
422 (
int *)fdset.fds_bits,
427 }
while( (sel == -1) && (errno == EINTR) );
453 if ((i==0) &&(s[0]==
'\0'))
return NULL;
485 while (i>=
colmax-strlen(pr))
583 memset(&(s[i]),
'\0',size-i);
629 if ((c>=
' ')&&(c<=126))
644 while ((s[j]!=
'\0')&&(j<size-2)) j++;
646 while (j>i) { s[
j]=s[j-1]; j--; }
670 if (i<size-1) s[
i]=c;
680 return fgets(s,size,stdin);
701 #if defined(HAVE_DYN_RL)
710 #include <kernel/mod_raw.h>
714 char *(*fe_filename_completion_function)();
715 char *(* fe_readline) ();
719 char **(*fe_completion_matches)();
742 if ((*fe_rl_line_buffer)[start-1]==
'"')
747 m=(
char **)
malloc(2*
sizeof(
char*));
748 m[0]=(
char *)
malloc(end-start+2);
749 strncpy(m[0],text,end-start+1);
762 if (fe_rl_hdl==
NULL) fe_rl_hdl=
dynl_open(
"libreadline.so.2");
763 if (fe_rl_hdl==
NULL) fe_rl_hdl=
dynl_open(
"libreadline.so.3");
764 if (fe_rl_hdl==
NULL) fe_rl_hdl=
dynl_open(
"libreadline.so.4");
765 if (fe_rl_hdl==
NULL) fe_rl_hdl=
dynl_open(
"libreadline.so.5");
766 if (fe_rl_hdl==
NULL) fe_rl_hdl=
dynl_open(
"libreadline.so.6");
767 if (fe_rl_hdl==
NULL) fe_rl_hdl=
dynl_open(
"libreadline.so.7");
768 if (fe_rl_hdl==
NULL) {
return 1;}
771 dynl_sym(fe_rl_hdl,
"filename_completion_function");
777 fe_rl_readline_name=(
char**)
dynl_sym(fe_rl_hdl,
"rl_readline_name");
778 if (fe_rl_readline_name==
NULL) { res=6;
break; }
779 fe_rl_line_buffer=(
char**)
dynl_sym(fe_rl_hdl,
"rl_line_buffer");
780 if (fe_rl_line_buffer==
NULL) { res=7;
break; }
783 fe_rl_attempted_completion_function=
784 dynl_sym(fe_rl_hdl,
"rl_attempted_completion_function");
785 if (fe_rl_attempted_completion_function==
NULL) { res=9;
break; }
786 fe_rl_outstream=(FILE**)
dynl_sym(fe_rl_hdl,
"rl_outstream");
787 if (fe_rl_outstream==
NULL) { res=10;
break; }
804 (*fe_rl_readline_name) =
"Singular";
808 (*fe_using_history)();
809 p =
getenv(
"SINGULARHIST");
812 (*fe_read_history) (
p);
822 #if defined(HAVE_READLINE) && !defined(HAVE_FEREAD) && !defined(HAVE_DYN_RL)
828 #if defined(HAVE_DYN_RL)
829 char *
p =
getenv(
"SINGULARHIST");
833 (*fe_write_history) (
p);
836 #if defined(HAVE_READLINE) && !defined(HAVE_FEREAD) && !defined(HAVE_DYN_RL)
837 char *p =
getenv(
"SINGULARHIST");
844 #if defined(HAVE_FEREAD)
const CanonicalForm int s
static void fe_ctrl_k(char *s, int i)
static void fe_add_hist(char *s)
static void fe_ctrl_u(char *s, int *i)
static int fe_out_char(int c)
char *(* fe_filename_completion_function)()
char ** singular_completion(char *text, int start, int end)
static BOOLEAN fe_stdin_is_tty
#define omFreeSize(addr, size)
static void fe_get_hist(char *s, int size, int *pos, int change, int incr)
static BOOLEAN fe_stdout_is_tty
char ** fe_rl_line_buffer
void * dynl_sym(void *handle, const char *symbol)
char **(* fe_completion_matches)()
void * dynl_open(char *filename)
static BOOLEAN fe_is_initialized
int history_total_bytes()
void(* fe_using_history)()
void * malloc(size_t size)
void select(const ListCFList &ppi, int length, ListCFList &ppi1, ListCFList &ppi2)
char ** fe_rl_readline_name
static char termcap_buff[2048]
void PrintS(const char *s)
int(* fe_history_total_bytes)()
static void fe_set_cursor(char *s, int i)
const Variable & v
< [in] a sqrfree bivariate poly
int dynl_close(void *handle)
int(* fe_write_history)()
char * fe_fgets_stdin_fe(char *pr, char *s, int size)
struct termios fe_saved_attributes
void omMarkAsStaticAddr(void *addr)
CPPFunction ** fe_rl_attempted_completion_function
void fe_reset_input_mode()
char * command_generator(char *text, int state)