home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / f2c / f77lib / ef1asc_.c < prev    next >
C/C++ Source or Header  |  2000-06-22  |  423b  |  19 lines
  1. /* EFL support routine to copy string b to string a */
  2.  
  3. #include "f2c.h"
  4.  
  5.  
  6. #define M    ( (long) (sizeof(long) - 1) )
  7. #define EVEN(x)    ( ( (x)+ M) & (~M) )
  8.  
  9. #ifdef KR_headers
  10. extern VOID s_copy();
  11. VOID ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
  12. #else
  13. extern void s_copy(char*,char*,ftnlen,ftnlen);
  14. void ef1asc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
  15. #endif
  16. {
  17. s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
  18. }
  19.