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 * @(#)ef1asc_.c 5.1 06/07/85 7 */ 8 9 /* EFL support routine to copy string b to string a */ 10 11 #define M ( (long) (sizeof(long) - 1) ) 12 #define EVEN(x) ( ( (x)+ M) & (~M) ) 13 14 ef1asc_(a, la, b, lb) 15 int *a, *b; 16 long int *la, *lb; 17 { 18 s_copy( (char *)a, (char *)b, EVEN(*la), *lb ); 19 } 20