1 //-------------------------------------------------------------------------
\r
3 // Primary source file for DateFlex 3.2 Console Mode "df32func" extentions
\r
5 // This is the file to be compiled by the dfcomp command
\r
7 // Copyright (c) 2006-2015, glyn@8kb.co.uk
\r
9 // df32func/df32func.mk
\r
10 //-------------------------------------------------------------------------
\r
14 #REM ----------------------------------------------------------------------
\r
15 #REM Compiling df32func.inc
\r
16 #REM If precompiling ensure df32func.flp is with your
\r
17 #REM bytecode and df32func.pki is with your packages
\r
18 #REM ----------------------------------------------------------------------
\r
20 //-------------------------------------------------------------------------
\r
21 // Set dataflex epoch and set date format to 4 digit years
\r
22 //-------------------------------------------------------------------------
\r
24 set_date_attribute date4_state to dftrue
\r
25 set_date_attribute epoch_value to 80
\r
26 set_date_attribute sysdate4_state to dftrue
\r
28 //-------------------------------------------------------------------------
\r
29 // Standard DF32 Console Mode packages
\r
30 //-------------------------------------------------------------------------
\r
32 Use CASE //this package allows the use of switch statements in DataFlex
\r
33 Use UI //this package contains all the user interface / data classes for OO DataFlex
\r
34 Use MONARRAY //this package allows the easy monitoring of an array
\r
35 Use TIMER //this package allows the use of timers to control events
\r
36 Use DLL //this package allows import of dynamic link libraries, N.B. It contains fake
\r
37 //WORD and BYTE types that are incorrect for use in C struct types
\r
38 //-------------------------------------------------------------------------
\r
39 // Defines used to control some compile time behaviour
\r
40 //-------------------------------------------------------------------------
\r
42 //Define ENABLE_DFASSERT
\r
44 Define NO_BACKSLASH_QUOTE
\r
46 #IFDEF DEFAULT_FILE_CHANNEL
\r
48 Define DEFAULT_FILE_CHANNEL for 9
\r
51 #IFDEF MAX_DFREGEX_BUFFER
\r
53 Define MAX_DFREGEX_BUFFER for 16384
\r
56 #IFDEF ERRORS_TO_STDERR
\r
58 Define ERRORS_TO_STDERR for 0
\r
62 //-------------------------------------------------------------------------
\r
63 // Global variables used to control some runtime behaviour
\r
64 //-------------------------------------------------------------------------
\r
66 // Turn on any debug lines at runtime
\r
67 indicator show_debug_lines
\r
69 //Used by set msxsl function (string.inc) - set to true to keep msxsl binary in one particular place
\r
70 indicator g_bMsxslPresent
\r
71 string g_sMsxslEngine
\r
73 //used by runtime (date.inc)
\r
74 integer g_nRuntime_entry
\r
76 //used by replacement GET_FILE_MOD_TIME command (depmacro.inc)
\r
77 string g_sGetfileModTime
\r
79 indicate g_bMsxslPresent false
\r
80 move "c:\msxsl.exe" to g_sMsxslEngine
\r
81 move 0 to g_nRuntime_entry
\r
82 indicate show_debug_lines false
\r
85 //-------------------------------------------------------------------------
\r
86 // Include main content
\r
87 //-------------------------------------------------------------------------
\r
89 //Including header file win32.h
\r
91 //Including include file df32func.h
\r
93 //Including include file console.h
\r
95 //Including include file encode.h
\r
97 //Including include file errors.h
\r
99 //Including include file macro.inc
\r
101 //Including include file math.inc
\r
103 //Including include file tap.inc
\r
105 //Including include file regex.inc
\r
107 //Including include file win32.inc
\r
109 //Including include file string.inc
\r
110 #INCLUDE string.inc
\r
111 //Including include file date.inc
\r
113 //Including include file console.inc
\r
115 //Including include file data.inc
\r
117 //Including include file depmacro.inc
\r
118 #INCLUDE console.inc
\r
119 //Including include file hash.inc
\r
120 #INCLUDE depmacro.inc
\r
121 //Including include file tstamp.inc
\r
122 #INCLUDE tstamp.inc
\r
123 //Including include file encode.inc
\r
124 #INCLUDE encode.inc
\r