Dump syntaxerror fixed and readed Debug Possibility on premise in coding time
This commit is contained in:
parent
5e8359cdc1
commit
36c8ea1ac5
1 changed files with 11 additions and 5 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue