Configuration
=============
+Modify the parameters in settings.sml as appropriate for your system.
+
If it is possible for you to modify a file /etc/mlt.conf, then you
can edit this file to set various options related to locations of
important files on your file system. In particular, you may want to
#!/bin/sh
SMLBIN=/usr/local/sml/bin
+PLATFORM=x86-linux
cd src
-if [ -f mlt.x86-linux ] ; then
- rm mlt.x86-linux
+if [ -f mlt.$PLATFORM ] ; then
+ rm mlt.$PLATFORM
fi
if [ -d CM ] ; then
rm -rf CM
-cp src/mlt /usr/local/bin/
-cp src/mlt.x86-linux /usr/local/bin/
\ No newline at end of file
+BIN=/usr/local/bin
+PLATFORM=x86-linux
+
+cp src/mlt $BIN/
+cp src/mlt.$PLATFORM $BIN/
\ No newline at end of file
structure Compiler :> COMPILER =
struct
+ open Settings
+
exception Error
val cgiMode = Posix.FileSys.S.flags [Posix.FileSys.S.irwxu,
val outPath = Config.outPath config
val pubPath = Config.pubPath config
val sml = Config.sml config
- val arch = "x86-linux"
val loc = Environment.staticPart (#get (EnvRef.loc ()) ())
val base = Environment.staticPart (#get (EnvRef.base ()) ())
(*
* Dynamic web page generation with Standard ML
- * Copyright (C) 2003 Adam Chlipala
+ * Copyright (C) 2003-2004 Adam Chlipala
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
structure Config :> CONFIG =
struct
- val defaultFile = "/etc/mlt.conf"
+ open Settings
datatype config =
CONFIG of {inPath : string, (* Directory for input sources *)
print msg;
print "\n";
OS.Process.failure)
+ | Io => (print "FATAL ERROR: Io\n";
+ OS.Process.failure)
end
\ No newline at end of file
--- /dev/null
+(*
+ * Dynamic web page generation with Standard ML
+ * Copyright (C) 2003-2004 Adam Chlipala
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library 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
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ *)
+
+(* Configuration parameters *)
+
+structure Settings =
+struct
+ val arch = "x86-linux"
+ val defaultFile = "/etc/mlt.conf"
+end
\ No newline at end of file
$smlnj/compiler/current.cm
+ settings.sml
+
string_map.sml
common.sml