diplodocus.org Git - nmh/blob - docs/historical/mh-nov-1983/subs/cdate.c

   1 /* returns date in format dd-mon-yy@hh:mm:ss\0 */
   2 char *cdate(dataddr)
   3 long *dataddr;
   4 {
   5         register char *cp;
   6         char *ctime();
   7
   8         cp = ctime(dataddr);
   9         cp[1] = cp[8];
  10         cp[2] = cp[9];
  11         cp[3] = '-';
  12         cp[7] = '-';
  13         cp[8] = cp[22];
  14         cp[9] = cp[23];
  15         cp[10] = '@';
  16         cp[19] = 0;
  17         return(cp+1);
  18 }