phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
SYSPROG/STPROCINS/DICT_SYSREPOSOLECONTROLS_EQUATES.txt
View File

@ -1,6 +1,6 @@
compile insert dict_SYSREPOSOLECONTROLS_Equates
/*
** Copyright (C) 1992-2021 Revelation Software Inc. All Rights Reserved **
** Copyright (C) 1992-2024 Revelation Software Inc. All Rights Reserved **
Author : Mr C
Date : June 2021
@ -11,6 +11,8 @@ compile insert dict_SYSREPOSOLECONTROLS_Equates
Amended Date Reason
======= ==== ======
Mr C 09 Jan 24 Added SYSREPOSOLECONTROLS$DEFPREVPOSPROP_PROPERTY$
Added SYSREPOSOLECONTROLS$DEFPREVPOSPROP_HANDLER$
Mr C 29 Jun 21 Added SYSREPOSOLECONTROLS$DEFVALUESUPPORT$
*/
///////////////////////////////////////////////////////////////////////////////
@ -21,25 +23,27 @@ compile insert dict_SYSREPOSOLECONTROLS_Equates
///////////////////////////////////////////////////////////////////////////////
// Key Position Equates
equ SYSREPOSOLECONTROLS$APPID$ to 1
equ SYSREPOSOLECONTROLS$ENTITYID$ to 2
equ SYSREPOSOLECONTROLS$APPID$ to 1
equ SYSREPOSOLECONTROLS$ENTITYID$ to 2
// Column Position Equates
equ SYSREPOSOLECONTROLS$CLSID$ to 1
equ SYSREPOSOLECONTROLS$DESCRIPTION$ to 2
equ SYSREPOSOLECONTROLS$PROGID$ to 3
equ SYSREPOSOLECONTROLS$DEFPROP_PROPERTY$ to 4
equ SYSREPOSOLECONTROLS$DEFPROP_HANDLER$ to 5
equ SYSREPOSOLECONTROLS$MULTICOLUMN$ to 6
equ SYSREPOSOLECONTROLS$DEFPOSPROP_PROPERTY$ to 7
equ SYSREPOSOLECONTROLS$DEFPOSPROP_HANDLER$ to 8
equ SYSREPOSOLECONTROLS$DBSUPPORT$ to 9
equ SYSREPOSOLECONTROLS$ICONVSUPPORT$ to 10
equ SYSREPOSOLECONTROLS$OCONVSUPPORT$ to 11
equ SYSREPOSOLECONTROLS$REQSUPPORT$ to 12
equ SYSREPOSOLECONTROLS$CLICK_EVENT$ to 13
equ SYSREPOSOLECONTROLS$POSCHANGED_EVENT$ to 14
equ SYSREPOSOLECONTROLS$DEFVALUESUPPORT$ to 15
equ SYSREPOSOLECONTROLS$CLSID$ to 1
equ SYSREPOSOLECONTROLS$DESCRIPTION$ to 2
equ SYSREPOSOLECONTROLS$PROGID$ to 3
equ SYSREPOSOLECONTROLS$DEFPROP_PROPERTY$ to 4
equ SYSREPOSOLECONTROLS$DEFPROP_HANDLER$ to 5
equ SYSREPOSOLECONTROLS$MULTICOLUMN$ to 6
equ SYSREPOSOLECONTROLS$DEFPOSPROP_PROPERTY$ to 7
equ SYSREPOSOLECONTROLS$DEFPOSPROP_HANDLER$ to 8
equ SYSREPOSOLECONTROLS$DBSUPPORT$ to 9
equ SYSREPOSOLECONTROLS$ICONVSUPPORT$ to 10
equ SYSREPOSOLECONTROLS$OCONVSUPPORT$ to 11
equ SYSREPOSOLECONTROLS$REQSUPPORT$ to 12
equ SYSREPOSOLECONTROLS$CLICK_EVENT$ to 13
equ SYSREPOSOLECONTROLS$POSCHANGED_EVENT$ to 14
equ SYSREPOSOLECONTROLS$DEFVALUESUPPORT$ to 15
equ SYSREPOSOLECONTROLS$DEFPREVPOSPROP_PROPERTY$ to 16
equ SYSREPOSOLECONTROLS$DEFPREVPOSPROP_HANDLER$ to 17
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

336
SYSPROG/STPROCINS/ENVIRON_CONSTANTS.txt
View File

