Return to dprintf.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / j

Annotation of researchv9/jerq/src/lib/j/dprintf.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Scaled down version of C Library sprintf.
                      3:  * Only %s %u %d (==%u) %o %x %D are recognized.
                      4:  */
                      5: dprintf(buf, fmt, x1)
                      6:        register FILE *f;
                      7:        register char *fmt;
                      8:        unsigned *x1;
                      9: {
                     10:        register c;
                     11:        register unsigned int *adx;
                     12:        register long l;
                     13:        char *s;
                     14: 
                     15:        adx = x1;
                     16:        for(;;){
                     17:                while((c = *fmt++) != '%') {
                     18:                        if(c == '\0')
                     19:                                return(f->cp);
                     20:                        putc(c,f);
                     21:                }
                     22:                c = *fmt++;
                     23:                if(c=='o' || c=='u' || c=='x')
                     24:                        sprintn((long)*adx, c=='o'? 8: (c=='x'? 16:10), f);
                     25:                else if(c=='d'){        /* Signed, please */
                     26:                        l= *(int *)adx;
                     27:                        if(l<0){
                     28:                                putc('-',f);
                     29:                                l= -l;
                     30:                        }
                     31:                        sprintn(l, 10, f);
                     32:                }else if(c == 's') {
                     33:                        s = *(char **)adx;
                     34:                        while(c = *s++)
                     35:                                putc(c,f);
                     36:                        adx += (sizeof (char *)/sizeof(int)) -1;
                     37:                } else if (c == 'D') {
                     38:                        sprintn(*(long *)adx, 10, f);
                     39:                        adx += (sizeof(long) / sizeof(int)) - 1;
                     40:                } else if (c == 'X') {
                     41:                        sprintn(*(long *)adx, 16, f);
                     42:                        adx += (sizeof(long) / sizeof(int)) - 1;
                     43:                } else if (c == 'c') {
                     44:                        putc(*adx,f);
                     45:                }
                     46:                adx++;
                     47:        }
                     48: }
                     49: 
                     50: /*
                     51:  * Print an unsigned integer in base b.
                     52:  */
                     53: sprintn(n, b, f)
                     54:        unsigned long n;
                     55:        FILE *f;
                     56: {
                     57:        register long a;
                     58: 
                     59:        if(a = n/b)
                     60:                sprintn(a, b, f);
                     61:        putc("0123456789ABCDEF"[(int)(n%b)],f);
                     62: }

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