diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/subs/cdate.c

   1 #ifdef COMMENT
   2         Proprietary Rand Corporation, 1981.
   3         Further distribution of this software
   4         subject to the terms of the Rand
   5         license agreement.
   6 #endif
   7
   8 /* returns date in format dd-mon-yy@hh:mm:ss\0 */
   9 char *cdate(dataddr)
  10 long *dataddr;
  11 {
  12         register char *cp;
  13         char *ctime();
  14
  15         cp = ctime(dataddr);
  16         cp[1] = cp[8];
  17         cp[2] = cp[9];
  18         cp[3] = '-';
  19         cp[7] = '-';
  20         cp[8] = cp[22];
  21         cp[9] = cp[23];
  22         cp[10] = '@';
  23         cp[19] = 0;
  24         return(cp+1);
  25 }