@ -6,8 +6,8 @@ compile insert environ_constants
mtr 05-25-06 Added ENV_DFLT_RPT_SHADOW_TYPE$
bzs 06-02-06 Added ENV_ODBC_CAT_ALL_TABLES$
WER 07/06/06 Added ENV_EXCLUDE_FROM_REPORTS$
spf 10/19/06 Added Equ ENV_DM_SORT_BY_DBID$ - Sort tables within the Database Manager Add by Database ID
RO 11/16/06 Added Equ EQU ENV_RELATIONAL_UPD_0$ - Update Zero Records when relational indexes are updated
spf 10/19/06 Added equ ENV_DM_SORT_BY_DBID$ - Sort tables within the Database Manager Add by Database ID
RO 11/16/06 Added equ equ ENV_RELATIONAL_UPD_0$ - Update Zero Records when relational indexes are updated
bzs 02/07/07 Added ENV_SAVE_CONVERTED$ and ENV_CREATE_AREVUSER$
bzs 07/23/08 Added ENV_DATE_FORMAT$
mtr 08/25/08 Added ENV_B_DFLT_WIN_BACKCOLOR$
@ -17,203 +17,197 @@ compile insert environ_constants
bzs 02/24/09 Added ENV_OSWRITE$
rjc 05/06/09 Added env_BTREE_FLUSH_ON$
djh 01/27/17 Comment out focuscell equates
Mr C 25 Apr 19 Corrected comments for ENV_LOCALE$
Mr C 25 Apr 19 Corrected comments for ENV_LOCALE$
*/
*** Pointers into the environment constants variable for OpenEngine
EQU ENVIRON_PREFIX$ TO "ENV_" ;* Prefix in sysenv for environment records
EQU E.DEFAULT.DATA.VOL TO 1 ;* Default data volume where files are
* created and some TCL commands such as LISTDICT are used
EQU ENV_DEFAULT_DATA_VOL$ TO 1
EQU E.DOS.SORT.VOL TO 2 ;* The DOS volume where the temporary sort
* files will be built. If not specified then
* it uses the default drive.
EQU ENV_DOS_SORT_VOL$ TO 2
EQU E.TRANS.VOL TO 3 ;* Transaction volume name. Where the
* trans files and other lock files are
* stored.
EQU ENV_TRANS_VOL$ TO 3
EQU E.DEFAULT.STOPS TO 4 ;* MV list of words thrown out when indexing and
* Cross-reference
EQU ENV_DEFAULT_STOPS$ TO 4
EQU E.INDEX.TIME TO 5 ;* Seconds before call to background indexing
* process. A zero or null will not call
* processor. A one will tell the
* background process that the station is
* dedicated to index processing.
EQU ENV_INDEX_TIME$ TO 5
EQU E.SELECT.FLUSH.ON TO 6 ;* 1 = Flush Index Transactions BEFORE select.
EQU ENV_SELECT_FLUSH_ON$ TO 6
EQU E.UNLOCK.ALL.COMMIT TO 7 ;* 1 = true - then UNLOCK ALL imposed at
* commit time. 0 = false - only logged
* locks are unlocked at commit time.
EQU ENV_UNLOCK_ALL_COMMIT$ TO 7
EQU E.DEADLOCK.CHECK TO 8 ;* Interval (in seconds) for checking
* deadlock after deadlock process has
* been started.
EQU ENV_DEADLOCK_CHECK$ TO 8
EQU E.LOCK.TIMEOUT TO 9 ;* Number of seconds before transaction
* times out in a wait situation
EQU ENV_LOCK_TIMEOUT$ TO 9
EQU E.CONSISTENCY.LEVEL TO 10 ;* Number (0-4) for locking consistency
EQU ENV_CONSISTENCY_LEVEL$ TO 10
EQU E.LOCKING.GOV TO 11 ;* Number of allowable locks from this
* workstation.
EQU ENV_LOCKING_GOV$ TO 11
EQU E.AUTOTRANS TO 12 ;* Auto transaction start mode.
* (ON = 1 or OFF = 0) for a lock.
EQU ENV_AUTOTRANS$ TO 12
EQU E.DEADLOCK.POSTING TO 13 ;* Number of seconds before deadlock
* checking is begun and locks are posted.
EQU ENV_DEADLOCK_POSTING$ TO 13
EQU E.NETCACHE.OPTION TO 14 ;* For network cache option
EQU ENV_NETCACHE_OPTION$ TO 14
EQU E.LND.DEFAULT TO 15 ;* Active language set default name
EQU ENV_LND_DEFAULT$ TO 15
EQU E.LND.LOAD TO 16 ;* List of language sets to load into memory
EQU ENV_LND_LOAD$ TO 16
EQU E.QUERY.CASE TO 17 ;* query case sensitivity (true=case insensitive)
EQU ENV_QUERY_CASE$ TO 17
EQU E.TIMEDATE.FMT TO 18 ;* TIMEDATE() override output format for
// ------------------------------------------------------------------------------------------------
equ ENVIRON_PREFIX$ TO "ENV_" ; * Prefix in sysenv for environment records
// ------------------------------------------------------------------------------------------------
equ E.DEFAULT.DATA.VOL TO 1 ; * Default data volume where files are created
equ ENV_DEFAULT_DATA_VOL$ TO 1 ; * and some TCL commands such as LISTDICT are
; * used
// ------------------------------------------------------------------------------------------------
equ E.DOS.SORT.VOL to 2 ; * The DOS volume where the temporary sort
equ ENV_DOS_SORT_VOL$ to 2 ; * files will be built. If not specified then
; * it uses the default drive.
// ------------------------------------------------------------------------------------------------
equ E.TRANS.VOL to 3 ; * Transaction volume name. Where the
equ ENV_TRANS_VOL$ to 3 ; * trans files and other lock files are
; * stored.
// ------------------------------------------------------------------------------------------------
equ E.DEFAULT.STOPS to 4 ; * MV list of words thrown out when indexing
equ ENV_DEFAULT_STOPS$ to 4 ; * and Cross-reference
// ------------------------------------------------------------------------------------------------
equ E.INDEX.TIME to 5 ; * Seconds before call to background indexing
equ ENV_INDEX_TIME$ to 5 ; * process. A zero or null will not call
; * processor. A one will tell the
; * background process that the station is
; * dedicated to index processing.
// ------------------------------------------------------------------------------------------------
equ E.SELECT.FLUSH.ON to 6 ; * 1 = Flush Index Transactions BEFORE select.
equ ENV_SELECT_FLUSH_ON$ to 6
// ------------------------------------------------------------------------------------------------
equ E.UNLOCK.ALL.COMMIT to 7 ; * 1 = true - then UNLOCK ALL imposed at
equ ENV_UNLOCK_ALL_COMMIT$ to 7 ; * commit time. 0 = false - only logged
; * locks are unlocked at commit time.
// ------------------------------------------------------------------------------------------------
equ E.DEADLOCK.CHECK to 8 ; * Interval (in seconds) for checking
equ ENV_DEADLOCK_CHECK$ to 8 ; * deadlock after deadlock process has
; * been started.
// ------------------------------------------------------------------------------------------------
equ E.LOCK.TIMEOUT to 9 ; * Number of seconds before transaction
equ ENV_LOCK_TIMEOUT$ to 9 ; * times out in a wait situation
// ------------------------------------------------------------------------------------------------
equ E.CONSISTENCY.LEVEL to 10 ; * Number (0-4) for locking consistency
equ ENV_CONSISTENCY_LEVEL$ to 10
// ------------------------------------------------------------------------------------------------
equ E.LOCKING.GOV to 11 ; * Number of allowable locks from this
equ ENV_LOCKING_GOV$ to 11 ; * workstation.
// ------------------------------------------------------------------------------------------------
equ E.AUTOTRANS to 12 ; * Auto transaction start mode.
equ ENV_AUTOTRANS$ to 12 ; * (ON = 1 or OFF = 0) for a lock.
// ------------------------------------------------------------------------------------------------
equ E.DEADLOCK.POSTING to 13 ; * Number of seconds before deadlock
equ ENV_DEADLOCK_POSTING$ to 13 ; * checking is begun and locks are posted.
// ------------------------------------------------------------------------------------------------
equ E.NETCACHE.OPTION TO 14 ;* For network cache option
equ ENV_NETCACHE_OPTION$ TO 14
// ------------------------------------------------------------------------------------------------
equ E.LND.DEFAULT TO 15 ;* Active language set default name
equ ENV_LND_DEFAULT$ TO 15
// ------------------------------------------------------------------------------------------------
equ E.LND.LOAD TO 16 ;* List of language sets to load into memory
equ ENV_LND_LOAD$ TO 16
// ------------------------------------------------------------------------------------------------
equ E.QUERY.CASE TO 17 ;* query case sensitivity (true=case insensitive)
equ ENV_QUERY_CASE$ TO 17
// ------------------------------------------------------------------------------------------------
equ E.TIMEDATE.FMT TO 18 ;* TIMEDATE() override output format for
;* system processes and for TIMEDATE( ) function.
EQU ENV_TIMEDATE_FMT$ TO 18
EQU E.SUPPRESS.NONNUMERIC TO 19 ;* Suppress nonnumeric error messages
EQU ENV_SUPPRESS_NONNUMERIC$ TO 19
EQU E.LPTRHIGH TO 20 ;* Height of PRINTER
EQU ENV_LPTRHIGH$ TO 20
EQU E.LPTRWIDE TO 21 ;* Width of PRINTER
EQU ENV_LPTRWIDE$ TO 21
EQU E.NULL.DISPLAY.STRING TO 22 ;* String to represent NULL values in SQL
equ ENV_TIMEDATE_FMT$ TO 18
// ------------------------------------------------------------------------------------------------
equ E.SUPPRESS.NONNUMERIC TO 19 ;* Suppress nonnumeric error messages
equ ENV_SUPPRESS_NONNUMERIC$ TO 19
// ------------------------------------------------------------------------------------------------
equ E.LPTRHIGH TO 20 ;* Height of PRINTER
equ ENV_LPTRHIGH$ TO 20
// ------------------------------------------------------------------------------------------------
equ E.LPTRWIDE TO 21 ;* Width of PRINTER
equ ENV_LPTRWIDE$ TO 21
// ------------------------------------------------------------------------------------------------
equ E.NULL.DISPLAY.STRING TO 22 ;* String to represent NULL values in SQL
* report (display only).
EQU ENV_NULL_DISPLAY_STRING$ TO 22
EQU ENV_DEBUGGER_ENABLED$ TO 23 ;* 1 - Debugger Enabled 0 - Debugger Disabled, 2- Debugger Intercepted To Debugger_Replacement
EQU ENV_DEFAULT_FOLDER$ TO 24 ;* Default folder for stored procedures.
EQU ENV_DEFAULT_IOCONV$ TO 25 ;* 0 - No conversion 1 - do convert and validate - with protect.mfs
EQU ENV_COMMIT_VOL$ TO 26 ;* Commit volume
EQU ENV_COMMIT_PROTECT$ TO 27 ;* 1 - Commit protected 0 - commit unprotected.
EQU ENV_VICTIM_SELECT$ TO 28 ;* (NUMERIC) deadlock resolution victim selection mode.
EQU ENV_IMPLICIT_LOCK_TYPE$ TO 29 ;* 0 - Table lock, 1 - Record lock
EQU ENV_COORDINATED_LOCK$ TO 30 ;* 1 - Table/record locks coordinated.
EQU ENV_ENTITY_LOG_CNT$ TO 31 ;* no. of logs each entity keeps
EQU ENV_STARTUP_PROC$ TO 32 ;* Startup procedure called by INITIALIZE when starting
equ ENV_NULL_DISPLAY_STRING$ TO 22
// ------------------------------------------------------------------------------------------------
equ ENV_DEBUGGER_ENABLED$ TO 23 ;* 1 - Debugger Enabled 0 - Debugger Disabled, 2- Debugger Intercepted To Debugger_Replacement
// ------------------------------------------------------------------------------------------------
equ ENV_DEFAULT_FOLDER$ TO 24 ;* Default folder for stored procedures.
// ------------------------------------------------------------------------------------------------
equ ENV_DEFAULT_IOCONV$ TO 25 ;* 0 - No conversion 1 - do convert and validate - with protect.mfs
// ------------------------------------------------------------------------------------------------
equ ENV_COMMIT_VOL$ TO 26 ;* Commit volume
// ------------------------------------------------------------------------------------------------
equ ENV_COMMIT_PROTECT$ TO 27 ;* 1 - Commit protected 0 - commit unprotected.
// ------------------------------------------------------------------------------------------------
equ ENV_VICTIM_SELECT$ TO 28 ;* (NUMERIC) deadlock resolution victim selection mode.
// ------------------------------------------------------------------------------------------------
equ ENV_IMPLICIT_LOCK_TYPE$ TO 29 ;* 0 - Table lock, 1 - Record lock
// ------------------------------------------------------------------------------------------------
equ ENV_COORDINATED_LOCK$ TO 30 ;* 1 - Table/record locks coordinated.
// ------------------------------------------------------------------------------------------------
equ ENV_ENTITY_LOG_CNT$ TO 31 ;* no. of logs each entity keeps
// ------------------------------------------------------------------------------------------------
equ ENV_STARTUP_PROC$ TO 32 ;* Startup procedure called by INITIALIZE when starting
;* an application (boot or change application time)
;* Prototype:
;* subroutine ...(FirstInitFlag, StationId)
;* where
;* FirstInitFlag -- TRUE$ for initial engine startup
;* StationId -- set this parameter to modify @station
EQU ENV_SHUTDOWN_PROC$ TO 33 ;* Shutdown procedure... Called by REVSHUTDOWNPROC when closing
// ------------------------------------------------------------------------------------------------
equ ENV_SHUTDOWN_PROC$ TO 33 ;* Shutdown procedure... Called by REVSHUTDOWNPROC when closing
;* Prototype:
;* subroutine ...(FirstInitFlag, StationId)
;* where
;* FirstInitFlag -- TRUE$ for initial engine startup
;* StationId -- set this parameter to modify @station
EQU ENV_CONCURRENCY_SCHEME$ TO 34 ;* used for SQL bond optimization
EQU ENV_FILTER_TABLES_PROC$ TO 35 ;* custom security filter (primarily for ReportDesigner):
// ------------------------------------------------------------------------------------------------
equ ENV_CONCURRENCY_SCHEME$ TO 34 ;* used for SQL bond optimization
// ------------------------------------------------------------------------------------------------
equ ENV_FILTER_TABLES_PROC$ TO 35 ;* custom security filter (primarily for ReportDesigner):
;* Prototype: function ... (AllTableList)
;* Returns: @fm delimited list of allowed tables
EQU ENV_FILTER_COLUMNS_PROC$ TO 36 ;* custom security filter (primarily for ReportDesigner):
// ------------------------------------------------------------------------------------------------
equ ENV_FILTER_COLUMNS_PROC$ TO 36 ;* custom security filter (primarily for ReportDesigner):
;* Prototype: function ... (TableName, AllColumnList)
;* Returns: @fm delimited list of allowed columns
EQU ENV_DATASOURCE_TYPE$ TO 37 ;* DataSource type (primarily used by XOInstance, DSInstance)
EQU ENV_XO_DEFAULTS$ TO 38 ;* DataSet/Connection Object defaults
EQU ENV_AREV_COMPAT_RTP9$ TO 39 ;* 1=Arev compatibility mode for RTP9 (Warning! Breaks Rev_SQL)
// ------------------------------------------------------------------------------------------------
equ ENV_DATASOURCE_TYPE$ TO 37 ;* DataSource type (primarily used by XOInstance, DSInstance)
// ------------------------------------------------------------------------------------------------
equ ENV_XO_DEFAULTS$ TO 38 ;* DataSet/Connection Object defaults
// ------------------------------------------------------------------------------------------------
equ ENV_AREV_COMPAT_RTP9$ TO 39 ;* 1=Arev compatibility mode for RTP9 (Warning! Breaks Rev_SQL)
;* 0=OpenInsight compatibility mode for RTP9 (default)
EQU ENV_UNIQUE_STATION_ID$ TO 40 ;* 1=Append ProcessID to 'normal' @station
EQU ENV_DFLT_RPT_SHADOW_TYPE$ TO 41 ;* Html Or rtf
EQU ENV_ODBC_CAT_ALL_TABLES$ TO 42 ;* Override flag - display _all_ attached tables regardless of SQLTables qualifier
EQU ENV_EXCLUDE_FROM_REPORTS$ To 43 ;* Exclude these tables from list of available tables for Report Builder reports
EQU ENV_DFLT_OIPI_UOM$ TO 44 ;* Standard Or Metric
Equ ENV_DM_SORT_BY_DBID$ To 45 ; * Sort tables within the Database Manager Add by Database ID
EQU ENV_RELATIONAL_UPD_0$ To 46 ;* Update Zero Records when relational indexes are updated
equ ENV_SAVE_CONVERTED$ TO 47 ;* 0 = Do not preserve precompiled source
// ------------------------------------------------------------------------------------------------
equ ENV_UNIQUE_STATION_ID$ TO 40 ;* 1=Append ProcessID to 'normal' @station
// ------------------------------------------------------------------------------------------------
equ ENV_DFLT_RPT_SHADOW_TYPE$ TO 41 ;* Html Or rtf
// ------------------------------------------------------------------------------------------------
equ ENV_ODBC_CAT_ALL_TABLES$ TO 42 ;* Override flag - display _all_ attached tables regardless of SQLTables qualifier
// ------------------------------------------------------------------------------------------------
equ ENV_EXCLUDE_FROM_REPORTS$ to 43 ;* Exclude these tables from list of available tables for Report Builder reports
// ------------------------------------------------------------------------------------------------
equ ENV_DFLT_OIPI_UOM$ to 44 ;* Standard Or Metric
// ------------------------------------------------------------------------------------------------
equ ENV_DM_SORT_BY_DBID$ to 45 ; * Sort tables within the Database Manager Add by Database ID
// ------------------------------------------------------------------------------------------------
equ ENV_RELATIONAL_UPD_0$ to 46 ;* Update Zero Records when relational indexes are updated
// ------------------------------------------------------------------------------------------------
equ ENV_SAVE_CONVERTED$ to 47 ;* 0 = Do not preserve precompiled source
;* 1 = Save converted precompiled source in SYSLISTS (DEFAULT)
// ------------------------------------------------------------------------------------------------
equ ENV_CREATE_AREVUSER$ TO 48 ;* 0 = Creation of OI user does not create AREV32 user (DEFAULT)
;* 1 = Creation of OI user creates AREV32 user
// ------------------------------------------------------------------------------------------------
equ ENV_OIPI_SAVE_PATH$ TO 49 ;* Default Path for OIPI files (PDF,RTF,Etc)
// ------------------------------------------------------------------------------------------------
equ ENV_EXCLUDE_FIELDS$ TO 50 ;* Fields to be excluded from reports in report builder
* bzs 102208 Equ ENV_DATE_FORMAT$ To 51 ;* 0=US/1=European/-1=Determine from Locale
Equ ENV_LOCALE$ To 51 ;* 0=None/1=LND/2=Determine from Windows Locale ;* bzs 102208
* mtr 8-25-08
Equ ENV_B_DFLT_WIN_BACKCOLOR$ To 52 ;* Boolean: Yes means show a default background color for all windows
Equ ENV_WIN_BACKCOLOR_VALUES$ to 53 ;* From color and to color, @Vm delimited
// ------------------------------------------------------------------------------------------------
* bzs 102208 equ ENV_DATE_FORMAT$ To 51 ;* 0=US/1=European/-1=Determine from Locale
equ ENV_LOCALE$ To 51 ;* 0=None/1=LND/2=Determine from Windows Locale ;* bzs 102208
// ------------------------------------------------------------------------------------------------
equ ENV_B_DFLT_WIN_BACKCOLOR$ To 52 ;* Boolean: Yes means show a default background color for all windows
// ------------------------------------------------------------------------------------------------
equ ENV_WIN_BACKCOLOR_VALUES$ to 53 ;* From color and to color, @Vm delimited
// ------------------------------------------------------------------------------------------------
equ ENV_DEBUGGER_INTERCEPT_PROC$ to 54 ; * // Name of an SSP to use for debugger intercepts.
; * // Defaults to "debugger_replacement"
Equ ENV_LANG_SET$ To 55 ;* The language set used by the system. It should be one of the lnd_ records in the sysenv table.
Equ ENV_OSWRITE$ To 56 ;* BZS 022409 Flag to use new style in oswrite (always convert value to string)
// ------------------------------------------------------------------------------------------------
equ ENV_LANG_SET$ To 55 ;* The language set used by the system. It should be one of the lnd_ records in the sysenv table.
// ------------------------------------------------------------------------------------------------
equ ENV_OSWRITE$ To 56 ;* BZS 022409 Flag to use new style in oswrite (always convert value to string)
// ------------------------------------------------------------------------------------------------
* 01/27/17 djh - Remove focuscell equates, not deleting so we can see what used to be in these fields
* mtr 3-13-09 glad I'm not triskadeccaphobic
/*Equ ENV_B_USE_FOCUSCELL$ To 57; * MTR Use the FocusCell settings
Equ env_FOCUSCELL_FONT$ To 58; * mtr font and related data to use in the edittable cell that has focus
Equ env_FOCUSCELL_FGCOLOR$ To 59; * foreground color for the edittable cell that has does not focus
Equ env_FOCUSCELL_BGCOLOR$ To 60; * background color for the edittable cell that has does not focus
Equ env_FOCUSCELL_SELECT_FGCOLOR$ To 61; * foreground color for the edittable cell that has focus
Equ env_FOCUSCELL_SELECT_BGCOLOR$ To 62; * background color for the edittable cell that has focus
Equ env_FOCUSCELL_RECTSTYLE$ To 63; * rectangle style for the edittable cell that has focus; 0=dotted, 1=solid
Equ env_FOCUSCELL_RECTWEIGHT$ to 64; * rectangle weight for the edittable cell that has focus; 0=light, 1=medium, 2=thick
Equ env_FOCUSCELL_RECTCOLOR$ To 65; * color of the rectangle*/
/*equ ENV_B_USE_FOCUSCELL$ To 57; * MTR Use the FocusCell settings
equ env_FOCUSCELL_FONT$ To 58; * mtr font and related data to use in the edittable cell that has focus
equ env_FOCUSCELL_FGCOLOR$ To 59; * foreground color for the edittable cell that has does not focus
equ env_FOCUSCELL_BGCOLOR$ To 60; * background color for the edittable cell that has does not focus
equ env_FOCUSCELL_SELECT_FGCOLOR$ To 61; * foreground color for the edittable cell that has focus
equ env_FOCUSCELL_SELECT_BGCOLOR$ To 62; * background color for the edittable cell that has focus
equ env_FOCUSCELL_RECTSTYLE$ To 63; * rectangle style for the edittable cell that has focus; 0=dotted, 1=solid
equ env_FOCUSCELL_RECTWEIGHT$ to 64; * rectangle weight for the edittable cell that has focus; 0=light, 1=medium, 2=thick
equ env_FOCUSCELL_RECTCOLOR$ To 65; * color of the rectangle*/
// ------------------------------------------------------------------------------------------------
* rjc 5-06-09 Hexakosioihexekontahexaphobia is a Revelation problem
Equ env_BTREE_FLUSH_ON$ To 66; * true if btree.extract should flush indexes before query
* mtr 7-29-10
*Equ env_source_code_management$ To 67; * true means we will use the source code management routines
* WER 10/27/14
Equ env_git_enabled$ To 67; * true means we will use the Git system
Equ ENV_MSG_STYLESHEET$ To 68 ;* STYLESHEET To BE USED For ALL MESSAGES
equ env_BTREE_FLUSH_ON$ To 66; * true if btree.extract should flush indexes before query
// ------------------------------------------------------------------------------------------------
*equ env_source_code_management$ To 67; * true means we will use the source code management routines
// ------------------------------------------------------------------------------------------------
equ env_git_enabled$ To 67; * true means we will use the Git system
// ------------------------------------------------------------------------------------------------
equ ENV_MSG_STYLESHEET$ To 68 ;* STYLESHEET To BE USED For ALL MESSAGES - moved to SYSAPPS
// ------------------------------------------------------------------------------------------------
equ ENV_DFLT_DATE_VALID$ to 69
// ------------------------------------------------------------------------------------------------

