Update of /cvsroot/hcoop/domtool2/src/plugins
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv6978/src/plugins
Modified Files:
alias.sml
Log Message:
Only one default alias per domain
Index: alias.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/plugins/alias.sml,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** alias.sml 15 Dec 2007 19:05:43 -0000 1.5
--- alias.sml 1 Jan 2008 22:19:27 -0000 1.6
***************
*** 41,48 ****
fun writeD nodes =
let
! val files = map (fn node => aliasesDF node) nodes
in
! (fn s => app (fn file => #write file s) files,
! fn () => app (fn file => #writeDom file ()) files)
end
--- 41,48 ----
fun writeD nodes =
let
! fun files () = map (fn node => aliasesDF node) nodes
in
! (fn s => app (fn file => #write file s) (files ()),
! fn () => app (fn file => #writeDom file ()) (files ()))
end
***************
*** 53,59 ****
SM.empty Domain.nodes
val _ = Domain.registerBefore
(fn _ => (aliases := openInAll "aliases";
! aliasesD := openInAll "aliases.default"))
val _ = Domain.registerAfter
--- 53,62 ----
SM.empty Domain.nodes
+ fun reopenAliasesD () = (SM.app (fn {close, ...} => close ()) (!aliasesD);
+ aliasesD := openInAll "aliases.default")
+
val _ = Domain.registerBefore
(fn _ => (aliases := openInAll "aliases";
! reopenAliasesD ()))
val _ = Domain.registerAfter
***************
*** 135,139 ****
writeTarget (write, t);
write "\n")
! | Default => (writeD "*@";
writeDomD ();
writeD ": ";
--- 138,143 ----
writeTarget (write, t);
write "\n")
! | Default => (reopenAliasesD ();
! writeD "*@";
writeDomD ();
writeD ": ";
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
