Module VersionControl.pkg

************************************************************************ Confidential Trade Secret. Copyright 1998 Data Access Corporation, Miami FL, USA All Rights reserved DataFlex is a registered trademark of Data Access Corporation. ****************************************************************************// // $File name : VersionControl.pkg // $File title : Internal control for version checking // Notice : // $Author(s) : John Tuohy // // $Rev History // // JT 11/9/98 Created // // ****************************************************************************// This is an internal pakcage and is USEd within dfbase.pkg This contains two compiler commands and one Runtime command: Validate_Fmac Ver# Rev# Build# If version number in fmac is not equal to or greater than the value passed here, a compile error is declared. This command is invoked within this package. The Version numbers are stored in fmac as : FMAC_Version FMAC_Revision FMAC_Build The required version numbers are defined in dfbase.pkg as: Required_FMAC_Version Required_FMAC_Revision Required_FMAC_Build Validate_Packages Ver# Rev# Build# If version number of package is not equal to or greater than the value passed here, a compile error is declared. The package number is defined in dfbase.pkg as: PKG_Version PKG_Revision PKG_Build This is not invoked automatically but may be added to a developer's program. You must define and pass the minimum required version numbers. Send ValidateVersion This is called at runtime (and is called by this package). It insures that the runtime version (which is stored in dfrun.dll) is equal to or greater than the minimum required runtime version. The minimum is defined in dfbase.pkg as: Required_RT_Version Required_RT_Revision Required_RT_Build

VersionControl.pkg (view source)
• import declarations
  • LanguageText.pkg (view source)
  • GlobalFunctionsProcedures.pkg (view source)
• Validate_Fmac
  Validate fmac version against a passed minumum version, revision, build
• Validate_Packages
  Validate fmac version against a passed minumum version, revision, build
• gValidate$Version(integer iReqVersion integer iReqRevision integer iReqBuild)
  • IntegeriVersion
  • IntegeriRevision
  • IntegeriBuild

References (2):

Field References (0):