60
SYSPROG/STPROCINS/EVERRORS.txt
View File

@ -36,6 +36,7 @@ compile insert EVERRORS
Amended Date Reason
====== ==== ======
Mr C 01 Dec 23 Added EV_QEHANDLED$
Mr C 01 Feb 21 Added EV_RESETSKERR$
Mr C 14 Sep 16 Added EV_PROPVALERR$
Mr C 29 Dec 14 Added EV_ERRVAL$
@ -65,38 +66,39 @@ compile insert EVERRORS
equ EV_ARGS$ to 2
equ EV_PREFIX$ to "EV"
equ EV_UNKNOWNERR$ to "EV100" ; * // Unknown Event Handler error
equ EV_REQUIREERR$ to "EV101" ; * // Required Error
equ EV_VALIDERR$ to "EV102" ; * // Validation Error
equ EV_FORMREADERR$ to "EV103" ; * // Form Read Error
equ EV_FORMREADSUBERR$ to "EV104" ; * // Form Read Sub Error
equ EV_NULLKEYERR$ to "EV105" ; * // Null Key Error
equ EV_NOLOCKERR$ to "EV106" ; * // Locking Error
equ EV_USERCANCEL$ to "EV107" ; * // User Cancel
equ EV_NULLPROCNAME$ to "EV108" ; * // Null procedure name
equ EV_INVALIDPROCNAME$ to "EV109" ; * // %1% is not a valid stored procedure name
equ EV_PARAMNOTALLOWED$ to "EV110" ; * // The %1% stored procedure does not accept parameters
equ EV_NULLWINNAME$ to "EV111" ; * // Null window name
equ EV_DSNCREATERROR$ to "EV112" ; * // DSN (IDE Designer) Create Error [%1%]
equ EV_TPLCREATERROR$ to "EV113" ; * // TPL (IDE ToolPanel) Create Error [%1%]
equ EV_INVALIDDSNPROP$ to "EV114" ; * // DSN (IDE Designer) PROPCHANGED validation error
equ EV_FDSPARSEERROR$ to "EV115" ; * // FDS (IDE FormDes) Parser Error [%1%]
equ EV_FDSBUILDERROR$ to "EV116" ; * // FDS (IDE FormDes) Builder Error [%1%]
equ EV_DSNWRITEERROR$ to "EV117" ; * // DSN (IDE Designer) Write error [%1%]
equ EV_DSNTESTRUNERROR$ to "EV118" ; * // DSN (IDE Designer) Test-Run error [%1%]
equ EV_PROPVALERR$ to "EV119" ; * // Invalid Property Value [%1%]
equ EV_QBFPARSEERR$ to "EV130" ; * // QBF Parser Error [%1%]
equ EV_QBFINITOFF$ to "EV132" ; * // Query By Form is not active
equ EV_QBFACTIVATELIST$ to "EV133" ; * // QBF saved list activation error [%1%]
equ EV_QBFINVALIDINDEX$ to "EV134" ; * // "%1%" is not a valid position in the QBF result list
equ EV_QBFINVALIDID$ to "EV135" ; * // "%1%" is not a valid ID in the QBF result list
equ EV_RESETSKERR$ to "EV136" ; * // Error resetting sequential key counter [%1%]
equ EV_UNKNOWNERR$ to "EV100" ; // Unknown Event Handler error
equ EV_REQUIREERR$ to "EV101" ; // Required Error
equ EV_VALIDERR$ to "EV102" ; // Validation Error
equ EV_FORMREADERR$ to "EV103" ; // Form Read Error
equ EV_FORMREADSUBERR$ to "EV104" ; // Form Read Sub Error
equ EV_NULLKEYERR$ to "EV105" ; // Null Key Error
equ EV_NOLOCKERR$ to "EV106" ; // Locking Error
equ EV_USERCANCEL$ to "EV107" ; // User Cancel
equ EV_NULLPROCNAME$ to "EV108" ; // Null procedure name
equ EV_INVALIDPROCNAME$ to "EV109" ; // %1% is not a valid stored procedure name
equ EV_PARAMNOTALLOWED$ to "EV110" ; // The %1% stored procedure does not accept parameters
equ EV_NULLWINNAME$ to "EV111" ; // Null window name
equ EV_DSNCREATERROR$ to "EV112" ; // DSN (IDE Designer) Create Error [%1%]
equ EV_TPLCREATERROR$ to "EV113" ; // TPL (IDE ToolPanel) Create Error [%1%]
equ EV_INVALIDDSNPROP$ to "EV114" ; // DSN (IDE Designer) PROPCHANGED validation error
equ EV_FDSPARSEERROR$ to "EV115" ; // FDS (IDE FormDes) Parser Error [%1%]
equ EV_FDSBUILDERROR$ to "EV116" ; // FDS (IDE FormDes) Builder Error [%1%]
equ EV_DSNWRITEERROR$ to "EV117" ; // DSN (IDE Designer) Write error [%1%]
equ EV_DSNTESTRUNERROR$ to "EV118" ; // DSN (IDE Designer) Test-Run error [%1%]
equ EV_PROPVALERR$ to "EV119" ; // Invalid Property Value [%1%]
equ EV_QBFPARSEERR$ to "EV130" ; // QBF Parser Error [%1%]
equ EV_QBFINITOFF$ to "EV132" ; // Query By Form is not active
equ EV_QBFACTIVATELIST$ to "EV133" ; // QBF saved list activation error [%1%]
equ EV_QBFINVALIDINDEX$ to "EV134" ; // "%1%" is not a valid position in the QBF result list
equ EV_QBFINVALIDID$ to "EV135" ; // "%1%" is not a valid ID in the QBF result list
equ EV_RESETSKERR$ to "EV136" ; // Error resetting sequential key counter [%1%]
equ EV_WINMSGVAL$ to "EV200" ; * Return WINMSG value to PS
equ EV_WINMSGVAL$ to "EV200" ; // Return WINMSG value to PS
equ EV_ERRVAL$ to "EV998" ; * Returned error data to the calling proc (usually contains SSP error details)
equ EV_RETVAL$ to "EV999" ; * Return data to the calling proc - NOT an error!!!
equ EV_QEHANDLED$ to "EV300" ; // Handled in QE (Not an error)
equ EV_ERRVAL$ to "EV998" ; // Returned error data to the calling proc (usually contains SSP error details)
equ EV_RETVAL$ to "EV999" ; // Return data to the calling proc - NOT an error!!!
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

60
SYSPROG/STPROCINS/MSG_EQUATES.txt
View File

