From 695b45d9c05a7ccc341301e9e5157e4dec00dbc4 Mon Sep 17 00:00:00 2001
From: Kyle Isom <kyle@imap.cc>
Date: Wed, 24 Apr 2019 22:46:05 +0000
Subject: [PATCH] bus experiments

---
 from_scratch/test.fs  |  3 ++-
 pe/filesrv/fserve.erl |  9 +++++++++
 pe/filesrv/msg.hrl    | 16 ++++++++++++++++
 3 files changed, 27 insertions(+), 1 deletion(-)
 create mode 100644 pe/filesrv/fserve.erl
 create mode 100644 pe/filesrv/msg.hrl

diff --git a/from_scratch/test.fs b/from_scratch/test.fs
index 1abff7d..79cb933 100644
--- a/from_scratch/test.fs
+++ b/from_scratch/test.fs
@@ -1 +1,2 @@
-2 3 + . bye
\ No newline at end of file
+1 2 3 ROT +
+. bye
\ No newline at end of file
diff --git a/pe/filesrv/fserve.erl b/pe/filesrv/fserve.erl
new file mode 100644
index 0000000..1fda07d
--- /dev/null
+++ b/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).
diff --git a/pe/filesrv/msg.hrl b/pe/filesrv/msg.hrl
new file mode 100644
index 0000000..357878a
--- /dev/null
+++ b/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}).