Add lhs_log to the free (LGPL) usability
This commit is contained in:
parent
f3011b04d7
commit
8013677c37
1 changed files with 177 additions and 0 deletions
177
SYS/lhs_log.pbi
Normal file
177
SYS/lhs_log.pbi
Normal file
|
|
@ -0,0 +1,177 @@
|
|||
;**************************************
|
||||
;*
|
||||
;* lhs_log.pbi
|
||||
;*
|
||||
;* (c) by René Linder
|
||||
;* (c) by Linder Hard- und Software
|
||||
;*
|
||||
;* Lizenz LGPL V2.1
|
||||
|
||||
;{ Short Documentation:
|
||||
;*
|
||||
;* lhs_log::App_Name = "Test App"
|
||||
;* lhs_log::SetLogFile("test_app.log"))
|
||||
;* lhs_log::SetMaxSize(32)
|
||||
;* lhs_log::SetLogDateFormat("%yyyy.%mm.%dd %hh:%ii:%ss")
|
||||
;* lhs_log::SetLogFileDateFormat("%yyyy_%mm_%dd_%hh_%ii_%ss")
|
||||
;* lhs_log::Init()
|
||||
;* lhs_log::Out("Log started.", #lhs_log::#Debug)
|
||||
;* lhs_log::Close()
|
||||
;}
|
||||
CompilerIf #PB_Compiler_Thread <> 1
|
||||
CompilerError "Muss Threadsafe Kompiliert werden"
|
||||
;Need to be compiled threadsafe
|
||||
CompilerEndIf
|
||||
|
||||
DeclareModule lhs_log
|
||||
Global.s App_Name = "lhs_Logger"
|
||||
#Debug = 1
|
||||
#NoDebug = 0
|
||||
|
||||
Declare SetLogFile(LogFileName.s)
|
||||
Declare SetMaxSize(Megabyte.i)
|
||||
Declare SetLogFileDateFormat(DateFormat.s)
|
||||
Declare SetLogDateFormat(DateFormat.s)
|
||||
Declare Init()
|
||||
Declare Out(ToLog.s, debugger.i = #NoDebug)
|
||||
Declare Close()
|
||||
EndDeclareModule
|
||||
|
||||
Module lhs_log
|
||||
Global File_ID.i
|
||||
CompilerIf #PB_Compiler_OS = #PB_OS_Linux
|
||||
Global LogFile.s = "/var/log/"+App_Name+".log"
|
||||
CompilerElseIf #PB_Compiler_OS = #PB_OS_Windows
|
||||
Global LogFile.s = GetPathPart(ProgramFilename())+App_Name+ ".log"
|
||||
CompilerElse
|
||||
CompilerError "Andere Betriebssysteme als Windows und Linux werden nicht unterstützt"
|
||||
;Other Operatingsystems than Windows and Linux are currently unsupported
|
||||
CompilerEndIf
|
||||
|
||||
Global Exit.i = 0
|
||||
Global Mutex = CreateMutex()
|
||||
Global Semaphore = CreateSemaphore()
|
||||
Global ExitSemaphore = CreateSemaphore()
|
||||
Global MaxSize.q = 32 * 1024 * 1024
|
||||
Global LastSize.q = 0
|
||||
Global LogFileDateFormat.s = "%yyyy_%mm_%dd_%hh_%ii_%ss"
|
||||
Global LogDateFormat.s = "%yyyy.%mm.%dd %hh:%ii:%ss"
|
||||
Global NewList Messages.s()
|
||||
|
||||
Procedure SetMaxSize(Megabyte.i)
|
||||
If Megabyte > 0 And Megabyte < 1025
|
||||
MaxSize = Megabyte * 1024 * 1024
|
||||
Else
|
||||
MaxSize = 32 * 1024 * 1024
|
||||
EndIf
|
||||
EndProcedure
|
||||
|
||||
Procedure SetLogFile(LogFileName.s)
|
||||
Protected.i TestFile_ID
|
||||
|
||||
TestFile_ID = OpenFile(#PB_Any, LogFileName, #PB_File_Append | #PB_File_NoBuffering)
|
||||
If IsFile(TestFile_ID)
|
||||
LogFile = LogFileName
|
||||
CloseFile(TestFile_ID)
|
||||
ProcedureReturn #True
|
||||
Else
|
||||
ProcedureReturn #False
|
||||
EndIf
|
||||
EndProcedure
|
||||
|
||||
Procedure SetLogFileDateFormat(DateFormat.s)
|
||||
If Len(DateFormat)>4
|
||||
LogFileDateFormat = DateFormat
|
||||
EndIf
|
||||
EndProcedure
|
||||
|
||||
Procedure SetLogDateFormat(DateFormat.s)
|
||||
If Len(DateFormat)>4
|
||||
LogDateFormat = DateFormat
|
||||
EndIf
|
||||
EndProcedure
|
||||
|
||||
Procedure CheckMaxSize()
|
||||
If LastSize = 0
|
||||
LastSize = FileSize(LogFile)
|
||||
EndIf
|
||||
|
||||
ProcedureReturn Bool(LastSize < MaxSize)
|
||||
EndProcedure
|
||||
|
||||
Procedure UpdateLastSizeString(String.s)
|
||||
LastSize + StringByteLength(String.s)
|
||||
EndProcedure
|
||||
|
||||
Procedure LogThread(nix)
|
||||
Shared Mutex
|
||||
Define ToWrite.s
|
||||
File_ID = OpenFile(#PB_Any, LogFile, #PB_File_Append | #PB_File_NoBuffering)
|
||||
If IsFile(File_ID)
|
||||
Repeat
|
||||
WaitSemaphore(Semaphore)
|
||||
If Exit = 1
|
||||
LockMutex(Mutex)
|
||||
If ListSize(Messages()) > 0
|
||||
Repeat
|
||||
FirstElement(Messages())
|
||||
ToWrite = FormatDate(LogDateFormat, Date()) + " - " + Messages()
|
||||
UpdateLastSizeString(ToWrite):WriteStringN(File_ID, ToWrite)
|
||||
DeleteElement(Messages())
|
||||
Until ListSize(Messages()) = 0
|
||||
EndIf
|
||||
CloseFile(File_ID)
|
||||
UnlockMutex(Mutex)
|
||||
Break
|
||||
Else
|
||||
LockMutex(Mutex)
|
||||
FirstElement(Messages())
|
||||
ToWrite = FormatDate(LogDateFormat, Date()) + " - " + Messages()
|
||||
UpdateLastSizeString(ToWrite)
|
||||
If Not CheckMaxSize()
|
||||
CloseFile(File_ID)
|
||||
If CopyFile(LogFile, LogFile+FormatDate(LogFileDateFormat, Date()))
|
||||
DeleteFile(LogFile)
|
||||
EndIf
|
||||
File_ID = OpenFile(#PB_Any, LogFile, #PB_File_Append | #PB_File_NoBuffering)
|
||||
EndIf
|
||||
WriteStringN(File_ID, ToWrite)
|
||||
DeleteElement(Messages())
|
||||
UnlockMutex(Mutex)
|
||||
EndIf
|
||||
ForEver
|
||||
SignalSemaphore(ExitSemaphore)
|
||||
EndIf
|
||||
EndProcedure
|
||||
|
||||
Procedure Init()
|
||||
File_ID = OpenFile(#PB_Any, LogFile, #PB_File_Append | #PB_File_NoBuffering)
|
||||
If IsFile(File_ID)
|
||||
CloseFile(File_ID)
|
||||
Else
|
||||
ProcedureReturn #False
|
||||
EndIf
|
||||
CreateThread(@LogThread(), 1)
|
||||
ProcedureReturn #True
|
||||
EndProcedure
|
||||
|
||||
Procedure Out(ToLog.s, debugger.i = #NoDebug)
|
||||
Shared Mutex
|
||||
LockMutex(Mutex)
|
||||
LastElement(Messages())
|
||||
AddElement(Messages())
|
||||
Messages() = ToLog
|
||||
If debugger = #Debug
|
||||
Debug ToLog
|
||||
EndIf
|
||||
UnlockMutex(Mutex)
|
||||
SignalSemaphore(Semaphore)
|
||||
EndProcedure
|
||||
|
||||
Procedure Close()
|
||||
Exit=1
|
||||
SignalSemaphore(Semaphore)
|
||||
WaitSemaphore(ExitSemaphore)
|
||||
EndProcedure
|
||||
|
||||
EndModule
|
||||
Loading…
Reference in a new issue