First Commit of my working state

[simh.git] / sim_readline.c

/* sim_readline.c: libreadline wrapper

   Written by Philipp Hachtmann


   01-OCT-08    PH     Include stdio.h
   19-SEP-08    PH     Initial version


*/

#ifdef HAVE_READLINE

#include <stdio.h>
#include <readline/readline.h>
#include <readline/history.h>
#include "sim_defs.h"

#ifdef READLINE_SAVED_HISTORY

#include <stdlib.h>
#include <string.h>
#include <ctype.h>

#define HISTORYFILE ".simh_history"

/* Simulator name */
extern char sim_name[];

static char historyfile[240];

#endif

void readline_read_history(){

#ifdef READLINE_SAVED_HISTORY

  char filename[40];
  int c;

#endif

  using_history();

#ifdef READLINE_SAVED_HISTORY

  /* Generate lower case file name like ".nova_history" */
  strcpy(filename,".");
  strncat (filename,sim_name,30);
  filename[39]=0;
  for (c=0;c<strlen(filename);c++)
    filename[c]=tolower(filename[c]);
  strcat(filename,"_history");
  
  char * tmp=getenv("HOME");
  historyfile[0]=historyfile[200]=0;

  if (tmp!=NULL){
    strncat(historyfile,tmp,100);
    strcat(historyfile,"/");
  }

  strcat(historyfile,filename);
  
  read_history(historyfile);

#endif

}

void readline_write_history(){
#ifdef READLINE_SAVED_HISTORY
  write_history(historyfile);
#endif
}

/*
   readline_read_line            read line

   Inputs:
        cptr    =       pointer to buffer
        size    =       maximum size
        prompt  =       prompt string to use
   Outputs:
        optr    =       pointer to first non-blank character
                        NULL if EOF
*/

char *readline_read_line(char *cpre, int32 size, const char * prompt){

  char * templine, *result;
  
  templine=readline(prompt);
  
  /* Action for EOF */
  if (templine==NULL) return NULL;
  
  /* For security reasons */
  cpre[size-1]=0; 

  /* Copy the line data to the buffer */
  strncpy(cpre,templine,size-1);
  
  /* Free the temporary buffer allocated by readline() */
  free(templine);

  result=cpre;
  
  
  /* Add current line to history - And don't add repetitions! */
  if ((strlen(cpre))&&(strncmp("quit",cpre,strlen(cpre))!=0)){
    if (current_history()){
      if (strcmp(cpre,current_history()->line)!=0)
	add_history(cpre);
    } else {
      add_history(cpre);
    }
  }
  
  /* Skip spaces and TAB characters */
  while ((*result==' ')||(*result=='\t')) result++;
  
  /* We're finished here */
  return result;
}  


#endif