#pragma list off                                                                
/*----------------------------------------------------------------*/            
/* Caccess  Keven Miller   13 Jan 2001    kpmiller@softhome.net   */            
/* Functions for FTN/iX to access C global data and C pointers    */            
/*----------------------------------------------------------------*/            
                                                                                
#include <errno.h>                                                              
                                                                                
typedef  long     i32;                                                          
                                                                                
/*----------------------------------------------------------------*/            
                                                                                
int cerrno ( void ){                                                            
   return   errno;                                                              
}                                                                               
                                                                                
int cstrcpy ( char* ftnstr, i32 ftnlen, char** cstrptr ){                       
   int   len;                                                                   
                                                                                
   len = strlen ( *cstrptr );                                                   
   if ( len > ftnlen ) len = ftnlen;                                            
   strncpy ( ftnstr, *cstrptr, len );                                           
   return   len;                                                                
}                                                                               
/*----------------------------------------------------------------*/