diplodocus.org Git - nmh/blob - sbr/fmt_new.c

   1 /* fmt_new.c -- read format file/string and normalize
   2  *
   3  * This code is Copyright (c) 2002, by the authors of nmh.  See the
   4  * COPYRIGHT file in the root directory of the nmh distribution for
   5  * complete copyright information.
   6  */
   7
   8 #include "h/mh.h"
   9 #include "getcpy.h"
  10 #include "error.h"
  11 #include "h/utils.h"
  12
  13 #define QUOTE '\\'
  14
  15 static char *formats = 0;
  16
  17 /*
  18  * static prototypes
  19  */
  20 static void normalize (char *);
  21
  22
  23 /*
  24  * Get new format string
  25  */
  26
  27 char *
  28 new_fs (char *form, char *format, char *default_fs)
  29 {
  30     struct stat st;
  31     FILE *fp;
  32
  33     free(formats);
  34
  35     if (form) {
  36         if ((fp = fopen (etcpath (form), "r")) == NULL)
  37             adios (form, "unable to open format file");
  38
  39         if (fstat (fileno (fp), &st) == -1)
  40             adios (form, "unable to stat format file");
  41
  42         formats = mh_xmalloc ((size_t) st.st_size + 1);
  43
  44         if (read (fileno(fp), formats, (int) st.st_size) != st.st_size)
  45             adios (form, "error reading format file");
  46
  47         formats[st.st_size] = '\0';
  48
  49         fclose (fp);
  50     } else {
  51         formats = getcpy (format ? format : default_fs);
  52     }
  53
  54     normalize (formats);        /* expand escapes */
  55
  56     return formats;
  57 }
  58
  59
  60 void
  61 free_fs(void)
  62 {
  63     free (formats);
  64     formats = 0;
  65 }
  66
  67
  68 /*
  69  * Expand escapes in format strings
  70  */
  71
  72 static void
  73 normalize (char *cp)
  74 {
  75     char *dp;
  76
  77     for (dp = cp; *cp; cp++) {
  78         if (*cp != QUOTE) {
  79             *dp++ = *cp;
  80         } else {
  81             switch (*++cp) {
  82                 case 'b':
  83                     *dp++ = '\b';
  84                     break;
  85
  86                 case 'f':
  87                     *dp++ = '\f';
  88                     break;
  89
  90                 case 'n':
  91                     *dp++ = '\n';
  92                     break;
  93
  94                 case 'r':
  95                     *dp++ = '\r';
  96                     break;
  97
  98                 case 't':
  99                     *dp++ = '\t';
 100                     break;
 101
 102                 case '\n':
 103                     break;
 104
 105                 case 0:
 106                     cp--;
 107                     /* FALLTHRU */
 108                 default:
 109                     *dp++ = *cp;
 110                     break;
 111             }
 112         }
 113     }
 114     *dp = '\0';
 115 }