-best_known_origin(
- ?T
- { pid = _Pid
- , registered_name = none
- , raw_initial_call = InitCallRaw
- , otp_initial_call = InitCallOTPOpt1
- , otp_ancestors = AncestorsOpt1
- , status = _Status
- , memory = _Memory
- , total_heap_size = _TotalHeapSize
- , stack_size = _StackSize
- , message_queue_len = _MsgQueueLen
- }
-) ->
- ToSingleton = fun (X) -> [X] end,
- InitCallOTPOpt2 = hope_option:map(InitCallOTPOpt1, ?TAG(otp_initial_call)),
- AncestorsOpt2 = hope_option:map(AncestorsOpt1 , ?TAG(otp_ancestors)),
- InitCallOTPOpt3 = hope_option:map(InitCallOTPOpt2, ToSingleton),
- AncestorsOpt3 = hope_option:map(AncestorsOpt2 , ToSingleton),
- MaybeInitCallOTP = hope_option:get(InitCallOTPOpt3, []),
- MaybeAncestors = hope_option:get(AncestorsOpt3 , []),
- Ancestry =
- [{raw_initial_call, InitCallRaw}] ++
- MaybeInitCallOTP ++
- MaybeAncestors,