!!! !!! 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"