chiark - git - mdw - mLib/blob - pquis.c

   1 /* -*-c-*-
   2  *
   3  * Print strings, substituting the program name
   4  *
   5  * (c) 1999 Straylight/Edgeware
   6  */
   7
   8 /*----- Licensing notice --------------------------------------------------*
   9  *
  10  * This file is part of the mLib utilities library.
  11  *
  12  * mLib is free software; you can redistribute it and/or modify
  13  * it under the terms of the GNU Library General Public License as
  14  * published by the Free Software Foundation; either version 2 of the
  15  * License, or (at your option) any later version.
  16  *
  17  * mLib is distributed in the hope that it will be useful,
  18  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  19  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20  * GNU Library General Public License for more details.
  21  *
  22  * You should have received a copy of the GNU Library General Public
  23  * License along with mLib; if not, write to the Free
  24  * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  25  * MA 02111-1307, USA.
  26  */
  27
  28 /*----- Header files ------------------------------------------------------*/
  29
  30 #include <stdio.h>
  31 #include <string.h>
  32
  33 #include "quis.h"
  34
  35 /*----- Main code ---------------------------------------------------------*/
  36
  37 /* --- @pquis@ --- *
  38  *
  39  * Arguments:   @FILE *fp@ = output stream to write on
  40  *              @const char *p@ = pointer to string to write
  41  *
  42  * Returns:     Zero if everything worked, EOF if not.
  43  *
  44  * Use:         Writes the string @p@ to the output stream @fp@.  Occurrences
  45  *              of the character `$' in @p@ are replaced by the program name
  46  *              as reported by @quis@.  A `$$' is replaced by a single `$'
  47  *              sign.
  48  */
  49
  50 int pquis(FILE *fp, const char *p)
  51 {
  52   size_t sz;
  53
  54   while (*p) {
  55     sz = strcspn(p, "$");
  56     if (sz) {
  57       if (fwrite(p, 1, sz, fp) < sz)
  58         return (EOF);
  59       p += sz;
  60     }
  61     if (*p == '$') {
  62       p++;
  63       if (*p == '$') {
  64         if (fputc('$', fp) == EOF)
  65           return (EOF);
  66         p++;
  67       } else {
  68         if (fputs(pn__name, fp) == EOF)
  69           return (EOF);
  70       }
  71     }
  72   }
  73   return (0);
  74 }
  75
  76 /*----- That's all, folks -------------------------------------------------*/