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

SCM Repository

[smlnj] Diff of /sml/trunk/src/smlnj-lib/Util/hash-table-rep.sml
ViewVC logotype

Diff of /sml/trunk/src/smlnj-lib/Util/hash-table-rep.sml

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

revision 3, Sat Oct 4 23:33:46 1997 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 32  Line 32 
32           * of items currently in the table.           * of items currently in the table.
33           *)           *)
34    
35        val clear : ('a, 'b) table -> unit
36            (* remove all items *)
37    
38      val listItems  : (('a, 'b) table * int ref) -> 'b list      val listItems  : (('a, 'b) table * int ref) -> 'b list
39      val listItemsi : (('a, 'b) table * int ref) -> ('a * 'b) list      val listItemsi : (('a, 'b) table * int ref) -> ('a * 'b) list
40    
# Line 100  Line 103 
103                  else false                  else false
104              end              end
105    
106      (* remove all items *)
107        fun clear table = Array.modify (fn _ => NIL) table
108    
109    (* return a list of the items in the table *)    (* return a list of the items in the table *)
110      fun listItems (table, nItems) = let      fun listItems (table, nItems) = let
111            fun f (_, l, 0) = l            fun f (_, l, 0) = l

Legend:
Removed from v.3  
changed lines
  Added in v.8

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