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 /sml/trunk/benchmarks/programs/ray/main.sml
ViewVC logotype

View of /sml/trunk/benchmarks/programs/ray/main.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 193 - (download) (annotate)
Fri Nov 20 17:43:59 1998 UTC (22 years, 10 months ago) by monnier
File size: 389 byte(s)
Initial revision
(* main.sml
 *
 * COPYRIGHT (c) 1992 AT&T Bell Laboratories
 *
 * Main structure for running raytracer as benchmark.
 *)

structure Main : BMARK =
  struct

    fun doit () = let
	  val strm = TextIO.openString ("\
		  \100 0 0 0 8 8 8 color sphere\n\
		  \/./TEST raytrace\n\
		  \stop\n\
		\")
	  in
	    Interface.rtInit();
	    Interp.parse strm
	  end

    fun testit _ = ()

  end;


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