![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to print.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / basic / bite / src|
Return to print.c CVS log | Up to [Research Unix] / researchv10no / cmd / basic / bite / src |
1.1 ! root 1: /* Copyright Bell Telephone Laboratories Whippany, N.J. ! 2: ! 3: * ///////////////////////////////////// ! 4: * ///////////////////////////////////// ! 5: * ////////////// print.c ////////////// ! 6: * /// J. P. Hawkins WH X4610 8C-001 /// ! 7: * ///// Fri Aug 24 17:02:55 1979 ////// ! 8: * ///////////////////////////////////// ! 9: * ///////////////////////////////////// ! 10: * ! 11: ! 12: * ! 13: * BASIC Print Command ! 14: * ! 15: * MOD,J.P.Hawkins,3-FEB-81 to handle string variables ! 16: */ ! 17: /* "@(#) print.c: V 1.5 5/6/81" */ ! 18: #include "bas.h" ! 19: #define NMFIELD 5 /* number of print fields */ ! 20: #define PSIZE 80 /* max print columns */ ! 21: /* ! 22: #define skip00() {while(*ptext == ' ' || *ptext == '\t') *ptext++;} ! 23: */ ! 24: #define skip00() {} /* skip00 does nothing */ ! 25: static int contin = 1; /* line continuation flag initted ! 26: to no continuation */ ! 27: extern struct FILTBL filtbl[]; ! 28: #ifdef TEST ! 29: char busaddr[2]; /* IBV11 bus address (one char term by null) */ ! 30: buspr() ! 31: { ! 32: char *ptr; ! 33: ! 34: ptr = expr; /* point to beginning of string */ ! 35: ! 36: if(*ptr++ != '\'') ! 37: { ! 38: error(inst.thing.linno, 100); /* MISSING ' DELIM */ ! 39: return(-1); ! 40: } ! 41: ! 42: busaddr[0] = *ptr++; /* next char is buss address */ ! 43: busaddr[1] = '\0'; /* null terminate */ ! 44: ! 45: expr = ptr; /* make prguts start at current pointer */ ! 46: prguts(1); /* call prguts with buslfg on */ ! 47: } ! 48: #endif ! 49: ! 50: __print() ! 51: { ! 52: prguts(0); ! 53: } ! 54: ! 55: /* ! 56: * ! 57: * GUTS TO NORMAL PRINT AND IEEE BUS OUTPUT ! 58: */ ! 59: prguts(busflg) ! 60: int busflg; /* true if talking to IBV11 bus */ ! 61: { ! 62: #ifdef STRINGS ! 63: char *savptr; ! 64: char field[80]; ! 65: #endif ! 66: int tvalue; /* tab value */ ! 67: int fildes; /* file designator for BASIC */ ! 68: double value; /* evaluated floating point value */ ! 69: double evalx(); /* expression avaluator */ ! 70: char pbuild[PSIZE]; /* print string build area */ ! 71: char numbuf[80]; /* number text storage */ ! 72: register i; /* build txtbuf index */ ! 73: int n; /* number txtbuf index */ ! 74: int fd; /* file descriptor */ ! 75: char *ptext; /* input text pointer */ ! 76: fd = 1; /* init fd to 1 for normal print */ ! 77: ptext = expr; /* point to beginning of text area */ ! 78: ! 79: i = 0; ! 80: ! 81: if(!(busflg)) ! 82: { ! 83: if(*ptext == '_' && (*(ptext+1) >= '0' && *(ptext+1) <= '8')) ! 84: { ! 85: *ptext++; ! 86: fildes = *ptext - '1'; /* get BASIC file designator */ ! 87: fd = filtbl[fildes].fildes; ! 88: *ptext++; ! 89: if(filtbl[fildes].mode != 'w') /* file must be open ! 90: for writing */ ! 91: { ! 92: error(inst.thing.linno, 36); /* FILE NOT OPEN FOR WRITE */ ! 93: return(-1); ! 94: } ! 95: } ! 96: } ! 97: if(*ptext == '\0') /* if line empty */ ! 98: contin = 1; /* force newline */ ! 99: ! 100: while(*ptext != '\0') ! 101: { ! 102: skip00(); /* skip blanks and tabs */ ! 103: if(equal(ptext,"tab")) /* if "tab" function */ ! 104: { ! 105: contin = 1; ! 106: ptext += 3; /* skip "tab" string */ ! 107: if(*ptext != '(') ! 108: { ! 109: error(inst.thing.linno, 30); ! 110: return(-1); ! 111: } ! 112: else ! 113: { ! 114: n = 0; ! 115: cpyprn(numbuf,&ptext,&n); /* get expr */ ! 116: numbuf[n] = '\0'; ! 117: value = evalx(numbuf); ! 118: if(value < 0.0) value = 0.0; ! 119: tvalue = value; ! 120: while((i < tvalue) && (i < PSIZE-2)) ! 121: pbuild[i++] = ' '; ! 122: } ! 123: } ! 124: else if(*ptext == '"') /* if string delimiter */ ! 125: { ! 126: contin = 1; /* flip to no line continuation */ ! 127: *ptext++; /* bump past delimiter */ ! 128: while(*ptext != '"' && *ptext != '\0') ! 129: { ! 130: if(i > PSIZE-2) i = PSIZE-2; ! 131: pbuild[i++] = *ptext++; /* copy text ! 132: into build area */ ! 133: } ! 134: if(*ptext == '\0') /* if null before end quote */ ! 135: { ! 136: error(inst.thing.linno, 11); /* error */ ! 137: return(-1); ! 138: } ! 139: else if(i >= PSIZE-2) ! 140: { ! 141: i = PSIZE-2; /* truncate line at line limit */ ! 142: } ! 143: else; ! 144: ! 145: *ptext++; /* bump past end delim */ ! 146: skip00(); /* skip blanks and tabs */ ! 147: } ! 148: else if(*ptext == ',' || *ptext == ';') ! 149: { ! 150: pbuild[i++] = ' '; ! 151: } ! 152: else ! 153: { ! 154: contin = 1; /* flip to no line continuation */ ! 155: n = 0; ! 156: while(*ptext != ';' && *ptext != ',' && *ptext != '\0') ! 157: { ! 158: /* ! 159: * SKIP EVERYTHING ENCLOSED IN BALANCED () ! 160: * This is so commas in array specs ! 161: * ARENT interpreted as print delims ! 162: */ ! 163: if(*ptext == '(') ! 164: { ! 165: cpyprn(numbuf,&ptext,&n); ! 166: } ! 167: else ! 168: { ! 169: numbuf[n++] = *ptext++; ! 170: } ! 171: } ! 172: numbuf[n] = '\0'; /* null terminate expr */ ! 173: #ifdef STRINGS ! 174: savptr=numbuf; ! 175: if(class(&savptr,field) < STCLASS) ! 176: { ! 177: #endif ! 178: value = evalx(numbuf); /* eval the expr. */ ! 179: /* ! 180: * PRECEDE POS. NUMS WITH A BLANK ! 181: * IF NOT A BUS CALL ! 182: */ ! 183: if(busflg == 0) ! 184: if(value>=0.0) pbuild[i++] = ' '; ! 185: ! 186: sprintf(numbuf,"%g", value); /* conv to ascii */ ! 187: #ifdef STRINGS ! 188: } ! 189: else ! 190: { ! 191: evals(numbuf,numbuf); ! 192: } ! 193: #endif ! 194: n=0; ! 195: while(numbuf[n] != '\0' && i < PSIZE-2) ! 196: { ! 197: pbuild[i++] = numbuf[n++]; ! 198: } ! 199: if(i >= PSIZE-2) ! 200: { ! 201: i = PSIZE-2; /* truncate line */ ! 202: } ! 203: } ! 204: switch(*ptext) ! 205: { ! 206: case ';': ! 207: contin = 0; /* turn on line continuation */ ! 208: *ptext++; /* bump past delim */ ! 209: break; ! 210: case ',': ! 211: contin = 0; /* turn on line continuation */ ! 212: /* ! 213: * this is a modulo count to ! 214: * set up field seperation ! 215: */ ! 216: while((i%(PSIZE/NMFIELD)) && i < PSIZE-2) ! 217: pbuild[i++] = ' '; /* blank fill */ ! 218: *ptext++; ! 219: break; ! 220: case '\0': ! 221: break; ! 222: default: ! 223: error(inst.thing.linno, 13); /* missing delim */ ! 224: return(0); ! 225: /* bad news */ ! 226: break; ! 227: } ! 228: skip00(); /* skip spaces and tabs */ ! 229: } ! 230: if(contin && !(busflg)) /* if continuation off ! 231: and not a bus command */ ! 232: { ! 233: if(i >= PSIZE-2) ! 234: i = PSIZE-2; /* truncate line at maximum */ ! 235: pbuild[i++] = '\n'; /* put in "newline" char */ ! 236: } ! 237: ! 238: pbuild[i] = '\0'; /* null term string */ ! 239: /* ! 240: * write to terminal if fd = 1 otherwise write to file ! 241: */ ! 242: #ifdef TEST ! 243: if(busflg) ! 244: { ! 245: ibs(busaddr,pbuild); ! 246: return(0); ! 247: } ! 248: #endif ! 249: ! 250: if(fd == 1) ! 251: printf("%s",pbuild); /* PRINT OUT THE LINE */ ! 252: else ! 253: write(fd, pbuild, i); ! 254: return(0); ! 255: } ! 256: /* ! 257: * ! 258: * /// COPY CHARS WITHIN BALANCED PARENS TO NUMBUF /// ! 259: */ ! 260: cpyprn(numbuf,txtptr,n) ! 261: char numbuf[]; ! 262: char **txtptr; ! 263: int *n; ! 264: { ! 265: int pcnt; ! 266: ! 267: pcnt = 1; ! 268: numbuf[(*n)++] = *(*txtptr)++; ! 269: while(pcnt>0 && **txtptr != '\0') ! 270: { ! 271: switch(**txtptr) ! 272: { ! 273: case '(': ! 274: pcnt += 1; ! 275: break; ! 276: case ')': ! 277: pcnt -= 1; ! 278: break; ! 279: default: ! 280: break; ! 281: } ! 282: numbuf[(*n)++] = *(*txtptr)++; ! 283: } ! 284: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.