bus experiments

pe/filesrv/fserve.erl

@@ -0,0 +1,9 @@
+-module(fserve).
+-export([start/0]).
+-include("./msg.hrl").
+
+start () ->
+    file_serve(#{}, #{}).
+
+file_serve(Names, DataStore) ->
+    throw (not_implemented).

pe/filesrv/msg.hrl

@@ -0,0 +1,16 @@
+%% This is the standard set of file server messages.
+
+% upload sends data to be uploaded.
+-record(upload, {client, data}).
+
+% tag marks an ID as having an alternate name.
+-record(tag, {client, id, name}).
+
+% put combines upload and tag.
+-record(put, {client, name, data}).
+
+% retrieve obtains the data referenced by id.
+-record(retrieve, {client, id}).
+
+% fetch obtains the data referenced by an alternative name.
+-record(fetch, {client, name}).