![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to prompter.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / mh / uip|
Return to prompter.c CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / mh / uip |
1.1 ! root 1: /* prompter.c - prompting editor front-end */ ! 2: ! 3: #include "../h/mh.h" ! 4: #include <stdio.h> ! 5: #include <errno.h> ! 6: #ifndef SYS5 ! 7: #include <sgtty.h> ! 8: #else SYS5 ! 9: #include <sys/types.h> ! 10: #include <termio.h> ! 11: #include <sys/ioctl.h> ! 12: #endif SYS5 ! 13: #ifdef BSD42 ! 14: #include <setjmp.h> ! 15: #endif BSD42 ! 16: #include <signal.h> ! 17: ! 18: ! 19: #define QUOTE '\\' ! 20: #ifndef CKILL ! 21: #define CKILL '@' ! 22: #endif not CKILL ! 23: #ifndef CERASE ! 24: #define CERASE '#' ! 25: #endif not CERASE ! 26: ! 27: /* */ ! 28: ! 29: static struct swit switches[] = { ! 30: #define ERASESW 0 ! 31: "erase chr", 0, ! 32: #define KILLSW 1 ! 33: "kill chr", 0, ! 34: ! 35: #define PREPSW 2 ! 36: "prepend", 0, ! 37: #define NPREPSW 3 ! 38: "noprepend", 0, ! 39: ! 40: #define RAPDSW 4 ! 41: "rapid", 0, ! 42: #define NRAPDSW 5 ! 43: "norapid", 0, ! 44: ! 45: #define BODYSW 6 ! 46: "body", -4, ! 47: #define NBODYSW 7 ! 48: "nobody", -6, ! 49: ! 50: #define HELPSW 8 ! 51: "help", 4, ! 52: ! 53: NULL, NULL ! 54: }; ! 55: ! 56: /* */ ! 57: ! 58: extern int errno; ! 59: ! 60: ! 61: #ifndef SYS5 ! 62: #define ERASE sg.sg_erase ! 63: #define KILL sg.sg_kill ! 64: static struct sgttyb sg; ! 65: ! 66: #define INTR tc.t_intrc ! 67: static struct tchars tc; ! 68: #else SYS5 ! 69: #define ERASE sg.c_cc[VERASE] ! 70: #define KILL sg.c_cc[VKILL] ! 71: #define INTR sg.c_cc[VINTR] ! 72: static struct termio sg; ! 73: #endif SYS5 ! 74: ! 75: ! 76: int intrser (); ! 77: ! 78: static int wtuser = 0; ! 79: static int sigint = 0; ! 80: ! 81: #ifdef BSD42 ! 82: static jmp_buf sigenv; ! 83: #endif BSD42 ! 84: ! 85: /* */ ! 86: ! 87: /* ARGSUSED */ ! 88: ! 89: main (argc, argv) ! 90: int argc; ! 91: char *argv[]; ! 92: { ! 93: int body = 1, ! 94: prepend = 1, ! 95: rapid = 0, ! 96: fdi, ! 97: fdo, ! 98: i, ! 99: state; ! 100: char *cp, ! 101: *drft = NULL, ! 102: *erasep = NULL, ! 103: *killp = NULL, ! 104: name[NAMESZ], ! 105: field[BUFSIZ], ! 106: buffer[BUFSIZ], ! 107: tmpfil[BUFSIZ], ! 108: **ap, ! 109: *arguments[MAXARGS], ! 110: **argp; ! 111: FILE *in, *out; ! 112: ! 113: invo_name = r1bindex (argv[0], '/'); ! 114: if ((cp = m_find (invo_name)) != NULL) { ! 115: ap = brkstring (cp = getcpy (cp), " ", "\n"); ! 116: ap = copyip (ap, arguments); ! 117: } ! 118: else ! 119: ap = arguments; ! 120: (void) copyip (argv + 1, ap); ! 121: argp = arguments; ! 122: ! 123: /* */ ! 124: ! 125: while (cp = *argp++) ! 126: if (*cp == '-') ! 127: switch (smatch (++cp, switches)) { ! 128: case AMBIGSW: ! 129: ambigsw (cp, switches); ! 130: done (1); ! 131: case UNKWNSW: ! 132: adios (NULLCP, "-%s unknown", cp); ! 133: case HELPSW: ! 134: (void) sprintf (buffer, "%s [switches] file", invo_name); ! 135: help (buffer, switches); ! 136: done (1); ! 137: ! 138: case ERASESW: ! 139: if (!(erasep = *argp++) || *erasep == '-') ! 140: adios (NULLCP, "missing argument to %s", argp[-2]); ! 141: continue; ! 142: case KILLSW: ! 143: if (!(killp = *argp++) || *killp == '-') ! 144: adios (NULLCP, "missing argument to %s", argp[-2]); ! 145: continue; ! 146: ! 147: case PREPSW: ! 148: prepend++; ! 149: continue; ! 150: case NPREPSW: ! 151: prepend = 0; ! 152: continue; ! 153: ! 154: case RAPDSW: ! 155: rapid++; ! 156: continue; ! 157: case NRAPDSW: ! 158: rapid = 0; ! 159: continue; ! 160: ! 161: case BODYSW: ! 162: body++; ! 163: continue; ! 164: case NBODYSW: ! 165: body = 0; ! 166: continue; ! 167: } ! 168: else ! 169: if (!drft) ! 170: drft = cp; ! 171: ! 172: /* */ ! 173: ! 174: if (!drft) ! 175: adios (NULLCP, "usage: %s [switches] file", invo_name); ! 176: if ((in = fopen (drft, "r")) == NULL) ! 177: adios (drft, "unable to open"); ! 178: ! 179: (void) strcpy (tmpfil, m_tmpfil (invo_name)); ! 180: if ((out = fopen (tmpfil, "w")) == NULL) ! 181: adios (tmpfil, "unable to create"); ! 182: (void) chmod (tmpfil, 0600); ! 183: ! 184: if (killp || erasep) { ! 185: #ifndef SYS5 ! 186: int serase, ! 187: skill; ! 188: #else SYS5 ! 189: char serase, ! 190: skill; ! 191: #endif SYS5 ! 192: ! 193: #ifndef SYS5 ! 194: (void) ioctl (0, TIOCGETP, (char *) &sg); ! 195: (void) ioctl (0, TIOCGETC, (char *) &tc); ! 196: #else SYS5 ! 197: (void) ioctl(0, TCGETA, &sg); ! 198: #endif SYS5 ! 199: skill = KILL; ! 200: serase = ERASE; ! 201: KILL = killp ? chrcnv (killp) : skill; ! 202: ERASE = erasep ? chrcnv (erasep) : serase; ! 203: #ifndef SYS5 ! 204: (void) ioctl (0, TIOCSETN, (char *) &sg); ! 205: #else SYS5 ! 206: (void) ioctl(0, TCSETAW, &sg); ! 207: #endif SYS5 ! 208: ! 209: chrdsp ("erase", ERASE); ! 210: chrdsp (", kill", KILL); ! 211: chrdsp (", intr", INTR); ! 212: (void) putchar ('\n'); ! 213: (void) fflush (stdout); ! 214: ! 215: KILL = skill; ! 216: ERASE = serase; ! 217: } ! 218: ! 219: /* */ ! 220: ! 221: sigint = 0; ! 222: setsig (SIGINT, intrser); ! 223: ! 224: for (state = FLD;;) { ! 225: switch (state = m_getfld (state, name, field, sizeof field, in)) { ! 226: case FLD: ! 227: case FLDEOF: ! 228: case FLDPLUS: ! 229: for (cp = field; *cp; cp++) ! 230: if (*cp != ' ' && *cp != '\t') ! 231: break; ! 232: if (*cp++ != '\n' || *cp != NULL) { ! 233: printf ("%s:%s", name, field); ! 234: fprintf (out, "%s:%s", name, field); ! 235: while (state == FLDPLUS) { ! 236: state = ! 237: m_getfld (state, name, field, sizeof field, in); ! 238: printf ("%s", field); ! 239: fprintf (out, "%s", field); ! 240: } ! 241: } ! 242: else { ! 243: printf ("%s: ", name); ! 244: (void) fflush (stdout); ! 245: i = getln (field, sizeof field); ! 246: if (i == -1) { ! 247: abort: ; ! 248: if (killp || erasep) ! 249: #ifndef SYS5 ! 250: (void) ioctl (0, TIOCSETN, (char *) &sg); ! 251: #else SYS5 ! 252: (void) ioctl (0, TCSETA, &sg); ! 253: #endif SYS5 ! 254: (void) unlink (tmpfil); ! 255: done (1); ! 256: } ! 257: if (i != 0 || (field[0] != '\n' && field[0] != NULL)) { ! 258: fprintf (out, "%s:", name); ! 259: do { ! 260: if (field[0] != ' ' && field[0] != '\t') ! 261: (void) putc (' ', out); ! 262: fprintf (out, "%s", field); ! 263: } while (i == 1 ! 264: && (i = getln (field, sizeof field)) >= 0); ! 265: if (i == -1) ! 266: goto abort; ! 267: } ! 268: } ! 269: if (state == FLDEOF) {/* moby hack */ ! 270: fprintf (out, "--------\n"); ! 271: printf ("--------\n"); ! 272: if (!body) ! 273: break; ! 274: goto no_body; ! 275: } ! 276: continue; ! 277: ! 278: case BODY: ! 279: case BODYEOF: ! 280: case FILEEOF: ! 281: fprintf (out, "--------\n"); ! 282: if (field[0] == NULL || !prepend) ! 283: printf ("--------\n"); ! 284: if (field[0]) { ! 285: if (prepend && body) { ! 286: printf ("\n--------Enter initial text\n\n"); ! 287: (void) fflush (stdout); ! 288: for (;;) { ! 289: (void) getln (buffer, sizeof buffer); ! 290: if (buffer[0] == NULL) ! 291: break; ! 292: fprintf (out, "%s", buffer); ! 293: } ! 294: } ! 295: ! 296: do { ! 297: fprintf (out, "%s", field); ! 298: if (!rapid && !sigint) ! 299: printf ("%s", field); ! 300: } while (state == BODY && ! 301: (state = m_getfld (state, name, field, sizeof field, in))); ! 302: if (prepend || !body) ! 303: break; ! 304: else ! 305: printf ("\n--------Enter additional text\n\n"); ! 306: } ! 307: no_body: ; ! 308: (void) fflush (stdout); ! 309: for (;;) { ! 310: (void) getln (field, sizeof field); ! 311: if (field[0] == NULL) ! 312: break; ! 313: fprintf (out, "%s", field); ! 314: } ! 315: break; ! 316: ! 317: default: ! 318: adios (NULLCP, "skeleton is poorly formatted"); ! 319: } ! 320: break; ! 321: } ! 322: ! 323: if (body) ! 324: printf ("--------\n"); ! 325: (void) fflush (stdout); ! 326: ! 327: (void) fclose (in); ! 328: (void) fclose (out); ! 329: ! 330: (void) signal (SIGINT, SIG_IGN); ! 331: ! 332: /* */ ! 333: ! 334: if (killp || erasep) ! 335: #ifndef SYS5 ! 336: (void) ioctl (0, TIOCSETN, (char *) &sg); ! 337: #else SYS5 ! 338: (void) ioctl (0, TCSETAW, &sg); ! 339: #endif SYS5 ! 340: ! 341: if ((fdi = open (tmpfil, 0)) == NOTOK) ! 342: adios (tmpfil, "unable to re-open"); ! 343: if ((fdo = creat (drft, m_gmprot ())) == NOTOK) ! 344: adios (drft, "unable to write"); ! 345: cpydata (fdi, fdo, tmpfil, drft); ! 346: (void) close (fdi); ! 347: (void) close (fdo); ! 348: (void) unlink (tmpfil); ! 349: ! 350: m_update (); ! 351: ! 352: done (0); ! 353: } ! 354: ! 355: /* */ ! 356: ! 357: getln (buffer, n) ! 358: register char *buffer; ! 359: register int n; ! 360: { ! 361: int c; ! 362: char *cp; ! 363: ! 364: cp = buffer; ! 365: *cp = NULL; ! 366: ! 367: #ifndef BSD42 ! 368: wtuser = 1; ! 369: #else BSD42 ! 370: switch (setjmp (sigenv)) { ! 371: case OK: ! 372: wtuser = 1; ! 373: break; ! 374: ! 375: case DONE: ! 376: wtuser = 0; ! 377: return 0; ! 378: ! 379: default: ! 380: wtuser = 0; ! 381: return NOTOK; ! 382: } ! 383: #endif BSD42 ! 384: ! 385: for (;;) ! 386: switch (c = getchar ()) { ! 387: case EOF: ! 388: #ifndef BSD42 ! 389: wtuser = 0; ! 390: return (errno != EINTR ? 0 : NOTOK); ! 391: #else BSD42 ! 392: clearerr (stdin); ! 393: longjmp (sigenv, DONE); ! 394: #endif BSD42 ! 395: ! 396: case '\n': ! 397: if (cp[-1] == QUOTE) { ! 398: cp[-1] = c; ! 399: wtuser = 0; ! 400: return 1; ! 401: } ! 402: *cp++ = c; ! 403: *cp = NULL; ! 404: wtuser = 0; ! 405: return 0; ! 406: ! 407: default: ! 408: if (cp < buffer + n) ! 409: *cp++ = c; ! 410: *cp = NULL; ! 411: } ! 412: } ! 413: ! 414: /* */ ! 415: ! 416: /* ARGSUSED */ ! 417: ! 418: static int intrser (i) ! 419: int i; ! 420: { ! 421: #ifndef BSD42 ! 422: (void) signal (SIGINT, intrser); ! 423: if (!wtuser) ! 424: sigint++; ! 425: #else BSD42 ! 426: if (wtuser) ! 427: longjmp (sigenv, NOTOK); ! 428: sigint++; ! 429: #endif BSD42 ! 430: } ! 431: ! 432: ! 433: chrcnv (cp) ! 434: register char *cp; ! 435: { ! 436: return (*cp != QUOTE ? *cp : m_atoi (++cp)); ! 437: } ! 438: ! 439: ! 440: chrdsp (s, c) ! 441: char *s, ! 442: c; ! 443: { ! 444: printf ("%s ", s); ! 445: if (c < ' ' || c == 0177) ! 446: printf ("^%c", c ^ 0100); ! 447: else ! 448: printf ("%c", c); ! 449: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.