WIPnew-build

1 files changed, 0 insertions, 516 deletions

diff --git a/src/clef/edible.c b/src/clef/edible.c
deleted file mode 100644
index c3022060..00000000
--- a/src/clef/edible.c
+++ /dev/null
@@ -1,516 +0,0 @@
-/*
-    Copyright (C) 1991-2002, The Numerical Algorithms Group Ltd.
-    All rights reserved.
-    Copyright (C) 2007-2014, Gabriel Dos Reis.
-    All rights reserved.
-
-    Redistribution and use in source and binary forms, with or without
-    modification, are permitted provided that the following conditions are
-    met:
-
-        - Redistributions of source code must retain the above copyright
-          notice, this list of conditions and the following disclaimer.
-
-        - Redistributions in binary form must reproduce the above copyright
-          notice, this list of conditions and the following disclaimer in
-          the documentation and/or other materials provided with the
-          distribution.
-
-        - Neither the name of The Numerical Algorithms Group Ltd. nor the
-          names of its contributors may be used to endorse or promote products
-          derived from this software without specific prior written permission.
-
-    THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
-    IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
-    TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
-    PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
-    OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
-    EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
-    PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
-    PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-    LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-    NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-    SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*/
-
-#include <stdlib.h>
-#include <unistd.h>
-#include <stdio.h>
-#include <string.h>
-#include <termios.h>
-#include <fcntl.h>
-#include <sys/stat.h>
-#include <sys/time.h>
-#include <errno.h>
-#include <signal.h>
-#include <locale.h>
-
-#include "open-axiom.h"
-#include "sockio.h"
-#include "edible.h"
-#include "com.h"
-#include "bsdsignal.h"
-
-#include "openpty.h"
-#include "prt.h"
-#include "edin.h"
-#include "wct.h"
-#include "fnct_key.h"
-#include "cfuns.h"
-
-using namespace OpenAxiom;
-
-#ifdef AXIOM_UNLIKELY
-#define log 1
-#define logterm 1
-#define siglog 1
-#endif
-
-
-#define Cursor_shape(x) 
-
-static void catch_signals(void);
-static void init_parent(void);
-static void set_function_chars(void);
-
-
-#ifdef siglog
-int sigfile;
-char sigbuff[256];
-#endif
-
-/*   Here are the term structures I need for setting and resetting the
-     terminal characteristics. */
-
-struct termios childbuf;   /* the childs normal operating termio */
-struct termios oldbuf;     /* the initial settings */
-struct termios rawbuf;     /* the parents raw state, when it is doing nothing */
-struct termios canonbuf;   /* set it to be canonical */
-
-/*   the terminals mapping of the function keys */
-unsigned char  _INTR, _QUIT, _ERASE, _KILL, _EOF, _EOL, _RES1, _RES2;
-
-
-int ppid;        /* the parents's parent pid */
-int child_pid;   /* the childs process id */
-
-short INS_MODE ;    /* Flag for insert mode */
-short ECHOIT = 1;   /* Flag for echoing */
-short PTY;          /* Flag which tells me whether I should echo newlines */
-
-int MODE;    /* am I in cbreak, raw, or canonical */
-
-char in_buff[1024];   /* buffer for storing characters read until they are processed */
-char buff[MAXLINE];                 /**  Buffers for collecting input and  **/
-int  buff_flag[MAXLINE];      /**     flags for whether buff chars
-                                           are printing
-                                           or non-printing                **/
-
-
-char serverPath[20];      /* path name for opening the server side     */
-
-int contNum, serverNum;          /* file descriptors for pty's */
-int num_read;                    /* Number of chars read */
-
-#ifdef log 
-int logfd;
-char logpath[30];
-#endif
-
-
-
-
-
-int
-main(int argc, char *argv[])
-{
-   using namespace OpenAxiom;
-  fd_set rfds;                  /* the structure for the select call */
-  int code;                    /* return code from system calls */
-  char out_buff[MAXLINE];       /* from child and stdin */
-  int out_flag[MAXLINE] ; /* initialize the output flags */
-  char *program;          /* a string to hold the child program invocation */ 
-  char **pargs = 0;             /* holds parts of the command line */
-  int not_command = 1;          /* a flag while parsing the command line */
-  
-  
-
-  oa_setenv("LC_ALL", "C");
-  setlocale(LC_ALL, "");
-  /* try to get a pseudoterminal to play with */
-  if (ptyopen(&contNum, &serverNum, serverPath) == -1) {
-    perror("ptyopen failed");
-    exit(-1);
-  }
-  
-  /* call the routine that handles signals */
-  catch_signals();
-  
-  /* parse the command line arguments - as with the aixterm  the command 
-     argument -e should be last on the line. */
-  
-  while(*++argv && not_command) {
-    if(!strcmp(*argv, "-f"))
-      load_wct_file(*++argv);
-    else if(!strcmp(*argv, "-e")) {
-      not_command = 0;
-      pargs = ++argv;
-    }
-    else {
-      fprintf(stderr, "usage: clef [-f fname] -e command\n");
-      exit(-1);
-    }
-  }
-  skim_wct(); 
-  
-#ifdef log 
-  sprintf(logpath, "/tmp/cleflog%d", oa_getpid());
-  logfd = open(logpath, O_CREAT | O_RDWR, 0666);
-#endif
-  
-  /* get the original termio settings, so the child has them */
-  
-  if(tcgetattr(0,&childbuf) == -1) {
-    perror("clef trying to get the initial terminal settings");
-    exit(-1);
-  }
-  
-  /* start the child process */
-  
-  child_pid = fork();
-  switch(child_pid) {
-  case -1 :
-    perror("clef can't create a new process");
-    exit(-1);
-  case 0:
-    /* CHILD */
-    /* Dissasociate form my parents group so all my child processes
-       look at my terminal as the controlling terminal for the group */
-    setsid();
-
-    serverNum = open(serverPath,O_RDWR);
-    if (serverNum == -1) perror("open serverPath failed");
-
-    /* since I am the child, I can close ptc, and dup pts for all it
-       standard descriptors */
-    if (dup2(serverNum, 0) == -1) perror("dup2 0 failed");
-    if (dup2(serverNum, 1) == -1) perror("dup2 1 failed");
-    if (dup2(serverNum, 2) == -1) perror("dup2 2 failed");
-    if( (dup2(serverNum, 0) == -1)  ||
-        (dup2(serverNum, 1) == -1) ||
-        (dup2(serverNum, 2) == -1)  ) {
-      perror("clef trying to dup2");
-      exit(-1);
-    }
-    
-    /* since they have been duped, close them */
-    close(serverNum);
-    close(contNum); 
-    
-    
-    /* To make sure everything is nice, set off enhedit */
-    /*    childbuf.c_line = 0; */
-    
-    /* reconfigure the child's terminal get echoing */
-    if(tcsetattr(0, TCSAFLUSH, &childbuf) == -1) {
-      perror("clef child trying to set child's terminal");
-      exit(-1);
-    }
-    
-    /* fire up the child's process */
-    if(pargs){
-      execvp( pargs[0], pargs);
-      perror("clef trying to execvp its argument");
-      fprintf(stderr, "Process --> %s\n", pargs[0]);
-    }
-    else{
-      program = oa_getenv("SHELL");
-      if (!program)
-        program = strdup("/bin/sh");  
-      else 
-        program = strdup (program);
-      execlp( program,program, (char *) NULL);
-      perror("clef trying to execlp the default child");
-      fprintf(stderr, "Process --> %s\n", program);
-    }
-    exit(-1);
-    break;
-    /* end switch */
-  }
-  /* PARENT */
-  /* Since I am the parent, I should start to initialize some stuff.
-     I have to close the pts side for it to work properly */
-  
-  close(serverNum);  
-  ppid = getppid();
-  
-  /* Iinitialize some stuff for the reading and writing */
-  init_flag(out_flag, MAXLINE);
-  define_function_keys();
-  init_reader();
-  PTY = 1;
-  init_parent();
-  
-  /* Here is the main loop, it simply starts reading characters from
-     the std input, and from the child. */
-  
-  while(1)  {           /* loop forever */
-    
-    /* use select to see who has stuff waiting for me to handle */
-    /* set file descriptors for ptc and stdin */
-    FD_ZERO(&rfds);
-    FD_SET(contNum,&rfds);
-    FD_SET(0,&rfds);
-    set_function_chars();
-#ifdef log
-    {
-      char modepath[30];
-      sprintf(modepath, "\nMODE = %d\n", MODE);
-      write(logfd, modepath, strlen(modepath));
-    }
-#endif
-#ifdef logterm
-    {
-      struct termio ptermio;
-      char pbuff[1024];
-      tcgetattr(contNum, &ptermio);
-      sprintf(pbuff, "child's settings: Lflag = %d, Oflag = %d, Iflag = %d\n",
-              ptermio.c_lflag, ptermio.c_oflag, ptermio.c_iflag);
-      write(logfd, pbuff, strlen(pbuff));
-    }
-#endif
-    
-    code = select(FD_SETSIZE, &rfds, NULL, NULL, NULL);
-    for(; code < 0 ;) {
-      if(errno == EINTR) {
-        code = select(FD_SETSIZE, &rfds, NULL, NULL, NULL);
-      }
-      else  {
-        perror("clef select failure");
-        exit(-1);
-      }
-    }
-    
-    /* reading from the child **/
-    if( FD_ISSET(contNum,&rfds)) {       
-      if( (num_read = read(contNum, out_buff, MAXLINE)) == -1) { 
-        num_read = 0;
-      }
-#ifdef log 
-      write(logfd, "OUT<<<<<", strlen("OUT<<<<<"));
-      write(logfd, out_buff, num_read);
-#endif
-      if(num_read > 0) {
-        /* now do the printing to the screen */
-        if(MODE!= CLEFRAW) {
-          back_up(buff_pntr);
-          write(1,out_buff, num_read);
-          print_whole_buff();    /* reprint the input buffer */
-        }
-        else write(1,out_buff, num_read);
-      }
-    } /* done the child stuff */
-    /* I should read from std input */
-    else  {
-      if(FD_ISSET(0,&rfds)) {          
-        num_read = read(0, in_buff, MAXLINE);
-#ifdef log 
-        write(logfd, "IN<<<<<", strlen("IN<<<<<"));
-        write(logfd, in_buff, num_read);
-#endif
-        if(MODE == CLEFRAW ) 
-          write(contNum, in_buff, num_read);
-        else 
-          do_reading();
-      }
-    }
-  }
-}
-
-
-static void
-init_parent(void)
-{
-  
-  /* get the original termio settings, so I never have to check again */
-  if(tcgetattr(0, &oldbuf) == -1) {
-    perror("clef trying to get terminal initial settings");
-    exit(-1);
-  }
-  
-  /* get the settings for my different modes */  
-  if ((tcgetattr(0, &canonbuf) == -1) ||
-      (tcgetattr(0, &rawbuf) == -1) ) {
-    perror("clef trying to get terminal settings");
-    exit(-1);
-  }
-  
-     
-  canonbuf.c_lflag &= ~(ICANON | ECHO | ISIG); 
-  /* read before an eoln is typed */
-
-  canonbuf.c_lflag |= ISIG;
- 
-  /*  canonbuf.c_line = 0;       turn off enhanced edit */
-
-  canonbuf.c_cc[VMIN] = 1;          /* we want every character  */
-  canonbuf.c_cc[VTIME] = 1;         /* these may require tweaking */
-
-  /* also set up the parents raw setting for when needed **/
-  rawbuf.c_oflag = rawbuf.c_iflag = rawbuf.c_lflag /* = rawbuf.c_line */ = 0;
-  rawbuf.c_cc[VMIN] = 1;
-  rawbuf.c_cc[VTIME] = 1;
-
-
-  if(tcsetattr(0, TCSAFLUSH, &canonbuf) == -1) {
-    perror("clef setting parent terminal to canonical processing");
-    exit(0);
-  }
-  
-  /* initialize some flags I will be using */
-  MODE = CLEFCANONICAL;
-  INS_MODE = 1;
-  Cursor_shape(2);
-}
-
-
-static void 
-hangup_handler(int sig)
-{
-#ifdef siglog
-  sigfile = open(sigbuff, O_RDWR | O_APPEND);
-  write(sigfile, "Hangup Handler\n", strlen("Hangup Handler\n"));
-  close(sigfile);
-#endif
-  /* try to kill my child if it is around */
-  if(kill(child_pid, 0)) kill(child_pid, SIGTERM);
-  if(kill(ppid, 0) >= 0) {
-    /* fix the terminal and exit */
-    if(tcsetattr(0, TCSAFLUSH, &oldbuf) == -1) {
-      perror("clef restoring terminal in hangup handler");
-    }
-    printf("\n");
-  }
-  /* remove the temporary editor filename */
-  unlink(editorfilename);
-  exit(-1);
-}
-
-static void 
-terminate_handler(int sig)
-{
-#ifdef siglog
-  sigfile = open(sigbuff, O_RDWR | O_APPEND);
-  write(sigfile, "Terminate Handler\n", strlen("Terminate Handler\n") + 1);
-  close(sigfile);
-  openaxiom_sleep(1);
-#endif
-  kill(child_pid, SIGTERM);
-  /* fix the terminal, and exit */
-  if(tcsetattr(0, TCSAFLUSH, &oldbuf) == -1) {
-    perror("clef restoring terminal in terminate handler");
-  }
-  printf("\n");
-  Cursor_shape(2);
-  fprintf(stderr, "\n");
-  /* remove the temporary editor filename */
-  unlink(editorfilename);
-  exit(0);
-}
-
-static void 
-interrupt_handler(int sig)
-{
-#ifdef siglog
-  sigfile = open(sigbuff, O_RDWR | O_APPEND);
-  write(sigfile, "Interrupt Handler\n", strlen("Interrupt Handler\n") + 1);
-  close(sigfile);
-  openaxiom_sleep(1);
-#endif
-  kill(child_pid, SIGINT);
-}
-
-static void 
-child_handler(int sig)
-{
-#ifdef siglog
-  sigfile = open(sigbuff, O_RDWR | O_APPEND );
-  write(sigfile, "Child Handler\n", strlen("Child Handler\n") + 1);
-  close(sigfile);
-#endif
-  Cursor_shape(2);
-  close(contNum);
-  if(kill(ppid, 0) >= 0) {
-   /* fix the terminal, and exit */
-    if(tcsetattr(0, TCSAFLUSH, &oldbuf) == -1) {
-      perror("clef restoring terminal in child handler");
-    }
-    printf("\n");
-  }
-  /* remove the temporary editor filename */
-  unlink(editorfilename);
-  exit(0);
-}
-
-static void 
-alarm_handler(int sig)
-{
-  int newppid = getppid();
-#ifdef siglog
-  sigfile = open(sigbuff, O_RDWR | O_APPEND);
-  write(sigfile, "Alarm Handler\n", strlen("Alarm Handler\n")+ 1 );
-  close(sigfile);
-#endif
-  /* simply gets the parent process id, if different, it terminates ,
-    otherwise it resets the alarm */
-  
-  if(ppid == newppid) {
-    alarm(60);
-    return;
-  }
-  else {
-    /* once that is done fix the terminal, and exit */
-    if(tcsetattr(0, TCSAFLUSH, &oldbuf) == -1) {
-      perror("clef restoring terminal in alarm handler");
-    }
-    Cursor_shape(2);
-    fprintf(stderr, "\n");
-    /* remove the temporary editor filename */
-    unlink(editorfilename);
-    exit(0);
-  }
-}
-
-/* a procedure which tells my parent how to catch signals from its children */
-static void
-catch_signals(void) 
-{
-#ifdef siglog
-  sprintf(sigbuff, "/tmp/csig%d", oa_getpid());
-  sigfile = open(sigbuff, O_RDWR | O_TRUNC | O_CREAT);
-  write(sigfile, "Started \n", strlen("Started \n"));
-  close(sigfile);
-#endif
-  bsdSignal(SIGHUP, hangup_handler,RestartSystemCalls); 
-  bsdSignal(SIGCHLD,child_handler,RestartSystemCalls); 
-  bsdSignal(SIGTERM, terminate_handler,RestartSystemCalls);
-  bsdSignal(SIGINT, interrupt_handler,RestartSystemCalls); 
-  bsdSignal(SIGALRM, alarm_handler,RestartSystemCalls);
-  alarm(60);
-}
-
-#define etc_whitespace(c) ((c == ' ' || c == '\t')?(1):(0))
-
-
-static void
-set_function_chars(void)
-{
-  /* get the special characters */
-  _INTR = childbuf.c_cc[VINTR];
-  _QUIT = childbuf.c_cc[VQUIT];
-  _ERASE = childbuf.c_cc[VERASE];
-  _KILL = childbuf.c_cc[VKILL];
-  _EOF = childbuf.c_cc[VEOF];
-  _EOL = childbuf.c_cc[VEOL];
-  return;
-}