PB_Includes/lhs_lib
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Dump syntaxerror fixed and readed Debug Possibility on premise in coding time

Browse source
This commit is contained in:
René Linder 2022-02-21 08:34:43 +01:00
parent 5e8359cdc1
commit 36c8ea1ac5
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
SYS/lhs_log_ext.pbi
View file

@ -68,7 +68,7 @@ DeclareModule lhs_log_ext
#Error
#Warning
#Info
#Debug
#Debugging
EndEnumeration
Declare IsCreated(UUID.s)
@ -287,7 +287,7 @@ Module lhs_log_ext
EndIf
EndProcedure
Procedure Out(UUID.s, ToLog.s)
Procedure Out(UUID.s, ToLog.s, debugger.i = #NoDebug)
If IsCreated(UUID)
LockMutex(Logger(UUID)\Mutex)
LastElement(Logger(UUID)\Messages())
@ -304,9 +304,13 @@ Module lhs_log_ext
EndIf
EndProcedure
Procedure OutL(UUID.s, LogType.i, ToLog.s)
Procedure OutL(UUID.s, LogType.i, ToLog.s, debugger.i = #NoDebug)
If IsCreated(UUID)
If LogType <= Logger(UUID)\LogLevel
If debugger = #Debug
LogType = #Debugging
EndIf
If LogType <= Logger(UUID)\LogLevel Or debugger = #Debug
Select LogType
Case #Info
ToLog = "Info: " + ToLog
@ -314,8 +318,10 @@ Module lhs_log_ext
ToLog = "Warning: " + ToLog
Case #Error
ToLog = "Error: " + ToLog
Case #Debugging
ToLog = "Debug: " + ToLog
Default
ToLog = "Error: " + ToLog
ToLog = "Debug: " + ToLog
EndSelect
Out(UUID, ToLog, debugger)
ProcedureReturn #True