summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/.erlang5
-rw-r--r--src/Makefile8
-rw-r--r--src/Makefile.inc6
-rwxr-xr-xsrc/catlfish5
-rw-r--r--src/catlfish.erl6
-rw-r--r--src/https/Makefile5
-rw-r--r--src/https/https_server.erl5
7 files changed, 40 insertions, 0 deletions
diff --git a/src/.erlang b/src/.erlang
new file mode 100644
index 0000000..406b099
--- /dev/null
+++ b/src/.erlang
@@ -0,0 +1,5 @@
+%% Erlang init file for catlfish (in Emacs -*- erlang -*- mode)
+%%io:format("Inititaing for catlfish~n").
+code:add_pathz("https").
+code:add_pathz("merkletree").
+code:add_pathz("x509").
diff --git a/src/Makefile b/src/Makefile
new file mode 100644
index 0000000..0b77c52
--- /dev/null
+++ b/src/Makefile
@@ -0,0 +1,8 @@
+MODULES = catlfish
+
+all: subdirs $(MODULES:%=%.beam)
+
+subdirs:
+ $(MAKE) -C https
+
+include Makefile.inc
diff --git a/src/Makefile.inc b/src/Makefile.inc
new file mode 100644
index 0000000..928b06a
--- /dev/null
+++ b/src/Makefile.inc
@@ -0,0 +1,6 @@
+# -*- makefile -*-
+
+.erl.beam:
+ erlc -W $<
+
+.SUFFIXES: .erl .beam
diff --git a/src/catlfish b/src/catlfish
new file mode 100755
index 0000000..72102d5
--- /dev/null
+++ b/src/catlfish
@@ -0,0 +1,5 @@
+#! /usr/bin/env escript
+
+main(_) ->
+ io:format("Hello catlfish!\n"),
+ catlfish:start().
diff --git a/src/catlfish.erl b/src/catlfish.erl
new file mode 100644
index 0000000..cfdec8b
--- /dev/null
+++ b/src/catlfish.erl
@@ -0,0 +1,6 @@
+-module('catlfish').
+-export([start/0]).
+
+start() ->
+ io:format("Starting catlfish~n"),
+ https_server:start().
diff --git a/src/https/Makefile b/src/https/Makefile
new file mode 100644
index 0000000..ac3b57b
--- /dev/null
+++ b/src/https/Makefile
@@ -0,0 +1,5 @@
+MODULES = https_server
+
+all: $(MODULES:%=%.beam)
+
+include ../Makefile.inc
diff --git a/src/https/https_server.erl b/src/https/https_server.erl
new file mode 100644
index 0000000..a62a02f
--- /dev/null
+++ b/src/https/https_server.erl
@@ -0,0 +1,5 @@
+-module(https_server).
+-export([start/0]).
+
+start() ->
+ io:format("Starting https server~n").