!!!
!!! Generated from procedure template - Source
!!!
ZGLOBAL_LogIPInfo PROCEDURE ! Declare Procedure
! Start of "Data Section"
! [Priority 1000]
LocalIPAddress STRING(3) !
LocalFirstIPSegment LONG !
Local172SecondSegment STRING(2) !
Local172SecondSegmentNumber LONG !
! [Priority 4800]
FilesOpened BYTE(0)
! [Priority 8500]
! End of "Data Section"
! ----- TST5 --------------------------------------------------------------------------
TST5 Class(StringTheory)
! Start of "Class - New Property Declarations"
! [Priority 5000]
! End of "Class - New Property Declarations"
! Start of "Class - New Method Declarations"
! [Priority 5000]
! End of "Class - New Method Declarations"
! Start of "Class - New Method Declarations"
! [Priority 5000]
! End of "Class - New Method Declarations"
Destruct PROCEDURE ()
Construct PROCEDURE ()
Start PROCEDURE (),Virtual
AppendA PROCEDURE (string newValue, long pClip = false, ), virtual
AppendBinary PROCEDURE (long pValue,Long pLength=4),Virtual
Append PROCEDURE (string newValue, long pClip = false, ), virtual
Append PROCEDURE (*string newValue, long pClip = false, ), virtual
SetValue PROCEDURE (string newValue,long pClip=false), virtual
_GetNextBufferSize PROCEDURE (Long pLen),Long,Virtual
_SetValuePointer PROCEDURE (Long pPtr,Long pSize, Long pEnd, Long pDispose=1),Virtual
Assign PROCEDURE (*string newValue), virtual
Assign PROCEDURE (string newValue), virtual
Abbreviate PROCEDURE (Long pPos,Long pRangeLeft = 15,Long pRangeRight = 15),Long,Proc,Virtual
GetValuePtr PROCEDURE (),*String,virtual
SetValue PROCEDURE (*string newValue,long pClip=false), virtual
Base64Encode PROCEDURE (Long pNoWrap=0),Virtual
Base64Encode PROCEDURE (*string pText, *long pLen), virtual
Base64Decode PROCEDURE (), virtual
Base64Decode PROCEDURE (*string pText, *long pLen), virtual
QuotedPrintableEncode PROCEDURE (), virtual
QuotedPrintableDecode PROCEDURE (), virtual
EncodedWordDecode PROCEDURE (), virtual
EncodedWordEncode PROCEDURE (,long pEncoding=2),virtual
JsonEncode PROCEDURE (Long pOptions=0), virtual
JsonDecode PROCEDURE (), virtual
Free PROCEDURE (Long pLines=False, Long pForce=false), virtual
FreeLines PROCEDURE (), virtual
ClipLen PROCEDURE (), long, virtual
ClipLength PROCEDURE (), long, virtual
Crop PROCEDURE (ulong pStart=1, ulong pEnd=0), Virtual
Instring PROCEDURE (string pSearchValue, long pStep=1, long pStart=1, long pEnd=0, long pNocase=0, long pWholeWord=0), long, virtual
Count PROCEDURE (string pSearchValue, long pStep=1, long pStart=1, long pEnd=0, long pNoCase=0, bool softClip=true, long pOverlap=true), long, virtual
Capitalize PROCEDURE (long pCount=1, long pStartPos=1, long pEndPos=0,), virtual
ErrorTrap PROCEDURE (string methodName, string errorMessage), virtual
ExtensionOnly PROCEDURE (),String, virtual
FormatMessage PROCEDURE (long err), string, virtual
GetValue PROCEDURE (), string, virtual
GetValue PROCEDURE (long maxLen), string, virtual
GetVal PROCEDURE (), string, virtual
GetLine PROCEDURE (long pLineNumber), string, virtual
GetBufferLength PROCEDURE (),long,Virtual
InLine PROCEDURE (string pSearchValue, long pStep=1, long pStart=1, long pEnd=0, long pNocase=0, long pWholeLine=0, long p_Where=0),Long,virtual
SetLine PROCEDURE (long pLineNumber,String pValue),virtual
AddLine PROCEDURE (long pLineNumber,String pValue),virtual
DeleteLine PROCEDURE (long pLineNumber), long, proc, virtual
RemoveLines PROCEDURE (), long, proc, virtual
Join PROCEDURE (string pBoundary,,),virtual
_JoinA PROCEDURE (string pBoundary,,),virtual
Length PROCEDURE (), long, virtual
LengthA PROCEDURE (), long, virtual
Len PROCEDURE (), long, virtual
Chars PROCEDURE (Long pEncoding=-1, ),Long,Virtual
_Malloc PROCEDURE (Long strLen, Long pForce=false, Long pSilent=true), virtual
MD5 PROCEDURE (), string, virtual
Prepend PROCEDURE (string newValue, long pClip = false, ), virtual
Random PROCEDURE (long pLength=16, long pFlags=0, ),String, Proc, virtual
MakeGuid PROCEDURE (long pLength=16, long pFlags=st:Upper+st:Number),String, Proc, virtual
Records PROCEDURE (), long, virtual
Replace PROCEDURE (string pOldValue, string pNewValue, long pCount=0, long pStart=1, long pEnd=0, long pNoCase=0, bool pRecursive=false), Long, Proc, virtual
SetLength PROCEDURE (Long strLen, Long pForce=false), virtual
Slice PROCEDURE (ulong pStart=1, ulong pEnd=0),String, virtual
Split PROCEDURE (string pSplitStr,,, bool removeQuotes = false, bool pClip = false, bool pLeft=false, ,Long pNested=false), virtual
Sort PROCEDURE (Long pSortType,string pSplitStr,,, bool pClip = false, bool pLeft=false),Virtual
Sort PROCEDURE (Long pSortType),Virtual
SplitEvery PROCEDURE (long numChars), virtual
Filter PROCEDURE (string pInclude, string pExclude),virtual
Sub PROCEDURE (ulong pStart=1, ulong pLength=1), string, virtual
ToCstring PROCEDURE (), *cstring, virtual
Trace PROCEDURE (), virtual
Upper PROCEDURE (, ), virtual
Lower PROCEDURE (, ), virtual
FileNameOnly PROCEDURE (,Long pIncludeExtension=true), string, virtual
PathOnly PROCEDURE (), string, virtual
LoadFile PROCEDURE (string fileName,Long pOffset=0, Long pLength=0, Long pRemoveBOM=false), long, proc, virtual
SaveFile PROCEDURE (string fileName, bool pAppendFlag=false), long, proc, virtual
SaveFile PROCEDURE (*string WriteString, string fileName, bool pAppendFlag, long dataLen=0), long, proc, virtual
SaveFileA PROCEDURE (string WriteString, string fileName, bool pAppendFlag=false), long, proc, virtual
SetEncodingFromBOM PROCEDURE (Long pRemoveBOM=true),Long,Proc,Virtual
AddBOM PROCEDURE (Long pEncoding=-1),Virtual
Before PROCEDURE (string pSearchValue, long pStart=1, long pEnd=0, long pNoCase=0), string, virtual
Between PROCEDURE (string pLeft, string pRight,long pStart=1, long pEnd=0, long pNoCase=0, long pExclusive=true), string, virtual
FindBetween PROCEDURE (string pLeft, string pRight, *long pStart, *long pEnd, bool pNoCase=false, long pExclusive=true), string, virtual
After PROCEDURE (string pSearchValue, long pStart=1, long pEnd=0, long pNoCase=0), string, virtual
ToBlob PROCEDURE (*blob blobField), long, proc, virtual
FromBlob PROCEDURE (*blob blobField), long, proc, virtual
AnsiToUtf16 PROCEDURE (*string strAnsi, *long unicodeChars, ulong CodePage=st:CP_US_ASCII), *string, virtual
Utf16ToAnsi PROCEDURE (*string unicodeString, *long ansiLen, long unicodeChars=-1, ulong CodePage=st:CP_US_ASCII), *string, virtual
Utf8To16 PROCEDURE (*string strUtf8, *long unicodeChars), *string, virtual
Utf16To8 PROCEDURE (*string unicodeString, *long utf8Len, long unicodeChars=-1), *string, virtual
Utf8ToAnsi PROCEDURE (*string strUtf8, *long ansiLen, ulong pCodePage=st:CP_US_ASCII), *string, virtual
AnsiToUtf8 PROCEDURE (*string strAnsi, *long utf8Len, ulong pCodePage=st:CP_US_ASCII), *string, virtual
apiUtf8ToAnsi PROCEDURE (*string strUtf8, *long ansiLen), *string, virtual
apiAnsiToUtf8 PROCEDURE (*string strAnsi, *long utf8Len), *string, virtual
ToAnsi PROCEDURE (long encoding=0, ulong pCodePage=st:CP_US_ASCII), long, proc, virtual
ToUnicode PROCEDURE (long encoding=st:EncodeUtf8, ulong pCodePage=st:CP_US_ASCII), long, proc, virtual
DecodeHexInline PROCEDURE (ulong pCodePage=st:CP_US_ASCII),Virtual
DecodeHexInline PROCEDURE (string pId, Long pLength, ulong pCodePage=st:CP_US_ASCII),Virtual
Utf16ToUtf8Char PROCEDURE (String p_utf16Char,*Long rLen),String,Virtual
Normalize PROCEDURE (Long pForm=st:NFKD,Long pPreserveEncoding=true),Long,Proc,Virtual
DecToBase PROCEDURE (long num, long base=16, long lowerCase=1), string, virtual
BaseToDec PROCEDURE (string num, long base=16), long, virtual
ByteToHex PROCEDURE (byte pByte), string, virtual
HexToByte PROCEDURE (string hexVal), byte, virtual
LongToHex PROCEDURE (long pLong), string, virtual
StringToHex PROCEDURE (string binData,Long pLen=0,Long pCase=0), *string, virtual
HexToString PROCEDURE (string hexData), *string, virtual
ToHex PROCEDURE (Long pCase=0), virtual
FromHex PROCEDURE (), virtual
WrapText PROCEDURE (long wrapAt=80, bool keepExistingBreaks=true, bool pleft=false), virtual
StrCpy PROCEDURE (*string pIn, *string pOut, bool pClip = true), long, proc, virtual
ToBytes PROCEDURE (*byte pVal, *string bVals), virtual
ToBytes PROCEDURE (*short pVal, *string bVals), virtual
ToBytes PROCEDURE (*ushort pVal, *string bVals), virtual
ToBytes PROCEDURE (*long pVal, *string bVals), virtual
ToBytes PROCEDURE (*ulong pVal, *string bVals), virtual
ToBytes PROCEDURE (*sreal pVal, *string bVals), virtual
ToBytes PROCEDURE (*real pVal, *string bVals), virtual
ToBytes PROCEDURE (*decimal pVal, *string bVals), virtual
ToBytes PROCEDURE (*cstring pVal, *string bVals), virtual
ToBytes PROCEDURE (*string pVal, *string bVals), virtual
FromBytes PROCEDURE (*string bVals, *byte pVal), virtual
FromBytes PROCEDURE (*string bVals, *short pVal), virtual
FromBytes PROCEDURE (*string bVals, *ushort pVal), virtual
FromBytes PROCEDURE (*string bVals, *long pVal), virtual
FromBytes PROCEDURE (*string bVals, *ulong pVal), virtual
FromBytes PROCEDURE (*string bVals, *sreal pVal), virtual
FromBytes PROCEDURE (*string bVals, *real pVal), virtual
FromBytes PROCEDURE (*string bVals, *decimal pVal), virtual
FromBytes PROCEDURE (*string bVals, *cstring pVal), virtual
FromBytes PROCEDURE (*string bVals, *string pVal), virtual
FromBytes PROCEDURE (*string bVals, *pstring pVal), virtual
SetBytes PROCEDURE (*byte pVal), virtual
SetBytes PROCEDURE (*short pVal), virtual
SetBytes PROCEDURE (*ushort pVal), virtual
SetBytes PROCEDURE (*long pVal), virtual
SetBytes PROCEDURE (*ulong pVal), virtual
SetBytes PROCEDURE (*sreal pVal), virtual
SetBytes PROCEDURE (*real pVal), virtual
SetBytes PROCEDURE (*decimal pVal), virtual
SetBytes PROCEDURE (*cstring pVal), virtual
SetBytes PROCEDURE (*string pVal), virtual
SetBytes PROCEDURE (*pstring pVal), virtual
GetBytes PROCEDURE (*byte pVal), virtual
GetBytes PROCEDURE (*short pVal), virtual
GetBytes PROCEDURE (*ushort pVal), virtual
GetBytes PROCEDURE (*long pVal), virtual
GetBytes PROCEDURE (*ulong pVal), virtual
GetBytes PROCEDURE (*sreal pVal), virtual
GetBytes PROCEDURE (*real pVal), virtual
GetBytes PROCEDURE (*decimal pVal), virtual
GetBytes PROCEDURE (*cstring pVal), virtual
GetBytes PROCEDURE (*string pVal), virtual
GetBytes PROCEDURE (*pstring pVal), virtual
SetBytes PROCEDURE (*? pVal, string pType), bool, proc, virtual
GetBytes PROCEDURE (*? pVal, string pType), bool, proc, virtual
FindWord PROCEDURE (long pWordNumber,long startPos = -1, long textType=ST:TEXT,*Long pStart, *Long pEnd,), string, virtual
GetWord PROCEDURE (long pWordNumber,long startPos = -1, long textType=ST:TEXT, ), string, virtual
WordStart PROCEDURE (long pStartPos=1, long textType=ST:TEXT,Long pDir=st:Forwards,), long, virtual
WordEnd PROCEDURE (long pStartPos=1, long textType=ST:TEXT,), long, virtual
CountWords PROCEDURE (long startPos = 1, long textType=ST:TEXT,), long, virtual
RemoveAttributes PROCEDURE (String pTag), virtual
RemoveXMLPrefixes PROCEDURE (), virtual
HtmlEntityToDec PROCEDURE (),virtual
DecEntityToChar PROCEDURE (),Long,Virtual
Remove PROCEDURE (string pLeft,,long pNoCase=0,long pContentsOnly=0, long pCount=0), Long,Proc,virtual
Clip PROCEDURE (), virtual
Trim PROCEDURE (), virtual
Left PROCEDURE (Long pLength=0,Long pwhat=1,),String, virtual
SetLeft PROCEDURE (Long pLength=0,Long pwhat=1,), virtual
Right PROCEDURE (Long pLength=0,Long pwhat=1,),String, virtual
SetRight PROCEDURE (Long pLength=0,Long pwhat=1,), virtual
All PROCEDURE (Long pLength=255),String, virtual
SetAll PROCEDURE (Long pLength=255), virtual
Squeeze PROCEDURE (long textType=ST:TEXT,), virtual
ContainsADigit PROCEDURE (), bool, virtual
IsAllDigits PROCEDURE (), bool, virtual
ContainsA PROCEDURE (String pAlphabet, ,Long pClip=true), bool, virtual
IsAll PROCEDURE (String pAlphabet, ,Long pClip=true), bool, virtual
RemoveChars PROCEDURE (String pAlphabet), long, proc, virtual
KeepChars PROCEDURE (String pAlphabet), long, proc, virtual
_SwitchEndian PROCEDURE (), virtual
BigEndian PROCEDURE (), virtual
LittleEndian PROCEDURE (), virtual
SwitchEndian PROCEDURE (ulong x), long, virtual
BigEndian PROCEDURE (ulong x), long, virtual
LittleEndian PROCEDURE (ulong x), long, virtual
ReverseByteOrder PROCEDURE (), virtual
Str PROCEDURE (), string, virtual
Str PROCEDURE (string newValue), string, proc, virtual
Str PROCEDURE (*string newValue), string, proc, virtual
SetSlice PROCEDURE (ulong pStart=1, ulong pEnd=0, string newValue), virtual
Insert PROCEDURE (long pStart, string insertValue), virtual
Quote PROCEDURE (,), virtual
UnQuote PROCEDURE (,), virtual
FindChar PROCEDURE (string pSearchValue, long pStart=1, long pEnd=0, ), long, virtual
FindChars PROCEDURE (*string pSearchValue, long pStart=1, long pEnd=0, ), long, virtual
FindChars PROCEDURE (string pSearchValue, long pStart=1, long pEnd=0, ), long, virtual
ColorToHex PROCEDURE (long claColor, bool addHash=false), string, virtual
ColorFromHex PROCEDURE (string hexCol), long, virtual
UrlEncode PROCEDURE (long flags =0,,), virtual
UrlDecode PROCEDURE (,), virtual
CleanFileName PROCEDURE (, ), string, proc, virtual
PeekRam PROCEDURE (uLong pAdr,Long pLen),Virtual
loadlibs PROCEDURE (),Long,Proc,Virtual
LoadNormalize PROCEDURE (),Long,Proc,Virtual
gzip PROCEDURE (Long pLevel=5),Long,Virtual,Proc
gunzip PROCEDURE (),Long,Virtual,Proc
MergeXml PROCEDURE (String pNew, Long pWhere),Virtual
LineEndings PROCEDURE (Long pEndings=1), Virtual
IsTime PROCEDURE (String pValue),Long, Virtual
IsTime PROCEDURE (),Long, Virtual
DeformatTime PROCEDURE (String pValue),String, Virtual
DeformatTime PROCEDURE (),Virtual
FormatTime PROCEDURE (String pFormat),Virtual
FormatTime PROCEDURE (Long pValue,string pFormat),String,Virtual
StartsWith PROCEDURE (String pStr,Long pCase=True,Long pClip=True),Long,Virtual
EndsWith PROCEDURE (String pStr,Long pCase=True,Long pClip=True),Long,Virtual
End ! TST5
! ----- end TST5 -----------------------------------------------------------------------
! Start of "Local Data After Object Declarations"
! [Priority 5000]
! End of "Local Data After Object Declarations"
CODE
! Start of "Processed Code"
! [Priority 3600]
Glob:WebIPLogFileName = clip(epos:LocalLogFilesFolder) & '\WebStaffLog'&format(today(),@d12)&'.log'
! [Priority 4000]
Do OpenFiles
! [Priority 4000]
ePosWeb:Glob:ClientIPAddress = IC:GetRequestClient()
! Message(IC:GetRequestClient())
! [Priority 4000]
ePosWeb:ClientBrowserInfo = IC:GetRequestText()
! [Priority 4000]
TST5.SetValue(ePosWeb:ClientBrowserInfo)
! [Priority 4000]
do RecordClientInfo
! [Priority 4000]
! Message('In LogIpInfo : ' & ePosWeb:ClientOperatingSystem & '|Browser :' & ePosWeb:ClientBrowser &'|IP : ' & ePosWeb:Glob:ClientIPAddress)
! [Priority 4000]
do AddToLogFile
! [Priority 4000]
do Closefiles
! End of "Processed Code"
! Start of "Procedure Routines"
! [Priority 4000]
RecordClientInfo ROUTINE
If ePosWeb:AllowConnectionViaInternet = 0
do ReadIpAddress ! if the web setting is no
END
! Operating System first
Do FetchOS
Do FetchBrowserVersion
! [Priority 4000]
ReadIpAddress ROUTINE
L# = INSTRING('.',ePosWeb:Glob:ClientIPAddress,1,1)
LocalIPAddress = sub(left(ePosWeb:Glob:ClientIPAddress),1, L#)
LocalFirstIPSegment = LocalIPAddress
Case LocalFirstIPSegment
Of 10
ePosWeb:RejectWebLogin = 0
of 172
Local172SecondSegment = sub(left(ePosWeb:Glob:ClientIPAddress),5,2 )
Local172SecondSegmentNumber = Local172SecondSegment
If INRANGE(Local172SecondSegmentNumber,16,31)
ePosWeb:RejectWebLogin = 0
ELSE
ePosWeb:RejectWebLogin = 1
END
of 192
If sub(left(ePosWeb:Glob:ClientIPAddress),5,3 ) = '168'
ePosWeb:RejectWebLogin = 0
ELSE
ePosWeb:RejectWebLogin = 1
END
ELSE
ePosWeb:RejectWebLogin = 1
END
! [Priority 4000]
FetchOS ROUTINE
foundOS# = TST5.Instring('Android',1,1,0,1,0)
iF foundOS# <> 0
ePosWeb:ClientOperatingSystem = 'Android'
EXIT
END
foundOS# = TST5.Instring('Ubuntu',1,1,0,1,0)
iF foundOS# <> 0
ePosWeb:ClientOperatingSystem = 'Ubuntu Linux'
EXIT
END
foundOS# = TST5.Instring('Linux',1,1,0,1,0)
iF foundOS# <> 0
ePosWeb:ClientOperatingSystem = 'Linux'
EXIT
END
foundOS# = TST5.Instring('Windows NT 10',1,1,0,1,0)
IF foundOS# <> 0
ePosWeb:ClientOperatingSystem = 'Windows 10'
EXIT
END
foundOS# = TST5.Instring('Windows',1,1,0,1,0)
IF foundOS# <> 0
ePosWeb:ClientOperatingSystem = 'Windows'
EXIT
END
foundOS# = TST5.Instring('iPad',1,1,0,1,0)
IF foundOS# <> 0
ePosWeb:ClientOperatingSystem = 'iPad'
EXIT
END
foundOS# = TST5.Instring('iPhone',1,1,0,1,0)
IF foundOS# <> 0
ePosWeb:ClientOperatingSystem = 'iPhone'
EXIT
END
foundOS# = TST5.Instring('Mac',1,1,0,1,0)
IF foundOS# <> 0
ePosWeb:ClientOperatingSystem = 'Apple Mac'
EXIT
END
ePosWeb:ClientOperatingSystem = 'Unknown'
! [Priority 4000]
FetchBrowserVersion ROUTINE
FoundBRW# = TST5.Instring('Opera',1,1,0,1,0)
If FoundBRW# <> 0
ePosWeb:ClientBrowser = 'Opera'
EXIT
END
FoundBRW# = TST5.Instring('Edge',1,1,0,1,0)
If FoundBRW# <> 0
ePosWeb:ClientBrowser = 'Microsoft Edge'
EXIT
END
FoundBRW# = TST5.Instring('Firefox',1,1,0,1,0)
If FoundBRW# <> 0
ePosWeb:ClientBrowser = 'Firefox'
EXIT
END
FoundBRW# = TST5.Instring('Chromium',1,1,0,1,0)
If FoundBRW# <> 0
ePosWeb:ClientBrowser = 'Chromium'
EXIT
END
FoundBRW# = TST5.Instring('Chrome/',1,1,0,1,0)
If FoundBRW# <> 0
ePosWeb:ClientBrowser = 'Google/Chrome'
EXIT
END
FoundBRW# = TST5.Instring('Safari',1,1,0,1,0)
If FoundBRW# <> 0
ePosWeb:ClientBrowser = 'Safari'
EXIT
END
If ePosWeb:ClientOperatingSystem = 'Windows'
FoundBRW# = TST5.Instring('rv:',1,1,0,1,0)
If FoundBRW# <> 0
ePosWeb:ClientBrowser = 'Internet Explorer ' & sub(ePosWeb:ClientBrowserInfo,FoundBRW#,5)
EXIT
END
END
ePosWeb:ClientBrowser = 'Unknown'
! [Priority 4000]
AddToLogFile ROUTINE
If ePosWeb:RejectWebLogin = 1
LOGWEB:Field1 = Format(Today(),@d8-) & ',' & FORMAT(Clock(),@t5) & ',ACCESS REJECTED FROM INTERNET,*** Ip address : ' &CLIP(ePosWeb:Glob:ClientIPAddress) & ', O/S = ' & clip(ePosWeb:ClientOperatingSystem) & ', Browser = ' & clip(ePosWeb:ClientBrowser)
add(AWebLog)
END
!LOGWEB:Field1 = Clip(Left(ePosWeb:ClientBrowserInfo)) ! disable after testing
! add(AWebLog)
!--------------------------------------
OpenFiles ROUTINE
! Start of "OpenFiles ROUTINE, Before Opening Files"
! [Priority 5000]
! End of "OpenFiles ROUTINE, Before Opening Files"
Access:AWebLog.Open ! Open File referenced in 'Other Files' so need to inform its FileManager
Access:AWebLog.UseFile ! Use File referenced in 'Other Files' so need to inform its FileManager
FilesOpened = True
! Start of "OpenFiles ROUTINE, After Opening Files"
! [Priority 5000]
! End of "OpenFiles ROUTINE, After Opening Files"
!--------------------------------------
CloseFiles ROUTINE
! Start of "CloseFiles ROUTINE, Before Closing Files"
! [Priority 5000]
! End of "CloseFiles ROUTINE, Before Closing Files"
IF FilesOpened THEN
Access:AWebLog.Close
FilesOpened = False
END
! Start of "CloseFiles ROUTINE, After Closing Files"
! [Priority 5000]
! End of "CloseFiles ROUTINE, After Closing Files"
! [Priority 8500]
! End of "Procedure Routines"
! Start of "Local Procedures"
! [Priority 50]
! Start of "Class - New Coded Methods"
! [Priority 5000]
! End of "Class - New Coded Methods"
!----------------------------------------------------
TST5.Destruct PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Construct PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Start PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Start ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.AppendA PROCEDURE (string newValue, long pClip = false, )
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.AppendA (newValue,pClip ,pSep)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.AppendBinary PROCEDURE (long pValue,Long pLength=4)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.AppendBinary (pValue,pLength)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Append PROCEDURE (string newValue, long pClip = false, )
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Append (newValue,pClip ,pSep)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Append PROCEDURE (*string newValue, long pClip = false, )
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Append (newValue,pClip ,pSep)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetValue PROCEDURE (string newValue,long pClip=false)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetValue (newValue,pClip)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5._GetNextBufferSize PROCEDURE (Long pLen)
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT._GetNextBufferSize (pLen)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5._SetValuePointer PROCEDURE (Long pPtr,Long pSize, Long pEnd, Long pDispose=1)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT._SetValuePointer (pPtr,pSize,pEnd,pDispose)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Assign PROCEDURE (*string newValue)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Assign (newValue)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Assign PROCEDURE (string newValue)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Assign (newValue)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Abbreviate PROCEDURE (Long pPos,Long pRangeLeft = 15,Long pRangeRight = 15)
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Abbreviate (pPos,pRangeLeft ,pRangeRight )
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetValuePtr PROCEDURE ()
ReturnValue &String
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue &= PARENT.GetValuePtr ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetValue PROCEDURE (*string newValue,long pClip=false)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetValue (newValue,pClip)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Base64Encode PROCEDURE (Long pNoWrap=0)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Base64Encode (pNoWrap)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Base64Encode PROCEDURE (*string pText, *long pLen)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Base64Encode (pText,pLen)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Base64Decode PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Base64Decode ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Base64Decode PROCEDURE (*string pText, *long pLen)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Base64Decode (pText,pLen)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.QuotedPrintableEncode PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.QuotedPrintableEncode ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.QuotedPrintableDecode PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.QuotedPrintableDecode ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.EncodedWordDecode PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.EncodedWordDecode ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.EncodedWordEncode PROCEDURE (,long pEncoding=2)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.EncodedWordEncode (pCharset,pEncoding)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.JsonEncode PROCEDURE (Long pOptions=0)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.JsonEncode (pOptions)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.JsonDecode PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.JsonDecode ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Free PROCEDURE (Long pLines=False, Long pForce=false)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Free (pLines,pForce)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FreeLines PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.FreeLines ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ClipLen PROCEDURE ()
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.ClipLen ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ClipLength PROCEDURE ()
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.ClipLength ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Crop PROCEDURE (ulong pStart=1, ulong pEnd=0)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Crop (pStart,pEnd)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Instring PROCEDURE (string pSearchValue, long pStep=1, long pStart=1, long pEnd=0, long pNocase=0, long pWholeWord=0)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Instring (pSearchValue,pStep,pStart,pEnd,pNocase,pWholeWord)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Count PROCEDURE (string pSearchValue, long pStep=1, long pStart=1, long pEnd=0, long pNoCase=0, bool softClip=true, long pOverlap=true)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Count (pSearchValue,pStep,pStart,pEnd,pNoCase,softClip,pOverlap)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Capitalize PROCEDURE (long pCount=1, long pStartPos=1, long pEndPos=0,)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Capitalize (pCount,pStartPos,pEndPos,pCharlist)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ErrorTrap PROCEDURE (string methodName, string errorMessage)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.ErrorTrap (methodName,errorMessage)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ExtensionOnly PROCEDURE ()
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.ExtensionOnly (fPath)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FormatMessage PROCEDURE (long err)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.FormatMessage (err)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetValue PROCEDURE ()
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.GetValue ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetValue PROCEDURE (long maxLen)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.GetValue (maxLen)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetVal PROCEDURE ()
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.GetVal ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetLine PROCEDURE (long pLineNumber)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.GetLine (pLineNumber)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetBufferLength PROCEDURE ()
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.GetBufferLength ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.InLine PROCEDURE (string pSearchValue, long pStep=1, long pStart=1, long pEnd=0, long pNocase=0, long pWholeLine=0, long p_Where=0)
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.InLine (pSearchValue,pStep,pStart,pEnd,pNocase,pWholeLine,p_Where)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetLine PROCEDURE (long pLineNumber,String pValue)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetLine (pLineNumber,pValue)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.AddLine PROCEDURE (long pLineNumber,String pValue)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.AddLine (pLineNumber,pValue)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.DeleteLine PROCEDURE (long pLineNumber)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.DeleteLine (pLineNumber)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.RemoveLines PROCEDURE ()
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.RemoveLines (pAlphabet)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Join PROCEDURE (string pBoundary,,)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Join (pBoundary,pQuotestart,pQuoteEnd)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5._JoinA PROCEDURE (string pBoundary,,)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT._JoinA (pBoundary,pQuotestart,pQuoteEnd)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Length PROCEDURE ()
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Length ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.LengthA PROCEDURE ()
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.LengthA ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Len PROCEDURE ()
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Len ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Chars PROCEDURE (Long pEncoding=-1, )
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Chars (pEncoding,pStr)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5._Malloc PROCEDURE (Long strLen, Long pForce=false, Long pSilent=true)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT._Malloc (strLen,pForce,pSilent)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.MD5 PROCEDURE ()
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.MD5 ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Prepend PROCEDURE (string newValue, long pClip = false, )
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Prepend (newValue,pClip ,pSep)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Random PROCEDURE (long pLength=16, long pFlags=0, )
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Random (pLength,pFlags,pAlphabet)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.MakeGuid PROCEDURE (long pLength=16, long pFlags=st:Upper+st:Number)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.MakeGuid (pLength,pFlags)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Records PROCEDURE ()
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Records ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Replace PROCEDURE (string pOldValue, string pNewValue, long pCount=0, long pStart=1, long pEnd=0, long pNoCase=0, bool pRecursive=false)
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Replace (pOldValue,pNewValue,pCount,pStart,pEnd,pNoCase,pRecursive)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetLength PROCEDURE (Long strLen, Long pForce=false)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetLength (strLen,pForce)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Slice PROCEDURE (ulong pStart=1, ulong pEnd=0)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Slice (pStart,pEnd)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Split PROCEDURE (string pSplitStr,,, bool removeQuotes = false, bool pClip = false, bool pLeft=false, ,Long pNested=false)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Split (pSplitStr,pQuotestart,pQuoteEnd,removeQuotes ,pClip ,pLeft,pSeparator,pNested)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Sort PROCEDURE (Long pSortType,string pSplitStr,,, bool pClip = false, bool pLeft=false)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Sort (pSortType,pSplitStr,pQuotestart,pQuoteEnd,pClip ,pLeft)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Sort PROCEDURE (Long pSortType)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Sort (pSortType)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SplitEvery PROCEDURE (long numChars)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SplitEvery (numChars)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Filter PROCEDURE (string pInclude, string pExclude)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Filter (pInclude,pExclude)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Sub PROCEDURE (ulong pStart=1, ulong pLength=1)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Sub (pStart,pLength)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToCstring PROCEDURE ()
ReturnValue &cstring
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue &= PARENT.ToCstring ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Trace PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Trace (errMsg)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Upper PROCEDURE (, )
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Upper (pQuote,pQuoteEnd)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Lower PROCEDURE (, )
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Lower (pQuote,pQuoteEnd)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FileNameOnly PROCEDURE (,Long pIncludeExtension=true)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.FileNameOnly (fPath,pIncludeExtension)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.PathOnly PROCEDURE ()
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.PathOnly (fPath)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.LoadFile PROCEDURE (string fileName,Long pOffset=0, Long pLength=0, Long pRemoveBOM=false)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.LoadFile (fileName,pOffset,pLength,pRemoveBOM)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SaveFile PROCEDURE (string fileName, bool pAppendFlag=false)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.SaveFile (fileName,pAppendFlag)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SaveFile PROCEDURE (*string WriteString, string fileName, bool pAppendFlag, long dataLen=0)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.SaveFile (WriteString,fileName,pAppendFlag,dataLen)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SaveFileA PROCEDURE (string WriteString, string fileName, bool pAppendFlag=false)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.SaveFileA (WriteString,fileName,pAppendFlag)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetEncodingFromBOM PROCEDURE (Long pRemoveBOM=true)
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.SetEncodingFromBOM (pRemoveBOM)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.AddBOM PROCEDURE (Long pEncoding=-1)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.AddBOM (pEncoding)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Before PROCEDURE (string pSearchValue, long pStart=1, long pEnd=0, long pNoCase=0)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Before (pSearchValue,pStart,pEnd,pNoCase)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Between PROCEDURE (string pLeft, string pRight,long pStart=1, long pEnd=0, long pNoCase=0, long pExclusive=true)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Between (pLeft,pRight,pStart,pEnd,pNoCase,pExclusive)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FindBetween PROCEDURE (string pLeft, string pRight, *long pStart, *long pEnd, bool pNoCase=false, long pExclusive=true)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.FindBetween (pLeft,pRight,pStart,pEnd,pNoCase,pExclusive)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.After PROCEDURE (string pSearchValue, long pStart=1, long pEnd=0, long pNoCase=0)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.After (pSearchValue,pStart,pEnd,pNoCase)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToBlob PROCEDURE (*blob blobField)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.ToBlob (blobField)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FromBlob PROCEDURE (*blob blobField)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.FromBlob (blobField)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.AnsiToUtf16 PROCEDURE (*string strAnsi, *long unicodeChars, ulong CodePage=st:CP_US_ASCII)
ReturnValue &string
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue &= PARENT.AnsiToUtf16 (strAnsi,unicodeChars,CodePage)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Utf16ToAnsi PROCEDURE (*string unicodeString, *long ansiLen, long unicodeChars=-1, ulong CodePage=st:CP_US_ASCII)
ReturnValue &string
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue &= PARENT.Utf16ToAnsi (unicodeString,ansiLen,unicodeChars,CodePage)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Utf8To16 PROCEDURE (*string strUtf8, *long unicodeChars)
ReturnValue &string
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue &= PARENT.Utf8To16 (strUtf8,unicodeChars)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Utf16To8 PROCEDURE (*string unicodeString, *long utf8Len, long unicodeChars=-1)
ReturnValue &string
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue &= PARENT.Utf16To8 (unicodeString,utf8Len,unicodeChars)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Utf8ToAnsi PROCEDURE (*string strUtf8, *long ansiLen, ulong pCodePage=st:CP_US_ASCII)
ReturnValue &string
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue &= PARENT.Utf8ToAnsi (strUtf8,ansiLen,pCodePage)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.AnsiToUtf8 PROCEDURE (*string strAnsi, *long utf8Len, ulong pCodePage=st:CP_US_ASCII)
ReturnValue &string
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue &= PARENT.AnsiToUtf8 (strAnsi,utf8Len,pCodePage)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.apiUtf8ToAnsi PROCEDURE (*string strUtf8, *long ansiLen)
ReturnValue &string
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue &= PARENT.apiUtf8ToAnsi (strUtf8,ansiLen)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.apiAnsiToUtf8 PROCEDURE (*string strAnsi, *long utf8Len)
ReturnValue &string
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue &= PARENT.apiAnsiToUtf8 (strAnsi,utf8Len)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToAnsi PROCEDURE (long encoding=0, ulong pCodePage=st:CP_US_ASCII)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.ToAnsi (encoding,pCodePage)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToUnicode PROCEDURE (long encoding=st:EncodeUtf8, ulong pCodePage=st:CP_US_ASCII)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.ToUnicode (encoding,pCodePage)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.DecodeHexInline PROCEDURE (ulong pCodePage=st:CP_US_ASCII)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.DecodeHexInline (pCodePage)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.DecodeHexInline PROCEDURE (string pId, Long pLength, ulong pCodePage=st:CP_US_ASCII)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.DecodeHexInline (pId,pLength,pCodePage)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Utf16ToUtf8Char PROCEDURE (String p_utf16Char,*Long rLen)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Utf16ToUtf8Char (p_utf16Char,rLen)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Normalize PROCEDURE (Long pForm=st:NFKD,Long pPreserveEncoding=true)
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Normalize (pForm,pPreserveEncoding)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.DecToBase PROCEDURE (long num, long base=16, long lowerCase=1)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.DecToBase (num,base,lowerCase)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.BaseToDec PROCEDURE (string num, long base=16)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.BaseToDec (num,base)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ByteToHex PROCEDURE (byte pByte)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.ByteToHex (pByte)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.HexToByte PROCEDURE (string hexVal)
ReturnValue byte
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.HexToByte (hexVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.LongToHex PROCEDURE (long pLong)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.LongToHex (pLong)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.StringToHex PROCEDURE (string binData,Long pLen=0,Long pCase=0)
ReturnValue &string
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue &= PARENT.StringToHex (binData,pLen,pCase)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.HexToString PROCEDURE (string hexData)
ReturnValue &string
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue &= PARENT.HexToString (hexData)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToHex PROCEDURE (Long pCase=0)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.ToHex (pCase)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FromHex PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.FromHex ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.WrapText PROCEDURE (long wrapAt=80, bool keepExistingBreaks=true, bool pleft=false)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.WrapText (wrapAt,keepExistingBreaks,pleft)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.StrCpy PROCEDURE (*string pIn, *string pOut, bool pClip = true)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.StrCpy (pIn,pOut,pClip )
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToBytes PROCEDURE (*byte pVal, *string bVals)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.ToBytes (pVal,bVals)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToBytes PROCEDURE (*short pVal, *string bVals)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.ToBytes (pVal,bVals)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToBytes PROCEDURE (*ushort pVal, *string bVals)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.ToBytes (pVal,bVals)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToBytes PROCEDURE (*long pVal, *string bVals)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.ToBytes (pVal,bVals)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToBytes PROCEDURE (*ulong pVal, *string bVals)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.ToBytes (pVal,bVals)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToBytes PROCEDURE (*sreal pVal, *string bVals)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.ToBytes (pVal,bVals)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToBytes PROCEDURE (*real pVal, *string bVals)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.ToBytes (pVal,bVals)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToBytes PROCEDURE (*decimal pVal, *string bVals)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.ToBytes (pVal,bVals)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToBytes PROCEDURE (*cstring pVal, *string bVals)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.ToBytes (pVal,bVals)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ToBytes PROCEDURE (*string pVal, *string bVals)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.ToBytes (pVal,bVals)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FromBytes PROCEDURE (*string bVals, *byte pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.FromBytes (bVals,pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FromBytes PROCEDURE (*string bVals, *short pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.FromBytes (bVals,pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FromBytes PROCEDURE (*string bVals, *ushort pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.FromBytes (bVals,pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FromBytes PROCEDURE (*string bVals, *long pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.FromBytes (bVals,pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FromBytes PROCEDURE (*string bVals, *ulong pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.FromBytes (bVals,pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FromBytes PROCEDURE (*string bVals, *sreal pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.FromBytes (bVals,pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FromBytes PROCEDURE (*string bVals, *real pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.FromBytes (bVals,pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FromBytes PROCEDURE (*string bVals, *decimal pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.FromBytes (bVals,pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FromBytes PROCEDURE (*string bVals, *cstring pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.FromBytes (bVals,pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FromBytes PROCEDURE (*string bVals, *string pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.FromBytes (bVals,pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FromBytes PROCEDURE (*string bVals, *pstring pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.FromBytes (bVals,pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetBytes PROCEDURE (*byte pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetBytes PROCEDURE (*short pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetBytes PROCEDURE (*ushort pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetBytes PROCEDURE (*long pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetBytes PROCEDURE (*ulong pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetBytes PROCEDURE (*sreal pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetBytes PROCEDURE (*real pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetBytes PROCEDURE (*decimal pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetBytes PROCEDURE (*cstring pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetBytes PROCEDURE (*string pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetBytes PROCEDURE (*pstring pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetBytes PROCEDURE (*byte pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.GetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetBytes PROCEDURE (*short pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.GetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetBytes PROCEDURE (*ushort pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.GetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetBytes PROCEDURE (*long pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.GetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetBytes PROCEDURE (*ulong pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.GetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetBytes PROCEDURE (*sreal pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.GetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetBytes PROCEDURE (*real pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.GetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetBytes PROCEDURE (*decimal pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.GetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetBytes PROCEDURE (*cstring pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.GetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetBytes PROCEDURE (*string pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.GetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetBytes PROCEDURE (*pstring pVal)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.GetBytes (pVal)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetBytes PROCEDURE (*? pVal, string pType)
ReturnValue bool
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.SetBytes (pVal,pType)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetBytes PROCEDURE (*? pVal, string pType)
ReturnValue bool
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.GetBytes (pVal,pType)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FindWord PROCEDURE (long pWordNumber,long startPos = -1, long textType=ST:TEXT,*Long pStart, *Long pEnd,)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.FindWord (pWordNumber,startPos ,textType,pStart,pEnd,pCharlist)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.GetWord PROCEDURE (long pWordNumber,long startPos = -1, long textType=ST:TEXT, )
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.GetWord (pWordNumber,startPos ,textType,pCharlist)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.WordStart PROCEDURE (long pStartPos=1, long textType=ST:TEXT,Long pDir=st:Forwards,)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.WordStart (pStartPos,textType,pDir,pCharlist)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.WordEnd PROCEDURE (long pStartPos=1, long textType=ST:TEXT,)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.WordEnd (pStartPos,textType,pCharlist)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.CountWords PROCEDURE (long startPos = 1, long textType=ST:TEXT,)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.CountWords (startPos ,textType,pCharlist)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.RemoveAttributes PROCEDURE (String pTag)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.RemoveAttributes (pTag)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.RemoveXMLPrefixes PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.RemoveXMLPrefixes ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.HtmlEntityToDec PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.HtmlEntityToDec ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.DecEntityToChar PROCEDURE ()
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.DecEntityToChar ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Remove PROCEDURE (string pLeft,,long pNoCase=0,long pContentsOnly=0, long pCount=0)
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Remove (pLeft,pRight,pNoCase,pContentsOnly,pCount)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Clip PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Clip ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Trim PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Trim ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Left PROCEDURE (Long pLength=0,Long pwhat=1,)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Left (pLength,pwhat,pPad)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetLeft PROCEDURE (Long pLength=0,Long pwhat=1,)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetLeft (pLength,pwhat,pPad)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Right PROCEDURE (Long pLength=0,Long pwhat=1,)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Right (pLength,pwhat,pPad)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetRight PROCEDURE (Long pLength=0,Long pwhat=1,)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetRight (pLength,pwhat,pPad)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.All PROCEDURE (Long pLength=255)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.All (pLength)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetAll PROCEDURE (Long pLength=255)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetAll (pLength)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Squeeze PROCEDURE (long textType=ST:TEXT,)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Squeeze (textType,pCharlist)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ContainsADigit PROCEDURE ()
ReturnValue bool
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.ContainsADigit ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.IsAllDigits PROCEDURE ()
ReturnValue bool
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.IsAllDigits ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ContainsA PROCEDURE (String pAlphabet, ,Long pClip=true)
ReturnValue bool
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.ContainsA (pAlphabet,pTestString,pClip)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.IsAll PROCEDURE (String pAlphabet, ,Long pClip=true)
ReturnValue bool
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.IsAll (pAlphabet,pTestString,pClip)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.RemoveChars PROCEDURE (String pAlphabet)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.RemoveChars (pAlphabet)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.KeepChars PROCEDURE (String pAlphabet)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.KeepChars (pAlphabet)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5._SwitchEndian PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT._SwitchEndian ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.BigEndian PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.BigEndian ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.LittleEndian PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.LittleEndian ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SwitchEndian PROCEDURE (ulong x)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.SwitchEndian (x)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.BigEndian PROCEDURE (ulong x)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.BigEndian (x)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.LittleEndian PROCEDURE (ulong x)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.LittleEndian (x)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ReverseByteOrder PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.ReverseByteOrder ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Str PROCEDURE ()
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Str ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Str PROCEDURE (string newValue)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Str (newValue)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Str PROCEDURE (*string newValue)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.Str (newValue)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.SetSlice PROCEDURE (ulong pStart=1, ulong pEnd=0, string newValue)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.SetSlice (pStart,pEnd,newValue)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Insert PROCEDURE (long pStart, string insertValue)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Insert (pStart,insertValue)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.Quote PROCEDURE (,)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.Quote (pQuotestart,pQuoteEnd)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.UnQuote PROCEDURE (,)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.UnQuote (pQuotestart,pQuoteEnd)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FindChar PROCEDURE (string pSearchValue, long pStart=1, long pEnd=0, )
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.FindChar (pSearchValue,pStart,pEnd,p_Text)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FindChars PROCEDURE (*string pSearchValue, long pStart=1, long pEnd=0, )
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.FindChars (pSearchValue,pStart,pEnd,p_Text)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FindChars PROCEDURE (string pSearchValue, long pStart=1, long pEnd=0, )
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.FindChars (pSearchValue,pStart,pEnd,p_Text)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ColorToHex PROCEDURE (long claColor, bool addHash=false)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.ColorToHex (claColor,addHash)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.ColorFromHex PROCEDURE (string hexCol)
ReturnValue long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.ColorFromHex (hexCol)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.UrlEncode PROCEDURE (long flags =0,,)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.UrlEncode (flags ,pDelimiter,pSpace)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.UrlDecode PROCEDURE (,)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.UrlDecode (pDelimiter,pSpace)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.CleanFileName PROCEDURE (, )
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.CleanFileName (pFileName,pReplaceChar)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.PeekRam PROCEDURE (uLong pAdr,Long pLen)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.PeekRam (pAdr,pLen)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.loadlibs PROCEDURE ()
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.loadlibs ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.LoadNormalize PROCEDURE ()
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.LoadNormalize ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.gzip PROCEDURE (Long pLevel=5)
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.gzip (pLevel)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.gunzip PROCEDURE ()
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.gunzip ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.MergeXml PROCEDURE (String pNew, Long pWhere)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.MergeXml (pNew,pWhere)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.LineEndings PROCEDURE (Long pEndings=1)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.LineEndings (pEndings)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.IsTime PROCEDURE (String pValue)
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.IsTime (pValue)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.IsTime PROCEDURE ()
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.IsTime ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.DeformatTime PROCEDURE (String pValue)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.DeformatTime (pValue)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.DeformatTime PROCEDURE ()
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.DeformatTime ()
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FormatTime PROCEDURE (String pFormat)
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
PARENT.FormatTime (pFormat)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.FormatTime PROCEDURE (Long pValue,string pFormat)
ReturnValue any
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.FormatTime (pValue,pFormat)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.StartsWith PROCEDURE (String pStr,Long pCase=True,Long pClip=True)
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.StartsWith (pStr,pCase,pClip)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
!----------------------------------------------------
TST5.EndsWith PROCEDURE (String pStr,Long pCase=True,Long pClip=True)
ReturnValue Long
! Start of "Class Method - Data Section"
! [Priority 5000]
! End of "Class Method - Data Section"
CODE
! Start of "Class Method - Executable Code Section"
! [Priority 2500]
! Parent Call
ReturnValue = PARENT.EndsWith (pStr,pCase,pClip)
! [Priority 7500]
! End of "Class Method - Executable Code Section"
Return ReturnValue
! Start of "Class Method - Routines Section"
! [Priority 5000]
! End of "Class Method - Routines Section"
! [Priority 8500]
! End of "Local Procedures"