1 //-------------------------------------------------------------------------
\r
3 // This file contains definitions of DataFlex 3.2 Console Mode macro
\r
4 // functions that rely on previously defined DataFlex functions.
\r
6 // This file is to be included in df32func.mk
\r
8 // Copyright (c) 2006-2015, glyn@8kb.co.uk
\r
10 // df32func/depmacro.inc
\r
11 //-------------------------------------------------------------------------
\r
13 //-------------------------------------------------------------------------
\r
15 //-------------------------------------------------------------------------
\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
26 move (mid (g_sGetFileModTime,2,11)) to !4
\r
30 move (mid (g_sGetFileModTime,2,14)) to !5
\r
34 move (mid (g_sGetFileModTime,2,17)) to !6
\r
36 end // Console mode
\r
37 else begin // DOS mode
\r
52 // Check& correct year for both modes
\r
53 move (check_date_error(!3)) to !3
\r
58 // Replace old get_file_mod_time with new
\r
59 #REPLACE GET_FILE_MOD_TIME IH_GET_FILE_MOD_TIME
\r