source: MondoRescue/branches/3.2/mondo/src/lib/mr_file.c@ 3612

/* mr_file.c
 *
 * $Id$
 *
 * File management for mondo
 * Code (c)2006 Bruno Cornec <bruno@mondorescue.org>
 *   
 * Provided under the GPLv2
 */


#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <stdlib.h>
#include <errno.h>
#include <unistd.h>

#include "mr_err.h"
#include "mr_msg.h"

/*open and read file: each call must be coupled with mr_conf_close
  function: return 0 if success*/
FILE *mr_fopen_int(const char *path, const char *mode,int line, char *file) {
    FILE *fd = NULL;

    if ((fd = fopen(path, mode)) == NULL) {
        mr_msg_int(1,line,file,"mr_fopen_int","Unable to open %s",path);
        mr_exit(-1,"Exiting");
    }
    return(fd);
}

void mr_fprintf_int(FILE *fd, int line, char *file, const char *fmt, ...) {
    
    va_list args;

    if (fd == NULL) {
        mr_msg_int(1,line,file,"mr_fprintf_int","fd is NULL.\nShould NOT happen.");
        mr_exit(-1,"Exiting");
    }
    va_start(args,fmt);
    if (vfprintf(fd, fmt, args) < 0) {
        mr_msg_int(1,line,file,"mr_fprintf_int","Unable to print to fd");
        mr_exit(-1,"Exiting");
    }
    va_end(args);
}

void mr_fclose_int(FILE **fd, int line, char *file) {

    if (fd == NULL) {
        mr_msg_int(1,line,file,"mr_fclose_int","fd is NULL.\nShould NOT happen.");
        mr_exit(-1,"Exiting");
    }
    if (*fd == NULL) {
        mr_msg_int(1,line,file,"mr_fclose_int","File descriptor is NULL.\nShould NOT happen.");
        mr_exit(-1,"Exiting");
    }
    if (fclose(*fd) < 0) {
        mr_msg_int(1,line,file,"mr_fclose_int","Unable to close File Descriptor");
    }
    *fd = NULL;
}

void mr_mkdir_int(const char *pathname, mode_t mode, int line, char *file) {

    if (mkdir(pathname,mode) != 0) {
        mr_msg_int(1,line,file,"mr_mkdir_int","Unable to create directory %s",pathname);
        mr_exit(-1,"Exiting");
    }
}

/* Version of getcwd using dynamically allocated memory. Cf: man 3p getcwd */
char *mr_getcwd_int(int line, char *file) {

long path_max;
size_t size;
char *buf;
char *ptr;

path_max = pathconf(".", _PC_PATH_MAX);
if (path_max == -1) {
    size = (size_t)512;
} else if (path_max > 10240) {
    size = (size_t)10240;
} else {
    size = (size_t)path_max;
}

for (buf = ptr = NULL; ptr == NULL; size *= 2) {
    if ((buf = realloc(buf, size)) == NULL) {
        mr_msg_int(1,line,file,"mr_getcwd","Unable to realloc memory");
        mr_exit(-1,"Exiting");
    }

    ptr = getcwd(buf, size);
    if (ptr == NULL && errno != ERANGE) {
        mr_msg_int(1,line,file,"mr_getcwd","Unable to get current working directory");
        mr_exit(-1,"Exiting");
    }
return(buf);
}
}