swap.c

Go to the documentation of this file.

/*
 *  (Delphi Network Access) implements the network layer for the DIM
 * (Delphi Information Managment) System.
 *
 * Started date   : 10-11-91
 * Written by     : C. Gaspar
 * UNIX adjustment: G.C. Ballintijn
 *
 */

double _swapd( double d )
{
        double  r[2];
        register char   *p, *q;
        register int    n;

        p = (char *) &r[1];
        q = (char *) &d;
        for( n = sizeof(double)+1; --n; *--p = *q++) ;
        return r[0];
}

int _swapl( int l )
{
        int     r[2];
        register char   *p, *q;

        p = (char *) &r[1];
        q = (char *) &l;
        *--p = *q++;
        *--p = *q++;
        *--p = *q++;
        *--p = *q++;

        return r[0];
}

short _swaps( short s )
{
        short   r[2];
        register char   *p, *q;

        p = (char *) &r[1];
        q = (char *) &s;
        *--p = *q++;
        *--p = *q++;

        return r[0];
}

double _swapd_by_addr( double *d )
{
        double  r[2];
        register char   *p, *q;
        register int    n;

        p = (char *) &r[1];
        q = (char *) d;
        for( n = sizeof(double)+1; --n; *--p = *q++) ;

        return r[0];
}

int _swapl_by_addr( int *l )
{
        int     r[2];
        register char   *p, *q;

        p = (char *) &r[1];
        q = (char *) l;
        *--p = *q++;
        *--p = *q++;
        *--p = *q++;
        *--p = *q++;

        return r[0];
}

short _swaps_by_addr( short *s )
{
        short   r[2];
        register char   *p, *q;

        p = (char *) &r[1];
        q = (char *) s;
        *--p = *q++;
        *--p = *q++;

        return r[0];
}

void _swaps_buffer( short *s2, short *s1, int n)
{
        register char *p, *q;
        short r[2];
        register short *s;

        p = (char *) s2;
        q = (char *) s1;
        if( p != q ) {
                p += sizeof(short);
                for( n++; --n; p += 2*sizeof(short)) {
                        *--p = *q++;
                        *--p = *q++;
                }
        } else {
                for( s = s2, n++; --n; *s++ = r[0]) {
                        p = (char *) &r[1] ;
                        *--p = *q++;
                        *--p = *q++;
                }
        }
}

void _swapl_buffer( int *s2, int *s1, int n)
{
        register char *p, *q;
        int r[2];
        register int *l;

        p = (char *) s2;
        q = (char *) s1;
        if( p != q ) {
                p += sizeof(int);
                for( n++; --n; p += 2*sizeof(int)) {
                        *--p = *q++;
                        *--p = *q++;
                        *--p = *q++;
                        *--p = *q++;
                }
        } else {
                for( l = s2, n++; --n; *l++ = r[0]) {
                        p = (char *) &r[1] ;
                        *--p = *q++;
                        *--p = *q++;
                        *--p = *q++;
                        *--p = *q++;
                }
        }
}


void _swapd_buffer( double *s2, double *s1, int n)
{
        register char *p, *q;
        double r[2];
        register double *d;
        register int m;

        p = (char *) s2;
        q = (char *) s1;
        if( p != q ) {
                p += sizeof(double);
                for( n++; --n; p += 2*sizeof(double)) {
                        for( m = sizeof(double)+1; --m; *--p = *q++) ;
                }
        } else {
                for( d = s2, n++; --n; *d++ = r[0]) {
                        p = (char *) &r[1] ;
                        for( m = sizeof(double)+1; --m; *--p = *q++) ;
                }
        }
}