home *** CD-ROM | disk | FTP | other *** search
- /* TCHK 2.1 - Howard Kapustein's Turbo C library 6-6-89 */
- /* Copyright (C) 1988,1989 Howard Kapustein. All rights reserved. */
-
- /* demotime.c - used for testing TCHK time conversions */
-
- #include <howard.h>
- #include <timehk.h>
-
- #include <stdio.h>
- #include <dos.h>
- #include <stdlib.h>
- #include <string.h>
-
- void main();
-
- void main()
- {
- extern int _argc;
- extern char **_argv;
- void *generic;
- char buff[80], temp[80], temp2[80];
- double dbl, dbl2;
- struct time now, t, t2;
- int stype, dtype;
-
- if (_argc<3) {
- printf("DemoTime is a demonstration program of the time conversions of TCHK.\n\n");
- printf("Usage: demotime stype dtype\n\n");
- printf(" demotime will convert the current time from stype format\n");
- printf(" to dtype format. See TCHK.DOC for more details\n");
- exit(1);
- }
-
- stype = atoi(_argv[1]);
- dtype = atoi(_argv[2]);
- if (stype<1 || stype>24 || dtype<1 || dtype>24) {
- printf("Invalid format (must be 1-24)\n");
- exit(2);
- }
-
- /* for this demo, I get the current time, convert it to format 21
- (0HH:MM:SS:CC) via a sprintf() and then convert it to format stype
- for the test of time_convert(s,d,stype,dtype). */
-
- gettime(&now);
- sprintf(buff,"%d:%02d:%02d.%02d",(int)(now.ti_hour),(int)(now.ti_min),(int)(now.ti_sec),(int)(now.ti_hund));
- printf("Current time: %s\nStype %d: ",buff,stype);
- switch (stype) {
- case 7: { time_convert(buff,&t,21,stype);
- printf("%d %d %d %d",t.ti_hour,t.ti_min,t.ti_sec,t.ti_hund);
- generic = (void *) &t;
- break; }
- case 8:
- case 9:
- case 10:
- case 11:
- case 12: { time_convert(buff,&dbl,21,stype);
- printf("%lf",dbl);
- generic = (void *) &dbl;
- break; }
- default: { time_convert(buff,temp,21,stype);
- printf("%s",temp);
- generic = (void *) temp;
- break; }
- }
- printf(" -> Dtype %d: ",dtype);
- switch (dtype) {
- case 7: { time_convert(generic,&t2,stype,dtype);
- printf("%d %d %d %d",t2.ti_hour,t2.ti_min,t2.ti_sec,t2.ti_hund);
- break; }
- case 8:
- case 9:
- case 10:
- case 11:
- case 12: { time_convert(generic,&dbl2,stype,dtype);
- printf("%lf",dbl2);
- break; }
- default: { time_convert(generic,temp2,stype,dtype);
- printf("%s",temp2);
- break; }
- }
- printf("\n");
-
- /* quit */
- exit(0);
- }
-