source/bjcceval/timefunc.c

//----------------------------------------------------------------------------------------------------
//$Header: /home/dashley/cvsrep/e3ft_gpl01/e3ft_gpl01/dtaipubs/cron/2010/blackjack_201010/source/bjcceval/timefunc.c,v 1.2 2012/03/30 01:05:31 dashley Exp $
//----------------------------------------------------------------------------------------------------
//Copyright (C) 2012, David T. Ashley.
//
//This file is part of BJCCEVAL, a program that evaluates by simulation
//the best basic strategy, card-counting, and other playing strategies
//for several variants of the game of Blackjack.
//
//BJCCEVAL is free software: you can redistribute it and/or modify
//it under the terms of the GNU General Public License as published by
//the Free Software Foundation, either version 3 of the License, or
//(at your option) any later version.
//
//BJCCEVAL is distributed in the hope that it will be useful,
//but WITHOUT ANY WARRANTY; without even the implied warranty of
//MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//GNU General Public License for more details.
//
//You should have received a copy of the GNU General Public License
//along with this program.  If not, see <http://www.gnu.org/licenses/>.
//(A copy of the GNU General Public License, Version 3 is provided in
//the file "COPYING" distributed with BJCCEVAL.)
//
//David T. Ashley can be contacted at DASHLEY@GMAIL.COM and/or at
//P.O. Box 918, Marshall MI 49068.
//----------------------------------------------------------------------------------------------------
#define MODULE_TIMEFUNC

#include <assert.h>
#include <stdio.h>
#include <sys/timeb.h>
#include <time.h>

#include "timefunc.h"

#include "charfunc.h"


static unsigned TIMEFUNC_ascii_month_to_unsigned(char c1, char c2, char c3)
{
    unsigned rv = 0;

    c1 = CHARFUNC_to_upper(c1);
    c2 = CHARFUNC_to_upper(c2);
    c3 = CHARFUNC_to_upper(c3);

    if (c1 == 'J')
    {
        if ((c2 == 'A') && (c3 == 'N'))
        {
            rv = 1;
        } else if ((c2 == 'U') && (c3 == 'N'))
        {
            rv = 6;
        } else if ((c2 == 'U') && (c3 == 'L'))
        {
            rv = 7;
        }
    } else if (c1 == 'F')
    {
        if ((c2 == 'E') && (c3 == 'B'))
        {
            rv = 2;
        }
    } else if (c1 == 'M')
    {
        if ((c2 == 'A') && (c3 == 'R'))
        {
            rv = 3;
        } else if ((c2 == 'A') && (c3 == 'Y'))
        {
            rv = 5;
        }
    } else if (c1 == 'A')
    {
        if ((c2 == 'P') && (c3 == 'R'))
        {
            rv = 4;
        } else if ((c2 == 'U') && (c3 == 'G'))
        {
            rv = 8;
        }
    } else if (c1 == 'S')
    {
        if ((c2 == 'E') && (c3 == 'P'))
        {
            rv = 9;
        }
    } else if (c1 == 'O')
    {
        if ((c2 == 'C') && (c3 == 'T'))
        {
            rv = 10;
        }
    } else if (c1 == 'N')
    {
        if ((c2 == 'O') && (c3 == 'V'))
        {
            rv = 11;
        }
    } else if (c1 == 'D')
    {
        if ((c2 == 'E') && (c3 == 'C'))
        {
            rv = 12;
        }
    }

    return(rv);
}


void TIMEFUNC_to_ascii_logstamp(const struct __timeb64 *in_arg, TIMEFUNC_TIME_ASCII_RESULT *out_arg)
{
    __time64_t time64;
    errno_t error_return;
    char buffer[100];

    //Be sure we don't have an unbounded string just in case something goes wrong.
    buffer[0]                  = 0;
    buffer[sizeof(buffer) - 1] = 0;

    //Extract the 64-bit time.
    time64 = in_arg->time;

    //Convert the 64-bit time to a string.
    error_return = _ctime64_s(buffer, sizeof(buffer), &time64);
    assert(error_return == 0);

    //The first two digits of the logstamp should be the hour.
    out_arg->result[0] = buffer[11];
    out_arg->result[1] = buffer[12];

    //The next two digits should be the minute.
    out_arg->result[2] = buffer[14];
    out_arg->result[3] = buffer[15];

    //The next two digits should be the second.
    out_arg->result[4] = buffer[17];
    out_arg->result[5] = buffer[18];

    //Then a decimal point.
    out_arg->result[6] = '.';

    //The next three (7, 8, 9) should be the milliseconds.
    sprintf_s(&(out_arg->result[7]), 4, "%03d", in_arg->millitm);

    //The tenth should be the terminator.  It was probably handled by sprintf() above.
    out_arg->result[10] = 0;

    //printf("\n0000000000111111111122222222223\n0123456789012345678901234567890\n%s\n", buffer);
    //printf("\n%s\n", out_arg->result);
}


