view release on metacpan or  search on metacpan

SCF.xs  view on Meta::CPAN

char *file_name
	CODE:
	Scf *scf_data = NULL;   /* internal representation of data from scf file */	
	struct stat *file_stat;
	SV *ret_val;				/* SV which content scf data */
	int i;
	
	/* checking for existance of file and its permissions */
	if( file_name == NULL ) croak("readScf(...) : file_name is NULL");
	file_stat = malloc(sizeof(struct stat));
	i = stat(file_name, file_stat);
	if( i == -1 ){
		switch(errno){
			case ENOENT : 
				croak("get_scf_pointer(...) : file %s doesn't exist\n", file_name);
				break;
			case EACCES : 
				croak("get_scf_pointer(...) : permission denied on file %s\n", file_name);
				break;
			case ENAMETOOLONG :  
				croak("get_scf_pointer(...) : file name %s too long\n", file_name);