自己写解释器(linux readline history gnu library使用)

ubuntuer

   整了一上午一直报错,还以为是libreadline.so有问题呢...结果发现是没有连接libncurse库.....ncurse很久很久玩过了^_^.不废话了,直接上代码了....
   
#include stdio.h>
#include sys/types.h>
#include sys/file.h>
#include sys/stat.h>
#include sys/errno.h>
#include readline/readline.h>
#include readline/history.h>
extern char *getwd ();
extern char *xmalloc ();
/* The names of functions that actually do the manipulation. */
int com_list (char*);
int com_view (char*);
int com_rename (char*);
int com_stat (char*);
int com_pwd (char*);
int com_delete (char*);
int com_help (char*);
int com_cd (char*);
int com_quit (char*);
/* A structure which contains information on the commands this program
   can understand. */
typedef struct {
  char *name;        /* User printable name of the function. */
  Function *func;    /* Function to call to do the job. */
  char *doc;        /* Documentation for this function.  */
} COMMAND;
COMMAND commands[] = {
  { "cd", com_cd, "Change to directory DIR" },
  { "delete", com_delete, "Delete FILE" },
  { "help", com_help, "Display this text" },
  { "?", com_help, "Synonym for `help'" },
  { "list", com_list, "List files in DIR" },
  { "ls", com_list, "Synonym for `list'" },
  { "pwd", com_pwd, "Print the current working directory" },
  { "quit", com_quit, "Quit using Fileman" },
  { "rename", com_rename, "Rename FILE to NEWNAME" },
  { "stat", com_stat, "Print out statistics on FILE" },
  { "view", com_view, "View the contents of FILE" },
  { (char *)NULL, (Function *)NULL, (char *)NULL }
};
/* Forward declarations. */
char *stripwhite ();
COMMAND *find_command ();
/* The name of this program, as taken from argv[0]. */
char *progname;
/* When non-zero, this global means the user is done using this program. */
int done;
int
main (argc, argv)
     int argc;
     char **argv;
{
  char *line, *s;
  progname = argv[0];
  initialize_readline ();    /* Bind our completer. */
  /* Loop reading and executing lines until the user quits. */
  for ( ; done == 0; )
    {
      line = readline ("Jimmy: ");
      if (!line)
        break;
      /* Remove leading and trailing whitespace from the line.
         Then, if there is anything left, add it to the history list
         and execute it. */
      s = stripwhite (line);
      if (*s)
        {
          add_history (s);
          execute_line (s);
        }
      free (line);
    }
  exit (0);
}
/* Execute a command line. */
int
execute_line (line)
     char *line;
{
  register int i;
  COMMAND *command;
  char *word;
  /* Isolate the command word. */
  i = 0;
  while (line && isspace (line))
    i++;
  word = line + i;
  while (line && !isspace (line))
    i++;
  if (line)
    line[i++] = '\0';
  command = find_command (word);
  if (!command)
    {
      fprintf (stderr, "%s: No such command for FileMan.\n", word);
      return (-1);
    }
  /* Get argument to command, if any. */
  while (isspace (line))
    i++;
  word = line + i;
  /* Call the function. */
  return ((*(command->func)) (word));
}
/* Look up NAME as the name of a command, and return a pointer to that
   command.  Return a NULL pointer if NAME isn't a command name. */
COMMAND *
find_command (char* name)
{
  int i;
  for (i = 0; commands.name; i++)
    if (strcmp (name, commands.name) == 0)
      return (&commands);
  return ((COMMAND *)NULL);
}
/* Strip whitespace from the start and end of STRING.  Return a pointer
   into STRING. */
char *
stripwhite (char* string)
{
  char *s, *t;
  for (s = string; isspace (*s); s++)
    ;
   
  if (*s == 0)
    return (s);
  t = s + strlen (s) - 1;
  while (t > s && isspace (*t))
    t--;
  *++t = '\0';
  return s;
}
/* Tell the GNU Readline library how to complete.  We want to try to complete
   on command names if this is the first word in the line, or on filenames
   if not. */
