Return to mchio.c CVS log

Up to [Research Unix] / researchv10no / cmd / adb / g

Annotation of researchv10no/cmd/adb/g/mchio.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * read or print machine-dependent data structures
                      3:  * stupid version, for gnope
                      4:  */
                      5: 
                      6: #include "defs.h"
                      7: 
                      8: /*
                      9:  * read an ASCII expression
                     10:  */
                     11: 
                     12: char lastc;
                     13: 
                     14: WORD
                     15: ascval()
                     16: {
                     17:        TLONG l;
                     18:        register int i;
                     19: 
                     20:        l = 0;
                     21:        i = sizeof(l);
                     22:        while (quotchar()) {
                     23:                if (--i >= 0) {
                     24:                        l <<= 8;
                     25:                        i |= lastc;
                     26:                }
                     27:        }
                     28:        return (l);
                     29: }
                     30: 
                     31: /*
                     32:  * read a floating point number in VAX format
                     33:  * the result must fit in a WORD
                     34:  */
                     35: 
                     36: WORD
                     37: fpin(buf)
                     38: char *buf;
                     39: {
                     40:        error("no fp input");
                     41: }
                     42: 
                     43: /*
                     44:  * print a floating point number in VAX format
                     45:  */
                     46: 
                     47: fpout(flag, va)
                     48: char flag;
                     49: char *va;
                     50: {
                     51:        error("no fp output");
                     52: }
                     53: 
                     54: /*
                     55:  * print a date
                     56:  */
                     57: 
                     58: printdate(tvec)
                     59: WORD tvec;
                     60: {
                     61: 
                     62:        printf("%R", tvec);
                     63: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.