]> git.8kb.co.uk Git - dataflex/df32func/blob - src/df32/depmacro.inc
Maintain types on matrix columns
[dataflex/df32func] / src / df32 / depmacro.inc
1 //-------------------------------------------------------------------------\r
2 // depmacro.inc\r
3 //      This file contains definitions of DataFlex 3.2 Console Mode macro \r
4 //      functions that rely on previously defined DataFlex functions.\r
5 //\r
6 // This file is to be included in df32func.mk\r
7 //\r
8 // Copyright (c) 2006-2015, glyn@8kb.co.uk\r
9 // \r
10 // df32func/depmacro.inc\r
11 //-------------------------------------------------------------------------\r
12 \r
13 //-------------------------------------------------------------------------\r
14 // Macro commands\r
15 //-------------------------------------------------------------------------\r
16 \r
17 // Create replacement GET_FILE_MOD_TIME - this will replace (leap year) in \r
18 // faulty builtin GET_FILE_MOD_TIME command.\r
19 // Console mode clients rely on GetTime (win32.inc).\r
20 #COMMAND IH_GET_FILE_MOD_TIME R "TO" R\r
21     if (sysconf(sysconf_os_short_name) = 'WIN32CM') begin\r
22         move (get_time(!1,3)) to g_sGetFileModTime\r
23         move (Left(g_sGetFileModTime,10)) to !3\r
24 \r
25         #IF (!0 > 3)\r
26             move (mid (g_sGetFileModTime,2,11)) to !4\r
27         #ENDIF\r
28 \r
29         #IF (!0 > 4)\r
30             move (mid (g_sGetFileModTime,2,14)) to !5\r
31         #ENDIF\r
32 \r
33         #IF (!0 > 5)\r
34             move (mid (g_sGetFileModTime,2,17)) to !6\r
35         #ENDIF\r
36     end // Console mode \r
37     else begin // DOS mode\r
38         !A [] $592  !1 !3\r
39 \r
40         #IF (!0 > 3)\r
41           !A [] $593  !4\r
42         #ENDIF\r
43 \r
44         #IF (!0 > 4)\r
45           !A [] $594  !5\r
46         #ENDIF\r
47 \r
48         #IF (!0 > 5)\r
49           !A [] $595  !6\r
50         #ENDIF\r
51 \r
52         // Check& correct year for both modes\r
53         move (check_date_error(!3)) to !3\r
54     end  // DOS mode\r
55 \r
56 #ENDCOMMAND\r
57 \r
58 // Replace old get_file_mod_time with new\r
59 #REPLACE GET_FILE_MOD_TIME IH_GET_FILE_MOD_TIME\r