home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-1 / common.sit / identify.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-09-19  |  617 b   |  29 lines  |  [TEXT/MPS ]
  1. #include "::h:gsupport.h"
  2.  
  3. #undef COMPILER
  4. #define COMPILER 1        /* insure compiler Version number */
  5. #include "::h:version.h"
  6.  
  7. extern char *progname;
  8.  
  9. /*
  10.  * id_comment - output a comment C identifying the date and time and what
  11.  *  program is producing the output.
  12.  */
  13. novalue id_comment(f)
  14. FILE *f;
  15.    {
  16.    static char sbuf[26];
  17.    static first_time = 1;
  18.  
  19.    if (first_time) {
  20.       first_time = 0;
  21.       getctime(sbuf);
  22.       }
  23.    fprintf(f, "/*\n");
  24.    fprintf(f, " * %s", sbuf);
  25.    fprintf(f, " * This file was produced by\n");
  26.    fprintf(f, " *   %s: %s\n", progname, Version);
  27.    fprintf(f, " */\n");
  28.    }
  29.