P
тогда уж так
let myLog =
#if DEBUG
ignore
#else
Printf.kprintf
#endif
Size: a a a
2020 August 01
P
P
или наоборот
Dv
или наоборот
Ну да, на самом деле надо наоборот, это я в своём примере ошибся :)
VS
ещё есть вариант не юзать kprintf :)
AD
let myLog =
#if DEBUG
ignore
#else
Printf.kprintf
#endif
А так он резолвит типы?
P
так же как и тут
let myLog =
if debug then ignore
else Printf.kprintf
P
ему какая разница?
Dv
так же как и тут
let myLog =
if debug then ignore
else Printf.kprintf
Ну, тут не работает ничо
NM
интрестинг
Хтя не где-то отвалвиается
P
блин.. ща студию заведу
AD
ему какая разница?
TextWriterFormat<_> это же необычный тип
AD
Он выводится по особому
Dv
Играюсь вот с этим сэмплом, но пока не понял, как заинлайнить логгер внутрь
logPrintf
Dv
О, вроде вышло, щас покажу.
P
let myLog (x : '_a when '_a :> Printf.StringFormat<'_b,unit>) =
#if ! DEBUG
Printf.kprintf (printfn "%s") x
#else
Unchecked.defaultof<_>
#endif
P
myLog "%s sss %i" "aa" 11не чет не так
Dv
open System
let mutable debug = true
let debugLog (format: Printf.StringFormat<'a, unit>): 'a =
Printf.kprintf (
fun s -> if debug then printfn "%A: %s" DateTime.Now s
) format
[<EntryPoint>]
let main _ =
debugLog "This: %s" "foo"
debugLog "That: %d - %d = %d" 2 2 4
debug <- false
debugLog "Invisible! %s" "haha"
debug <- true
debugLog "Visible"
0
NM
open System
let mutable debug = true
let debugLog (format: Printf.StringFormat<'a, unit>): 'a =
Printf.kprintf (
fun s -> if debug then printfn "%A: %s" DateTime.Now s
) format
[<EntryPoint>]
let main _ =
debugLog "This: %s" "foo"
debugLog "That: %d - %d = %d" 2 2 4
debug <- false
debugLog "Invisible! %s" "haha"
debug <- true
debugLog "Visible"
0
Ну это боян
NM
Строка то все равно аллоцируется