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

SCM Repository

[sml3d] Diff of /trunk/sml3d/gen/gen-from-xml/gldb/db.sml
ViewVC logotype

Diff of /trunk/sml3d/gen/gen-from-xml/gldb/db.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1365, Mon Mar 31 12:43:29 2014 UTC revision 1373, Wed Apr 2 17:27:12 2014 UTC
# Line 2  Line 2 
2   *   *
3   * COPYRIGHT (c) 2014 The SML3d Project (http://sml3d.cs.uchicago.edu)   * COPYRIGHT (c) 2014 The SML3d Project (http://sml3d.cs.uchicago.edu)
4   * All rights reserved.   * All rights reserved.
5     *
6     * We should use the SpecLoader.registry representation for the database.  Perhaps it will
7     * need to be made closer to the DBXML representation, but there is no reason for yet another
8     * representation of basically the same information!
9   *)   *)
10    
11  structure DB : sig  structure DB : sig
# Line 11  Line 15 
15      val toXML : db -> XMLRep.db      val toXML : db -> XMLRep.db
16      val fromXML : XMLRep.db -> db      val fromXML : XMLRep.db -> db
17    
18      (* create a database from a Khronos XML specification file *)
19        val fromGLSpec : SpecLoader.registry -> db
20    
21    (* NOTE: probably don't need this function *)
22    (* create a new empty database by cloning the meta information from another database *)    (* create a new empty database by cloning the meta information from another database *)
23      val clone : db -> db      val clone : db -> db
24    
25    (* NOTE: probably don't need this function *)
26    (* load the specifications for the database into the database.  If the database is not    (* load the specifications for the database into the database.  If the database is not
27     * empty, then the Fail exception is raised.     * empty, then the Fail exception is raised.
28     *)     *)
# Line 33  Line 42 
42      structure ASet = AtomSet      structure ASet = AtomSet
43    
44      datatype db = DB of {      datatype db = DB of {
45          specfile : string,              (* name of typemap spec file *)          registry : string,              (* specification file pathname *)
46            api : string,
47            profile : string,
48            extensions : string,
49          constants : X.const_grp ATbl.hash_table,          constants : X.const_grp ATbl.hash_table,
50          types : X.ty ATbl.hash_table,          types : X.ty ATbl.hash_table,
51          functions : X.category ATbl.hash_table          functions : X.category ATbl.hash_table

Legend:
Removed from v.1365  
changed lines
  Added in v.1373

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