diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/Extras/libh/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 cdate(dataddr)
  10 long *dataddr;
  11 {
  12         register char *cp;
  13
  14         cp = ctime(dataddr);
  15         cp[1] = cp[8];
  16         cp[2] = cp[9];
  17         cp[3] = '-';
  18         cp[7] = '-';
  19         cp[8] = cp[22];
  20         cp[9] = cp[23];
  21         cp[10] = '@';
  22         cp[19] = 0;
  23         return(cp+1);
  24 }