Use macros to define messages rather than eval

src/Fjage.jl

@@ -34,4 +34,8 @@ include("container.jl")
 include("fsm.jl")
 include("coroutine_behavior.jl")
 
+function __init__()
+  registermessages()
+end
+
 end

src/const.jl

@@ -6,4 +6,9 @@ module Services
 end
 
 "Shell command execution request message."
-const ShellExecReq = MessageClass(@__MODULE__, "org.arl.fjage.shell.ShellExecReq")
+@message "org.arl.fjage.shell.ShellExecReq" struct ShellExecReq
+  cmd::Union{String,Nothing} = nothing
+  script::Union{String,Nothing} = nothing
+  args::Vector{String} = String[]
+  ans::Bool = false
+end

src/gw.jl

@@ -11,11 +11,9 @@ struct Gateway
   sock::Ref{TCPSocket}
   subscriptions::Set{String}
   pending::Dict{String,Channel}
-
   msgqueue::Vector
   tasks_waiting_for_msg::Vector{Tuple{Task,#=receive_id::=#Int}}
   msgqueue_lock::ReentrantLock # Protects both msgqueue and tasks_waiting_for_msg
-
   host::String
   port::Int
   reconnect::Ref{Bool}
@@ -87,7 +85,7 @@ _alive(gw::Gateway) = nothing
 
 function _deliver(gw::Gateway, msg::Message, relay::Bool)
   lock(gw.msgqueue_lock) do
-    for (idx, (task, _)) in pairs(gw.tasks_waiting_for_msg)
+    for (idx, (task, _)) ∈ pairs(gw.tasks_waiting_for_msg)
       # Check if message matches the filter. This has to happen on the receiver
       # task because this task may run in a different world age.
       schedule(task, (current_task(), msg))
@@ -195,7 +193,7 @@ end
 function agentsforservice(gw::Gateway, svc::String)
   rq = Dict("action" => "agentsForService", "service" => svc)
   rsp = _ask(gw, rq)
-  [AgentID(a, false, gw) for a in rsp["agentIDs"]]
+  [AgentID(a, false, gw) for a ∈ rsp["agentIDs"]]
 end
 
 "Subscribe to receive all messages sent to the given topic."
@@ -225,14 +223,20 @@ function Base.close(gw::Gateway)
 end
 
 # prepares a message to be sent to the server
-function _prepare!(msg::Message)
-  for k in keys(msg.__data__)
-    v = msg.__data__[k]
+function _prepare(msg::Message)
+  data = Dict{Symbol,Any}()
+  for k ∈ keys(msg)
+    v = msg[k]
     if typeof(v) <: Array && typeof(v).parameters[1] <: Complex
       btype = typeof(v).parameters[1].parameters[1]
-      msg.__data__[k] = reinterpret(btype, v)
+      data[k] = reinterpret(btype, v)
+    elseif v !== nothing
+      k === :performative && (k = :perf)
+      k === :messageID && (k = :msgID)
+      data[k] = v
     end
   end
+  classname(msg), data
 end
 
 # converts Base64 encoded arrays to Julia arrays
@@ -261,45 +265,44 @@ function _b64toarray(v)
 end
 
 # creates a message object from a JSON representation of the object
-function _inflate(json)
+function _inflate(json::AbstractDict)
   function inflate_recursively!(d)
-    for (k,v) in d
+    for (k, v) ∈ d
       if typeof(v) <: Dict && haskey(v, "clazz") && match(r"^\[.$", v["clazz"]) != nothing
         v = _b64toarray(v)
       end
       if typeof(v) <: Array && length(v) > 0
         t = typeof(v[1])
         v = Array{t}(v)
-        kcplx = k*"__isComplex"
+        kcplx = k * "__isComplex"
         if haskey(d, kcplx) && d[kcplx]
           v = Array{Complex{t}}(reinterpret(Complex{t}, v))
           delete!(d, kcplx)
         end
       end
-      if typeof(v) <: Dict
-        v = inflate_recursively!(v)
-      end
-      d[k] = v
+      d[k] = typeof(v) <: AbstractDict ? inflate_recursively!(v) : v
     end
-    return d
-  end
-
-  if typeof(json) == String
-    json = JSON.parse(json)
+    d
   end
   clazz = json["clazz"]
   data = inflate_recursively!(json["data"])
-  stype = _messageclass_lookup(clazz)
-  obj = @eval $stype()
-  for (k,v) in data
+  obj = _messageclass_lookup(clazz)()
+  for (k, v) ∈ data
     if k == "sender" || k == "recipient"
       v = AgentID(v)
+    elseif k == "perf"
+      k = "performative"
+      v = Symbol(v)
+    elseif k == "msgID"
+      k = "messageID"
     end
-    obj.__data__[k] = v
+    setproperty!(obj, Symbol(k), v; ignore_missingfields=true)
   end
   obj
 end
 
+_inflate(json::String) = _inflate(JSON.parse(json))
+
 """
     send(gw, msg)
 
@@ -310,13 +313,13 @@ function send(gw::Gateway, msg)
   isopen(gw.sock[]) || return false
   msg.sender = gw.agentID
   msg.sentAt = Dates.value(now())
-  _prepare!(msg)
+  clazz, data = _prepare(msg)
   json = JSON.json(Dict(
-    "action" => "send",
-    "relay" => true,
-    "message" => Dict(
-      "clazz" => msg.__clazz__,
-      "data" => msg.__data__
+    :action => :send,
+    :relay => true,
+    :message => Dict(
+      :clazz => clazz,
+      :data => data
     )
   ))
   _println(gw.sock[], json)
@@ -340,10 +343,11 @@ it must take in a message and return `true` or `false`. A message for which it r
 receive(gw::Gateway, timeout::Int=0) = receive(gw, msg->true, timeout)
 
 const receive_counter = Threads.Atomic{Int}(0)
+
 function receive(gw::Gateway, filt, timeout=0)
   receive_id = (receive_counter[] += 1)
   maybe_msg = lock(gw.msgqueue_lock) do
-    for (idx, msg) in pairs(gw.msgqueue)
+    for (idx, msg) ∈ pairs(gw.msgqueue)
       if _matches(filt, msg)
         return Some(popat!(gw.msgqueue, idx))
       end
@@ -355,7 +359,7 @@ function receive(gw::Gateway, filt, timeout=0)
       @async begin
         sleep(timeout/1e3)
         lock(gw.msgqueue_lock) do
-          for (idx, (_, id)) in pairs(gw.tasks_waiting_for_msg)
+          for (idx, (_, id)) ∈ pairs(gw.tasks_waiting_for_msg)
             # We must identify the receive to remove from the waiting list
             # based on the receive ID and not the task because the task which
             # started this one may have had its previous receive satisfied and
@@ -372,14 +376,10 @@ function receive(gw::Gateway, filt, timeout=0)
     push!(gw.tasks_waiting_for_msg, (current_task(), receive_id))
     return nothing
   end
-  if !isnothing(maybe_msg)
-    return something(maybe_msg)
-  end
+  isnothing(maybe_msg) || return something(maybe_msg)
   while true
     maybe_task_and_msg = wait()
-    if isnothing(maybe_task_and_msg)
-      return nothing
-    end
+    isnothing(maybe_task_and_msg) && return nothing
     delivery_task, msg = maybe_task_and_msg
     if _matches(filt, msg)
       schedule(delivery_task, true)