1 (* Copyright (C
) 1999-2006 Henry Cejtin
, Matthew Fluet
, Suresh
2 * Jagannathan
, and Stephen Weeks
.
4 * MLton is released under a BSD
-style license
.
5 * See the file MLton
-LICENSE for details
.
8 structure MyDirs
: MY_DIRS
=
14 val home
= fromString
"/home/sweeks/"
15 val sml
= relative(home
, "sml")
16 val smlnj
= relative(home
, "sml/sml-nj-root")
17 val bin
= relative(smlnj
, "bin")
18 val binFiles
= relative(smlnj
, "bin.x86-unix")
19 val heap
= relative(bin
, ".heap")
20 val src
= relative(smlnj
, "src")
21 val compiler
= relative(src
, "sml-nj")
22 in {home
= home
, sml
= sml
, smlnj
= smlnj
, bin
= bin
,
23 binFiles
= binFiles
, heap
= heap
, src
= src
, compiler
= compiler
}
26 fun exportFn(name
, f
) =
27 SMLofNJ
.exportFn(File
.toString(File
.relative(#
heap(dirs()),name
)),
30 SMLofNJ
.exportML(File
.toString(File
.relative(#
heap(dirs()),name
)))