initialize_readline ()
{
  /* Allow conditional parsing of the ~/.inputrc file. */
  rl_readline_name = "FileMan";
}
/* **************************************************************** */
/*                                                                  */
/*                       FileMan Commands                           */
/*                                                                  */
/* **************************************************************** */
/* String to pass to system ().  This is for the LIST, VIEW and RENAME
   commands. */
static char syscom[1024];
/* List the file(s) named in arg. */
com_list (char* arg)
{
  if (!arg)
    arg = "";
  sprintf (syscom, "ls -FClg %s", arg);
  return (system (syscom));
}
com_view (char* arg)
{
  if (!valid_argument ("view", arg))
    return 1;
  sprintf (syscom, "more %s", arg);
  return (system (syscom));
}
com_rename (char* arg)
{
  too_dangerous ("rename");
  return (1);
}
com_stat (char* arg)
{
  struct stat finfo;
  if (!valid_argument ("stat", arg))
    return (1);
  if (stat (arg, &finfo) == -1)
    {
      perror (arg);
      return (1);
    }
  printf ("Statistics for `%s':\n", arg);
  printf ("%s has %d link%s, and is %d byte%s in length.\n", arg,
          finfo.st_nlink,
          (finfo.st_nlink == 1) ? "" : "s",
          finfo.st_size,
          (finfo.st_size == 1) ? "" : "s");
  printf ("Inode Last Change at: %s", ctime (&finfo.st_ctime));
  printf ("      Last access at: %s", ctime (&finfo.st_atime));
  printf ("    Last modified at: %s", ctime (&finfo.st_mtime));
  return (0);
}
com_delete (char* arg)
{
  too_dangerous ("delete");
  return (1);
}
/* Print out help for ARG, or for all of the commands if ARG is
   not present. */
com_help (char* arg)
{
  int i;
  int printed = 0;
  for (i = 0; commands.name; i++)
    {
      if (!*arg || (strcmp (arg, commands.name) == 0))
        {
          printf ("%s\t\t%s.\n", commands.name, commands.doc);
          printed++;
        }
    }
  if (!printed)
    {
      printf ("No commands match `%s'.  Possibilties are:\n", arg);
      for (i = 0; commands.name; i++)
        {
          /* Print in six columns. */
          if (printed == 6)
            {
              printed = 0;
              printf ("\n");
            }
          printf ("%s\t", commands.name);
          printed++;
        }
      if (printed)
        printf ("\n");
    }
  return (0);
}
/* Change to the directory ARG. */
com_cd (char* arg)
{
  if (chdir (arg) == -1)
    {
      perror (arg);
      return 1;
    }
  com_pwd ("");
  return (0);
}
/* Print out the current working directory. */
com_pwd (char* ignore)
{
  char dir[1024], *s;
  s = getwd (dir);
  if (s == 0)
    {
      printf ("Error getting pwd: %s\n", dir);
      return 1;
    }
  printf ("Current directory is %s\n", dir);
  return 0;
}
/* The user wishes to quit using this program.  Just set DONE non-zero. */
com_quit (char* arg)
{
  done = 1;
  return (0);
}
/* Function which tells you that you can't do this. */
too_dangerous (char* caller)
{
  fprintf (stderr,
           "%s: Too dangerous for me to distribute.  Write it yourself.\n",
           caller);
}
/* Return non-zero if ARG is a valid argument for CALLER, else print
   an error message and return zero. */
int
valid_argument (char* caller,char* arg)
{
  if (!arg || !*arg)
    {
      fprintf (stderr, "%s: Argument required.\n", caller);
      return (0);
    }
  return (1);
}
CFLAGS     = -g -Wall
# Allow debug for gdb
GDB = -g
CLILIBS = -lhistory -lreadline -lncurses
EXECOBJS = readline1.o
TARGET=readline
$(TARGET): $(EXECOBJS)
    $(CC) $(CFLAGS) $(GDB) -o $(TARGET) $(EXECOBJS) $(CLILIBS)
   
%.o:%.c
    $(CC) $(CFLAGS) $(GDB) -o $@ -c $
clean:
    rm -rf *.so $(TARGET) *.o
[root@lg readline]# ./readline
Jimmy: help ls
ls              Synonym for `list


本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u2/76292/showart_1878092.html