pith/readfile.c

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