![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tty.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / lbin / Mail|
Return to tty.c CVS log | Up to [Research Unix] / researchv10no / lbin / Mail |
1.1 ! root 1: #ifndef lint ! 2: static char *sccsid = "@(#)tty.c 2.7 (Berkeley) 8/11/83"; ! 3: #endif ! 4: ! 5: /* ! 6: * Mail -- a mail program ! 7: * ! 8: * Generally useful tty stuff. ! 9: */ ! 10: ! 11: #include "rcv.h" ! 12: ! 13: static int c_erase; /* Current erase char */ ! 14: static int c_kill; /* Current kill char */ ! 15: static int hadcont; /* Saw continue signal */ ! 16: static jmp_buf rewrite; /* Place to go when continued */ ! 17: #ifndef TIOCSTI ! 18: static int ttyset; /* We must now do erase/kill */ ! 19: #endif ! 20: ! 21: /* ! 22: * Read all relevant header fields. ! 23: */ ! 24: ! 25: grabh(hp, gflags) ! 26: struct header *hp; ! 27: { ! 28: struct sgttyb ttybuf; ! 29: int ttycont(), signull(); ! 30: #ifndef TIOCSTI ! 31: int (*savesigs[2])(); ! 32: #endif ! 33: int (*savecont)(); ! 34: register int s; ! 35: int errs; ! 36: ! 37: # ifdef VMUNIX ! 38: savecont = sigset(SIGCONT, signull); ! 39: # endif VMUNIX ! 40: errs = 0; ! 41: #ifndef TIOCSTI ! 42: ttyset = 0; ! 43: #endif ! 44: if (gtty(fileno(stdin), &ttybuf) < 0) { ! 45: perror("gtty"); ! 46: return(-1); ! 47: } ! 48: c_erase = ttybuf.sg_erase; ! 49: c_kill = ttybuf.sg_kill; ! 50: #ifndef TIOCSTI ! 51: ttybuf.sg_erase = 0; ! 52: ttybuf.sg_kill = 0; ! 53: for (s = SIGINT; s <= SIGQUIT; s++) ! 54: if ((savesigs[s-SIGINT] = sigset(s, SIG_IGN)) == SIG_DFL) ! 55: sigset(s, SIG_DFL); ! 56: #endif ! 57: if (gflags & GTO) { ! 58: #ifndef TIOCSTI ! 59: if (!ttyset && hp->h_to != NOSTR) ! 60: ttyset++, stty(fileno(stdin), &ttybuf); ! 61: #endif ! 62: hp->h_to = readtty("To: ", hp->h_to); ! 63: if (hp->h_to != NOSTR) ! 64: hp->h_seq++; ! 65: } ! 66: if (gflags & GSUBJECT) { ! 67: #ifndef TIOCSTI ! 68: if (!ttyset && hp->h_subject != NOSTR) ! 69: ttyset++, stty(fileno(stdin), &ttybuf); ! 70: #endif ! 71: hp->h_subject = readtty("Subject: ", hp->h_subject); ! 72: if (hp->h_subject != NOSTR) ! 73: hp->h_seq++; ! 74: } ! 75: if (gflags & GCC) { ! 76: #ifndef TIOCSTI ! 77: if (!ttyset && hp->h_cc != NOSTR) ! 78: ttyset++, stty(fileno(stdin), &ttybuf); ! 79: #endif ! 80: hp->h_cc = readtty("Cc: ", hp->h_cc); ! 81: if (hp->h_cc != NOSTR) ! 82: hp->h_seq++; ! 83: } ! 84: if (gflags & GBCC) { ! 85: #ifndef TIOCSTI ! 86: if (!ttyset && hp->h_bcc != NOSTR) ! 87: ttyset++, stty(fileno(stdin), &ttybuf); ! 88: #endif ! 89: hp->h_bcc = readtty("Bcc: ", hp->h_bcc); ! 90: if (hp->h_bcc != NOSTR) ! 91: hp->h_seq++; ! 92: } ! 93: # ifdef VMUNIX ! 94: sigset(SIGCONT, savecont); ! 95: # endif VMUNIX ! 96: #ifndef TIOCSTI ! 97: ttybuf.sg_erase = c_erase; ! 98: ttybuf.sg_kill = c_kill; ! 99: if (ttyset) ! 100: stty(fileno(stdin), &ttybuf); ! 101: for (s = SIGINT; s <= SIGQUIT; s++) ! 102: sigset(s, savesigs[s-SIGINT]); ! 103: #endif ! 104: return(errs); ! 105: } ! 106: ! 107: /* ! 108: * Read up a header from standard input. ! 109: * The source string has the preliminary contents to ! 110: * be read. ! 111: * ! 112: */ ! 113: ! 114: char * ! 115: readtty(pr, src) ! 116: char pr[], src[]; ! 117: { ! 118: char ch, canonb[BUFSIZ]; ! 119: int c, signull(); ! 120: register char *cp, *cp2; ! 121: ! 122: fputs(pr, stdout); ! 123: fflush(stdout); ! 124: if (src != NOSTR && strlen(src) > BUFSIZ - 2) { ! 125: printf("too long to edit\n"); ! 126: return(src); ! 127: } ! 128: #ifndef TIOCSTI ! 129: if (src != NOSTR) ! 130: cp = copy(src, canonb); ! 131: else ! 132: cp = copy("", canonb); ! 133: fputs(canonb, stdout); ! 134: fflush(stdout); ! 135: #else ! 136: cp = src == NOSTR ? "" : src; ! 137: while (c = *cp++) { ! 138: if (c == c_erase || c == c_kill) { ! 139: ch = '\\'; ! 140: ioctl(0, TIOCSTI, &ch); ! 141: } ! 142: ch = c; ! 143: ioctl(0, TIOCSTI, &ch); ! 144: } ! 145: cp = canonb; ! 146: *cp = 0; ! 147: #endif ! 148: cp2 = cp; ! 149: while (cp2 < canonb + BUFSIZ) ! 150: *cp2++ = 0; ! 151: cp2 = cp; ! 152: if (setjmp(rewrite)) ! 153: goto redo; ! 154: # ifdef VMUNIX ! 155: sigset(SIGCONT, ttycont); ! 156: # endif VMUNIX ! 157: clearerr(stdin); ! 158: while (cp2 < canonb + BUFSIZ) { ! 159: c = getc(stdin); ! 160: if (c == EOF || c == '\n') ! 161: break; ! 162: *cp2++ = c; ! 163: } ! 164: *cp2 = 0; ! 165: # ifdef VMUNIX ! 166: sigset(SIGCONT, signull); ! 167: # endif VMUNIX ! 168: if (c == EOF && ferror(stdin) && hadcont) { ! 169: redo: ! 170: hadcont = 0; ! 171: cp = strlen(canonb) > 0 ? canonb : NOSTR; ! 172: clearerr(stdin); ! 173: return(readtty(pr, cp)); ! 174: } ! 175: #ifndef TIOCSTI ! 176: if (cp == NOSTR || *cp == '\0') ! 177: return(src); ! 178: cp2 = cp; ! 179: if (!ttyset) ! 180: return(strlen(canonb) > 0 ? savestr(canonb) : NOSTR); ! 181: while (*cp != '\0') { ! 182: c = *cp++; ! 183: if (c == c_erase) { ! 184: if (cp2 == canonb) ! 185: continue; ! 186: if (cp2[-1] == '\\') { ! 187: cp2[-1] = c; ! 188: continue; ! 189: } ! 190: cp2--; ! 191: continue; ! 192: } ! 193: if (c == c_kill) { ! 194: if (cp2 == canonb) ! 195: continue; ! 196: if (cp2[-1] == '\\') { ! 197: cp2[-1] = c; ! 198: continue; ! 199: } ! 200: cp2 = canonb; ! 201: continue; ! 202: } ! 203: *cp2++ = c; ! 204: } ! 205: *cp2 = '\0'; ! 206: #endif ! 207: if (equal("", canonb)) ! 208: return(NOSTR); ! 209: return(savestr(canonb)); ! 210: } ! 211: ! 212: # ifdef VMUNIX ! 213: /* ! 214: * Receipt continuation. ! 215: */ ! 216: ttycont(s) ! 217: { ! 218: ! 219: hadcont++; ! 220: longjmp(rewrite, 1); ! 221: } ! 222: # endif VMUNIX ! 223: ! 224: /* ! 225: * Null routine to satisfy ! 226: * silly system bug that denies us holding SIGCONT ! 227: */ ! 228: signull(s) ! 229: {}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.