insert tecs_client into archive + little update

tecs/sys_aunix_c.c

@@ -0,0 +1,127 @@
+#include <termios.h>
+#include <time.h>
+#include <assert.h>
+#include <unistd.h>
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <setjmp.h>
+#include <signal.h>
+#include <limits.h>
+
+static char *last_line = NULL;
+
+char *readline (char *prompt);
+
+void sys_rd_line_(char *cmd, int *retlen, char *prompt, int clen, int plen)
+{
+  char *line_read, *p;
+  int l;
+
+  l = lnblnk_(prompt, clen);
+  p = malloc((unsigned) l+2); if( p == NULL ) return;
+  strncpy(p+1,prompt,l); p[0]='\n'; p[l] = '\0';
+  if (last_line == NULL) { last_line =malloc(1); last_line[0] = '\0';};
+
+  line_read = readline(p);
+  free(p);
+
+  if (line_read)
+  {  
+    if (*line_read && strcmp(last_line, line_read)!=0)
+      add_history (line_read);
+    free (last_line);
+    strncpy(cmd, line_read, clen);
+    *retlen=strlen(line_read);
+    last_line = line_read;
+    if (*retlen>clen) *retlen=clen;
+  } else {
+    *retlen=-1;
+  }
+}
+
+
+void intcatch(int sig)
+{ printf("\nuse quit (normally ctrl-\) to interrupt\n");
+}
+
+int called=0; /* env is valid only if called==1 */
+jmp_buf env;
+
+void (*inthdl)(int sig);
+void (*errhdl)();
+
+void sighdl(int sig)
+{ if (called) longjmp(env,sig);
+}
+
+void sys_err_hdl_(void errhdl0())
+{ errhdl=errhdl0; };
+
+void sys_int_hdl_(void inthdl0(int sig))
+{ inthdl=inthdl0; };
+
+void sys_try_(void proc())
+{ int sig, status;
+  void (*sgh[32]) (int);
+
+  assert(!called); /* nested calls not allowed */
+  called=1;
+  sgh[SIGFPE] =signal(SIGFPE, sighdl);
+  sgh[SIGINT] =signal(SIGINT, *inthdl);
+  status=setjmp(env);
+  if (status==0) /* first return of setjmp */
+  { proc(); }
+  else
+  { (*errhdl)(); };
+  signal(SIGFPE, sgh[SIGFPE]);
+  signal(SIGINT, intcatch);
+  called=0;
+}
+
+void sys_abort_()
+{ if (called) longjmp(env,-2);
+}
+
+
+void sys_exit_hdl_(void hdl())
+{ int res;
+  res=atexit(hdl);
+}
+
+struct termios atts;
+
+void sys_get_raw_key_(char *key, int *tmo, int k_len)
+{
+  struct termios attr;
+  int ires, ntmo, chr;
+
+  ires=tcgetattr(STDIN_FILENO,&attr);
+  atts=attr; /* save term. attr. */
+  if (ires!=0) {perror("***\n");}
+  attr.c_lflag &= ~(ICANON) & ~(ECHO); /* canonical mode off, echo off */
+  attr.c_cc[VMIN]=0;
+  ires= tcsetattr(STDIN_FILENO,TCSANOW,&attr);
+  if (ires!=0) {perror("***\n");}
+
+/*
+  ires=fflush(stdin);
+  ires=fflush(stderr);
+*/
+
+  ntmo=*tmo*100;
+  chr=fgetc(stdin);
+  if (chr==EOF) {
+    while ((chr==EOF) & (ntmo>0)) {
+      usleep(10000); /* wait 10 ms */
+      chr=fgetc(stdin);
+      ntmo--;
+    }
+  }
+  if (chr==EOF) chr=0;
+
+  *key=chr;
+
+  ires=tcsetattr(STDIN_FILENO,TCSANOW,&atts); /* restore term. attributes */
+  if (ires!=0) {perror("***\n");};
+}