home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c329 / 2.img / EXAMPLES / BILDDATE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-10-06  |  854 b   |  53 lines
  1. /*
  2.  * bilddate.c
  3.  *
  4.  * Purpose: demonstrates calling NDP C function
  5.  * from NDP Fortran
  6.  * Copyright (C) MicroWay, Inc., 1989
  7.  *
  8.  */
  9.  
  10. #include <stdio.h>
  11.  
  12. static char *day_name [] = {
  13.     "Sunday",
  14.     "Monday",
  15.     "Tuesday",
  16.     "Wednesday",
  17.     "Thursday",
  18.     "Friday",
  19.     "Saturday"
  20. };
  21.         
  22. static char *month_name [] = {
  23.     "January",
  24.     "February",
  25.     "March",
  26.     "April",
  27.     "May",
  28.     "June",
  29.     "July",
  30.     "August",
  31.     "September",
  32.     "October",
  33.     "November",
  34.     "December"
  35. };
  36.     
  37. void bilddate_(s,n,m,d,y,l)
  38. char *s;            /* buffer to receive completed date */
  39. int *n, *m, *d, *y; /* name of day, month, day, year */
  40. int l;              /* length of string */
  41.  
  42. {
  43.     int i;
  44.     
  45.     for (i = 0; i < l; i++) {
  46.         s[i] = '\0';    /* zero out buffer */
  47.     }
  48.     
  49.     sprintf(s,"%s %s %d, %d",day_name[*n],month_name[*m-1],*d,*y);
  50.  
  51. }    /* end of bilddate.c */
  52.  
  53.