Return to misc.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / sam

Annotation of researchv9/jtools/src/sam/misc.c, revision 1.1.1.1

1.1       root        1: #include "sam.h"
                      2: 
                      3: bcopy(s1, s2, d, dir)
                      4:        register uchar *s1, *s2;
                      5:        register uchar *d;
                      6:        int dir;
                      7: {
                      8:        register long n=s2-s1;
                      9:        extern char *memcpy();
                     10:        if(dir<0){
                     11:                if(n>0){
                     12:                        register long m=(n+7)/8;
                     13:                        d+=n;
                     14:                        switch((int)(n&7)){
                     15:                        case 0: do{     *--d = *--s2;
                     16:                        case 7:         *--d = *--s2;
                     17:                        case 6:         *--d = *--s2;
                     18:                        case 5:         *--d = *--s2;
                     19:                        case 4:         *--d = *--s2;
                     20:                        case 3:         *--d = *--s2;
                     21:                        case 2:         *--d = *--s2;
                     22:                        case 1:         *--d = *--s2;
                     23:                                }while(--m>0);
                     24:                        }
                     25:                }
                     26:        }else
                     27:                memcpy((char *)d, (char *)s1, (int)(s2-s1));
                     28: }
                     29: Posn
                     30: getnum(){
                     31:        register Posn n=0;
                     32:        register c;
                     33:        if((c=nextc())<'0' || '9'<c)    /* no number defaults to 1 */
                     34:                return 1;
                     35:        while('0'<=(c=getc()) && c<='9')
                     36:                n=n*10+c-'0';
                     37:        ungetc();
                     38:        return n;
                     39: }
                     40: skipbl(){
                     41:        register c;
                     42:        do c=getc(); while(c==' ' || c=='\t');
                     43:        if(c>=0)
                     44:                ungetc();
                     45:        return c;
                     46: }

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