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/HTML/html-elements-fn.sml
ViewVC logotype

Diff of /smlnj-lib/trunk/HTML/html-elements-fn.sml

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

revision 651, Thu Jun 1 18:34:03 2000 UTC revision 1860, Sun Nov 6 19:36:15 2005 UTC
# Line 220  Line 220 
220    
221      fun startTag file (tag, p1, p2) = let      fun startTag file (tag, p1, p2) = let
222            val ctx = {file=file, line=p1}            val ctx = {file=file, line=p1}
223            val tag' = SS.triml 1 (SS.trimr 1 (SS.all tag))            val tag' = SS.triml 1 (SS.trimr 1 (SS.full tag))
224            val (name, attrs) = scanStartTag (ctx, tag')            val (name, attrs) = scanStartTag (ctx, tag')
225            in            in
226              case (find name, attrs)              case (find name, attrs)
# Line 236  Line 236 
236    
237      fun endTag file (tag, p1, p2) = let      fun endTag file (tag, p1, p2) = let
238            val ctx = {file=file, line=p1}            val ctx = {file=file, line=p1}
239            val name = SS.triml 2 (SS.trimr 1 (SS.all tag))            val name = SS.triml 2 (SS.trimr 1 (SS.full tag))
240            in            in
241              case (find name)              case (find name)
242               of NONE => (Err.badEndTag ctx (SS.string name); NONE)               of NONE => (Err.badEndTag ctx (SS.string name); NONE)

Legend:
Removed from v.651  
changed lines
  Added in v.1860

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