/contrib/tcsh/tc.prompt.c
C | 657 lines | 537 code | 45 blank | 75 comment | 215 complexity | e5c5e97866f8a1f428520ca2e6841ec9 MD5 | raw file
1/* $Header: /p/tcsh/cvsroot/tcsh/tc.prompt.c,v 3.70 2011/10/27 22:41:06 christos Exp $ */ 2/* 3 * tc.prompt.c: Prompt printing stuff 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 35RCSID("$tcsh: tc.prompt.c,v 3.70 2011/10/27 22:41:06 christos Exp $") 36 37#include "ed.h" 38#include "tw.h" 39 40/* 41 * kfk 21oct1983 -- add @ (time) and / ($cwd) in prompt. 42 * PWP 4/27/87 -- rearange for tcsh. 43 * mrdch@com.tau.edu.il 6/26/89 - added ~, T and .# - rearanged to switch() 44 * instead of if/elseif 45 * Luke Mewburn, <lukem@cs.rmit.edu.au> 46 * 6-Sep-91 changed date format 47 * 16-Feb-94 rewrote directory prompt code, added $ellipsis 48 * 29-Dec-96 added rprompt support 49 */ 50 51static const char *month_list[12]; 52static const char *day_list[7]; 53 54void 55dateinit(void) 56{ 57#ifdef notyet 58 int i; 59 60 setlocale(LC_TIME, ""); 61 62 for (i = 0; i < 12; i++) 63 xfree((ptr_t) month_list[i]); 64 month_list[0] = strsave(_time_info->abbrev_month[0]); 65 month_list[1] = strsave(_time_info->abbrev_month[1]); 66 month_list[2] = strsave(_time_info->abbrev_month[2]); 67 month_list[3] = strsave(_time_info->abbrev_month[3]); 68 month_list[4] = strsave(_time_info->abbrev_month[4]); 69 month_list[5] = strsave(_time_info->abbrev_month[5]); 70 month_list[6] = strsave(_time_info->abbrev_month[6]); 71 month_list[7] = strsave(_time_info->abbrev_month[7]); 72 month_list[8] = strsave(_time_info->abbrev_month[8]); 73 month_list[9] = strsave(_time_info->abbrev_month[9]); 74 month_list[10] = strsave(_time_info->abbrev_month[10]); 75 month_list[11] = strsave(_time_info->abbrev_month[11]); 76 77 for (i = 0; i < 7; i++) 78 xfree((ptr_t) day_list[i]); 79 day_list[0] = strsave(_time_info->abbrev_wkday[0]); 80 day_list[1] = strsave(_time_info->abbrev_wkday[1]); 81 day_list[2] = strsave(_time_info->abbrev_wkday[2]); 82 day_list[3] = strsave(_time_info->abbrev_wkday[3]); 83 day_list[4] = strsave(_time_info->abbrev_wkday[4]); 84 day_list[5] = strsave(_time_info->abbrev_wkday[5]); 85 day_list[6] = strsave(_time_info->abbrev_wkday[6]); 86#else 87 month_list[0] = "Jan"; 88 month_list[1] = "Feb"; 89 month_list[2] = "Mar"; 90 month_list[3] = "Apr"; 91 month_list[4] = "May"; 92 month_list[5] = "Jun"; 93 month_list[6] = "Jul"; 94 month_list[7] = "Aug"; 95 month_list[8] = "Sep"; 96 month_list[9] = "Oct"; 97 month_list[10] = "Nov"; 98 month_list[11] = "Dec"; 99 100 day_list[0] = "Sun"; 101 day_list[1] = "Mon"; 102 day_list[2] = "Tue"; 103 day_list[3] = "Wed"; 104 day_list[4] = "Thu"; 105 day_list[5] = "Fri"; 106 day_list[6] = "Sat"; 107#endif 108} 109 110void 111printprompt(int promptno, const char *str) 112{ 113 static const Char *ocp = NULL; 114 static const char *ostr = NULL; 115 time_t lclock = time(NULL); 116 const Char *cp; 117 118 switch (promptno) { 119 default: 120 case 0: 121 cp = varval(STRprompt); 122 break; 123 case 1: 124 cp = varval(STRprompt2); 125 break; 126 case 2: 127 cp = varval(STRprompt3); 128 break; 129 case 3: 130 if (ocp != NULL) { 131 cp = ocp; 132 str = ostr; 133 } 134 else 135 cp = varval(STRprompt); 136 break; 137 } 138 139 if (promptno < 2) { 140 ocp = cp; 141 ostr = str; 142 } 143 144 xfree(Prompt); 145 Prompt = NULL; 146 Prompt = tprintf(FMT_PROMPT, cp, str, lclock, NULL); 147 if (!editing) { 148 for (cp = Prompt; *cp ; ) 149 (void) putwraw(*cp++); 150 SetAttributes(0); 151 flush(); 152 } 153 154 xfree(RPrompt); 155 RPrompt = NULL; 156 if (promptno == 0) { /* determine rprompt if using main prompt */ 157 cp = varval(STRrprompt); 158 RPrompt = tprintf(FMT_PROMPT, cp, NULL, lclock, NULL); 159 /* if not editing, put rprompt after prompt */ 160 if (!editing && RPrompt[0] != '\0') { 161 for (cp = RPrompt; *cp ; ) 162 (void) putwraw(*cp++); 163 SetAttributes(0); 164 putraw(' '); 165 flush(); 166 } 167 } 168} 169 170static void 171tprintf_append_mbs(struct Strbuf *buf, const char *mbs, Char attributes) 172{ 173 while (*mbs != 0) { 174 Char wc; 175 176 mbs += one_mbtowc(&wc, mbs, MB_LEN_MAX); 177 Strbuf_append1(buf, wc | attributes); 178 } 179} 180 181Char * 182tprintf(int what, const Char *fmt, const char *str, time_t tim, ptr_t info) 183{ 184 struct Strbuf buf = Strbuf_INIT; 185 Char *z, *q; 186 Char attributes = 0; 187 static int print_prompt_did_ding = 0; 188 char *cz; 189 190 Char *p; 191 const Char *cp = fmt; 192 Char Scp; 193 struct tm *t = localtime(&tim); 194 195 /* prompt stuff */ 196 static Char *olduser = NULL; 197 int updirs; 198 size_t pdirs; 199 200 cleanup_push(&buf, Strbuf_cleanup); 201 for (; *cp; cp++) { 202 if ((*cp == '%') && ! (cp[1] == '\0')) { 203 cp++; 204 switch (*cp) { 205 case 'R': 206 if (what == FMT_HISTORY) { 207 cz = fmthist('R', info); 208 tprintf_append_mbs(&buf, cz, attributes); 209 xfree(cz); 210 } else { 211 if (str != NULL) 212 tprintf_append_mbs(&buf, str, attributes); 213 } 214 break; 215 case '#': 216 Scp = (uid == 0 || euid == 0) ? PRCHROOT : PRCH; 217 if (Scp != '\0') 218 Strbuf_append1(&buf, attributes | Scp); 219 break; 220 case '!': 221 case 'h': 222 switch (what) { 223 case FMT_HISTORY: 224 cz = fmthist('h', info); 225 break; 226 case FMT_SCHED: 227 cz = xasprintf("%d", *(int *)info); 228 break; 229 default: 230 cz = xasprintf("%d", eventno + 1); 231 break; 232 } 233 tprintf_append_mbs(&buf, cz, attributes); 234 xfree(cz); 235 break; 236 case 'T': /* 24 hour format */ 237 case '@': 238 case 't': /* 12 hour am/pm format */ 239 case 'p': /* With seconds */ 240 case 'P': 241 { 242 char ampm = 'a'; 243 int hr = t->tm_hour; 244 245 /* addition by Hans J. Albertsson */ 246 /* and another adapted from Justin Bur */ 247 if (adrof(STRampm) || (*cp != 'T' && *cp != 'P')) { 248 if (hr >= 12) { 249 if (hr > 12) 250 hr -= 12; 251 ampm = 'p'; 252 } 253 else if (hr == 0) 254 hr = 12; 255 } /* else do a 24 hour clock */ 256 257 /* "DING!" stuff by Hans also */ 258 if (t->tm_min || print_prompt_did_ding || 259 what != FMT_PROMPT || adrof(STRnoding)) { 260 if (t->tm_min) 261 print_prompt_did_ding = 0; 262 /* 263 * Pad hour to 2 characters if padhour is set, 264 * by ADAM David Alan Martin 265 */ 266 p = Itoa(hr, adrof(STRpadhour) ? 2 : 0, attributes); 267 Strbuf_append(&buf, p); 268 xfree(p); 269 Strbuf_append1(&buf, attributes | ':'); 270 p = Itoa(t->tm_min, 2, attributes); 271 Strbuf_append(&buf, p); 272 xfree(p); 273 if (*cp == 'p' || *cp == 'P') { 274 Strbuf_append1(&buf, attributes | ':'); 275 p = Itoa(t->tm_sec, 2, attributes); 276 Strbuf_append(&buf, p); 277 xfree(p); 278 } 279 if (adrof(STRampm) || (*cp != 'T' && *cp != 'P')) { 280 Strbuf_append1(&buf, attributes | ampm); 281 Strbuf_append1(&buf, attributes | 'm'); 282 } 283 } 284 else { /* we need to ding */ 285 size_t i; 286 287 for (i = 0; STRDING[i] != 0; i++) 288 Strbuf_append1(&buf, attributes | STRDING[i]); 289 print_prompt_did_ding = 1; 290 } 291 } 292 break; 293 294 case 'M': 295#ifndef HAVENOUTMP 296 if (what == FMT_WHO) 297 cz = who_info(info, 'M'); 298 else 299#endif /* HAVENOUTMP */ 300 cz = getenv("HOST"); 301 /* 302 * Bug pointed out by Laurent Dami <dami@cui.unige.ch>: don't 303 * derefrence that NULL (if HOST is not set)... 304 */ 305 if (cz != NULL) 306 tprintf_append_mbs(&buf, cz, attributes); 307 if (what == FMT_WHO) 308 xfree(cz); 309 break; 310 311 case 'm': { 312 char *scz = NULL; 313#ifndef HAVENOUTMP 314 if (what == FMT_WHO) 315 scz = cz = who_info(info, 'm'); 316 else 317#endif /* HAVENOUTMP */ 318 cz = getenv("HOST"); 319 320 if (cz != NULL) 321 while (*cz != 0 && (what == FMT_WHO || *cz != '.')) { 322 Char wc; 323 324 cz += one_mbtowc(&wc, cz, MB_LEN_MAX); 325 Strbuf_append1(&buf, wc | attributes); 326 } 327 if (scz) 328 xfree(scz); 329 break; 330 } 331 332 /* lukem: new directory prompt code */ 333 case '~': 334 case '/': 335 case '.': 336 case 'c': 337 case 'C': 338 Scp = *cp; 339 if (Scp == 'c') /* store format type (c == .) */ 340 Scp = '.'; 341 if ((z = varval(STRcwd)) == STRNULL) 342 break; /* no cwd, so don't do anything */ 343 344 /* show ~ whenever possible - a la dirs */ 345 if (Scp == '~' || Scp == '.' ) { 346 static Char *olddir = NULL; 347 348 if (tlength == 0 || olddir != z) { 349 olddir = z; /* have we changed dir? */ 350 olduser = getusername(&olddir); 351 } 352 if (olduser) 353 z = olddir; 354 } 355 updirs = pdirs = 0; 356 357 /* option to determine fixed # of dirs from path */ 358 if (Scp == '.' || Scp == 'C') { 359 int skip; 360#ifdef WINNT_NATIVE 361 Char *oldz = z; 362 if (z[1] == ':') { 363 Strbuf_append1(&buf, attributes | *z++); 364 Strbuf_append1(&buf, attributes | *z++); 365 } 366 if (*z == '/' && z[1] == '/') { 367 Strbuf_append1(&buf, attributes | *z++); 368 Strbuf_append1(&buf, attributes | *z++); 369 do { 370 Strbuf_append1(&buf, attributes | *z++); 371 } while(*z != '/'); 372 } 373#endif /* WINNT_NATIVE */ 374 q = z; 375 while (*z) /* calc # of /'s */ 376 if (*z++ == '/') 377 updirs++; 378 379#ifdef WINNT_NATIVE 380 /* 381 * for format type c, prompt will be following... 382 * c:/path => c:/path 383 * c:/path/to => c:to 384 * //machine/share => //machine/share 385 * //machine/share/folder => //machine:folder 386 */ 387 if (oldz[0] == '/' && oldz[1] == '/' && updirs > 1) 388 Strbuf_append1(&buf, attributes | ':'); 389#endif /* WINNT_NATIVE */ 390 if ((Scp == 'C' && *q != '/')) 391 updirs++; 392 393 if (cp[1] == '0') { /* print <x> or ... */ 394 pdirs = 1; 395 cp++; 396 } 397 if (cp[1] >= '1' && cp[1] <= '9') { /* calc # to skip */ 398 skip = cp[1] - '0'; 399 cp++; 400 } 401 else 402 skip = 1; 403 404 updirs -= skip; 405 while (skip-- > 0) { 406 while ((z > q) && (*z != '/')) 407 z--; /* back up */ 408 if (skip && z > q) 409 z--; 410 } 411 if (*z == '/' && z != q) 412 z++; 413 } /* . || C */ 414 415 /* print ~[user] */ 416 if ((olduser) && ((Scp == '~') || 417 (Scp == '.' && (pdirs || (!pdirs && updirs <= 0))) )) { 418 Strbuf_append1(&buf, attributes | '~'); 419 for (q = olduser; *q; q++) 420 Strbuf_append1(&buf, attributes | *q); 421 } 422 423 /* RWM - tell you how many dirs we've ignored */ 424 /* and add '/' at front of this */ 425 if (updirs > 0 && pdirs) { 426 if (adrof(STRellipsis)) { 427 Strbuf_append1(&buf, attributes | '.'); 428 Strbuf_append1(&buf, attributes | '.'); 429 Strbuf_append1(&buf, attributes | '.'); 430 } else { 431 Strbuf_append1(&buf, attributes | '/'); 432 Strbuf_append1(&buf, attributes | '<'); 433 if (updirs > 9) { 434 Strbuf_append1(&buf, attributes | '9'); 435 Strbuf_append1(&buf, attributes | '+'); 436 } else 437 Strbuf_append1(&buf, attributes | ('0' + updirs)); 438 Strbuf_append1(&buf, attributes | '>'); 439 } 440 } 441 442 while (*z) 443 Strbuf_append1(&buf, attributes | *z++); 444 break; 445 /* lukem: end of new directory prompt code */ 446 447 case 'n': 448#ifndef HAVENOUTMP 449 if (what == FMT_WHO) { 450 cz = who_info(info, 'n'); 451 tprintf_append_mbs(&buf, cz, attributes); 452 xfree(cz); 453 } 454 else 455#endif /* HAVENOUTMP */ 456 { 457 if ((z = varval(STRuser)) != STRNULL) 458 while (*z) 459 Strbuf_append1(&buf, attributes | *z++); 460 } 461 break; 462 case 'N': 463 if ((z = varval(STReuser)) != STRNULL) 464 while (*z) 465 Strbuf_append1(&buf, attributes | *z++); 466 break; 467 case 'l': 468#ifndef HAVENOUTMP 469 if (what == FMT_WHO) { 470 cz = who_info(info, 'l'); 471 tprintf_append_mbs(&buf, cz, attributes); 472 xfree(cz); 473 } 474 else 475#endif /* HAVENOUTMP */ 476 { 477 if ((z = varval(STRtty)) != STRNULL) 478 while (*z) 479 Strbuf_append1(&buf, attributes | *z++); 480 } 481 break; 482 case 'd': 483 tprintf_append_mbs(&buf, day_list[t->tm_wday], attributes); 484 break; 485 case 'D': 486 p = Itoa(t->tm_mday, 2, attributes); 487 Strbuf_append(&buf, p); 488 xfree(p); 489 break; 490 case 'w': 491 tprintf_append_mbs(&buf, month_list[t->tm_mon], attributes); 492 break; 493 case 'W': 494 p = Itoa(t->tm_mon + 1, 2, attributes); 495 Strbuf_append(&buf, p); 496 xfree(p); 497 break; 498 case 'y': 499 p = Itoa(t->tm_year % 100, 2, attributes); 500 Strbuf_append(&buf, p); 501 xfree(p); 502 break; 503 case 'Y': 504 p = Itoa(t->tm_year + 1900, 4, attributes); 505 Strbuf_append(&buf, p); 506 xfree(p); 507 break; 508 case 'S': /* start standout */ 509 attributes |= STANDOUT; 510 break; 511 case 'B': /* start bold */ 512 attributes |= BOLD; 513 break; 514 case 'U': /* start underline */ 515 attributes |= UNDER; 516 break; 517 case 's': /* end standout */ 518 attributes &= ~STANDOUT; 519 break; 520 case 'b': /* end bold */ 521 attributes &= ~BOLD; 522 break; 523 case 'u': /* end underline */ 524 attributes &= ~UNDER; 525 break; 526 case 'L': 527 ClearToBottom(); 528 break; 529 530 case 'j': 531 { 532 int njobs = -1; 533 struct process *pp; 534 535 for (pp = proclist.p_next; pp; pp = pp->p_next) 536 njobs++; 537 if (njobs == -1) 538 njobs++; 539 p = Itoa(njobs, 1, attributes); 540 Strbuf_append(&buf, p); 541 xfree(p); 542 break; 543 } 544 case '?': 545 if ((z = varval(STRstatus)) != STRNULL) 546 while (*z) 547 Strbuf_append1(&buf, attributes | *z++); 548 break; 549 case '$': 550 expdollar(&buf, &cp, attributes); 551 /* cp should point the last char of current % sequence */ 552 cp--; 553 break; 554 case '%': 555 Strbuf_append1(&buf, attributes | '%'); 556 break; 557 case '{': /* literal characters start */ 558#if LITERAL == 0 559 /* 560 * No literal capability, so skip all chars in the literal 561 * string 562 */ 563 while (*cp != '\0' && (cp[-1] != '%' || *cp != '}')) 564 cp++; 565#endif /* LITERAL == 0 */ 566 attributes |= LITERAL; 567 break; 568 case '}': /* literal characters end */ 569 attributes &= ~LITERAL; 570 break; 571 default: 572#ifndef HAVENOUTMP 573 if (*cp == 'a' && what == FMT_WHO) { 574 cz = who_info(info, 'a'); 575 tprintf_append_mbs(&buf, cz, attributes); 576 xfree(cz); 577 } 578 else 579#endif /* HAVENOUTMP */ 580 { 581 Strbuf_append1(&buf, attributes | '%'); 582 Strbuf_append1(&buf, attributes | *cp); 583 } 584 break; 585 } 586 } 587 else if (*cp == '\\' || *cp == '^') 588 Strbuf_append1(&buf, attributes | parseescape(&cp)); 589 else if (*cp == HIST) { /* EGS: handle '!'s in prompts */ 590 if (what == FMT_HISTORY) 591 cz = fmthist('h', info); 592 else 593 cz = xasprintf("%d", eventno + 1); 594 tprintf_append_mbs(&buf, cz, attributes); 595 xfree(cz); 596 } 597 else 598 Strbuf_append1(&buf, attributes | *cp); /* normal character */ 599 } 600 cleanup_ignore(&buf); 601 cleanup_until(&buf); 602 return Strbuf_finish(&buf); 603} 604 605int 606expdollar(struct Strbuf *buf, const Char **srcp, Char attr) 607{ 608 struct varent *vp; 609 const Char *src = *srcp; 610 Char *var, *val; 611 size_t i; 612 int curly = 0; 613 614 /* found a variable, expand it */ 615 var = xmalloc((Strlen(src) + 1) * sizeof (*var)); 616 for (i = 0; ; i++) { 617 var[i] = *++src & TRIM; 618 if (i == 0 && var[i] == '{') { 619 curly = 1; 620 var[i] = *++src & TRIM; 621 } 622 if (!alnum(var[i]) && var[i] != '_') { 623 624 var[i] = '\0'; 625 break; 626 } 627 } 628 if (curly && (*src & TRIM) == '}') 629 src++; 630 631 vp = adrof(var); 632 if (vp && vp->vec) { 633 for (i = 0; vp->vec[i] != NULL; i++) { 634 for (val = vp->vec[i]; *val; val++) 635 if (*val != '\n' && *val != '\r') 636 Strbuf_append1(buf, *val | attr); 637 if (vp->vec[i+1]) 638 Strbuf_append1(buf, ' ' | attr); 639 } 640 } 641 else { 642 val = (!vp) ? tgetenv(var) : NULL; 643 if (val) { 644 for (; *val; val++) 645 if (*val != '\n' && *val != '\r') 646 Strbuf_append1(buf, *val | attr); 647 } else { 648 *srcp = src; 649 xfree(var); 650 return 0; 651 } 652 } 653 654 *srcp = src; 655 xfree(var); 656 return 1; 657}