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

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