comparison src/scheme/props.scm @ 0:bf79fb79ee13

Initial Mercurial check in.

+; __________________________________________
+; open local args file and push on to environment stack
+; this will now accept all stored data. also adds agent to
+; save on exit.
+
+(define local-props null)
+(define local-file null)
+(define (push-properties file)
+	(set! local-props (samer.core.util.Properties. (Shell.env)))
+	(set! local-file file)
+	(tryCatch
+		(.load local-props (java.io.FileInputStream. file))
+		(lambda (e) (Shell.trace (string-append "failed to load"))))
+	(Shell.push local-props)
+
+	;;; this changes to global exit procedure to save the local
+	;;; properties as well as the regular properties
+	(set! exit (lambda ()
+		(display (string-append "saving local properites to " local-file))
+		(.save local-props (java.io.FileOutputStream. local-file))
+		(Shell.interpret "exit")
+		(System.exit 0)
+	))
+)
+
+