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 /smlnj-lib/trunk/HTML4/html4-utils.sml
ViewVC logotype

Diff of /smlnj-lib/trunk/HTML4/html4-utils.sml

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

revision 3530, Tue May 18 21:26:05 2010 UTC revision 3531, Fri May 21 00:12:21 2010 UTC
# Line 9  Line 9 
9  datatype 'a tree = Nd of 'a tree list  datatype 'a tree = Nd of 'a tree list
10                   | Lf of 'a                   | Lf of 'a
11    
12    type tag_payload = string * (Atom.atom * string option) list
13    
14    fun attrToStr (name, NONE) = Atom.toString name
15      | attrToStr (name, SOME a_val) = String.concat [Atom.toString name, " = ",
16                                                      a_val]
17    
18    fun attrsToStr attrs = String.concatWith "  " (map attrToStr attrs)
19    
20    fun payloadToStr (payload, []) = payload
21      | payloadToStr (_, attrs as (attr :: _)) = attrsToStr attrs
22    
23  end  end
24    
25  (* ______________________________________________________________________  (* ______________________________________________________________________

Legend:
Removed from v.3530  
changed lines
  Added in v.3531

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