[hcoop-cvs] domtool2/src/plugins alias.sml,1.5,1.6

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 ": ";