git.8kb.co.uk Git - dataflex/df32func/blob - 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