- require libs/xstring/xstring.4th
-
- require extensions.4th
-
- 0 variable! logfd
-
- : (log-filepath) ( -- str )
- CONFIG_LOG_DIR pad xplace
- 0 time to-string pad +xplace
- s" .log" pad +xplace
- pad xcount ;
-
- (log-filepath) sconstant log-filepath
-
- : logger.open ( -- )
- log-filepath r/w create-file throw logfd ! ;
- : logger.close ( -- )
- logfd @ close-file drop ;
-
- : logger.flush ( -- )
- logfd @ flush-file drop ;
-
- : logger.log ( str -- )
- logfd @ 0<> IF
- logfd @ write-file drop
- ELSE
- 2drop
- THEN ;
|