COMMON_DEPS := configDefault/config.sig configDefault/configDefault.sml \
openssl/openssl_sml.so
-.PHONY: all mlton smlnj
+.PHONY: all mlton smlnj install
-mlton: bin/domtool-server
+mlton: bin/domtool-server bin/domtool-client
smlnj: $(COMMON_DEPS) openssl/smlnj/FFI/libssl.h.cm src/domtool.cm
| sed 's/^\(.*\).lex$$/\1.lex.sml/' >src/domtool-server.mlb
echo "main-server.sml" >>src/domtool-server.mlb
+src/domtool-client.mlb: Makefile src/prefix.mlb src/sources src/suffix.mlb
+ cat src/prefix.mlb src/sources src/suffix.mlb \
+ | sed 's/^\(.*\).grm$$/\1.grm.sig\n\1.grm.sml/' \
+ | sed 's/^\(.*\).lex$$/\1.lex.sml/' >src/domtool-client.mlb
+ echo "main-client.sml" >>src/domtool-client.mlb
+
openssl/smlnj/FFI/libssl.h.cm: openssl/openssl_sml.h
cd openssl/smlnj ; ml-nlffigen -d FFI -lh LibsslH.libh -include ../libssl-h.sml \
-cm libssl.h.cm -D__builtin_va_list="void*" \
bin/domtool-server: openssl/mlton/FFI/libssl.h.mlb \
src/domtool-server.mlb src/domtool.lex.sml \
src/domtool.grm.sig src/domtool.grm.sml \
- $(COMMON_DEPS)
+ $(COMMON_DEPS) src/*.sig src/*.sml
mlton -output bin/domtool-server -link-opt -ldl src/domtool-server.mlb
+
+bin/domtool-client: openssl/mlton/FFI/libssl.h.mlb \
+ src/domtool-client.mlb src/domtool.lex.sml \
+ src/domtool.grm.sig src/domtool.grm.sml \
+ $(COMMON_DEPS) src/*.sig src/*.sml
+ mlton -output bin/domtool-client -link-opt -ldl src/domtool-client.mlb
+
+install:
+ -cp openssl/openssl_sml.so /usr/local/lib/
+ -cp bin/domtool-server /usr/local/sbin/
+ -cp bin/domtool-client /usr/local/bin/domtool
domtool-server
+domtool-client
+domtool-slave
val bufSize = 1024
-val trustStore = "/afs/hcoop.net/common/etc/domtool/TrustKey.pem"
+val trustStore = "/afs/hcoop.net/common/etc/domtool/TrustStore.pem"
val serverCert = "/afs/hcoop.net/common/etc/domtool/servercert.pem"
val serverKey = "/etc/domtool/serverkey.pem"
structure LibsslH = struct
local
val lh = DynLinkage.open_lib
- { name = "openssl/openssl_sml.so", global = true, lazy = true }
+ { name = "/usr/local/lib/openssl_sml.so", global = true, lazy = true }
handle DynLinkage.DynLinkError s => raise Fail s
in
fun libh s = let
structure LibsslH = struct
local
val lh = DynLinkage.open_lib
- { name = "openssl/openssl_sml.so", global = true, lazy = true }
+ { name = "/usr/local/lib/openssl_sml.so", global = true, lazy = true }
handle DynLinkage.DynLinkError s => raise Fail s
in
fun libh s = let
*.grm.*
domtool.cm
domtool-server.mlb
+domtool-client.mlb
+domtool-slave.mlb
--- /dev/null
+(* HCoop Domtool (http://hcoop.sourceforge.net/)
+ * Copyright (c) 2006, Adam Chlipala
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ *)
+
+(* Driver for server *)
+
+val _ =
+ case CommandLine.arguments () of
+ [fname] => Main.request fname
+ | _ => print "Invalid command-line arguments\n"
cmdLoop ()
end
in
+ print "Listening for connections....\n";
loop ();
OpenSSL.shutdown sock
end