|
| 1 | +type t = { |
| 2 | + contractName: string, |
| 3 | + eventName: string, |
| 4 | + mutable handler: option<Internal.handler>, |
| 5 | + mutable contractRegister: option<Internal.contractRegister>, |
| 6 | + mutable eventOptions: option<Internal.eventOptions<Js.Json.t>>, |
| 7 | +} |
| 8 | + |
| 9 | +let getHandler = (t: t) => t.handler |
| 10 | + |
| 11 | +let getContractRegister = (t: t) => t.contractRegister |
| 12 | + |
| 13 | +let getEventFilters = (t: t) => t.eventOptions->Belt.Option.flatMap(value => value.eventFilters) |
| 14 | + |
| 15 | +let isWildcard = (t: t) => |
| 16 | + t.eventOptions->Belt.Option.flatMap(value => value.wildcard)->Belt.Option.getWithDefault(false) |
| 17 | + |
| 18 | +let hasRegistration = ({handler, contractRegister}) => |
| 19 | + handler->Belt.Option.isSome || contractRegister->Belt.Option.isSome |
| 20 | + |
| 21 | +let make = (~contractName, ~eventName) => { |
| 22 | + contractName, |
| 23 | + eventName, |
| 24 | + handler: None, |
| 25 | + contractRegister: None, |
| 26 | + eventOptions: None, |
| 27 | +} |
| 28 | + |
| 29 | +type eventNamespace = {contractName: string, eventName: string} |
| 30 | +exception DuplicateEventRegistration(eventNamespace) |
| 31 | + |
| 32 | +let setEventOptions = (t: t, ~eventOptions, ~logger=Logging.getLogger()) => { |
| 33 | + switch eventOptions { |
| 34 | + | Some(value) => |
| 35 | + let value = |
| 36 | + value->(Utils.magic: Internal.eventOptions<'eventFilters> => Internal.eventOptions<Js.Json.t>) |
| 37 | + switch t.eventOptions { |
| 38 | + | None => t.eventOptions = Some(value) |
| 39 | + | Some(existingValue) => |
| 40 | + if ( |
| 41 | + existingValue.wildcard !== value.wildcard || |
| 42 | + // TODO: Can improve the check by using deepEqual |
| 43 | + existingValue.eventFilters !== value.eventFilters |
| 44 | + ) { |
| 45 | + let eventNamespace = {contractName: t.contractName, eventName: t.eventName} |
| 46 | + DuplicateEventRegistration(eventNamespace)->ErrorHandling.mkLogAndRaise( |
| 47 | + ~logger=Logging.createChildFrom(~logger, ~params=eventNamespace), |
| 48 | + ~msg="Duplicate eventOptions in handlers not allowed", |
| 49 | + ) |
| 50 | + } |
| 51 | + } |
| 52 | + | None => () |
| 53 | + } |
| 54 | +} |
| 55 | + |
| 56 | +let setHandler = (t: t, handler, ~eventOptions, ~logger=Logging.getLogger()) => { |
| 57 | + switch t.handler { |
| 58 | + | None => |
| 59 | + t.handler = |
| 60 | + handler |
| 61 | + ->(Utils.magic: Internal.genericHandler<'args> => Internal.handler) |
| 62 | + ->Some |
| 63 | + | Some(_) => |
| 64 | + let eventNamespace = {contractName: t.contractName, eventName: t.eventName} |
| 65 | + DuplicateEventRegistration(eventNamespace)->ErrorHandling.mkLogAndRaise( |
| 66 | + ~logger=Logging.createChildFrom(~logger, ~params=eventNamespace), |
| 67 | + ~msg="Duplicate registration of event handlers not allowed", |
| 68 | + ) |
| 69 | + } |
| 70 | + |
| 71 | + t->setEventOptions(~eventOptions, ~logger) |
| 72 | +} |
| 73 | + |
| 74 | +let setContractRegister = (t: t, contractRegister, ~eventOptions, ~logger=Logging.getLogger()) => { |
| 75 | + switch t.contractRegister { |
| 76 | + | None => |
| 77 | + t.contractRegister = Some( |
| 78 | + contractRegister->( |
| 79 | + Utils.magic: Internal.genericContractRegister< |
| 80 | + Internal.genericContractRegisterArgs<'event, 'context>, |
| 81 | + > => Internal.contractRegister |
| 82 | + ), |
| 83 | + ) |
| 84 | + | Some(_) => |
| 85 | + let eventNamespace = {contractName: t.contractName, eventName: t.eventName} |
| 86 | + DuplicateEventRegistration(eventNamespace)->ErrorHandling.mkLogAndRaise( |
| 87 | + ~logger=Logging.createChildFrom(~logger, ~params=eventNamespace), |
| 88 | + ~msg="Duplicate contractRegister handlers not allowed", |
| 89 | + ) |
| 90 | + } |
| 91 | + t->setEventOptions(~eventOptions, ~logger) |
| 92 | +} |
0 commit comments