ast.rb

(class
  (const nil :Operation)
  (const
    (const nil :Hyperstack) :ServerOp)
  (begin
    (send nil :param
      (sym :acting_user)
      (hash
        (pair
          (sym :nils)
          (true))))
    (send nil :param
      (sym :counter))
    (send nil :outbound
      (sym :message))
    (block
      (send nil :step)
      (args)
      (send
        (send nil :params) :message=
        (str "hello")))
    (block
      (send nil :step)
      (args)
      (send
        (send
          (send nil :params) :counter) :+
        (int 1)))
    (defs
      (self) :serialize_params
      (args
        (arg :hash))
      (begin
        (op-asgn
          (send
            (lvar :hash) :[]
            (str "counter")) :+
          (int 1))
        (lvar :hash)))
    (defs
      (self) :deserialize_params
      (args
        (arg :hash))
      (begin
        (op-asgn
          (send
            (lvar :hash) :[]
            (str "counter")) :+
          (int 1))
        (lvar :hash)))
    (defs
      (self) :serialize_response
      (args
        (arg :response))
      (send
        (lvar :response) :+
        (int 1)))
    (defs
      (self) :deserialize_response
      (args
        (arg :response))
      (send
        (lvar :response) :+
        (int 1)))
    (defs
      (self) :serialize_dispatch
      (args
        (arg :hash))
      (begin
        (op-asgn
          (send
            (lvar :hash) :[]
            (sym :message)) :+
          (str " serialized"))
        (lvar :hash)))
    (defs
      (self) :deserialize_dispatch
      (args
        (arg :hash))
      (begin
        (op-asgn
          (send
            (lvar :hash) :[]
            (sym :message)) :+
          (str " deserialized"))
        (lvar :hash)))))