![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ttyiin.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [XINU] / xinu / sys|
Return to ttyiin.c CVS log | Up to [XINU] / xinu / sys |
1.1 ! root 1: /* ttyiin.c ttyiin, erase1, eputc, echoch */ ! 2: ! 3: #include <conf.h> ! 4: #include <kernel.h> ! 5: #include <tty.h> ! 6: #include <io.h> ! 7: #include <slu.h> ! 8: ! 9: /*------------------------------------------------------------------------ ! 10: * ttyiin -- lower-half tty device driver for input interrupts ! 11: *------------------------------------------------------------------------ ! 12: */ ! 13: INTPROC ttyiin(iptr) ! 14: register struct tty *iptr; /* pointer to tty block */ ! 15: { ! 16: register struct csr *cptr; ! 17: register int ch, ct; ! 18: ! 19: cptr = iptr->ioaddr; ! 20: ch=cptr->crbuf; ! 21: if (ch & SLUERMASK) ! 22: return; /* discard if error */ ! 23: ch &= SLUCHMASK; ! 24: if (iptr->imode == IMRAW) { ! 25: if (scount(iptr->isem) >= IBUFLEN) { ! 26: return; /* discard if no space */ ! 27: } ! 28: iptr->ibuff[iptr->ihead++] = ch; ! 29: if (iptr->ihead >= IBUFLEN) /* wrap buffer pointer */ ! 30: iptr->ihead = 0; ! 31: signal(iptr->isem); ! 32: } else { /* cbreak | cooked mode */ ! 33: if ( ch == RETURN && iptr->icrlf ) ! 34: ch = NEWLINE; ! 35: if (iptr->iintr && ch == iptr->iintrc) { ! 36: send(iptr->iintpid, INTRMSG); ! 37: eputc(ch, iptr, cptr); ! 38: return; ! 39: } ! 40: if (iptr->oflow) { ! 41: if (ch == iptr->ostart) { ! 42: iptr->oheld = FALSE; ! 43: cptr->ctstat = SLUENABLE; ! 44: return; ! 45: } ! 46: if (ch == iptr->ostop) { ! 47: iptr->oheld = TRUE; ! 48: return; ! 49: } ! 50: } ! 51: iptr->oheld = FALSE; ! 52: if (iptr->imode == IMCBREAK) { /* cbreak mode */ ! 53: if (scount(iptr->isem) >= IBUFLEN) { ! 54: eputc(iptr->ifullc,iptr,cptr); ! 55: return; ! 56: } ! 57: iptr->ibuff[iptr->ihead++] = ch; ! 58: if (iptr->ihead >= IBUFLEN) ! 59: iptr->ihead = 0; ! 60: if (iptr->iecho) ! 61: echoch(ch,iptr,cptr); ! 62: if (scount(iptr->isem) < IBUFLEN) ! 63: signal(iptr->isem); ! 64: } else { /* cooked mode */ ! 65: if (ch == iptr->ikillc && iptr->ikill) { ! 66: iptr->ihead -= iptr->icursor; ! 67: if (iptr->ihead < 0) ! 68: iptr->ihead += IBUFLEN; ! 69: iptr->icursor = 0; ! 70: eputc(RETURN,iptr,cptr); ! 71: eputc(NEWLINE,iptr,cptr); ! 72: return; ! 73: } ! 74: if (ch == iptr->ierasec && iptr->ierase) { ! 75: if (iptr->icursor > 0) { ! 76: iptr->icursor--; ! 77: erase1(iptr,cptr); ! 78: } ! 79: return; ! 80: } ! 81: if (ch == NEWLINE || ch == RETURN || ! 82: (iptr->ieof && ch == iptr->ieofc)) { ! 83: if (iptr->iecho) { ! 84: echoch(ch,iptr,cptr); ! 85: if (ch == iptr->ieofc) ! 86: echoch(NEWLINE,iptr,cptr); ! 87: } ! 88: iptr->ibuff[iptr->ihead++] = ch; ! 89: if (iptr->ihead >= IBUFLEN) ! 90: iptr->ihead = 0; ! 91: ct = iptr->icursor+1; /* +1 for \n or \r*/ ! 92: iptr->icursor = 0; ! 93: signaln(iptr->isem,ct); ! 94: return; ! 95: } ! 96: ct = scount(iptr->isem); ! 97: ct = ct < 0 ? 0 : ct; ! 98: if ((ct + iptr->icursor) >= IBUFLEN-1) { ! 99: eputc(iptr->ifullc,iptr,cptr); ! 100: return; ! 101: } ! 102: if (iptr->iecho) ! 103: echoch(ch,iptr,cptr); ! 104: iptr->icursor++; ! 105: iptr->ibuff[iptr->ihead++] = ch; ! 106: if (iptr->ihead >= IBUFLEN) ! 107: iptr->ihead = 0; ! 108: } ! 109: } ! 110: } ! 111: ! 112: /*------------------------------------------------------------------------ ! 113: * erase1 -- erase one character honoring erasing backspace ! 114: *------------------------------------------------------------------------ ! 115: */ ! 116: LOCAL erase1(iptr,cptr) ! 117: struct tty *iptr; ! 118: register struct csr *cptr; ! 119: { ! 120: char ch; ! 121: ! 122: if (--(iptr->ihead) < 0) ! 123: iptr->ihead += IBUFLEN; ! 124: ch = iptr->ibuff[iptr->ihead]; ! 125: if (iptr->iecho) { ! 126: if (ch < BLANK || ch == 0177) { ! 127: if (iptr->evis) { ! 128: eputc(BACKSP,iptr,cptr); ! 129: if (iptr->ieback) { ! 130: eputc(BLANK,iptr,cptr); ! 131: eputc(BACKSP,iptr,cptr); ! 132: } ! 133: } ! 134: eputc(BACKSP,iptr,cptr); ! 135: if (iptr->ieback) { ! 136: eputc(BLANK,iptr,cptr); ! 137: eputc(BACKSP,iptr,cptr); ! 138: } ! 139: } else { ! 140: eputc(BACKSP,iptr,cptr); ! 141: if (iptr->ieback) { ! 142: eputc(BLANK,iptr,cptr); ! 143: eputc(BACKSP,iptr,cptr); ! 144: } ! 145: } ! 146: } else ! 147: cptr->ctstat = SLUENABLE; ! 148: } ! 149: ! 150: /*------------------------------------------------------------------------ ! 151: * echoch -- echo a character with visual and ocrlf options ! 152: *------------------------------------------------------------------------ ! 153: */ ! 154: LOCAL echoch(ch, iptr, cptr) ! 155: char ch; /* character to echo */ ! 156: register struct tty *iptr; /* ptr to I/O block for this dev*/ ! 157: register struct csr *cptr; /* csr address for this devptr */ ! 158: { ! 159: if ((ch==NEWLINE||ch==RETURN)&&iptr->ecrlf) { ! 160: eputc(RETURN,iptr,cptr); ! 161: eputc(NEWLINE,iptr,cptr); ! 162: } else if ((ch<BLANK||ch==0177) && iptr->evis) { ! 163: eputc(UPARROW,iptr,cptr); ! 164: eputc(ch+0100,iptr,cptr); /* make it printable */ ! 165: } else { ! 166: eputc(ch,iptr,cptr); ! 167: } ! 168: } ! 169: ! 170: /*------------------------------------------------------------------------ ! 171: * eputc - put one character in the echo queue ! 172: *------------------------------------------------------------------------ ! 173: */ ! 174: LOCAL eputc(ch,iptr,cptr) ! 175: char ch; ! 176: register struct tty *iptr; ! 177: register struct csr *cptr; ! 178: { ! 179: iptr->ebuff[iptr->ehead++] = ch; ! 180: if (iptr->ehead >= EBUFLEN) ! 181: iptr->ehead = 0; ! 182: cptr->ctstat = SLUENABLE; ! 183: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.