void TIMEFUNC_to_ascii_hr_form(const struct __timeb64 *in_arg, TIMEFUNC_TIME_ASCII_RESULT *out_arg)
{
    //Library function form.
    //0000000000111111111122222222223
    //0123456789012345678901234567890
    //Sun Dec 14 00:36:36 2008
    //
    //Target form:
    //000000000011111111112222222222333
    //012345678901234567890123456789012
    //Sun, Dec 14, 2008 at 00:36:36.123 

    __time64_t time64;
    errno_t error_return;
    char buffer[100];

    //Be sure we don't have an unbounded string just in case something goes wrong.
    buffer[0]                  = 0;
    buffer[sizeof(buffer) - 1] = 0;

    //Extract the 64-bit time.
    time64 = in_arg->time;

    //Convert the 64-bit time to a string.
    error_return = _ctime64_s(buffer, sizeof(buffer), &time64);
    assert(error_return == 0);

    //The first three characters should be the day of the week.
    out_arg->result[0]  = buffer[0];
    out_arg->result[1]  = buffer[1];
    out_arg->result[2]  = buffer[2];

    //Comma and a space.
    out_arg->result[3]  = ',';
    out_arg->result[4]  = ' ';

    //Month
    out_arg->result[5]  = buffer[4];
    out_arg->result[6]  = buffer[5];
    out_arg->result[7]  = buffer[6];

    //Space
    out_arg->result[8]  = ' ';

    //Day of month, perhaps with preceding space.
    out_arg->result[9]  = buffer[8];
    out_arg->result[10] = buffer[9];

    //Comma and a space.
    out_arg->result[11] = ',';
    out_arg->result[12] = ' ';

    //Year
    out_arg->result[13] = buffer[20];
    out_arg->result[14] = buffer[21];
    out_arg->result[15] = buffer[22];
    out_arg->result[16] = buffer[23];

    //" at "
    out_arg->result[17] = ' ';
    out_arg->result[18] = 'a';
    out_arg->result[19] = 't';
    out_arg->result[20] = ' ';

    //Hour
    out_arg->result[21] = buffer[11];
    out_arg->result[22] = buffer[12];

    //Separating colon.
    out_arg->result[23] = ':';

    //Minute
    out_arg->result[24] = buffer[14];
    out_arg->result[25] = buffer[15];

    //Separating colon.
    out_arg->result[26] = ':';

    //Integer seconds.
    out_arg->result[27] = buffer[17];
    out_arg->result[28] = buffer[18];

    //"." Separator
    out_arg->result[29] = '.';

    //The next three (30, 31, 32) should be the milliseconds.
    sprintf_s(&(out_arg->result[30]), 4, "%03d", in_arg->millitm);

    //The tenth should be the terminator.  It was probably handled by sprintf() above.
    out_arg->result[33] = 0;

    //printf("\n0000000000111111111122222222223\n0123456789012345678901234567890\n%s\n", buffer);
    //printf("\n%s\n", out_arg->result);
}


void TIMEFUNC_to_ascii_filename_base(const struct __timeb64 *in_arg, TIMEFUNC_TIME_ASCII_RESULT *out_arg)
{
    //Library function form.
    //0000000000111111111122222222223
    //0123456789012345678901234567890
    //Sun Dec 14 00:36:38 2008
    //
    //Target form:
    //000000000011111
    //012345678901234
    //20081214_003638

    __time64_t time64;
    errno_t error_return;
    unsigned month;
    char buffer[100];

    //Be sure we don't have an unbounded string just in case something goes wrong.
    buffer[0]                  = 0;
    buffer[sizeof(buffer) - 1] = 0;

    //Extract the 64-bit time.
    time64 = in_arg->time;

    //Convert the 64-bit time to a string.
    error_return = _ctime64_s(buffer, sizeof(buffer), &time64);
    assert(error_return == 0);

    //Year
    out_arg->result[0] = buffer[20];
    out_arg->result[1] = buffer[21];
    out_arg->result[2] = buffer[22];
    out_arg->result[3] = buffer[23];

    //Month
    month = TIMEFUNC_ascii_month_to_unsigned(buffer[4], buffer[5], buffer[6]);

    if (month == 0)
    {
        out_arg->result[4]  = '?';
        out_arg->result[5]  = '?';
    } else
    {
        sprintf_s(&(out_arg->result[4]), 3, "%02u", month);
    }

    //Day of month, perhaps with preceding space.
    out_arg->result[6]  = buffer[8];
    out_arg->result[7]  = buffer[9];

    //Underscore.
    out_arg->result[8]  = '_';

    //Hour
    out_arg->result[9]  = buffer[11];
    out_arg->result[10] = buffer[12];

    //Minute
    out_arg->result[11] = buffer[14];
    out_arg->result[12] = buffer[15];

    //Second
    out_arg->result[13] = buffer[17];
    out_arg->result[14] = buffer[18];

    //Zero terminator
    out_arg->result[15] = 0;

    //printf("\n0000000000111111111122222222223\n0123456789012345678901234567890\n%s\n", buffer);
    //printf("\n%s\n", out_arg->result);
}


