Logo Search packages:      
Sourcecode: ksh version File versions  Download package

hist.c

/***********************************************************************
*                                                                      *
*               This software is part of the ast package               *
*                  Copyright (c) 1982-2005 AT&T Corp.                  *
*                      and is licensed under the                       *
*                  Common Public License, Version 1.0                  *
*                            by AT&T Corp.                             *
*                                                                      *
*                A copy of the License is available at                 *
*            http://www.opensource.org/licenses/cpl1.0.txt             *
*         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
*                                                                      *
*              Information and Software Systems Research               *
*                            AT&T Research                             *
*                           Florham Park NJ                            *
*                                                                      *
*                  David Korn <dgk@research.att.com>                   *
*                                                                      *
***********************************************************************/
#pragma prototyped
#include    "defs.h"
#include    <stak.h>
#include    <ls.h>
#include    <error.h>
#include    <ctype.h>
#include    "variables.h"
#include    "io.h"
#include    "name.h"
#include    "history.h"
#include    "builtins.h"
#if SHOPT_HISTEXPAND
#   include "edit.h"
#endif

static void hist_subst(const char*, int fd, char*);

#if 0
    /* for the benefit of the dictionary generator */
    int     b_fc(int argc,char *argv[], void *extra){}
#endif
int   b_hist(int argc,char *argv[], void *extra)
{
      register History_t *hp;
      register char *arg;
      register int flag,fdo;
      register Shell_t *shp = (Shell_t*)extra;
      Sfio_t *outfile;
      char *fname;
      int range[2], incr, index2, indx= -1;
      char *edit = 0;         /* name of editor */
      char *replace = 0;            /* replace old=new */
      int lflag = 0, nflag = 0, rflag = 0;
#if SHOPT_HISTEXPAND
      int pflag = 0;
#endif
      Histloc_t location;
      NOT_USED(argc);
      if(!sh_histinit())
            errormsg(SH_DICT,ERROR_system(1),e_histopen);
      hp = shp->hist_ptr;
      while((flag = optget(argv,sh_opthist))) switch(flag)
      {
          case 'e':
            edit = opt_info.arg;
            break;
          case 'n':
            nflag++;
            break;
          case 'l':
            lflag++;
            break;
          case 'r':
            rflag++;
            break;
          case 's':
            edit = "-";
            break;
#if SHOPT_HISTEXPAND
          case 'p':
            pflag++;
            break;
#endif
          case 'N':
            if(indx<=0)
            {
                  if((flag = hist_max(hp) - opt_info.num-1) < 0)
                        flag = 1;
                  range[++indx] = flag;
                  break;
            }
          case ':':
            errormsg(SH_DICT,2, "%s", opt_info.arg);
            break;
          case '?':
            errormsg(SH_DICT,ERROR_usage(2), "%s", opt_info.arg);
            break;
      }
      if(error_info.errors)
            errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
      argv += (opt_info.index-1);
#if SHOPT_HISTEXPAND
      if(pflag)
      {
            hist_cancel(hp);
            pflag = 0;
            while(arg=argv[1])
            {
                  flag = hist_expand(arg,&replace);
                  if(!(flag & HIST_ERROR))
                        sfputr(sfstdout, replace, '\n');
                  else
                        pflag = 1;
                  if(replace)
                        free(replace);
                  argv++;
            }
            return pflag;
      }
#endif
      flag = indx;
      while(flag<1 && (arg=argv[1]))
      {
            /* look for old=new argument */
            if(!replace && strchr(arg+1,'='))
            {
                  replace = arg;
                  argv++;
                  continue;
            }
            else if(isdigit(*arg) || *arg == '-')
            {
                  /* see if completely numeric */
                  do    arg++;
                  while(isdigit(*arg));
                  if(*arg==0)
                  {
                        arg = argv[1];
                        range[++flag] = (int)strtol(arg, (char**)0, 10);
                        if(*arg == '-')
                              range[flag] += (hist_max(hp)-1);
                        argv++;
                        continue;
                  }
            }
            /* search for last line starting with string */
            location = hist_find(hp,argv[1],hist_max(hp)-1,0,-1);
            if((range[++flag] = location.hist_command) < 0)
                  errormsg(SH_DICT,ERROR_exit(1),e_found,argv[1]);
            argv++;
      }
      if(flag <0)
      {
            /* set default starting range */
            if(lflag)
            {
                  flag = hist_max(hp)-16;
                  if(flag<1)
                        flag = 1;
            }
            else
                  flag = hist_max(hp)-2;
            range[0] = flag;
            flag = 0;
      }
      index2 = hist_min(hp);
      if(range[0]<index2)
            range[0] = index2;
      if(flag==0)
            /* set default termination range */
            range[1] = (lflag?hist_max(hp)-1:range[0]);
      if(range[1]>=(flag=(hist_max(hp) - !lflag)))
            range[1] = flag;
      /* check for valid ranges */
      if(range[1]<index2 || range[0]>=flag)
            errormsg(SH_DICT,ERROR_exit(1),e_badrange,range[0],range[1]);
      if(edit && *edit=='-' && range[0]!=range[1])
            errormsg(SH_DICT,ERROR_exit(1),e_eneedsarg);
      /* now list commands from range[rflag] to range[1-rflag] */
      incr = 1;
      flag = rflag>0;
      if(range[1-flag] < range[flag])
            incr = -1;
      if(lflag)
      {
            outfile = sfstdout;
            arg = "\n\t";
      }
      else
      {
            if(!(fname=pathtmp(NIL(char*),0,0,NIL(int*))))
                  errormsg(SH_DICT,ERROR_exit(1),e_create,"");
            if((fdo=open(fname,O_CREAT|O_RDWR,S_IRUSR|S_IWUSR)) < 0)
                  errormsg(SH_DICT,ERROR_system(1),e_create,fname);
            outfile= sfnew(NIL(Sfio_t*),shp->outbuff,IOBSIZE,fdo,SF_WRITE);
            arg = "\n";
            nflag++;
      }
      while(1)
      {
            if(nflag==0)
                  sfprintf(outfile,"%d\t",range[flag]);
            else if(lflag)
                  sfputc(outfile,'\t');
            hist_list(shp->hist_ptr,outfile,hist_tell(shp->hist_ptr,range[flag]),0,arg);
            if(lflag)
                  sh_sigcheck();
            if(range[flag] == range[1-flag])
                  break;
            range[flag] += incr;
      }
      if(lflag)
            return(0);
      sfclose(outfile);
      hist_eof(hp);
      arg = edit;
      if(!arg && !(arg=nv_getval(nv_scoped(HISTEDIT))) && !(arg=nv_getval(nv_scoped(FCEDNOD))))
            arg = (char*)e_defedit;
#ifdef apollo
      /*
       * Code to support the FC using the pad editor.
       * Exampled of how to use: HISTEDIT=pad
       */
      if (strcmp (arg, "pad") == 0)
      {
            extern int pad_create(char*);
            sh_close(fdo);
            fdo = pad_create(fname);
            pad_wait(fdo);
            unlink(fname);
            strcat(fname, ".bak");
            unlink(fname);
            lseek(fdo,(off_t)0,SEEK_SET);
      }
      else
      {
#endif /* apollo */
      if(*arg != '-')
      {
            char *com[3];
            com[0] =  arg;
            com[1] =  fname;
            com[2] = 0;
            error_info.errors = sh_eval(sh_sfeval(com),0);
      }
      fdo = sh_chkopen(fname);
      unlink(fname);
      free((void*)fname);
#ifdef apollo
      }
#endif /* apollo */
      /* don't history fc itself unless forked */
      error_info.flags |= ERROR_SILENT;
      if(!sh_isstate(SH_FORKED))
            hist_cancel(hp);
      sh_onstate(SH_HISTORY);
      sh_onstate(SH_VERBOSE); /* echo lines as read */
      if(replace)
            hist_subst(error_info.id,fdo,replace);
      else if(error_info.errors == 0)
      {
            char buff[IOBSIZE+1];
            Sfio_t *iop = sfnew(NIL(Sfio_t*),buff,IOBSIZE,fdo,SF_READ);
            /* read in and run the command */
            sh_eval(iop,1);
      }
      else
      {
            sh_close(fdo);
            if(!sh_isoption(SH_VERBOSE))
                  sh_offstate(SH_VERBOSE);
            sh_offstate(SH_HISTORY);
      }
      return(shp->exitval);
}


/*
 * given a file containing a command and a string of the form old=new,
 * execute the command with the string old replaced by new
 */

static void hist_subst(const char *command,int fd,char *replace)
{
      register char *newp=replace;
      register char *sp;
      register int c;
      off_t size;
      char *string;
      while(*++newp != '='); /* skip to '=' */
      if((size = lseek(fd,(off_t)0,SEEK_END)) < 0)
            return;
      lseek(fd,(off_t)0,SEEK_SET);
      c =  (int)size;
      string = stakalloc(c+1);
      if(read(fd,string,c)!=c)
            return;
      string[c] = 0;
      *newp++ =  0;
      if((sp=sh_substitute(string,replace,newp))==0)
            errormsg(SH_DICT,ERROR_exit(1),e_subst,command);
      *(newp-1) =  '=';
      sh_eval(sfopen(NIL(Sfio_t*),sp,"s"),1);
}


Generated by  Doxygen 1.6.0   Back to index