Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /tests/trunk/bugs/tests.obsolete/bug627.sml
ViewVC logotype

View of /tests/trunk/bugs/tests.obsolete/bug627.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2460 - (download) (annotate)
Sat Apr 28 20:18:10 2007 UTC (12 years, 2 months ago) by gkuan
File size: 525 byte(s)
(* bug627.sml *)
(* blast-writing objects outside the heap leads to failure *)

structure Blast =
struct
  val s : string = Compiler.banner
  structure B = BinIO
  fun outblast () = let
	val s = B.openOut "/tmp/testblast"
	in
	  B.output(s, Unsafe.blastWrite s); B.closeOut s
	end
  fun inblast () = let
	val s = B.openIn "/tmp/testblast"
	val res : string = Unsafe.blastRead(B.inputAll s)
	in
	  B.closeIn s;
	  print "Got back: "; print res; print " : from testblast\n"
	end
  val _ = outblast ()
  val _ = inblast ()
end;

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0