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-2009, 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
43 Define no_backslash_quote
\r
44 Define default_file_channel for 9
\r
46 //-------------------------------------------------------------------------
\r
47 // Global variables used to control some runtime behaviour
\r
48 //-------------------------------------------------------------------------
\r
50 // Turn on any debug lines at runtime
\r
51 indicator show_debug_lines
\r
53 //Used by set msxsl function (string.inc) - set to true to keep msxsl binary in one particular place
\r
54 indicator g_bMsxslPresent
\r
55 string g_sMsxslEngine
\r
57 //used by runtime (date.inc)
\r
58 integer g_nRuntime_entry
\r
60 //used by replacement GET_FILE_MOD_TIME command (depmacro.inc)
\r
61 string g_sGetfileModTime
\r
63 indicate g_bMsxslPresent false
\r
64 move "c:\msxsl.exe" to g_sMsxslEngine
\r
65 move 0 to g_nRuntime_entry
\r
66 indicate show_debug_lines false
\r
69 //-------------------------------------------------------------------------
\r
70 // Include main content
\r
71 //-------------------------------------------------------------------------
\r
73 //Including header file win32.h
\r
75 //Including include file tcpcom.h
\r
77 //Including include file console.h
\r
79 //Including include file encode.h
\r
81 //Including include file errors.h
\r
83 //Including include file macro.inc
\r
85 //Including include file math.inc
\r
87 //Including include file win32.inc
\r
89 //Including include file string.inc
\r
91 //Including include file date.inc
\r
93 //Including include file console.inc
\r
95 //Including include file data.inc
\r
97 //Including include file depmacro.inc
\r
98 #INCLUDE console.inc
\r
99 //Including include file hash.inc
\r
100 #INCLUDE depmacro.inc
\r
101 //Including include file tstamp.inc
\r
102 #INCLUDE tstamp.inc
\r
103 //Including include file encode.inc
\r
104 #INCLUDE encode.inc
\r