pith/readfile.c

   1 /*
   2  * ========================================================================
   3  * Copyright 2013-2022 Eduardo Chappa
   4  * Copyright 2006 University of Washington
   5  *
   6  * Licensed under the Apache License, Version 2.0 (the "License");
   7  * you may not use this file except in compliance with the License.
   8  * You may obtain a copy of the License at
   9  *
  10  *     http://www.apache.org/licenses/LICENSE-2.0
  11  *
  12  * ========================================================================
  13  */
  14
  15 #include "../pith/headers.h"
  16
  17 #include "../pith/store.h"
  18
  19 #include "readfile.h"
  20
  21
  22 /*----------------------------------------------------------------------
  23     Read whole file into memory
  24
  25   Args: filename -- path name of file to read
  26
  27   Result: Returns pointer to malloced memory with the contents of the file
  28           or NULL
  29
  30 This won't work very well if the file has NULLs in it.
  31  ----*/
  32 char *
  33 read_file(char *filename, int so_get_flags)
  34 {
  35     STORE_S *in_file = NULL, *out_store = NULL;
  36     unsigned char c;
  37     char *return_text = NULL;
  38
  39     if((in_file = so_get(FileStar, filename, so_get_flags | READ_ACCESS))){
  40
  41
  42         if(!(out_store = so_get(CharStar, NULL, EDIT_ACCESS))){
  43             so_give(&in_file);
  44             return NULL;
  45         }
  46
  47         /*
  48          * We're just using the READ_FROM_LOCALE flag to translate
  49          * to UTF-8.
  50          */
  51         while(so_readc(&c, in_file))
  52           so_writec(c, out_store);
  53
  54         if(in_file)
  55           so_give(&in_file);
  56
  57         if(out_store){
  58             return_text = (char *) so_text(out_store);
  59             /* avoid freeing this */
  60             if(out_store->txt)
  61               out_store->txt = NULL;
  62
  63             so_give(&out_store);
  64         }
  65     }
  66
  67     return(return_text);
  68 }
  69
  70 /* our copy, to_file and from_file must be full paths. from_file
  71  * must exist.
  72  */
  73 int
  74 our_copy(char *to_file, char *from_file)
  75 {
  76    STORE_S *in_cert, *out_cert;
  77    unsigned char c;
  78
  79    in_cert  = so_get(FileStar, from_file, READ_ACCESS | READ_FROM_LOCALE);
  80    if (in_cert == NULL)
  81      return -1;
  82
  83    out_cert = so_get(FileStar, to_file, WRITE_ACCESS | WRITE_TO_LOCALE);
  84    if (out_cert == NULL){
  85      so_give(&in_cert);
  86      return -1;
  87    }
  88
  89    so_seek(out_cert, 0L, 0);
  90    so_truncate(out_cert, 0);
  91
  92    while(so_readc(&c, in_cert) > 0)
  93      so_writec(c, out_cert);
  94
  95    so_give(&in_cert);
  96    so_give(&out_cert);
  97
  98    return 0;
  99 }