@ -20,12 +20,12 @@ compile insert Msg_Equates
* 08/20/15 djh Add EDITMASK fields
* 08/28/15 djh Add some documentation on the new fields
* 10/15/15 djh Add fields for styleSheets
* 03/18/24 MrC Updated for v10.2.2
******************************************************************************
declare subroutine Msg ;* Msg(Parent, MsgDef [, MsgKey, Instruction, Params])
declare function Msg ;* Ans = Msg(Parent, MsgDef [, MsgKey, Instruction, Params])
* message structure field definitions
equ MTEXT$ to 1 ;* the text to display in the message, multiple lines delimited by @tm, cr/lf, or "|"
equ MTYPE$ to 2 ;* the message type, defaults to "BO" (see below)
@ -35,8 +35,8 @@ equ MDEFBTN$ to 5 ;* default button (1 for first, 2 for second, et
equ MCOL$ to 6 ;* message h-pos in pixels, or -2 (center screen, the default), -1 (center parent)
equ MROW$ to 7 ;* message v-pos in pixels
equ MJUST$ to 8 ;* justification: T (text, the default), L (left), R (right), C (center)
equ MBKCOLOR$ to 9 ;* background color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
Equ MFGCOLOR$ To 10 ;* foreground color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR") - DO NOT USE - Use the color from the font structure
equ MBKCOLOR$ to 9 ;* background color - COLORREF value (not @vm-delimited RGB!)
Equ MFGCOLOR$ To 10 ;* foreground color - COLORREF value (not @vm-delimited RGB!)
equ MTEXTWIDTH$ to 11 ;* the message width (or the response field width for response messages)
equ MCAPTION$ to 12 ;* the message title
equ MVALID$ to 13 ;* for response messages, this is the validation pattern (ie. (MD0) for integer)
@ -55,24 +55,24 @@ Equ MGSMOOTH$ To 25 ;* boolean, set to true to see a smooth gauge an
Equ MGPERCOMPLETE$ To 26 ;* boolean, set to true to see the percent complete in the gauge
Equ MGSYNCTASK$ To 27 ;* boolean, set to true to mirror the state of the gauge on the taskbar
Equ MGVERTICAL$ To 28 ;* boolean, set to true to see a vertical gauge
Equ MGINCREMENT$ To 29 ;* integer, set the number to increment the gauge by
Equ MGTRANSLUCENT$ To 30 ;* integer, set the transparency of the gauge with 0 being fully apaque and 100 being fully transparent
Equ MGINCREMENT$ To 29 ;*** DEPRECATED *** integer, set the number to increment the gauge by
Equ MGTRANSLUCENT$ To 30 ;*** DEPRECATED *** integer, set the transparency of the gauge with 0 being fully apaque and 100 being fully transparent
Equ MGNORMALSTATE$ To 31 ;* gauge normal state color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
Equ MGERRORSTATE$ To 32 ;* gauge error state color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
Equ MGPAUSEDSTATE$ To 33 ;* gauge paused state color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
Equ MGMARQUEE$ To 34 ;* integer, time in milliseconds between marquee animation
Equ MGSTARTVALUE$ To 35 ;* integer, set the start value for the gauge, must be between the range values
Equ MGRANGESTART$ To 36 ;* integet, set the lower limit of the gauge
Equ MGRANGESTART$ To 36 ;* integer, set the lower limit of the gauge
Equ MGRANGEEND$ To 37 ;* integer, set the upper limit of the gauge
Equ MGDECREMENT$ To 38 ;* boolean, set to true to decrement the gauge
Equ MGDECREMENT$ To 38 ;*** DEPRECATED *** boolean, set to true to decrement the gauge
Equ MPWDPEEK$ To 39 ;* integer, time in milliseconds to display the entered character before masking
Equ MVALIDCHARS$ To 40 ;* for response messages, these are the characters that are valid
Equ MANIMATE$ To 41 ;* animation file name to use with the gauge (see list below for options)
Equ MPOPUP$ To 42 ;* boolean, for timed messages set to true to see a popup "toast" message in the lower right hand corner of the screen
Equ MFRAME$ To 43 ;* integer, set type of frame (see list below for options)
Equ MHTML$ To 44 ;* boolean, set to true for HTML text rendering
Equ MMAINFGCOLOR$ To 45 ;* main text foreground color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
Equ MMAINBKCOLOR$ To 46 ;* main text background color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
Equ MMAINFGCOLOR$ To 45 ;* main text foreground color - COLORREF value (not @vm-delimited RGB!)
Equ MMAINBKCOLOR$ To 46 ;*** DEPRECATED *** main text background color - COLORREF value (not @vm-delimited RGB!)
Equ MMAINTEXT$ To 47 ;* main text to appear above the regular text
Equ MMASKFORMAT$ To 48 ;* edit mask format to be used on response line
Equ MMASKTYPE$ To 49 ;* edit mask character type required for each character of the edit mask format (see list below for options)
@ -175,7 +175,7 @@ equ MNUMFIELDS$ to 60
* ----------- ----------- -----------------------------
* W Window only the parent is disabled
* A (default) Application all OI windows are disabled
* S System all applications are disabled
* S System all applications are disabled <-- Unsupported since Windows 3.1!!
* MICON$ detail:
*
@ -226,6 +226,9 @@ equ MNUMFIELDS$ to 60
* Msg(@window, "Hello, %1%, how are you %2%?", "", "", @username: @fm: "today")
* MANIMATE$ details:
*
* Should be an MMEDIA*AVI repository type or one of the
* DEPRECATED hardcoded filenames below:
*
* Value Description
* -------------------- ----------------
@ -244,8 +247,8 @@ equ MNUMFIELDS$ to 60
* Fixed
* Sizeable
* Dialog
* Fixed Tool
* Sizeable Tool
* Fixed Tool - DEPRECATED
* Sizeable Tool - DEPRECATED
* MMASKTYPE$ details:
*
@ -262,20 +265,6 @@ equ MNUMFIELDS$ to 60
* * Any printable character
* + A "+" character, a "-" character, or space
* Msg() function instruction values
equ MSGINSTSTART$ to 1 ;* (default instruction)
equ MSGINSTREAD$ to 2 ;* bErr = Msg("", MsgDef, MsgID, MSGINSTREAD$)
equ MSGINSTWRITE$ to 3 ;* bErr = Msg("", MsgDef, MsgID, MSGINSTWRITE$)
equ MSGINSTLOCK$ to 4 ;* bErr = Msg("", "", MsgID, MSGINSTLOCK$)
equ MSGINSTUNLOCK$ to 5 ;* bErr = Msg("", "", MsgID, MSGINSTUNLOCK$)
equ MSGINSTBUTTON$ to 6 ;* reserved
equ MSGINSTCREATE$ to 7 ;* reserved
equ MSGINSTRESPCHG$ to 8 ;* reserved
equ MSGINSTCLOSE$ to 9 ;* reserved
equ MSGINSTTIMER$ to 10 ;* reserved
equ MSGINSTHELP$ to 11 ;* reserved
equ MSGINSTUPDATE$ to 12 ;* (see above)
* Msg() function return values from MSGINSTSTART$
equ RET_OK$ to ""
equ RET_CANCEL$ to \1B\ ;* escape character
@ -289,3 +278,22 @@ equ RET_IGNORE$ to 3
equ MSGTYPE$ to "MSG"
equ MSGCLASS$ to ""
// Msg() function instruction values
equ MSGINSTSTART$ to 1 ;* (default instruction)
equ MSGINSTREAD$ to 2 ;* bErr = Msg("", MsgDef, MsgID, MSGINSTREAD$)
equ MSGINSTWRITE$ to 3 ;* bErr = Msg("", MsgDef, MsgID, MSGINSTWRITE$)
equ MSGINSTLOCK$ to 4 ;* bErr = Msg("", "", MsgID, MSGINSTLOCK$)
equ MSGINSTUNLOCK$ to 5 ;* bErr = Msg("", "", MsgID, MSGINSTUNLOCK$)
equ MSGINSTBUTTON$ to 6 ;* reserved
equ MSGINSTCREATE$ to 7 ;* reserved
equ MSGINSTRESPCHG$ to 8 ;* reserved
equ MSGINSTCLOSE$ to 9 ;* reserved
equ MSGINSTTIMER$ to 10 ;* reserved
equ MSGINSTHELP$ to 11 ;* reserved
equ MSGINSTUPDATE$ to 12 ;* (see above)
equ MSGINSTEXEC$ to 13
equ MSGINSTCOPYTEXT$ to 14
equ MSGINSTPURGEALL$ to 15
equ MSGINST_LAST$ to MSGINSTPURGEALL$

40
SYSPROG/STPROCINS/MSWIN_FINDFILE_EQUATES.txt
View File

@ -1,21 +1,20 @@
compile insert msWin_FindFile_Equates
/*
** Copyright (C) 2013-2018 Revelation Software Inc. All Rights Reserved **
** Copyright (C) 2013-2023 Revelation Software Inc. All Rights Reserved **
Author Mr C
Date Nov 2018
Purpose Equates for use with the Windows FindFile functions
Amended Date Reason
======= ==== ======
Amended Date Reason
======= ==== ======
Mr C 22 Nov 23 Default the WIN32_FIND_DATA$ to the "W" variant
Removed WIN32_FIND_DATAA$ as we don't use it
*/
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
#ifndef _MSWIN_FINDFILE_EQUATES_
#define _MSWIN_FINDFILE_EQUATES_
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
@ -37,10 +36,25 @@ compile insert msWin_FindFile_Equates
////////////////////////////////////////////////////////////////////////////////
* // FIND_DATA structure position equates
//
// typedef struct _WIN32_FIND_DATAW {
// DWORD dwFileAttributes;
// FILETIME ftCreationTime;
// FILETIME ftLastAccessTime;
// FILETIME ftLastWriteTime;
// DWORD nFileSizeHigh;
// DWORD nFileSizeLow;
// DWORD dwReserved0;
// DWORD dwReserved1;
// WCHAR cFileName[MAX_PATH];
// WCHAR cAlternateFileName[14];
// DWORD dwFileType; // Obsolete. Do not use.
// DWORD dwCreatorType; // Obsolete. Do not use
// WORD wFinderFlags; // Obsolete. Do not use
// } WIN32_FIND_DATAW, *PWIN32_FIND_DATAW, *LPWIN32_FIND_DATAW;
equ WIN32_FIND_DATA$ to "WIN32_FIND_DATA"
equ WIN32_FIND_DATAA$ to "WIN32_FIND_DATA"
equ WIN32_FIND_DATAW$ to "WIN32_FIND_DATAW"
equ WIN32_FIND_DATA$ to "MSWIN_WIN32_FIND_DATAW"
equ WIN32_FIND_DATAW$ to "MSWIN_WIN32_FIND_DATAW"
equ FINDDATA_POS_FILEATTRIB$ to 1
equ FINDDATA_POS_CREATETIME$ to 2
@ -48,10 +62,14 @@ compile insert msWin_FindFile_Equates
equ FINDDATA_POS_WRITETIME$ to 4
equ FINDDATA_POS_HIGHSIZE$ to 5
equ FINDDATA_POS_LOWSIZE$ to 6
equ FINDDATA_POS_RESERVED1$ to 7
equ FINDDATA_POS_RESERVED2$ to 8
equ FINDDATA_POS_RESERVED0$ to 7
equ FINDDATA_POS_RESERVED1$ to 8
equ FINDDATA_POS_FILENAME$ to 9
equ FINDDATA_POS_SHORTNAME$ to 10
equ FINDDATA_POS_FILETYPE$ to 11
equ FINDDATA_POS_CREATORTYPE$ to 12
equ FINDDATA_POS_FINDERFLAGS$ to 13
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

13
SYSPROG/STPROCINS/MSWIN_SYSCOLOR_EQUATES.txt
View File

@ -1,13 +1,14 @@
compile insert msWin_SysColor_Equates
/*
** Copyright (C) 1992-2016 Revelation Software Inc. All Rights Reserved **
** Copyright (C) 1992-2024 Revelation Software Inc. All Rights Reserved **
Author Captain C
Date March 2016
Purpose Equates for the GetSysColor Windows API function.
Amended Date Reason
======= ==== ======
Amended Date Reason
======= ==== ======
Mr C 06 Mar 24 Added SYSCOLOR_MENUBAR$, SYSCOLOR_MENUHIGHLIGHT$
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
@ -44,7 +45,11 @@ compile insert msWin_SysColor_Equates
equ SYSCOLOR_HOTLIGHT$ to 26
equ SYSCOLOR_GRADIENTACTIVECAPTION$ to 27
equ SYSCOLOR_GRADIENTINACTIVECAPTION$ to 28
equ SYSCOLOR_ENDCOLORS$ to SYSCOLOR_GRADIENTINACTIVECAPTION$
equ SYSCOLOR_MENUHIGHLIGHT$ to 29
equ SYSCOLOR_MENUBAR$ to 30
equ SYSCOLOR_ENDCOLORS$ to SYSCOLOR_MENUBAR$
equ SYSCOLOR_DESKTOP$ to SYSCOLOR_BACKGROUND$
equ SYSCOLOR_3DFACE$ to SYSCOLOR_BTNFACE$
equ SYSCOLOR_3DSHADOW$ to SYSCOLOR_BTNSHADOW$

109
SYSPROG/STPROCINS/MSWIN_WININET_EQUATES.txt
View File

@ -1,6 +1,6 @@
compile insert msWin_WinInet_Equates
/*
** Copyright (C) 2013-2018 Revelation Software Inc. All Rights Reserved **
** Copyright (C) 2013-2023 Revelation Software Inc. All Rights Reserved **
Author Mr C
Date Nov 2018
@ -11,6 +11,7 @@ compile insert msWin_WinInet_Equates
Amended Date Reason
======= ==== ======
Mr C 21 Nov 23 Added WinInet Error constants
Mr C 09 Nov 18 Added HTTP constants
*/
@ -37,7 +38,7 @@ compile insert msWin_WinInet_Equates
equ INTERNET_MAX_PORT_NUMBER_VALUE$ to 65535 ; * // maximum unsigned short value
equ INTERNET_MAX_PATH_LENGTH$ to 2048
equ INTERNET_MAX_SCHEME_LENGTH$ to 32 ; * // longest protocol name length
equ INTERNET_MAX_URL_LENGTH$ to (INTERNET_MAX_SCHEME_LENGTH$ + len( "://" ) + INTERNET_MAX_PATH_LENGTH$ )
equ INTERNET_MAX_URL_LENGTH$ to ( INTERNET_MAX_SCHEME_LENGTH$ + len( "://" ) + INTERNET_MAX_PATH_LENGTH$ )
* // access types for InternetOpen()
equ INTERNET_OPEN_TYPE_PRECONFIG$ to 0 ; * // use registry configuration
@ -187,6 +188,110 @@ compile insert msWin_WinInet_Equates
equ INTERNET_STATUS_P3P_HEADER$ to 325
equ INTERNET_STATUS_P3P_POLICYREF$ to 326
equ INTERNET_STATUS_COOKIE_HISTORY$ to 327
/////////////////////////////////////////////////////////////////////////////
// WinInet Errors
equ ERROR_INSUFFICIENT_BUFFER$ to 122
equ INTERNET_ERROR_BASE$ to 12000
equ ERROR_INTERNET_OUT_OF_HANDLES$ to 12001
equ ERROR_INTERNET_TIMEOUT$ to 12002
equ ERROR_INTERNET_EXTENDED_ERROR$ to 12003
equ ERROR_INTERNET_INTERNAL_ERROR$ to 12004
equ ERROR_INTERNET_INVALID_URL$ to 12005
equ ERROR_INTERNET_UNRECOGNIZED_SCHEME$ to 12006
equ ERROR_INTERNET_NAME_NOT_RESOLVED$ to 12007
equ ERROR_INTERNET_PROTOCOL_NOT_FOUND$ to 12008
equ ERROR_INTERNET_INVALID_OPTION$ to 12009
equ ERROR_INTERNET_BAD_OPTION_LENGTH$ to 12010
equ ERROR_INTERNET_OPTION_NOT_SETTABLE$ to 12011
equ ERROR_INTERNET_SHUTDOWN$ to 12012
equ ERROR_INTERNET_INCORRECT_USER_NAME$ to 12013
equ ERROR_INTERNET_INCORRECT_PASSWORD$ to 12014
equ ERROR_INTERNET_LOGIN_FAILURE$ to 12015
equ ERROR_INTERNET_INVALID_OPERATION$ to 12016
equ ERROR_INTERNET_OPERATION_CANCELLED$ to 12017
equ ERROR_INTERNET_INCORRECT_HANDLE_TYPE$ to 12018
equ ERROR_INTERNET_INCORRECT_HANDLE_STATE$ to 12019
equ ERROR_INTERNET_NOT_PROXY_REQUEST$ to 12020
equ ERROR_INTERNET_REGISTRY_VALUE_NOT_FOUND$ to 12021
equ ERROR_INTERNET_BAD_REGISTRY_PARAMETER$ to 12022
equ ERROR_INTERNET_NO_DIRECT_ACCESS$ to 12023
equ ERROR_INTERNET_NO_CONTEXT$ to 12024
equ ERROR_INTERNET_NO_CALLBACK$ to 12025
equ ERROR_INTERNET_REQUEST_PENDING$ to 12026
equ ERROR_INTERNET_INCORRECT_FORMAT$ to 12027
equ ERROR_INTERNET_ITEM_NOT_FOUND$ to 12028
equ ERROR_INTERNET_CANNOT_CONNECT$ to 12029
equ ERROR_INTERNET_CONNECTION_ABORTED$ to 12030
equ ERROR_INTERNET_CONNECTION_RESET$ to 12031
equ ERROR_INTERNET_FORCE_RETRY$ to 12032
equ ERROR_INTERNET_INVALID_PROXY_REQUEST$ to 12033
equ ERROR_INTERNET_NEED_UI$ to 12034
equ ERROR_INTERNET_HANDLE_EXISTS$ to 12036
equ ERROR_INTERNET_SEC_CERT_DATE_INVALID$ to 12037
equ ERROR_INTERNET_SEC_CERT_CN_INVALID$ to 12038
equ ERROR_INTERNET_HTTP_TO_HTTPS_ON_REDIR$ to 12039
equ ERROR_INTERNET_HTTPS_TO_HTTP_ON_REDIR$ to 12040
equ ERROR_INTERNET_MIXED_SECURITY$ to 12041
equ ERROR_INTERNET_CHG_POST_IS_NON_SECURE$ to 12042
equ ERROR_INTERNET_POST_IS_NON_SECURE$ to 12043
equ ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED$ to 12044
equ ERROR_INTERNET_INVALID_CA$ to 12045
equ ERROR_INTERNET_CLIENT_AUTH_NOT_SETUP$ to 12046
equ ERROR_INTERNET_ASYNC_THREAD_FAILED$ to 12047
equ ERROR_INTERNET_REDIRECT_SCHEME_CHANGE$ to 12048
equ ERROR_INTERNET_DIALOG_PENDING$ to 12049
equ ERROR_INTERNET_RETRY_DIALOG$ to 12050
equ ERROR_INTERNET_HTTPS_HTTP_SUBMIT_REDIR$ to 12052
equ ERROR_INTERNET_INSERT_CDROM$ to 12053
equ ERROR_INTERNET_FORTEZZA_LOGIN_NEEDED$ to 12054
equ ERROR_INTERNET_SEC_CERT_ERRORS$ to 12055
equ ERROR_INTERNET_SEC_CERT_NO_REV$ to 12056
equ ERROR_INTERNET_SEC_CERT_REV_FAILED$ to 12057
equ ERROR_HTTP_HSTS_REDIRECT_REQUIRED$ to 12060
equ ERROR_INTERNET_SEC_CERT_WEAK_SIGNATURE$ to 12062
equ ERROR_FTP_TRANSFER_IN_PROGRESS$ to 12110
equ ERROR_FTP_DROPPED$ to 12111
equ ERROR_FTP_NO_PASSIVE_MODE$ to 12112
equ ERROR_HTTP_HEADER_NOT_FOUND$ to 12150
equ ERROR_HTTP_DOWNLEVEL_SERVER$ to 12151
equ ERROR_HTTP_INVALID_SERVER_RESPONSE$ to 12152
equ ERROR_HTTP_INVALID_HEADER$ to 12153
equ ERROR_HTTP_INVALID_QUERY_REQUEST$ to 12154
equ ERROR_HTTP_HEADER_ALREADY_EXISTS$ to 12155
equ ERROR_HTTP_REDIRECT_FAILED$ to 12156
equ ERROR_HTTP_NOT_REDIRECTED$ to 12160
equ ERROR_HTTP_COOKIE_NEEDS_CONFIRMATION$ to 12161
equ ERROR_HTTP_COOKIE_DECLINED$ to 12162
equ ERROR_HTTP_REDIRECT_NEEDS_CONFIRMATION$ to 12168
equ ERROR_INTERNET_SECURITY_CHANNEL_ERROR$ to 12157
equ ERROR_INTERNET_UNABLE_TO_CACHE_FILE$ to 12158
equ ERROR_INTERNET_TCPIP_NOT_INSTALLED$ to 12159
equ ERROR_INTERNET_DISCONNECTED$ to 12163
equ ERROR_INTERNET_SERVER_UNREACHABLE$ to 12164
equ ERROR_INTERNET_PROXY_SERVER_UNREACHABLE$ to 12165
equ ERROR_INTERNET_BAD_AUTO_PROXY_SCRIPT$ to 12166
equ ERROR_INTERNET_UNABLE_TO_DOWNLOAD_SCRIPT$ to 12167
equ ERROR_INTERNET_SEC_INVALID_CERT$ to 12169
equ ERROR_INTERNET_SEC_CERT_REVOKED$ to 12170
equ ERROR_INTERNET_FAILED_DUETOSECURITYCHECK$ to 12171
equ ERROR_INTERNET_NOT_INITIALIZED$ to 12172
equ ERROR_INTERNET_NEED_MSN_SSPI_PKG$ to 12173
equ ERROR_INTERNET_LOGIN_FAILURE_DISPLAY_ENTITY_BODY$ to 12174
equ ERROR_INTERNET_DECODING_FAILED$ to 12175
equ ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED_PROXY$ to 12187
equ ERROR_INTERNET_SECURE_FAILURE_PROXY$ to 12188
equ ERROR_INTERNET_HTTP_PROTOCOL_MISMATCH$ to 12190
equ INTERNET_ERROR_LAST$ to 12190
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

25
SYSPROG/STPROCINS/OIPRINT_EQUATES.txt
View File

@ -1,4 +1,27 @@
compile insert OIPRINT_EQUATES
/*
** Copyright (C) 1992-2024 Revelation Software Inc. All Rights Reserved **
Author : ??
Date : Some time before the Great Flood.
Purpose : Constants for use with OIPI
Comments
========
Amended Date Reason
======= ==== ======
Mr C 08 Feb 24 Added insert guards
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _OIPRINT_EQUATES_
#define _OIPRINT_EQUATES_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
/*-----[ Font Weights ]-----*/
equ FW_NORMAL to 0
equ FW_BOLD to 1
@ -166,3 +189,5 @@ Equ EF_TIFF To 107
Equ EF_PNG To 108
Equ EF_EMF To 109
#endif

40
SYSPROG/STPROCINS/OLE_GETWEBPAGE_EQUATES.txt Normal file
View File

@ -0,0 +1,40 @@
Compile Insert OLE_GETWEBPAGE_EQUATES
/*
** Copyright (C) 2024 Revelation Software Inc. All Rights Reserved **
Author : BZS
Date : Feb 2024
Purpose : Options for use with OLE_GETWEBPAGE
Comments
========
Amended Date Reason
======= ==== ======
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _OLE_GETWEBPAGE_EQUATES_
#define _OLE_GETWEBPAGE_EQUATES_
Declare Function OLE_GETWEBPAGE
Equ OPTION_IGNORE_ERRS$ To "ignore_errs"
Equ OPTION_TLS_PROTOCOL$ To "tlsprotocol"
Equ TLS_PROTOCOL_TLS11$ To "tls11"
Equ TLS_PROTOCOL_TLS12$ To "tls12"
Equ TLS_PROTOCOL_TLS13$ To "tls13"
Equ TLS_PROTOCOL_DEFAULT$ To "systemdefault"
Equ TLS_PROTOCOL_SSL3$ To "ssl3"
Equ TLS_PROTOCOL_TLS$ To "tls"
Equ OPTION_SPECIFIC_PROTOCOL$ To "progid"
Equ SPECIFIC_PROTOCOL_REMOVE_WINHTTP$ To "-WinHttp.WinHttpRequest.5.1"
Equ SPECIFIC_PROTOCOL_SELECT_MSXML$ To 'Msxml2.ServerXMLHTTP.6.0'
Equ TIMEOUT_ASYNC$ To "-1"
#endif

49
SYSPROG/STPROCINS/PROTECT_COMMON.txt
View File

@ -1,13 +1,38 @@
cOMPILE Insert protect_common
COMPILE Insert protect_common
* mtr 1-24-06
EQU PROT.DOCONV@ TO SC_PROT_DOCONV
EQU PROT.DEFCONV@ TO SC_PROT_DEFCONV
EQU PROT.CURSCONV@ TO SC_PROT_CURSCONV
EQU PROT.NOPASS@ TO SC_PROT_LOCKMODE
EQU FILE.HANDLES@ TO SC_PROT_HANDLES
EQU FILE.NAMES@ TO SC_PROT_TABLEDATA
EQU TRANS.CONTROL@ TO SC_PROT_TRANSSTATE
EQU TRANS.INFO@ TO SC_PROT_TRANSDATA
EQU CONSISTENCY_LEVEL@ TO SC_PROT_CONSISTENCY
EQU TRANSFILE_HANDLES@ TO SC_PROT_TRANSHANDLES
* Source Date: 10:12:03 22 OCT 1991 Build ID: OE*1.0.47 Level: 1.0
* rjc 02-23-24 - Changed EQU to POINT
point PROT.DOCONV@ TO SC_PROT_DOCONV
point PROT.DEFCONV@ TO SC_PROT_DEFCONV
point PROT.CURSCONV@ TO SC_PROT_CURSCONV
point PROT.NOPASS@ TO SC_PROT_LOCKMODE
point FILE.HANDLES@ TO SC_PROT_HANDLES
point FILE.NAMES@ TO SC_PROT_TABLEDATA
point TRANS.CONTROL@ TO SC_PROT_TRANSSTATE
point TRANS.INFO@ TO SC_PROT_TRANSDATA
point CONSISTENCY_LEVEL@ TO SC_PROT_CONSISTENCY
point TRANSFILE_HANDLES@ TO SC_PROT_TRANSHANDLES
* rjc 02-23-24 - Match Arev32 protect_Common
Dim table_handles@(8)
Dim lock_info@(7)
point table_handles@(0) To SC_PROT_TABLELOCKS(0)
point table_handles@(1) To SC_PROT_TABLELOCKS(1)
point table_handles@(2) To SC_PROT_TABLELOCKS(2)
point table_handles@(3) To SC_PROT_TABLELOCKS(3)
point table_handles@(4) To SC_PROT_TABLELOCKS(4)
point table_handles@(5) To SC_PROT_TABLELOCKS(5)
point table_handles@(6) To SC_PROT_TABLELOCKS(6)
point table_handles@(7) To SC_PROT_TABLELOCKS(7)
point table_handles@(8) To SC_PROT_TABLELOCKS(8)
point lock_info@(0) To SC_PROT_LOCKDATA(0)
point lock_info@(1) To SC_PROT_LOCKDATA(1)
point lock_info@(2) To SC_PROT_LOCKDATA(2)
point lock_info@(3) To SC_PROT_LOCKDATA(3)
point lock_info@(4) To SC_PROT_LOCKDATA(4)
point lock_info@(5) To SC_PROT_LOCKDATA(5)
point lock_info@(6) To SC_PROT_LOCKDATA(6)
point lock_info@(7) To SC_PROT_LOCKDATA(7)

58
SYSPROG/STPROCINS/PS_EDITTABLE_EQUATES.txt
View File

@ -1,6 +1,6 @@
compile insert PS_EditTable_Equates
/*
** Copyright (C) 2015-2021 Revelation Software Inc. All Rights Reserved **
** Copyright (C) 2015-2024 Revelation Software Inc. All Rights Reserved **
Author : Wile C Coyote - Super Genius
Date : April 2015
@ -13,6 +13,9 @@ compile insert PS_EditTable_Equates
Amended Date Reason
======= ==== ======
Mr C 06 Jun 24 Added CELLSTYLES property equates
Mr C 20 Feb 24 Added PSSX_EDT_SVMMULTILINEDELIM$, PSSX_EDT_TMMULTILINEDELIM$
Mr C 19 Feb 24 Renamed PS_EDT_AT_LEAVETRAILINGROWS$ to PS_EDT_AT_NOTRAILINGROWS$
Mr C 29 Aug 23 Update PS Extended styles for ALLOWRESETPREVPOS
Mr C 24 Oct 22 Added CELLPOSCHANGED context flags
Mr C 15 Dec 21 Corrected CELLTYPE comments
@ -100,7 +103,7 @@ compile insert PS_EditTable_Equates
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
// CELLSTYLE equates
// CELLSTYLE method equates
//
// A column, row or cell can have a style applied to it that is used for
// a specific state (this applies to header cells as well)
@ -143,6 +146,39 @@ compile insert PS_EditTable_Equates
equ PS_EDT_CS_POS_UNDERLINE$ to 6
equ PS_EDT_CS_POS_TRANSLUCENCY$ to 7
equ PS_EDT_CS_POS_GLYPHINDEX$ to 8
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
// CELLSTYLES property equates
//
// Category indexes
//
// <1> Data-cell CellStyles
// <2> Column Header CellStyles
// <3> Row Header CellStyles
equ PS_EDT_CSS_POS_DATACELL$ to 1
equ PS_EDT_CSS_POS_COLHEADER$ to 2
equ PS_EDT_CSS_POS_ROWHEADER$ to 3
// State indexes
//
// <0,1> Normal State CellStyle
// <0,2> Hot State CellStyle
// <0,3> Disabled State CellStyle
// <0,4> Selected State CellStyle
// <0,5> HotSelected State CellStyle
// <0,6> SelectedNoFocus State CellStyle
// <0,7> CurrentCell State CellStyle
equ PS_EDT_CSS_POS_NORMAL$ to 1
equ PS_EDT_CSS_POS_HOT$ to 2
equ PS_EDT_CSS_POS_DISABLED$ to 3
equ PS_EDT_CSS_POS_SELECTED$ to 4
equ PS_EDT_CSS_POS_HOTSELECTED$ to 5
equ PS_EDT_CSS_POS_SELNOFOCUS$ to 6
equ PS_EDT_CSS_POS_CURRENT$ to 7
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
@ -239,13 +275,25 @@ compile insert PS_EditTable_Equates
// AUTOTRIMOPTIONS equates
//
// <1> If TRUE$ then treat whitespace as data
// <2> If TRUE$ then leave a trailing blank row
// <2> 2> If TRUE$ then don't leave a trailing blank row
// <3> If TRUE$ then scan all rows, not just the trailing ones
equ PS_EDT_AT_WHITESPACEISDATA$ to 1;
equ PS_EDT_AT_LEAVETRAILINGROW$ to 2;
equ PS_EDT_AT_NOTRAILINGROWS$ to 2;
equ PS_EDT_AT_SCANALLROWS$ to 3;
// Deprecated - do not use - incorrect name ***
equ PS_EDT_AT_LEAVETRAILINGROW$ to PS_EDT_AT_NOTRAILINGROWS$
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
// MULTILINEDELIM equates
//
equ PS_EDT_MLD_DEFAULT$ to 0; // CRLF
equ PS_EDT_MLD_SVM$ to 1; // @svm
equ PS_EDT_MLD_TM$ to 2; // @tm
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
@ -526,6 +574,8 @@ compile insert PS_EditTable_Equates
equ PSSX_EDT_ALLOWRESETPREVPOS$ to 0x00000400
equ PSSX_EDT_SHOWSELNOFOCUS$ to 0x00000800
equ PSSX_EDT_SUPPRESSCELLTOOLTIPS$ to 0x00001000
equ PSSX_EDT_SVMMULTILINEDELIM$ to 0x00100000
equ PSSX_EDT_TMMULTILINEDELIM$ to 0x00200000
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

5
SYSPROG/STPROCINS/PS_PROPERTY_TYPEINFO_EQUATES.txt
View File

@ -1,6 +1,6 @@
compile insert ps_Property_TypeInfo_Equates
/*
** Copyright (C) 2013-2022 Revelation Software Inc. All Rights Reserved **
** Copyright (C) 2013-2024 Revelation Software Inc. All Rights Reserved **
Author : Wile C Coyote - Super Genius
Date : October 2013
@ -15,6 +15,7 @@ compile insert ps_Property_TypeInfo_Equates
Amended Date Reason
======= ==== ======
Mr C 20 Feb 24 Added PSPTID_EGMULTILINEDELIM$
Mr C 01 Jun 23 Added PSPTID_RESIZEMODE$
Mr C 26 Aug 22 Added PSPTID_STARTUPMODE$
Mr C 01 Aug 22 Added PSPTID_WBVCOLORSCHEME$, PSPTID_EVHANDLERMODE$
@ -255,6 +256,7 @@ compile insert ps_Property_TypeInfo_Equates
equ PSPTID_STARTUPMODE$ to 130
equ PSPTID_DRAGHINTLIST$ to 131
equ PSPTID_RESIZEMODE$ to 132
equ PSPTID_EGMULTILINEDELIM$ to 133
// Synthetic property types - non-PS
equ PSPTID_IOOPTIONS$ to 200
@ -414,6 +416,7 @@ compile insert ps_Property_TypeInfo_Equates
equ PS_PROPTYPE_STARTUPMODE$ to RTI_MAKELONG( PS_PGIT_COMBO$, PSPTID_STARTUPMODE$ ) ; // 0,1 - Automatic, Manual
equ PS_PROPTYPE_DRAGHINTLIST$ to RTI_MAKELONG( PS_PGIT_BUTTON$, PSPTID_DRAGHINTLIST$ ) ; // FormDes Hook property for the DragSource Hint editor )
equ PS_PROPTYPE_RESIZEMODE$ to RTI_MAKELONG( PS_PGIT_COMBO$, PSPTID_RESIZEMODE$ ) ; // 0,1 - Normal, Enhanced
equ PS_PROPTYPE_EGMULTILINEDELIM$ to RTI_MAKELONG( PS_PGIT_COMBO$, PSPTID_EGMULTILINEDELIM$ ) ; // 0,1,2 - Default, SubValueMark, TextMark
// Synthetic property types - non-PS
equ PS_PROPTYPE_IOOPTIONS$ to RTI_MAKELONG( PS_PGIT_BUTTON$, PSPTID_IOOPTIONS$ ) ; // @fm delimited array of flags

7
SYSPROG/STPROCINS/PS_SYSTEM_EQUATES.txt
View File

@ -1,6 +1,6 @@
compile insert ps_System_Equates
/*
** Copyright (C) 2015-2023 Revelation Software Inc. All Rights Reserved **
** Copyright (C) 2015-2024 Revelation Software Inc. All Rights Reserved **
Author : Wile C Coyote - Super Genius
Date : May 2013
@ -13,6 +13,7 @@ compile insert ps_System_Equates
Amended Date Reason
======= ==== ======
Mr C 25 Apr 24 Updated CONFIGINFO with UserName and Password
Mr C 12 May 22 Added VERSION constants
Mr C 28 Jul 22 Added WEBVIEWCONFIG constants
Mr C 07 Oct 21 Added GUITHREADINFO constants
@ -69,6 +70,8 @@ compile insert ps_System_Equates
// <19> AutoForm
// <20> CleanBoot
// <21> LoginTemplate
// <22> UserName
// <23> Password
equ PS_SYSCI_POS_AUTOEXEC$ to 1
equ PS_SYSCI_POS_BANNERFILE$ to 2
@ -91,6 +94,8 @@ compile insert ps_System_Equates
equ PS_SYSCI_POS_AUTOFORM$ to 19
equ PS_SYSCI_POS_CLEANBOOT$ to 20
equ PS_SYSCI_POS_LOGINTEMPLATE$ to 21
equ PS_SYSCI_POS_USERNAME$ to 22
equ PS_SYSCI_POS_PASSWORD$ to 23
//////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

84
SYSPROG/STPROCINS/PS_TYPEINFO_EQUATES.txt
View File

@ -1,7 +1,7 @@
compile insert ps_TypeInfo_Equates
/*
** Copyright (C) 2012-2022 Revelation Software Inc. All Rights Reserved **
** Copyright (C) 2012-2024 Revelation Software Inc. All Rights Reserved **
Author : Captain C
Date : September 2012
Purpose : PS_TYPEINFO constant declaration module
@ -11,6 +11,8 @@ compile insert ps_TypeInfo_Equates
Amended Date Reason
======= ==== ======
Mr C 16 Nov 23 Added PSTI_MI_POS_DEFPREVPOSPROPHANDLER$
Added PS_ST_POS_DEFPREVPROPPOS_NAME$
Mr C 21 Oct 22 Added PS_TF_FLAG_DEFPROPLISTSELECT$
Mr C 17 Sep 22 Added PS_TF_FLAG_FORMDESDBONLY$
Mr C 02 Jul 21 Added PS_TF_FLAG_NODEFPROPIDXSUPPORT$
@ -44,49 +46,49 @@ compile insert ps_TypeInfo_Equates
// Meta Info table record - keyed on the TYPECLASS
equ PSTI_METAINFO_TABLE$ to "PSTI_METAINFO_TABLE"
equ PSTI_METAINFO_TABLE$ to "PSTI_METAINFO_TABLE"
equ PSTI_MI_POS_DEFPROPHANDLER$ to 1 ; // PS Property Name or Basic+ Handler
equ PSTI_MI_POS_DBSUPPORT$ to 2 ; // Control supports Data Binding
equ PSTI_MI_POS_MULTICOLUMN$ to 3 ; // Control supports AMVs
equ PSTI_MI_POS_DEFPOSPROPHANDLER$ to 4 ; // PS Property Name or Basic+ Handler
equ PSTI_MI_POS_POSCHANGEDEVENT$ to 5 ; // Name of the OLE event used to trigger
; // POSCHANGED events
equ PSTI_MI_POS_CLICKEVENT$ to 6 ; // Name of the OLE event used to trigger
; // CLICK event processing
equ PSTI_MI_POS_DEFPROPHANDLER$ to 1 ; // PS Property Name or Basic+ Handler
equ PSTI_MI_POS_DBSUPPORT$ to 2 ; // Control supports Data Binding
equ PSTI_MI_POS_MULTICOLUMN$ to 3 ; // Control supports AMVs
equ PSTI_MI_POS_DEFPOSPROPHANDLER$ to 4 ; // PS Property Name or Basic+ Handler
equ PSTI_MI_POS_POSCHANGEDEVENT$ to 5 ; // Name of the OLE event used to trigger
; // POSCHANGED events
equ PSTI_MI_POS_CLICKEVENT$ to 6 ; // Name of the OLE event used to trigger
; // CLICK event processing
equ PSTI_MI_POS_DISPLAYNAME$ to 7 ; // Display name for FormDes
equ PSTI_MI_POS_TYPEFLAGS$ to 8 ; // SysCreate, GUI etc
equ PSTI_MI_POS_DEFPREVPOSPROPHANDLER$ to 9 ; // PS Property Name or Basic+ Handler
equ PSTI_MI_POS_DISPLAYNAME$ to 7 ; // Display name for FormDes
equ PSTI_MI_POS_TYPEFLAGS$ to 8 ; // SysCreate, GUI etc
equ PSTI_MI_POS_PROPERTIES$ to 10 ; // PS property system names
equ PSTI_MI_POS_PROPERTYNAMES$ to 11 ; // PS property display names
equ PSTI_MI_POS_PROPERTYFLAGS$ to 12 ; // PS property flags (Get/Set etc)
equ PSTI_MI_POS_PROPERTYTYPE$ to 13 ; // PS property types
equ PSTI_MI_POS_PROPERTYCAT$ to 14 ; // PS property categories
equ PSTI_MI_POS_PROPSTYLEBITS$ to 15 ; // PS property style bit(s)
equ PSTI_MI_POS_PROPDESCS$ to 16 ; // Property descriptions
equ PSTI_MI_POS_PROPERTIES$ to 10 ; // PS property system names
equ PSTI_MI_POS_PROPERTYNAMES$ to 11 ; // PS property display names
equ PSTI_MI_POS_PROPERTYFLAGS$ to 12 ; // PS property flags (Get/Set etc)
equ PSTI_MI_POS_PROPERTYTYPE$ to 13 ; // PS property types
equ PSTI_MI_POS_PROPERTYCAT$ to 14 ; // PS property categories
equ PSTI_MI_POS_PROPSTYLEBITS$ to 15 ; // PS property style bit(s)
equ PSTI_MI_POS_PROPDESCS$ to 16 ; // Property descriptions
equ PSTI_MI_POS_EVENTS$ to 20 ; // PS events
equ PSTI_MI_POS_EVENTNAMES$ to 21 ; // PS event display names
equ PSTI_MI_POS_EVENTARGS$ to 22 ; // PS event arg names (@svm'd)
equ PSTI_MI_POS_EVENTARGTYPES$ to 23 ; // PS event arg types (@svm'd)
equ PSTI_MI_POS_EVENTARGFLAGS$ to 24 ; // PS event arg flags (@svm'd)
equ PSTI_MI_POS_EVENTCAT$ to 25 ; // PS event category strings
equ PSTI_MI_POS_EVENTFLAGS$ to 26 ; // PS event flags (custom event etc)
equ PSTI_MI_POS_EVENTDESCS$ to 27 ; // Event descriptions
equ PSTI_MI_POS_EVENTS$ to 20 ; // PS events
equ PSTI_MI_POS_EVENTNAMES$ to 21 ; // PS event display names
equ PSTI_MI_POS_EVENTARGS$ to 22 ; // PS event arg names (@svm'd)
equ PSTI_MI_POS_EVENTARGTYPES$ to 23 ; // PS event arg types (@svm'd)
equ PSTI_MI_POS_EVENTARGFLAGS$ to 24 ; // PS event arg flags (@svm'd)
equ PSTI_MI_POS_EVENTCAT$ to 25 ; // PS event category strings
equ PSTI_MI_POS_EVENTFLAGS$ to 26 ; // PS event flags (custom event etc)
equ PSTI_MI_POS_EVENTDESCS$ to 27 ; // Event descriptions
equ PSTI_MI_POS_METHODS$ to 30 ; // PS method system name
equ PSTI_MI_POS_METHODNAMES$ to 31 ; // PS method display names
equ PSTI_MI_POS_METHODARGS$ to 32 ; // PS method arg names (@svm'd)
equ PSTI_MI_POS_METHODARGTYPES$ to 33 ; // PS method arg types (@svm'd)
equ PSTI_MI_POS_METHODARGFLAGS$ to 34 ; // PS method arg flags (@svm'd)
equ PSTI_MI_POS_METHODRETVAL$ to 35 ; // PS method return value name
equ PSTI_MI_POS_METHODRETVALTYPES$ to 36 ; // PS method return value type
equ PSTI_MI_POS_METHODRETVALFLAGS$ to 37 ; // PS method return value flags
equ PSTI_MI_POS_METHODDESCS$ to 38 ; // PS method description strings
equ PSTI_MI_POS_METHODS$ to 30 ; // PS method system name
equ PSTI_MI_POS_METHODNAMES$ to 31 ; // PS method display names
equ PSTI_MI_POS_METHODARGS$ to 32 ; // PS method arg names (@svm'd)
equ PSTI_MI_POS_METHODARGTYPES$ to 33 ; // PS method arg types (@svm'd)
equ PSTI_MI_POS_METHODARGFLAGS$ to 34 ; // PS method arg flags (@svm'd)
equ PSTI_MI_POS_METHODRETVAL$ to 35 ; // PS method return value name
equ PSTI_MI_POS_METHODRETVALTYPES$ to 36 ; // PS method return value type
equ PSTI_MI_POS_METHODRETVALFLAGS$ to 37 ; // PS method return value flags
equ PSTI_MI_POS_METHODDESCS$ to 38 ; // PS method description strings
equ PSTI_MI_POS_DESCCHECK$ to 40 ; // if TRUE$ then descriptions have been loaded
equ PSTI_MI_POS_OLECHECK$ to 41 ; // if TRUE$ then OLE properties have been sync'd
equ PSTI_MI_POS_DESCCHECK$ to 40 ; // if TRUE$ then descriptions have been loaded
equ PSTI_MI_POS_OLECHECK$ to 41 ; // if TRUE$ then OLE properties have been sync'd
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
@ -98,12 +100,14 @@ compile insert ps_TypeInfo_Equates
// <0,3> Display Name
// <0,4> DEFPROP property
// <0,5> DEFPOSPROP property
// <0,6> DEFPREVPOSPROP property
equ PS_ST_POS_NAME$ to 1
equ PS_ST_POS_FLAGS$ to 2
equ PS_ST_POS_DISPNAME$ to 3
equ PS_ST_POS_DEFPROP_NAME$ to 4
equ PS_ST_POS_DEFPROPPOS_NAME$ to 5
equ PS_ST_POS_DEFPREVPROPPOS_NAME$ to 6
// Type flags - from RevPS_TypeFactory.h

41
SYSPROG/STPROCINS/PS_WEBVIEW_EQUATES.txt
View File

@ -1,6 +1,6 @@
compile insert ps_WebView_Equates
/*
** Copyright (C) 2012-2022 Revelation Software Inc. All Rights Reserved **
** Copyright (C) 2012-2023 Revelation Software Inc. All Rights Reserved **
Author : Wile C Coyote - Super Genius
Date : June 2022
@ -13,6 +13,7 @@ compile insert ps_WebView_Equates
Amended Date Reason
======= ==== ======
Mr C 04 Dec 23 Added WEBNAVIGATED event equates
Mr C 06 Sep 22 Changed READYSTATE equates to match enum, not bit-mask!
Mr C 06 Sep 22 Added READYSTATE property equates
*/
@ -384,6 +385,44 @@ compile insert ps_WebView_Equates
equ WBV_TARGETINFO_POS_SELECTEDTEXT$ to 8
equ WBV_TARGETINFO_POS_MAINFRAMEREQUEST$ to 9
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
// WEBNAVIGATED event
// StatusInfo parameter
//
// <0,1> SuccessFlag (T/F)
// <0,2> HTTPStatus code
// <0,3> WebErrorStatus code
equ WBV_NAV_STATUS_POS_SUCCESSFLAG$ to 1
equ WBV_NAV_STATUS_POS_HTTPSTATUSCODE$ to 2
equ WBV_NAV_STATUS_POS_WEBERRORSTATUS$ to 3
// WebErrorStatus codes
equ WBV_WEB_ERROR_STATUS_UNKNOWN$ to 0
equ WBV_WEB_ERROR_STATUS_CERTIFICATE_COMMON_NAME_IS_INCORRECT$ to 1
equ WBV_WEB_ERROR_STATUS_CERTIFICATE_EXPIRED$ to 2
equ WBV_WEB_ERROR_STATUS_CLIENT_CERTIFICATE_CONTAINS_ERRORS$ to 3
equ WBV_WEB_ERROR_STATUS_CERTIFICATE_REVOKED$ to 4
equ WBV_WEB_ERROR_STATUS_CERTIFICATE_IS_INVALID$ to 5
equ WBV_WEB_ERROR_STATUS_SERVER_UNREACHABLE$ to 6
equ WBV_WEB_ERROR_STATUS_TIMEOUT$ to 7
equ WBV_WEB_ERROR_STATUS_ERROR_HTTP_INVALID_SERVER_RESPONSE$ to 8
equ WBV_WEB_ERROR_STATUS_CONNECTION_ABORTED$ to 9
equ WBV_WEB_ERROR_STATUS_CONNECTION_RESET$ to 10
equ WBV_WEB_ERROR_STATUS_DISCONNECTED$ to 11
equ WBV_WEB_ERROR_STATUS_CANNOT_CONNECT$ to 12
equ WBV_WEB_ERROR_STATUS_HOST_NAME_NOT_RESOLVED$ to 13
equ WBV_WEB_ERROR_STATUS_OPERATION_CANCELED$ to 14
equ WBV_WEB_ERROR_STATUS_REDIRECT_FAILED$ to 15
equ WBV_WEB_ERROR_STATUS_UNEXPECTED_ERROR$ to 16
equ WBV_WEB_ERROR_STATUS_VALID_AUTHENTICATION_CREDENTIALS_REQUIRED$ to 17
equ WBV_WEB_ERROR_STATUS_VALID_PROXY_AUTHENTICATION_REQUIRED$ to 18
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

10
SYSPROG/STPROCINS/PS_WINDOW_EQUATES.txt
View File

@ -1,6 +1,6 @@
compile insert PS_Window_Equates
/*
** Copyright (C) 2013-2017 Revelation Software Inc. All Rights Reserved **
** Copyright (C) 2013-2024 Revelation Software Inc. All Rights Reserved **
Author : Wile C Coyote - Super Genius
Date : June 2013
@ -13,6 +13,7 @@ compile insert PS_Window_Equates
Amended Date Reason
======= ==== ======
Mr C 10 May 24 Added PSSX_WINDOW_MDISHOWCHILDMENU$
Mr C 15 Oct 20 Renamed FRAMESTYLE to FORMBORDERSTYLE
Added SHOWEFFECT/HIDEEFFECT equates
Mr C 19 Apr 18 Added PLACEMENTDATA property equates
@ -44,8 +45,8 @@ compile insert PS_Window_Equates
// PS Style equates
equ PSS_WINDOW_BMP_CENTER$ to 0x00000001 ;
equ PSS_WINDOW_RESIZEALWAYS$ to 0x00000002 ; * // SIZINGMODE property
equ PSS_WINDOW_RESIZENEVER$ to 0x00000004 ; * // SIZINGMODE property
equ PSS_WINDOW_RESIZEALWAYS$ to 0x00000002 ; // SIZINGMODE property
equ PSS_WINDOW_RESIZENEVER$ to 0x00000004 ; // SIZINGMODE property
equ PSS_WINDOW_BMP_TILED$ to 0x00000020 ;
equ PSS_WINDOW_BMP_STRETCH$ to bitOr( PSS_WINDOW_BMP_CENTER$, PSS_WINDOW_BMP_TILED$ )
equ PSS_WINDOW_HAS_MENU$ to 0x00000100 ;
@ -55,7 +56,8 @@ compile insert PS_Window_Equates
equ PSS_WINDOW_USEBKGDCOLOR$ to 0x00008000 ;
equ PSS_WINDOW_CREATECOMPLETE$ to 0x80000000 ;
equ PSSX_WINDOW_GLASSDRAG$ to 0x00800000
equ PSSX_WINDOW_SUPPRESSMDITRANSLATE$ to 0x00400000 ; // SUPPRESSMDITRANSLATE property
equ PSSX_WINDOW_MDISHOWCHILDMENU$ to 0x00800000 ; // MDISHOWCHILDMENU property
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

71
SYSPROG/STPROCINS/REPOSITORY_EQUATES.txt
View File

@ -4,7 +4,7 @@ compile insert repository_equates
Date ???
Purpose Equates for use with repository-based functions
Copyright (c) 1992-2022 Revelation Software. All rights reserved.
Copyright (c) 1992-2024 Revelation Software. All rights reserved.
Comments
========
@ -12,36 +12,17 @@ compile insert repository_equates
Amended Date Reason
======= ==== ======
Mr C 15 May 24 Added SYSAPPS_QBFCLOSEONCLEAR$
Mr C 08 Mar 24 Added SYSAPPS_UISTYLESHEET$
bzs 04 Jan 24 Added GRES_TYPE_COMPLEX$
Mr C 13 Nov 23 Added GRES_TYPE_NONE$
Added SYSREPCLASSES_TYPEFAMILYID$
Mr C 09 Sep 22 Added SYSAPPS ESERVER fields
Mr C 27 Jul 22 Added SYSAPPS WEBVIEWCONFIG fields
Mr C 14 Sep 21 Added SYSAPPS_FOCUSFGCOLOR$
Mr C 25 Aug 20 Added SYSREPTYPES_CLASSHANDLERPROC$
Added SYSREPTYPES_ENTHANDLERPROC$
Added SYSREP_KEYFORMAT_ROW$
Mr C 10 Oct 19 Added PUBLIC_DESC$
Mr C 28 Sep 19 Added SYSAPPS_LOGON_TEMPLATE$
MTR 04 Jun 19 Added Extended Math operators For Precision
Mr C 10 Apr 18 Added SYSAPPS SYSTEM FOCUSSTYLES fields
Mr C 04 Feb 18 Added SYSAPPS SHOWACCELERATORS field.
Mr C 09 Nov 17 Updated SYSAPPS structure.
Mr C 13 Sep 17 Added SYSBUILD values
Mr C 30 Aug 17 Added REPSTATE_SCMPREFIX$
Mr C 24 Aug 17 Expanded KeyFormat definitions
Mr C 10 Aug 17 Added RTI_DSN_GENERIC preview handling fields
Mr C 07 Aug 17 Added SCMPULL/PUSH LOG tokens
bzs 22 May 17 Added support for specification of "utility" function
in type info to call to handle GET_REPOS_xxx functions
Mr C 21 Feb 17 Added PURGE log op.
Mr C 31 Mar 16 Added SYSREP_KEYFORMAT_E_$
Mr C 22 Feb 16 Added RDKEXTRACTSPEC types
Mr C 11 Feb 16 Added 16x16 image fields
Mr C 28 Jan 16 Added SYSREPCLASSES_DESIGNTOOL$
Mr C 14 Mar 15 Added UTF8 fields to SYSAPPS equates
Mr C 08 Mar 15 Added GETRDKEXTRACTSPEC equates
Added SYSREPOSTYPES fields for RTI_IDE integration
Mr C 26 Feb 15 Updated for more RDK/SCM mods
Mr C 01 Feb 14 Updated for v10 with new SYSREPOSTYPES and
SYSREPOSCLASSES columns.
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
@ -164,13 +145,14 @@ compile insert repository_equates
equ GRES_TYPE_OS$ to "OS"
equ GRES_TYPE_PROC$ to "PROC"
equ GRES_TYPE_REPOS$ to "REPOS"
equ GRES_TYPE_NONE$ to "NONE"
equ GRES_TYPE_COMPLEX$ to "COMPLEX"
// GETRDKEXTRACTSPEC storage types
equ GRES_STORAGE_LH$ to 0
equ GRES_STORAGE_OS$ to 1
// SYSREPOSTYPES Key Formats
equ SYSREP_KEYFORMAT_ACE$ to "ACE" ; // App*Class*Ent (default)
equ SYSREP_KEYFORMAT_ACE_DBG$ to "@ACE" ; // @App*Class*Ent (e.g OIEVENTDBG)
equ SYSREP_KEYFORMAT_AE$ to "AE" ; // App*Ent
@ -272,8 +254,9 @@ compile insert repository_equates
equ SYSREPCLASSES_DESCRIPTION$ to 2
equ SYSREPCLASSES_INFO$ to 3 ; // Deprecated
equ SYSREPCLASSES_LOCATION$ to 4
equ SYSREPCLASSES_STORAGE$ to 5
equ SYSREPCLASSES_FAMILY$ to 6
equ SYSREPCLASSES_STORAGE$ to 5 ; // SYSREPOSSTORAGE
equ SYSREPCLASSES_FAMILY$ to 6 ; // Deprecated
equ SYSREPCLASSES_TYPEFAMILYID$ to 6 ; // SYSREPOSTYPEFAMILIES
equ SYSREPCLASSES_RESERVED_F7$ to 7
equ SYSREPCLASSES_OIEDITOR$ to 8
equ SYSREPCLASSES_FILTERMASK$ to 9
@ -351,6 +334,8 @@ compile insert repository_equates
equ SYSAPPS_ESERVER_WEB_PORT$ to 38
equ SYSAPPS_ESERVER_CHAT_PORT$ to 39
equ SYSAPPS_ESERVER_VDIR$ to 40
equ SYSAPPS_UISTYLESHEET$ to 41
equ SYSAPPS_QBFCLOSEONCLEAR$ to 42
// Defaults
equ SYSAPPS_DEF_EP_MODE$ to 0 ; // FALSE$
@ -361,3 +346,33 @@ compile insert repository_equates
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
/*
Lest we forget ...
Amended Date Reason
======= ==== ======
Mr C 10 Oct 19 Added PUBLIC_DESC$
Mr C 28 Sep 19 Added SYSAPPS_LOGON_TEMPLATE$
MTR 04 Jun 19 Added Extended Math operators For Precision
Mr C 10 Apr 18 Added SYSAPPS SYSTEM FOCUSSTYLES fields
Mr C 04 Feb 18 Added SYSAPPS SHOWACCELERATORS field.
Mr C 09 Nov 17 Updated SYSAPPS structure.
Mr C 13 Sep 17 Added SYSBUILD values
Mr C 30 Aug 17 Added REPSTATE_SCMPREFIX$
Mr C 24 Aug 17 Expanded KeyFormat definitions
Mr C 10 Aug 17 Added RTI_DSN_GENERIC preview handling fields
Mr C 07 Aug 17 Added SCMPULL/PUSH LOG tokens
bzs 22 May 17 Added support for specification of "utility" function
in type info to call to handle GET_REPOS_xxx functions
Mr C 21 Feb 17 Added PURGE log op.
Mr C 31 Mar 16 Added SYSREP_KEYFORMAT_E_$
Mr C 22 Feb 16 Added RDKEXTRACTSPEC types
Mr C 11 Feb 16 Added 16x16 image fields
Mr C 28 Jan 16 Added SYSREPCLASSES_DESIGNTOOL$
Mr C 14 Mar 15 Added UTF8 fields to SYSAPPS equates
Mr C 08 Mar 15 Added GETRDKEXTRACTSPEC equates
Added SYSREPOSTYPES fields for RTI_IDE integration
Mr C 26 Feb 15 Updated for more RDK/SCM mods
Mr C 01 Feb 14 Updated for v10 with new SYSREPOSTYPES and
SYSREPOSCLASSES columns.
*/

21
SYSPROG/STPROCINS/RTI_EMAIL_EQUATES.txt
View File

@ -42,5 +42,26 @@ compile Insert rti_email_equates
Equ EMSG_ATTACHMENT_ENCODING$ To 2
Equ EMSG_ATTACHMENT_TYPE$ To 3
Equ EMSG_ATTACHMENT_BODY$ To 4
Equ EMAIL_OPTION_TLS_PROTOCOL$ To "tlsprotocol"
Equ EMAIL_TLS_PROTOCOL_TLS11$ To "tls11"
Equ EMAIL_TLS_PROTOCOL_TLS12$ To "tls12"
Equ EMAIL_TLS_PROTOCOL_TLS13$ To "tls13"
Equ EMAIL_TLS_PROTOCOL_DEFAULT$ To "default"
Equ EMAIL_TLS_PROTOCOL_SSL3$ To "ssl3"
Equ EMAIL_TLS_PROTOCOL_TLS$ To "tls"
Equ EMAIL_OPTION_TIMEOUT$ To "timeout"
Equ EMAIL_OPTION_PRIORITY$ To "priority"
Equ EMAIL_PRIORITY_HIGH$ To "high"
Equ EMAIL_PRIORITY_LOW$ To "low"
Equ EMAIL_PRIORITY_NORMAL$ To "normal"
Equ EMAIL_OPTION_RECEIPT$ To "receipt"
Equ EMAIL_OPTION_USE_OAUTH$ To "oauth"
Equ EMAIL_USE_OAUTH_GOOGLE$ To "google"
Equ EMAIL_USE_OAUTH_MS$ To "ms"
Declare Function RTI_EMAIL_CLIENT

574
SYSPROG/STPROCINS/RTI_FTPCLIENT_EQUATES.txt Normal file
View File

@ -0,0 +1,574 @@
compile insert rti_FTPClient_Equates
/*
** Copyright (C) 1992-2023 Revelation Software Inc. All Rights Reserved **
Author : Captain C
Date : November 2023
Purpose : Constants for use with the RTI_FTPCLIENT stored procedure which
: is a wrapper around the WinInet FTP functions.
Comments
========
The following core connection methods are provided:
CONNECT
DISCONNECT
The following methods work with the CONNECT and DISCONNECT methods
(i.e. CONNECT must be called to use these, and DISCONNECT must be
called when FTP processing is completed).
Directory methods
=================
DIRLIST
GETCURRENTDIR
MAKEDIR
REMOVEDIR
SETCURRENTDIR
File methods
============
DELETEFILE
GETFILESIZE
READFILE
RENAMEFILE
WRITEFILE
WRITEFILEDATA
In addition to these there are several "convenience" methods that use
the CONNECT and DISCONNECT methods internally, thereby removing the
need to call them yourself:
GETFILE == (CONNECT/READFILE/DISCONNECT)
GETFILEDATA == (CONNECT/READFILEDATA/DISCONNECT)
SENDFILE == (CONNECT/WRITEFILE/DISCONNECT)
SENDFILEDATA == (CONNECT/WRITEFILEDATA/DISCONNECT)
Amended Date Reason
======= ==== ======
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _RTI_FTPCLIENT_EQUATES_
#define _RTI_FTPCLIENT_EQUATES_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
declare function rti_FTPClient
$insert msWin_FileAttribute_Equates
///////////////////////////////////////////////////////////////////////////////
//
// CONNECT method
//
// Connects to an FTP server and returns a handle for use with subsequent
// operations.
//
// The handles returned from this method should be released via the DISCONNECT
// method.
//
// hClient = rti_FTPClient( "CONNECT", serverURL, userName, password,
// connectFlags )
//
// ----------------------------------------------------------------------------
// [i] serverURL : standard ftp:// URL (poss. including port) [req]
// [i] userName : Username used to authenticate to the server
// [i] password : Password used to authenticate to the server
// [i] connectFlags : Bitmask of flags to use for the connection (see the
// "dwFlags" parmater in the InternetConnect() docs)
// ----------------------------------------------------------------------------
// [r] Returns a "handle" (actually a pair of HINTERNET handles) if successful
//
// <1> hInternet
// <2> hConnection
//
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
//
// DELETEFILE method
//
// Removes a file from the FTP Server
//
// bSuccess = rti_FTPClient( "DELETEFILE", hClient, fileName )
//
// ----------------------------------------------------------------------------
// [i] hClient : Connection handles returned from a CONNECT method [req]
// [i] fileName : Name of the file to be deleted [req]
// ----------------------------------------------------------------------------
// [r] Returns TRUE$ if the file was deleted, or FALSE$ otherwise.
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
//
// DIRLIST method
//
// Returns a list of files and/or directories from the FTP Server.
//
// fileList = rti_FTPClient( "DIRLIST", hClient, dirName, fileSpec, |
// typeSpec, findFlags, bRecurse, bSort )
//
// ----------------------------------------------------------------------------
// [i] hClient : Connection handles returned from the CONNECT method [req]
// [i] dirName : Directory to list - defaults to the current directory
// [i] fileSpec : File specifier - name of the file to list (inc. wild cards),
// : or null for all files
// [i] typeSpec : "1" for directories only
// : "2" for files only
// : "0" or null for files and directories
// [i] findFlags : Bitmask of flags to use in the search (see "dwFlags" in the
// : FtpFindFirstFile() docs)
// [i] bRecurse : TRUE$ to recurse into sub-directories.
// [i] bSort : TRUE$ to sort the results (AL).
// ----------------------------------------------------------------------------
// [r] Returns an @fm-delimited of matching files. Each item in the list has
// the following format:
//
// <0,1> Fully qualified file name
// <0,2> File Attributes (See MSWIN_FILEATTRIBUTE_EQUATES)
// <0,3> File Size (bytes)
// <0,4> Directory Flag (TRUE$ if the item is a directory)
// <0,5> Date & Time created (DT format)
// <0,6> Date & Time last accessed (DT format)
// <0,7> Date & Time last modified (DT format)
//
// ----------------------------------------------------------------------------
// [e] Errors are returned via set_Status()
// ----------------------------------------------------------------------------
// typeSpec
equ RTI_FC_TYPESPEC_DIR_ONLY$ to 1
equ RTI_FC_TYPESPEC_FILES_ONLY$ to 2
// Return file list format
equ RTI_FC_DIRLIST_POS_FILENAME$ to 1
equ RTI_FC_DIRLIST_POS_FILEATTR$ to 2
equ RTI_FC_DIRLIST_POS_FILESIZE$ to 3
equ RTI_FC_DIRLIST_POS_DIRFLAG$ to 4
equ RTI_FC_DIRLIST_POS_CREATETIME$ to 5
equ RTI_FC_DIRLIST_POS_ACCESSTIME$ to 6
equ RTI_FC_DIRLIST_POS_WRITETIME$ to 7
///////////////////////////////////////////////////////////////////////////////
//
// DISCONNECT method
//
// This method releases the connection handles opened via the CONNECT method.
//
// bSuccess = rti_FTPClient( "DISCONNECT", hClient )
//
// ----------------------------------------------------------------------------
// [i] hClient : Connection handles returned from a CONNECT method [req]
// ----------------------------------------------------------------------------
// [r] Returns TRUE$ if the handles are released sucessfully, or FALSE$
// otherwise
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
//
// GETCURRENTDIR method
//
// Returns the current directory for the connected FTP Server.
//
// currentDir = rti_FTPClient( "GETCURRENTDIR", hClient )
//
// ----------------------------------------------------------------------------
// [i] hClient : Connection handles returned from a CONNECT method. [req]
// ----------------------------------------------------------------------------
// [r] Returns the current directory, or null if there is an error
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
//
// GETFILE method
//
// Retrieves a file from the FTP server and saves it to the local machine.
//
// This method is a simple wrapper to encapsulate calls to CONNECT, READFILE,
// and DISCONNECT.
//
// bSuccess = rti_FTPClient( "GETFILE", serverURL, userName, password, |
// remoteFile, localFile, connectFlags, |
// getFileFlags )
//
// ----------------------------------------------------------------------------
// [i] serverURL : standard ftp:// URL (poss. including port) [req]
// [i] userName : Username used to authenticate to the server
// [i] password : Password used to authenticate to the server
// [i] remoteFile : Name and path of the remote file to get [req]
// [i] localFile : Name and path to save the file as [req]
// [i] connectFlags : Bitmask of flags to use for the connection (see the
// : "dwFlags" parmater in the InternetConnect() docs)
// [i] getFileFlags : Bitmask of flags to use for the transfer (see the
// : "dwFlags" parameter in the FtpGetFile() docs)
// ----------------------------------------------------------------------------
// [r] Returns TRUE$ if the file is transferred successfully, or FALSE$
// otherwise
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
//
// GETFILEDATA method
//
// Returns the contents of a remote file.
//
// This method is a simple wrapper to encapulate calls to CONNECT, READDATA,
// and DISCONNECT to emulate the old FTPGETFILE SSP.
//
// fileData = rti_FTPClient( "GETFILEDATA", serverURL, userName, password,|
// fileName, connectFlags, openFileFlags, |
// bufferSize )
//
// ----------------------------------------------------------------------------
// [i] serverURL : standard ftp:// URL (poss. including port) [req]
// [i] userName : Username used to authenticate to the server
// [i] password : Password used to authenticate to the server
// [i] fileName : Path and file name to get [req]
// [i] connectFlags : Bitmask of flags to use for the connection (see the
// : "dwFlags" parmater in the InternetConnect() docs)
// [i] openFileFlags : Bitmask of flags to use for the transfer (see the
// : "dwFlags" parameter in the FtpOpenFile() docs)
// [i] bufferSize : Size in bytes of the read buffer - defaults to 64K
// ----------------------------------------------------------------------------
// [r] Returns the file contents
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
equ RTI_FC_DFLT_READ_BUFFER_SIZE$ to 0xFFFF ; // 64K
///////////////////////////////////////////////////////////////////////////////
//
// GETFILESIZE method
//
// Returns the size in bytes of the specified file
//
// fileSize = rti_FTPClient( "GETFILESIZE", hClient, fileName )
//
// ----------------------------------------------------------------------------
// [i] hClient : Connection handles returned from a CONNECT method [req]
// [i] fileName : Name of the file to be queried [req]
// ----------------------------------------------------------------------------
// [r] Returns the size of the file in byyes if successful, or "-1" if not
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
equ RTI_FC_FILESIZE_UNKNOWN$ to -1
///////////////////////////////////////////////////////////////////////////////
//
// MAKEDIR method
//
// Creates a new directory on the FTP Server
//
// bSuccess = rti_FTPClient( "MAKEDIR", hClient, dirName )
//
// The directory name can be either a fully qualified path or a name relative
// to the current directory.
//
// ----------------------------------------------------------------------------
// [i] hClient : Connection handles returned from a CONNECT method [req]
// [i] dirName : Directory to create [req]
// ----------------------------------------------------------------------------
// [r] Returns TRUE$ if the directory is created, or FALSE$ otherwise.
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
//
// READFILE method
//
// Retrieves a file from the FTP server and saves it to the local machine.
//
// bSuccess = rti_FTPClient( "READFILE", hClient, remoteFile, localFile, |
// getFileFlags )
//
// ----------------------------------------------------------------------------
// [i] hClient : Connection handles returned from a CONNECT method [req]
// [i] remoteFile : Name and path of the remote file to get [req]
// [i] localFile : Name and path to save the file as [req]
// [i] getFileFlags : Bitmask of flags to use for the transfer (see the
// : "dwFlags" parameter in the FtpGetFile() docs)
// ----------------------------------------------------------------------------
// [r] Returns TRUE$ if the file is transferred successfully, or FALSE$
// otherwise
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
//
// READFILEDATA method
//
// Retrieves a chunk of file contents from the connected FTP Server. This
// method is designed to be used in a loop until all of the contents are
// returned.
//
// fileContents = ""
//
// fileName = "/tmp/test.jpg"
// openFileFlags = bitOr( FTP_TRANSFER_TYPE_BINARY$, INTERNET_FLAG_RELOAD$ )
// bufferSize = 1024
// hFile = 0
// bFinished = FALSE$
//
// loop
// fileChunk = rti_FTPClient( "READFILEDATA", hClient, fileName, |
// openFileFlags, bufferSize, hFile, bFinished )
// if get_Status() then
// // Handle error - bFinished will be set to TRUE$
// end else
// fileContents := fileData
// end
// until bFinished
// // Report progess etc...
// repeat
//
// ----------------------------------------------------------------------------
// [i] hClient : Connection handles returned from a CONNECT method [req]
// [i] fileName : Path and file name to get [req]
// [i] openFileFlags : Bitmask of flags to use for the transfer (see the
// : "dwFlags" parameter in the FtpOpenFile() docs).
// : Defaults to FTP_TRANSFER_TYPE_BINARY$
// [i] bufferSize : Size in bytes of the read buffer - defaults to 64K
// [i,o] hFile : Internal file transfer handle - must be initialized [req]
// : to 0. This handle is closed automatically when all
// : of the file contents have been read, or an error is
// : encountered.
// [i,o] bFinished : Returns TRUE$ when all the contents of the file have [req]
// : been returned or an error is encountered.
// ----------------------------------------------------------------------------
// [r] Returns the bytes read from the file
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
//
// REMOVEDIR method
//
// Removes a directory from the FTP Server
//
// bSuccess = rti_FTPClient( "REMOVEDIR", hClient, dirName )
//
// The directory name can be either a fully qualified path or a name relative
// to the current directory.
//
// ----------------------------------------------------------------------------
// [i] hClient : Connection handles returned from a CONNECT method [req]
// [i] dirName : Directory to remove [req]
// ----------------------------------------------------------------------------
// [r] Returns TRUE$ if the directory is removed, or FALSE$ otherwise.
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
//
// RENAMEFILE method
//
// Renames a file stored on the FTP server.
//
// bSuccess = rti_FTPClient( "RENAMEFILE", hClient, fileName, newFileName )
//
// ----------------------------------------------------------------------------
// [i] hClient : Connection handles returned from a CONNECT method [req]
// [i] fileName : Name of the file to be renamed [req]
// [i] newfileName : New name for the file [req]
// ----------------------------------------------------------------------------
// [r] Returns TRUE$ if the file was renamed, or FALSE$ otherwise.
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
//
// SENDFILE method
//
// Sends a file to the FTP server
//
// This method is a simple wrapper to encapsulate calls to CONNECT, WRITEFILE,
// and DISCONNECT.
//
// bSuccess = rti_FTPClient( "SENDFILE", serverURL, userName, password, |
// sourceFile, targetFile, connectFlags, |
// putFileFlags )
//
// ----------------------------------------------------------------------------
// [i] serverURL : standard ftp:// URL (poss. including port) [req]
// [i] userName : Username used to authenticate to the server
// [i] password : Password used to authenticate to the server
// [i] sourceFile : Name and path of the local file to send [req]
// [i] targetFile : Name and path to write the file to on the server [req]
// [i] connectFlags : Bitmask of flags to use for the connection (see the
// : "dwFlags" parmater in the InternetConnect() docs)
// [i] putFileFlags : Bitmask of flags to use for the transfer (see the
// : "dwFlags" parameter in the FtpPutFile() docs)
// ----------------------------------------------------------------------------
// [r] Returns TRUE$ if the file is transferred successfully, or FALSE$
// otherwise
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
//
// SENDFILEDATA method
//
// Sends the contents of the fileData parameter to the FTP server using the
// specified path and directory.
//
// This method is a simple wrapper to encapulate calls to CONNECT, WRITEDATA,
// and DISCONNECT to emulate the old FTPSEND SSP.
//
// bSuccess = rti_FTPClient( "SENDFILEDATA", serverURL, userName, password,|
// dirName, fileName, fileData, connectFlags, |
// openFileFlags )
//
// ----------------------------------------------------------------------------
// [i] serverURL : standard ftp:// URL (poss. including port) [req]
// [i] userName : Username used to authenticate to the server
// [i] password : Password used to authenticate to the server
// [i] dirName : Directory on the FTP server to write to
// [i] fileName : Filename to write to [req]
// [i] fileData : Data to write to the file
// [i] connectFlags : Bitmask of flags to use for the connection (see the
// : "dwFlags" parmater in the InternetConnect() docs)
// [i] openFileFlags : Bitmask of flags to use for the transfer (see the
// : "dwFlags" parameter in the FtpOpenFile() docs)
// ----------------------------------------------------------------------------
// [r] Returns TRUE$ if the file is transferred successfully, or FALSE$
// otherwise.
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
//
// SETCURRENTDIR method
//
// Sets the current directory for the connected FTP Server
//
// bSuccess = rti_FTPClient( "SETCURRENTDIR", hClient, dirName )
//
// ----------------------------------------------------------------------------
// [i] hClient : Connection handles returned from a CONNECT method [req]
// [i] dirName : Directory to set [req]
// ----------------------------------------------------------------------------
// [r] Returns TRUE$ if the directory is set, or FALSE$ otherwise.
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
//
// WRITEFILE method
//
// Transfers a file to the connected FTP Server
//
// bSuccess = rti_FTPClient( "WRITEFILE", hClient, sourceFile, targetFile, |
// putFileFlags )
//
// ----------------------------------------------------------------------------
// [i] hClient : Connection handles returned from a CONNECT method [req]
// [i] sourceFile : Name and path of the local file to send [req]
// [i] targetFile : Name and path to write the file to on the server [req]
// [i] putFileFlags : Bitmask of flags to use for the transfer (see the
// : "dwFlags" parmater in the FtpPutFile() docs)
// ----------------------------------------------------------------------------
// [r] Returns TRUE$ if the file is transferred successfully
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
//
// WRITEFILEDATA method
//
// Transfers a chunk of file contents to the connected FTP Server. This
// method is designed to be used in a loop until all of the contents are
// sent.
//
// fileName = "/tmp/test.jpg"
// openFileFlags = FTP_TRANSFER_TYPE_BINARY$ ; // This is the default
// hFile = 0
// bFinished = FALSE$
//
// loop
// // Grab a chunk of data, e.g. from an OSBRead into the fileData
// // variable. If this is the last chunk then set bFinished to
// // TRUE$
//
// ...
//
// // Then send it to the server
// if rti_FTPClient( "WRITEFILEDATA", hClient, fileName, |
// openFileFlags, fileData, hFile, bFinished ) else
//
// // Handle error - bFinished will be set to TRUE$ and hFile
// // released
// call get_Status( errText ) then
// end
//
// until bFinished
// // Report progess etc...
// repeat
//
// ----------------------------------------------------------------------------
// [i] hClient : Connection handles returned from a CONNECT method [req]
// [i] fileName : Path and file name to write to on the server [req]
// [i] openFileFlags : Bitmask of flags to use for the transfer (see the
// : "dwFlags" parameter in the FtpOpenFile() docs).
// : Defaults to FTP_TRANSFER_TYPE_BINARY$
// [i] fileData : Data to transfer. If null then the method assumes that
// : the transfer operation has finished.
// [i,o] hFile : Internal file transfer handle - must be initialized [req]
// : to 0. This handle is closed automatically when the
// : bFinished parameter is set to TRUE$, or an error is
// : encountered.
// [i,o] bFinished : Must be set to TRUE$ when the last file chunk is sent. [req]
// : Will also be set to TRUE$ by the system if an error is
// : encountered.
// ----------------------------------------------------------------------------
// [r] Returns TRUE$ if the file chunk was transferred successfully, or FALSE$
// otherwise.
// ----------------------------------------------------------------------------
// [e] Errors are returned via Set_Status
// ----------------------------------------------------------------------------
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////