Re: {tree}:save & {tree}:restore

[jmi@columbo.inria.fr (Janet Bertot)]

In article <34585@sophia.inria.fr>, Guido.Bosch@loria.fr (Guido Bosch) writes:
=> 
=> I could need some lower-level functions for saving and restoring trees
=> in polish format {tree}:save and {tree}:restore are much too unwieldy
=> for my needs: 

None exist, you fall to the bottom in-line code with all arguments plus
the class {tree} being passed along.  You don't want to see what you get
when you're at the bottom.  Changing the vtp primitives is not in the works.

=> I just want 
=> 
=> 	{tree}:my-save :    TREE FILE -> BOOLEAN 
=> 	{tree}:my-restore : FILE      -> TREE

You are always welcome to write your own primitives.  Note that you'll need to 
write an auxialary function to take off the ".po" from your FILE, fullpathname,
and that your {tree}:my-restore should pass along "/." as the search path when
it calls the {tree}:restore provided.

	(de {tree}:my-save (tree file)
	    ({tree}:save (take-off-the-po file) tree))
	
	(de {tree}:my-restore (file)
	    ({tree}:restore (take-off-the-po file) "/."))


	--janet