contrib/tcsh-6/sh.hist.c

   1 /* $Header: /p/tcsh/cvsroot/tcsh/sh.hist.c,v 3.40 2007/03/01 17:14:51 christos Exp $ */
   2 /*
   3  * sh.hist.c: Shell history expansions and substitutions
   4  */
   5 /*-
   6  * Copyright (c) 1980, 1991 The Regents of the University of California.
   7  * All rights reserved.
   8  *
   9  * Redistribution and use in source and binary forms, with or without
  10  * modification, are permitted provided that the following conditions
  11  * are met:
  12  * 1. Redistributions of source code must retain the above copyright
  13  *    notice, this list of conditions and the following disclaimer.
  14  * 2. Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer in the
  16  *    documentation and/or other materials provided with the distribution.
  17  * 3. Neither the name of the University nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  */
  33 #include "sh.h"
  34
  35 RCSID("$tcsh: sh.hist.c,v 3.40 2007/03/01 17:14:51 christos Exp $")
  36
  37 #include "tc.h"
  38
  39 extern int histvalid;
  40 extern struct Strbuf histline;
  41 Char HistLit = 0;
  42
  43 static  int     heq     (const struct wordent *, const struct wordent *);
  44 static  void    hfree   (struct Hist *);
  45 static  void    dohist1 (struct Hist *, int *, int);
  46 static  void    phist   (struct Hist *, int);
  47
  48 #define HIST_ONLY       0x01
  49 #define HIST_SAVE       0x02
  50 #define HIST_LOAD       0x04
  51 #define HIST_REV        0x08
  52 #define HIST_CLEAR      0x10
  53 #define HIST_MERGE      0x20
  54 #define HIST_TIME       0x40
  55
  56 /*
  57  * C shell
  58  */
  59
  60 void
  61 savehist(struct wordent *sp, int mflg)
  62 {
  63     struct Hist *hp, *np;
  64     int histlen = 0;
  65     Char   *cp;
  66
  67     /* throw away null lines */
  68     if (sp && sp->next->word[0] == '\n')
  69         return;
  70     cp = varval(STRhistory);
  71     while (*cp) {
  72         if (!Isdigit(*cp)) {
  73             histlen = 0;
  74             break;
  75         }
  76         histlen = histlen * 10 + *cp++ - '0';
  77     }
  78     if (sp)
  79         (void) enthist(++eventno, sp, 1, mflg);
  80     for (hp = &Histlist; (np = hp->Hnext) != NULL;)
  81         if (eventno - np->Href >= histlen || histlen == 0)
  82             hp->Hnext = np->Hnext, hfree(np);
  83         else
  84             hp = np;
  85 }
  86
  87 static int
  88 heq(const struct wordent *a0, const struct wordent *b0)
  89 {
  90     const struct wordent *a = a0->next, *b = b0->next;
  91
  92     for (;;) {
  93         if (Strcmp(a->word, b->word) != 0)
  94             return 0;
  95         a = a->next;
  96         b = b->next;
  97         if (a == a0)
  98             return (b == b0) ? 1 : 0;
  99         if (b == b0)
 100             return 0;
 101     }
 102 }
 103
 104
 105 struct Hist *
 106 enthist(int event, struct wordent *lp, int docopy, int mflg)
 107 {
 108     struct Hist *p = NULL, *pp = &Histlist;
 109     int n, r;
 110     struct Hist *np;
 111     const Char *dp;
 112
 113     if ((dp = varval(STRhistdup)) != STRNULL) {
 114         if (eq(dp, STRerase)) {
 115             /* masaoki@akebono.tky.hp.com (Kobayashi Masaoki) */
 116             struct Hist *px;
 117             for (p = pp; (px = p, p = p->Hnext) != NULL;)
 118                 if (heq(lp, &(p->Hlex))){
 119                     px->Hnext = p->Hnext;
 120                     if (Htime != 0 && p->Htime > Htime)
 121                         Htime = p->Htime;
 122                     n = p->Href;
 123                     hfree(p);
 124                     for (p = px->Hnext; p != NULL; p = p->Hnext)
 125                         p->Href = n--;
 126                     break;
 127                 }
 128         }
 129         else if (eq(dp, STRall)) {
 130             for (p = pp; (p = p->Hnext) != NULL;)
 131                 if (heq(lp, &(p->Hlex))) {
 132                     eventno--;
 133                     break;
 134                 }
 135         }
 136         else if (eq(dp, STRprev)) {
 137             if (pp->Hnext && heq(lp, &(pp->Hnext->Hlex))) {
 138                 p = pp->Hnext;
 139                 eventno--;
 140             }
 141         }
 142     }
 143
 144     np = p ? p : xmalloc(sizeof(*np));
 145
 146     /* Pick up timestamp set by lex() in Htime if reading saved history */
 147     if (Htime != 0) {
 148         np->Htime = Htime;
 149         Htime = 0;
 150     }
 151     else
 152         (void) time(&(np->Htime));
 153
 154     if (p == np)
 155         return np;
 156
 157     np->Hnum = np->Href = event;
 158     if (docopy) {
 159         copylex(&np->Hlex, lp);
 160         if (histvalid)
 161             np->histline = Strsave(histline.s);
 162         else
 163             np->histline = NULL;
 164     }
 165     else {
 166         np->Hlex.next = lp->next;
 167         lp->next->prev = &np->Hlex;
 168         np->Hlex.prev = lp->prev;
 169         lp->prev->next = &np->Hlex;
 170         np->histline = NULL;
 171     }
 172     if (mflg)
 173       {
 174         while ((p = pp->Hnext) && (p->Htime > np->Htime))
 175           pp = p;
 176         while (p && p->Htime == np->Htime)
 177           {
 178             if (heq(&p->Hlex, &np->Hlex))
 179               {
 180                 eventno--;
 181                 hfree(np);
 182                 return (p);
 183               }
 184             pp = p;
 185             p = p->Hnext;
 186           }
 187         for (p = Histlist.Hnext; p != pp->Hnext; p = p->Hnext)
 188           {
 189             n = p->Hnum; r = p->Href;
 190             p->Hnum = np->Hnum; p->Href = np->Href;
 191             np->Hnum = n; np->Href = r;
 192           }
 193       }
 194     np->Hnext = pp->Hnext;
 195     pp->Hnext = np;
 196     return (np);
 197 }
 198
 199 static void
 200 hfree(struct Hist *hp)
 201 {
 202
 203     freelex(&hp->Hlex);
 204     if (hp->histline)
 205         xfree(hp->histline);
 206     xfree(hp);
 207 }
 208
 209
 210 /*ARGSUSED*/
 211 void
 212 dohist(Char **vp, struct command *c)
 213 {
 214     int     n, hflg = 0;
 215
 216     USE(c);
 217     if (getn(varval(STRhistory)) == 0)
 218         return;
 219     while (*++vp && **vp == '-') {
 220         Char   *vp2 = *vp;
 221
 222         while (*++vp2)
 223             switch (*vp2) {
 224             case 'c':
 225                 hflg |= HIST_CLEAR;
 226                 break;
 227             case 'h':
 228                 hflg |= HIST_ONLY;
 229                 break;
 230             case 'r':
 231                 hflg |= HIST_REV;
 232                 break;
 233             case 'S':
 234                 hflg |= HIST_SAVE;
 235                 break;
 236             case 'L':
 237                 hflg |= HIST_LOAD;
 238                 break;
 239             case 'M':
 240                 hflg |= HIST_MERGE;
 241                 break;
 242             case 'T':
 243                 hflg |= HIST_TIME;
 244                 break;
 245             default:
 246                 stderror(ERR_HISTUS, "chrSLMT");
 247                 break;
 248             }
 249     }
 250
 251     if (hflg & HIST_CLEAR) {
 252         struct Hist *np, *hp;
 253         for (hp = &Histlist; (np = hp->Hnext) != NULL;)
 254             hp->Hnext = np->Hnext, hfree(np);
 255     }
 256
 257     if (hflg & (HIST_LOAD | HIST_MERGE))
 258         loadhist(*vp, (hflg & HIST_MERGE) ? 1 : 0);
 259     else if (hflg & HIST_SAVE)
 260         rechist(*vp, 1);
 261     else {
 262         if (*vp)
 263             n = getn(*vp);
 264         else {
 265             n = getn(varval(STRhistory));
 266         }
 267         dohist1(Histlist.Hnext, &n, hflg);
 268     }
 269 }
 270
 271 static void
 272 dohist1(struct Hist *hp, int *np, int hflg)
 273 {
 274     int    print = (*np) > 0;
 275
 276     for (; hp != 0; hp = hp->Hnext) {
 277         if (setintr) {
 278             int old_pintr_disabled;
 279
 280             pintr_push_enable(&old_pintr_disabled);
 281             cleanup_until(&old_pintr_disabled);
 282         }
 283         (*np)--;
 284         if ((hflg & HIST_REV) == 0) {
 285             dohist1(hp->Hnext, np, hflg);
 286             if (print)
 287                 phist(hp, hflg);
 288             return;
 289         }
 290         if (*np >= 0)
 291             phist(hp, hflg);
 292     }
 293 }
 294
 295 static void
 296 phist(struct Hist *hp, int hflg)
 297 {
 298     if (hflg & HIST_ONLY) {
 299         int old_output_raw;
 300
 301        /*
 302         * Control characters have to be written as is (output_raw).
 303         * This way one can preserve special characters (like tab) in
 304         * the history file.
 305         * From: mveksler@vnet.ibm.com (Veksler Michael)
 306         */
 307         old_output_raw = output_raw;
 308         output_raw = 1;
 309         cleanup_push(&old_output_raw, output_raw_restore);
 310         if (hflg & HIST_TIME)
 311             /*
 312              * Make file entry with history time in format:
 313              * "+NNNNNNNNNN" (10 digits, left padded with ascii '0')
 314              */
 315
 316             xprintf("#+%010lu\n", (unsigned long)hp->Htime);
 317
 318         if (HistLit && hp->histline)
 319             xprintf("%S\n", hp->histline);
 320         else
 321             prlex(&hp->Hlex);
 322         cleanup_until(&old_output_raw);
 323     }
 324     else {
 325         Char   *cp = str2short("%h\t%T\t%R\n");
 326         Char *p;
 327         struct varent *vp = adrof(STRhistory);
 328
 329         if (vp && vp->vec != NULL && vp->vec[0] && vp->vec[1])
 330             cp = vp->vec[1];
 331
 332         p = tprintf(FMT_HISTORY, cp, NULL, hp->Htime, hp);
 333         cleanup_push(p, xfree);
 334         for (cp = p; *cp;)
 335             xputwchar(*cp++);
 336         cleanup_until(p);
 337     }
 338 }
 339
 340
 341 char *
 342 fmthist(int fmt, ptr_t ptr)
 343 {
 344     struct Hist *hp = ptr;
 345     char *buf;
 346
 347     switch (fmt) {
 348     case 'h':
 349         return xasprintf("%6d", hp->Hnum);
 350     case 'R':
 351         if (HistLit && hp->histline)
 352             return xasprintf("%S", hp->histline);
 353         else {
 354             Char *istr, *ip;
 355             char *p;
 356
 357             istr = sprlex(&hp->Hlex);
 358             buf = xmalloc(Strlen(istr) * MB_LEN_MAX + 1);
 359
 360             for (p = buf, ip = istr; *ip != '\0'; ip++)
 361                 p += one_wctomb(p, CHAR & *ip);
 362
 363             *p = '\0';
 364             xfree(istr);
 365             return buf;
 366         }
 367     default:
 368         buf = xmalloc(1);
 369         buf[0] = '\0';
 370         return buf;
 371     }
 372 }
 373
 374 void
 375 rechist(Char *fname, int ref)
 376 {
 377     Char    *snum;
 378     int     fp, ftmp, oldidfds;
 379     struct varent *shist;
 380     static Char   *dumphist[] = {STRhistory, STRmhT, 0, 0};
 381
 382     if (fname == NULL && !ref)
 383         return;
 384     /*
 385      * If $savehist is just set, we use the value of $history
 386      * else we use the value in $savehist
 387      */
 388     if (((snum = varval(STRsavehist)) == STRNULL) &&
 389         ((snum = varval(STRhistory)) == STRNULL))
 390         snum = STRmaxint;
 391
 392
 393     if (fname == NULL) {
 394         if ((fname = varval(STRhistfile)) == STRNULL)
 395             fname = Strspl(varval(STRhome), &STRtildothist[1]);
 396         else
 397             fname = Strsave(fname);
 398     }
 399     else
 400         fname = globone(fname, G_ERROR);
 401     cleanup_push(fname, xfree);
 402
 403     /*
 404      * The 'savehist merge' feature is intended for an environment
 405      * with numerous shells being in simultaneous use. Imagine
 406      * any kind of window system. All these shells 'share' the same
 407      * ~/.history file for recording their command line history.
 408      * Currently the automatic merge can only succeed when the shells
 409      * nicely quit one after another.
 410      *
 411      * Users that like to nuke their environment require here an atomic
 412      *  loadhist-creat-dohist(dumphist)-close
 413      * sequence.
 414      *
 415      * jw.
 416      */
 417     /*
 418      * We need the didfds stuff before loadhist otherwise
 419      * exec in a script will fail to print if merge is set.
 420      * From: mveksler@iil.intel.com (Veksler Michael)
 421      */
 422     oldidfds = didfds;
 423     didfds = 0;
 424     if ((shist = adrof(STRsavehist)) != NULL && shist->vec != NULL)
 425         if (shist->vec[1] && eq(shist->vec[1], STRmerge))
 426             loadhist(fname, 1);
 427     fp = xcreat(short2str(fname), 0600);
 428     if (fp == -1) {
 429         didfds = oldidfds;
 430         cleanup_until(fname);
 431         return;
 432     }
 433     ftmp = SHOUT;
 434     SHOUT = fp;
 435     dumphist[2] = snum;
 436     dohist(dumphist, NULL);
 437     xclose(fp);
 438     SHOUT = ftmp;
 439     didfds = oldidfds;
 440     cleanup_until(fname);
 441 }
 442
 443
 444 void
 445 loadhist(Char *fname, int mflg)
 446 {
 447     static Char   *loadhist_cmd[] = {STRsource, NULL, NULL, NULL};
 448     loadhist_cmd[1] = mflg ? STRmm : STRmh;
 449
 450     if (fname != NULL)
 451         loadhist_cmd[2] = fname;
 452     else if ((fname = varval(STRhistfile)) != STRNULL)
 453         loadhist_cmd[2] = fname;
 454     else
 455         loadhist_cmd[2] = STRtildothist;
 456
 457     dosource(loadhist_cmd, NULL);
 458 }