const char *TIMEFUNC_Vcinfo_C(void)
{
    return("$Revision: 1.2 $");
}


const char *TIMEFUNC_Vcinfo_H(void)
{
    return(TIMEFUNC_VCINFO_H);
}


//----------------------------------------------------------------------------------------------------
//$Log: timefunc.c,v $
//Revision 1.2  2012/03/30 01:05:31  dashley
//Edits.
//
//Revision 1.1  2012/03/30 00:59:16  dashley
//Initial checkin.
//----------------------------------------------------------------------------------------------------
//End of $RCSfile: timefunc.c,v $
//----------------------------------------------------------------------------------------------------
1	dashley	11	//----------------------------------------------------------------------------------------------------
2			//$Header: /home/dashley/cvsrep/e3ft_gpl01/e3ft_gpl01/dtaipubs/cron/2010/blackjack_201010/source/bjcceval/timefunc.c,v 1.2 2012/03/30 01:05:31 dashley Exp $
3			//----------------------------------------------------------------------------------------------------
4			//Copyright (C) 2012, David T. Ashley.
5			//
6			//This file is part of BJCCEVAL, a program that evaluates by simulation
7			//the best basic strategy, card-counting, and other playing strategies
8			//for several variants of the game of Blackjack.
9			//
10			//BJCCEVAL is free software: you can redistribute it and/or modify
11			//it under the terms of the GNU General Public License as published by
12			//the Free Software Foundation, either version 3 of the License, or
13			//(at your option) any later version.
14			//
15			//BJCCEVAL is distributed in the hope that it will be useful,
16			//but WITHOUT ANY WARRANTY; without even the implied warranty of
17			//MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18			//GNU General Public License for more details.
19			//
20			//You should have received a copy of the GNU General Public License
21			//along with this program. If not, see <http://www.gnu.org/licenses/>.
22			//(A copy of the GNU General Public License, Version 3 is provided in
23			//the file "COPYING" distributed with BJCCEVAL.)
24			//
25			//David T. Ashley can be contacted at DASHLEY@GMAIL.COM and/or at
26			//P.O. Box 918, Marshall MI 49068.
27			//----------------------------------------------------------------------------------------------------
28			#define MODULE_TIMEFUNC
29
30			#include <assert.h>
31			#include <stdio.h>
32			#include <sys/timeb.h>
33			#include <time.h>
34
35			#include "timefunc.h"
36
37			#include "charfunc.h"
38
39
40			static unsigned TIMEFUNC_ascii_month_to_unsigned(char c1, char c2, char c3)
41			{
42			unsigned rv = 0;
43
44			c1 = CHARFUNC_to_upper(c1);
45			c2 = CHARFUNC_to_upper(c2);
46			c3 = CHARFUNC_to_upper(c3);
47
48			if (c1 == 'J')
49			{
50			if ((c2 == 'A') && (c3 == 'N'))
51			{
52			rv = 1;
53			} else if ((c2 == 'U') && (c3 == 'N'))
54			{
55			rv = 6;
56			} else if ((c2 == 'U') && (c3 == 'L'))
57			{
58			rv = 7;
59			}
60			} else if (c1 == 'F')
61			{
62			if ((c2 == 'E') && (c3 == 'B'))
63			{
64			rv = 2;
65			}
66			} else if (c1 == 'M')
67			{
68			if ((c2 == 'A') && (c3 == 'R'))
69			{
70			rv = 3;
71			} else if ((c2 == 'A') && (c3 == 'Y'))
72			{
73			rv = 5;
74			}
75			} else if (c1 == 'A')
76			{
77			if ((c2 == 'P') && (c3 == 'R'))
78			{
79			rv = 4;
80			} else if ((c2 == 'U') && (c3 == 'G'))
81			{
82			rv = 8;
83			}
84			} else if (c1 == 'S')
85			{
86			if ((c2 == 'E') && (c3 == 'P'))
87			{
88			rv = 9;
89			}
90			} else if (c1 == 'O')
91			{
92			if ((c2 == 'C') && (c3 == 'T'))
93			{
94			rv = 10;
95			}
96			} else if (c1 == 'N')
97			{
98			if ((c2 == 'O') && (c3 == 'V'))
99			{
100			rv = 11;
101			}
102			} else if (c1 == 'D')
103			{
104			if ((c2 == 'E') && (c3 == 'C'))
105			{
106			rv = 12;
107			}
108			}
109
110			return(rv);
111			}
112
113
114			void TIMEFUNC_to_ascii_logstamp(const struct __timeb64 in_arg, TIMEFUNC_TIME_ASCII_RESULT out_arg)
115			{
116			__time64_t time64;
117			errno_t error_return;
118			char buffer[100];
119
120			//Be sure we don't have an unbounded string just in case something goes wrong.
121			buffer[0] = 0;
122			buffer[sizeof(buffer) - 1] = 0;
123
124			//Extract the 64-bit time.
125			time64 = in_arg->time;
126
127			//Convert the 64-bit time to a string.
128			error_return = _ctime64_s(buffer, sizeof(buffer), &time64);
129			assert(error_return == 0);
130
131			//The first two digits of the logstamp should be the hour.
132			out_arg->result[0] = buffer[11];
133			out_arg->result[1] = buffer[12];
134
135			//The next two digits should be the minute.
136			out_arg->result[2] = buffer[14];
137			out_arg->result[3] = buffer[15];
138
139			//The next two digits should be the second.
140			out_arg->result[4] = buffer[17];
141			out_arg->result[5] = buffer[18];
142
143			//Then a decimal point.
144			out_arg->result[6] = '.';
145
146			//The next three (7, 8, 9) should be the milliseconds.
147			sprintf_s(&(out_arg->result[7]), 4, "%03d", in_arg->millitm);
148
149			//The tenth should be the terminator. It was probably handled by sprintf() above.
150			out_arg->result[10] = 0;
151
152			//printf("\n0000000000111111111122222222223\n0123456789012345678901234567890\n%s\n", buffer);
153			//printf("\n%s\n", out_arg->result);
154			}
155
156
157			void TIMEFUNC_to_ascii_hr_form(const struct __timeb64 in_arg, TIMEFUNC_TIME_ASCII_RESULT out_arg)
158			{
159			//Library function form.
160			//0000000000111111111122222222223
161			//0123456789012345678901234567890
162			//Sun Dec 14 00:36:36 2008
163			//
164			//Target form:
165			//000000000011111111112222222222333
166			//012345678901234567890123456789012
167			//Sun, Dec 14, 2008 at 00:36:36.123
168
169			__time64_t time64;
170			errno_t error_return;
171			char buffer[100];
172
173			//Be sure we don't have an unbounded string just in case something goes wrong.
174			buffer[0] = 0;
175			buffer[sizeof(buffer) - 1] = 0;
176
177			//Extract the 64-bit time.
178			time64 = in_arg->time;
179
180			//Convert the 64-bit time to a string.
181			error_return = _ctime64_s(buffer, sizeof(buffer), &time64);
182			assert(error_return == 0);
183
184			//The first three characters should be the day of the week.
185			out_arg->result[0] = buffer[0];
186			out_arg->result[1] = buffer[1];
187			out_arg->result[2] = buffer[2];
188
189			//Comma and a space.
190			out_arg->result[3] = ',';
191			out_arg->result[4] = ' ';
192
193			//Month
194			out_arg->result[5] = buffer[4];
195			out_arg->result[6] = buffer[5];
196			out_arg->result[7] = buffer[6];
197
198			//Space
199			out_arg->result[8] = ' ';
200
201			//Day of month, perhaps with preceding space.
202			out_arg->result[9] = buffer[8];
203			out_arg->result[10] = buffer[9];
204
205			//Comma and a space.
206			out_arg->result[11] = ',';
207			out_arg->result[12] = ' ';
208
209			//Year
210			out_arg->result[13] = buffer[20];
211			out_arg->result[14] = buffer[21];
212			out_arg->result[15] = buffer[22];
213			out_arg->result[16] = buffer[23];
214
215			//" at "
216			out_arg->result[17] = ' ';
217			out_arg->result[18] = 'a';
218			out_arg->result[19] = 't';
219			out_arg->result[20] = ' ';
220
221			//Hour
222			out_arg->result[21] = buffer[11];
223			out_arg->result[22] = buffer[12];
224
225			//Separating colon.
226			out_arg->result[23] = ':';
227
228			//Minute
229			out_arg->result[24] = buffer[14];
230			out_arg->result[25] = buffer[15];
231
232			//Separating colon.
233			out_arg->result[26] = ':';
234
235			//Integer seconds.
236			out_arg->result[27] = buffer[17];
237			out_arg->result[28] = buffer[18];
238
239			//"." Separator
240			out_arg->result[29] = '.';
241
242			//The next three (30, 31, 32) should be the milliseconds.
243			sprintf_s(&(out_arg->result[30]), 4, "%03d", in_arg->millitm);
244
245			//The tenth should be the terminator. It was probably handled by sprintf() above.
246			out_arg->result[33] = 0;
247
248			//printf("\n0000000000111111111122222222223\n0123456789012345678901234567890\n%s\n", buffer);
249			//printf("\n%s\n", out_arg->result);
250			}
251
252
253			void TIMEFUNC_to_ascii_filename_base(const struct __timeb64 in_arg, TIMEFUNC_TIME_ASCII_RESULT out_arg)
254			{
255			//Library function form.
256			//0000000000111111111122222222223
257			//0123456789012345678901234567890
258			//Sun Dec 14 00:36:38 2008
259			//
260			//Target form:
261			//000000000011111
262			//012345678901234
263			//20081214_003638
264
265			__time64_t time64;
266			errno_t error_return;
267			unsigned month;
268			char buffer[100];
269
270			//Be sure we don't have an unbounded string just in case something goes wrong.
271			buffer[0] = 0;
272			buffer[sizeof(buffer) - 1] = 0;
273
274			//Extract the 64-bit time.
275			time64 = in_arg->time;
276
277			//Convert the 64-bit time to a string.
278			error_return = _ctime64_s(buffer, sizeof(buffer), &time64);
279			assert(error_return == 0);
280
281			//Year
282			out_arg->result[0] = buffer[20];
283			out_arg->result[1] = buffer[21];
284			out_arg->result[2] = buffer[22];
285			out_arg->result[3] = buffer[23];
286
287			//Month
288			month = TIMEFUNC_ascii_month_to_unsigned(buffer[4], buffer[5], buffer[6]);
289
290			if (month == 0)
291			{
292			out_arg->result[4] = '?';
293			out_arg->result[5] = '?';
294			} else
295			{
296			sprintf_s(&(out_arg->result[4]), 3, "%02u", month);
297			}
298
299			//Day of month, perhaps with preceding space.
300			out_arg->result[6] = buffer[8];
301			out_arg->result[7] = buffer[9];
302
303			//Underscore.
304			out_arg->result[8] = '_';
305
306			//Hour
307			out_arg->result[9] = buffer[11];
308			out_arg->result[10] = buffer[12];
309
310			//Minute
311			out_arg->result[11] = buffer[14];
312			out_arg->result[12] = buffer[15];
313
314			//Second
315			out_arg->result[13] = buffer[17];
316			out_arg->result[14] = buffer[18];
317
318			//Zero terminator
319			out_arg->result[15] = 0;
320
321			//printf("\n0000000000111111111122222222223\n0123456789012345678901234567890\n%s\n", buffer);
322			//printf("\n%s\n", out_arg->result);
323			}
324
325
326			const char *TIMEFUNC_Vcinfo_C(void)
327			{
328			return("$Revision: 1.2 $");
329			}
330
331
332			const char *TIMEFUNC_Vcinfo_H(void)
333			{
334			return(TIMEFUNC_VCINFO_H);
335			}
336
337
338			//----------------------------------------------------------------------------------------------------
339			//$Log: timefunc.c,v $
340			//Revision 1.2 2012/03/30 01:05:31 dashley
341			//Edits.
342			//
343			//Revision 1.1 2012/03/30 00:59:16 dashley
344			//Initial checkin.
345			//----------------------------------------------------------------------------------------------------
346			//End of $RCSfile: timefunc.c,v $
347			//----------------------------------------------------------------------------------------------------