|
|
1.1 ! root 1: /* ! 2: * Copyright (c) 1980 Regents of the University of California. ! 3: * All rights reserved. The Berkeley software License Agreement ! 4: * specifies the terms and conditions for redistribution. ! 5: */ ! 6: ! 7: #ifndef lint ! 8: static char sccsid[] = "@(#)l3tol.c 5.1 (Berkeley) 6/5/85"; ! 9: #endif not lint ! 10: ! 11: l3tol(lp, cp, n) ! 12: long *lp; ! 13: char *cp; ! 14: int n; ! 15: { ! 16: register i; ! 17: register char *a, *b; ! 18: ! 19: a = (char *)lp; ! 20: b = cp; ! 21: for(i=0;i<n;i++) { ! 22: #ifdef interdata ! 23: *a++ = 0; ! 24: *a++ = *b++; ! 25: *a++ = *b++; ! 26: *a++ = *b++; ! 27: #else ! 28: *a++ = *b++; ! 29: *a++ = *b++; ! 30: *a++ = *b++; ! 31: *a++ = 0; ! 32: #endif ! 33: } ! 34: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.