135 lines
4.2 KiB
Odin
135 lines
4.2 KiB
Odin
package grime
|
|
|
|
import "base:runtime"
|
|
import "core:fmt"
|
|
import "core:mem"
|
|
import "core:os"
|
|
import str "core:strings"
|
|
import "core:time"
|
|
import core_log "core:log"
|
|
|
|
Max_Logger_Message_Width :: 180
|
|
|
|
LogLevel :: core_log.Level
|
|
|
|
Logger :: struct {
|
|
file_path : string,
|
|
file : os.Handle,
|
|
id : string,
|
|
}
|
|
|
|
to_odin_logger :: proc( logger : ^ Logger ) -> core_log.Logger {
|
|
return { logger_interface, logger, core_log.Level.Debug, core_log.Default_File_Logger_Opts }
|
|
}
|
|
|
|
logger_init :: proc( logger : ^ Logger, id : string, file_path : string, file := os.INVALID_HANDLE )
|
|
{
|
|
if file == os.INVALID_HANDLE
|
|
{
|
|
logger_file, result_code := file_open( file_path, os.O_RDWR | os.O_CREATE )
|
|
assert( result_code == os.ERROR_NONE, "Log failures are fatal and must never occur at runtime (there is no logging)" )
|
|
logger.file = logger_file
|
|
os.truncate( file_path, 0 )
|
|
}
|
|
else {
|
|
logger.file = file
|
|
}
|
|
logger.file_path = file_path
|
|
logger.id = id
|
|
|
|
context.logger = { logger_interface, logger, core_log.Level.Debug, core_log.Default_File_Logger_Opts }
|
|
log("Initialized Logger")
|
|
when false {
|
|
log("This sentence is over 80 characters long on purpose to test the ability of this logger to properfly wrap long as logs with a new line and then at the end of that pad it with the appropraite signature.")
|
|
}
|
|
}
|
|
|
|
logger_interface :: proc(
|
|
logger_data : rawptr,
|
|
level : core_log.Level,
|
|
text : string,
|
|
options : core_log.Options,
|
|
location := #caller_location )
|
|
{
|
|
logger := cast(^ Logger) logger_data
|
|
|
|
@static builder_backing : [16 * Kilobyte] byte; {
|
|
mem.set( raw_data( builder_backing[:] ), 0, len(builder_backing) )
|
|
}
|
|
builder := str.builder_from_bytes( builder_backing[:] )
|
|
|
|
first_line_length := len(text) > Max_Logger_Message_Width ? Max_Logger_Message_Width : len(text)
|
|
first_line := transmute(string) text[ 0 : first_line_length ]
|
|
// str_fmt_builder( & builder, "%-s ", Max_Logger_Message_Width, first_line )
|
|
str_fmt_builder( & builder, "%-180s ", first_line )
|
|
|
|
// Signature
|
|
{
|
|
when time.IS_SUPPORTED
|
|
{
|
|
if core_log.Full_Timestamp_Opts & options != nil {
|
|
str_fmt_builder( & builder, "[")
|
|
|
|
t := time.now()
|
|
year, month, day := time.date(t)
|
|
hour, minute, second := time.clock(t)
|
|
|
|
if .Date in options {
|
|
str_fmt_builder( & builder, "%d-%02d-%02d ", year, month, day )
|
|
}
|
|
if .Time in options {
|
|
str_fmt_builder( & builder, "%02d:%02d:%02d", hour, minute, second)
|
|
}
|
|
|
|
str_fmt_builder( & builder, "] ")
|
|
}
|
|
}
|
|
core_log.do_level_header( options, & builder, level )
|
|
|
|
if logger.id != "" {
|
|
str_fmt_builder( & builder, "[%s] ", logger.id )
|
|
}
|
|
core_log.do_location_header( options, & builder, location )
|
|
}
|
|
|
|
// Oversized message handling
|
|
if len(text) > Max_Logger_Message_Width
|
|
{
|
|
offset := Max_Logger_Message_Width
|
|
bytes := transmute( []u8 ) text
|
|
for left := len(bytes) - Max_Logger_Message_Width; left > 0; left -= Max_Logger_Message_Width
|
|
{
|
|
str_fmt_builder( & builder, "\n" )
|
|
subset_length := len(text) - offset
|
|
if subset_length > Max_Logger_Message_Width {
|
|
subset_length = Max_Logger_Message_Width
|
|
}
|
|
subset := slice_ptr( ptr_offset( raw_data(bytes), offset), subset_length )
|
|
str_fmt_builder( & builder, "%s", transmute(string) subset )
|
|
offset += Max_Logger_Message_Width
|
|
}
|
|
}
|
|
|
|
str_to_file_ln( logger.file, to_string(builder) )
|
|
}
|
|
|
|
// This buffer is used below excluisvely to prevent any allocator recusion when verbose logging from allocators.
|
|
// This means a single line is limited to 32k buffer (increase naturally if this SOMEHOW becomes a bottleneck...)
|
|
Logger_Allocator_Buffer : [32 * Kilobyte]u8
|
|
|
|
log :: proc( msg : string, level := LogLevel.Info, loc := #caller_location ) {
|
|
temp_arena : Arena; arena_init(& temp_arena, Logger_Allocator_Buffer[:])
|
|
context.allocator = arena_allocator(& temp_arena)
|
|
context.temp_allocator = arena_allocator(& temp_arena)
|
|
|
|
core_log.log( level, msg, location = loc )
|
|
}
|
|
|
|
logf :: proc( fmt : string, args : ..any, level := LogLevel.Info, loc := #caller_location ) {
|
|
temp_arena : Arena; arena_init(& temp_arena, Logger_Allocator_Buffer[:])
|
|
context.allocator = arena_allocator(& temp_arena)
|
|
context.temp_allocator = arena_allocator(& temp_arena)
|
|
|
|
core_log.logf( level, fmt, ..args, location = loc )
|
|
}
|