home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / uflat / tmcode.ct < prev    next >
Encoding:
Text File  |  1991-06-18  |  936 b   |  48 lines
  1. .. file: tmcode.ct
  2. /* file: tmcode.c
  3.    template file:      tmcode.ct
  4.    datastructure file: ${dsfilename}
  5.    tm version:         $(tmvers) ($(tmdate))
  6. */
  7.  
  8. .insert uflatconfig.t
  9.  
  10. /* Standard UNIX libraries */
  11. #include <stdio.h>
  12.  
  13. /* Standard tm library */
  14. #include <tmc.h>
  15. #include <cvr.h>
  16.  
  17. /* Local definitions */
  18. #include "uflatconfig.h"
  19. #include "tmcode.h"
  20. #include "uflatconst.h"
  21.  
  22. static int fscan_bool (f, s)
  23.  FILE *f;
  24.  bool *s;
  25.     { char buf[BUFSZ];
  26.       if (fscanf (f, " %s", buf) != 1)
  27.          { (void) strcpy (tmerrmsg, "boolean expected");
  28.            return (1);
  29.          };
  30.       if (strcmp (buf, FALSESTR) == 0)
  31.          { *s = FALSE;
  32.            return (0);
  33.          };
  34.       if (strcmp (buf, TRUESTR) == 0)
  35.          { *s = TRUE;
  36.            return (0);
  37.          };
  38.       (void) strcpy (tmerrmsg, "boolean expected");
  39.       return (1);
  40.     };
  41.  
  42. static void fprint_bool (f, s)
  43.  FILE *f;
  44.  bool s;
  45.     { fprintf (f, s?TRUESTR:FALSESTR);
  46.     };
  47. .include $(libpath)$(pathsep)calu.ct
  48.