add sql Makefile

.gitignore

@@ -1 +1,6 @@
 _build
+include/sql/exchange-0002.sql
+include/sql/exchange-0003.sql
+include/sql/exchange-0004.sql
+include/sql/procedures.sql
+include/sql/init.sql

include/sql/Makefile

@@ -1,3 +1,14 @@
+sql_DATA := \
+  versioning.sql \
+  exchange-0001.sql \
+  exchange-0002.sql \
+  exchange-0003.sql \
+  exchange-0004.sql \
+  exchange-0005.sql \
+  procedures.sql
+
+sql_INIT := init.sql
+
 procedures.sql: procedures.sql.in exchange_do_*.sql exchange_statistics_*.sql exchange_trigger_*.sql
 	chmod +w $@ 2> /dev/null || true
 	gcc -E -P -undef - < procedures.sql.in 2>/dev/null | sed -e "s/--.*//" | awk 'NF' - >$@
@@ -17,3 +28,28 @@ exchange-0004.sql: exchange-0004.sql.in 0004-*.sql
 	chmod +w $@ 2> /dev/null || true
 	gcc -E -P -undef - < exchange-0004.sql.in 2>/dev/null | sed -e "s/--.*//" | awk 'NF' - >$@
 	chmod ugo-w $@
+
+gen_sql: procedures.sql exchange-0002.sql exchange-0003.sql exchange-0004.sql
+
+.DEFAULT_GOAL := gen_init
+gen_init: gen_sql $(sql_DATA)
+	@printf "" > $(sql_INIT)
+	@cat $(sql_DATA) >> $(sql_INIT)
+
+clean:
+	rm -f procedures.sql
+	rm -f exchange-0002.sql
+	rm -f exchange-0003.sql
+	rm -f exchange-0004.sql
+	rm $(sql_INIT)
+
+exec: gen_init
+	psql --host=localhost --port=5432 --username=mte --password --dbname="taler-exchange" --file=$(sql_INIT)
+
+create_database:
+	createdb --host=localhost --port=5432 --username=mte --password "taler-exchange"
+
+drop_database:
+	dropdb --host=localhost --port=5432 --username=mte --password "taler-exchange"
+
+reset_database: drop_database create_database

src/database.ml

@@ -23,3 +23,5 @@ let test req server _ =
       let str = Fmt.str "Database error: %a." Caqti_error.pp err in
       let* () = Vif.Response.with_string req str in
       Vif.Response.respond `Internal_server_error
+
+let init = test

src/mte.ml

@@ -113,7 +113,8 @@ let routes =
     get (rel /?? nil) --> hello; get (rel / "terms" /?? nil) --> Static.terms;
     get (rel / "privacy" /?? nil) --> Static.privacy;
     get (rel / "management" / "keys" /?? nil) --> Management.keys;
-    get (rel / "db" /?? nil) --> Database.test;
+    get (rel / "db_test" /?? nil) --> Database.test;
+    get (rel / "db_init" /?? nil) --> Database.init;
   ]
 
 let () =