Home My Page Projects Code Snippets Project Openings 3D graphics for Standard ML
Summary Activity SCM

SCM Repository

[sml3d] View of /gen/extensions.sml
ViewVC logotype

View of /gen/extensions.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 240 - (download) (annotate)
Tue Sep 23 17:05:19 2008 UTC (11 years, 4 months ago) by jhr
File size: 512 byte(s)
  Added header comments
(* extensions.sml
 *
 * COPYRIGHT (c) 2008 John Reppy (http://cs.uchicago.edu/~jhr)
 * All rights reserved.
 *)

structure Extensions =
  struct
  
      datatype group = Group of {
      	  name : string,	(* e.g., "gl", "wgl", or "glx" *)
	  exts : extension list
	}

      and extension = Ext of {
	  name : string,
          consts : {name : string, value : string} list,
	  funcs  : {name : string, retTy : string, params : param list} list
	}

      and param = Param of {ty : string, name : string}

  end

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