da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner* Copyright (c) 1982-2010 AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* and is licensed under the *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Common Public License, Version 1.0 *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin* by AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* http://www.opensource.org/licenses/cpl1.0.txt *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "defs.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <stak.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <ls.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <error.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "variables.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "io.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "name.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "history.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "builtins.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_HISTEXPAND
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# include "edit.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define HIST_RECURSE 5
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void hist_subst(const char*, int fd, char*);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if 0
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* for the benefit of the dictionary generator */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int b_fc(int argc,char *argv[], void *extra){}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint b_hist(int argc,char *argv[], void *extra)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register History_t *hp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *arg;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int flag,fdo;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register Shell_t *shp = ((Shbltin_t*)extra)->shp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfio_t *outfile;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *fname;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int range[2], incr, index2, indx= -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *edit = 0; /* name of editor */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *replace = 0; /* replace old=new */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int lflag = 0, nflag = 0, rflag = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_HISTEXPAND
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int pflag = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Histloc_t location;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin NOT_USED(argc);
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!sh_histinit((void*)shp))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_system(1),e_histopen);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hp = shp->hist_ptr;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((flag = optget(argv,sh_opthist))) switch(flag)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'e':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin edit = opt_info.arg;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'n':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nflag++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'l':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lflag++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'r':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin rflag++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 's':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin edit = "-";
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_HISTEXPAND
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'p':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pflag++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'N':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(indx<=0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((flag = hist_max(hp) - opt_info.num-1) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flag = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin range[++indx] = flag;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ':':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,2, "%s", opt_info.arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '?':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_usage(2), "%s", opt_info.arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(error_info.errors)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv += (opt_info.index-1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_HISTEXPAND
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(pflag)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hist_cancel(hp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pflag = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(arg=argv[1])
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flag = hist_expand(arg,&replace);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(flag & HIST_ERROR))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputr(sfstdout, replace, '\n');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pflag = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(replace)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(replace);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return pflag;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flag = indx;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(flag<1 && (arg=argv[1]))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* look for old=new argument */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!replace && strchr(arg+1,'='))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin replace = arg;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(isdigit(*arg) || *arg == '-')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* see if completely numeric */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do arg++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(isdigit(*arg));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*arg==0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg = argv[1];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin range[++flag] = (int)strtol(arg, (char**)0, 10);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*arg == '-')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin range[flag] += (hist_max(hp)-1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* search for last line starting with string */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin location = hist_find(hp,argv[1],hist_max(hp)-1,0,-1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((range[++flag] = location.hist_command) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_found,argv[1]);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag <0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* set default starting range */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lflag)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flag = hist_max(hp)-16;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag<1)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flag = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flag = hist_max(hp)-2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin range[0] = flag;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flag = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin index2 = hist_min(hp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(range[0]<index2)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin range[0] = index2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag==0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* set default termination range */
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin range[1] = ((lflag && !edit)?hist_max(hp)-1:range[0]);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(range[1]>=(flag=(hist_max(hp) - !lflag)))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin range[1] = flag;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for valid ranges */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(range[1]<index2 || range[0]>=flag)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_badrange,range[0],range[1]);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(edit && *edit=='-' && range[0]!=range[1])
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_eneedsarg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* now list commands from range[rflag] to range[1-rflag] */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin incr = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flag = rflag>0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(range[1-flag] < range[flag])
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin incr = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lflag)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin outfile = sfstdout;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg = "\n\t";
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(fname=pathtmp(NIL(char*),0,0,NIL(int*))))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_create,"");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((fdo=open(fname,O_CREAT|O_RDWR,S_IRUSR|S_IWUSR)) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_system(1),e_create,fname);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin outfile= sfnew(NIL(Sfio_t*),shp->outbuff,IOBSIZE,fdo,SF_WRITE);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg = "\n";
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nflag++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(1)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(nflag==0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(outfile,"%d\t",range[flag]);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(lflag)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(outfile,'\t');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hist_list(shp->hist_ptr,outfile,hist_tell(shp->hist_ptr,range[flag]),0,arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lflag)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_sigcheck();
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(range[flag] == range[1-flag])
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin range[flag] += incr;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lflag)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfclose(outfile);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hist_eof(hp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg = edit;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!arg && !(arg=nv_getval(sh_scoped(shp,HISTEDIT))) && !(arg=nv_getval(sh_scoped(shp,FCEDNOD))))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg = (char*)e_defedit;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef apollo
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Code to support the FC using the pad editor.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Exampled of how to use: HISTEDIT=pad
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (strcmp (arg, "pad") == 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin extern int pad_create(char*);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_close(fdo);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fdo = pad_create(fname);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pad_wait(fdo);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unlink(fname);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin strcat(fname, ".bak");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unlink(fname);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lseek(fdo,(off_t)0,SEEK_SET);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* apollo */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*arg != '-')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *com[3];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin com[0] = arg;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin com[1] = fname;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin com[2] = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error_info.errors = sh_eval(sh_sfeval(com),0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fdo = sh_chkopen(fname);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unlink(fname);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free((void*)fname);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef apollo
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* apollo */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* don't history fc itself unless forked */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error_info.flags |= ERROR_SILENT;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!sh_isstate(SH_FORKED))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hist_cancel(hp);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_onstate(SH_HISTORY);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_onstate(SH_VERBOSE); /* echo lines as read */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(replace)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hist_subst(error_info.id,fdo,replace);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(error_info.errors == 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char buff[IOBSIZE+1];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfio_t *iop = sfnew(NIL(Sfio_t*),buff,IOBSIZE,fdo,SF_READ);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* read in and run the command */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(shp->hist_depth++ > HIST_RECURSE)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_toodeep,"history");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_eval(iop,1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->hist_depth--;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_close(fdo);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!sh_isoption(SH_VERBOSE))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offstate(SH_VERBOSE);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offstate(SH_HISTORY);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(shp->exitval);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * given a file containing a command and a string of the form old=new,
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * execute the command with the string old replaced by new
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void hist_subst(const char *command,int fd,char *replace)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *newp=replace;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *sp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin off_t size;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *string;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(*++newp != '='); /* skip to '=' */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((size = lseek(fd,(off_t)0,SEEK_END)) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lseek(fd,(off_t)0,SEEK_SET);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = (int)size;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin string = stakalloc(c+1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(read(fd,string,c)!=c)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin string[c] = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *newp++ = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((sp=sh_substitute(string,replace,newp))==0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_subst,command);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *(newp-1) = '=';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_eval(sfopen(NIL(Sfio_t*),sp,"s"),1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin