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/RegExp/Glue/regexp-fn.sml
ViewVC logotype

Diff of /smlnj-lib/trunk/RegExp/Glue/regexp-fn.sml

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

revision 2957, Thu Mar 6 03:17:28 2008 UTC revision 2958, Tue Mar 18 16:08:01 2008 UTC
# Line 1  Line 1 
1  (* regexp-fn.sml  (* regexp-fn.sml
2   *   *
3   * COPYRIGHT (c) 1998 Bell Labs, Lucent Technologies.   * COPYRIGHT (c) 2008 The Fellowship of SML/NJ (http://www.smlnj.org)
4     * All rights reserved.
5   *   *
6   * Functor that implements a regular expressions matcher by combining   * Functor that implements a regular expressions matcher by combining
7   * a surface syntax and a matching engine.   * a surface syntax and a matching engine.
# Line 15  Line 16 
16    
17      type regexp = E.regexp      type regexp = E.regexp
18    
19      (* a match specifies the position (as a stream) and the length of the match *)
20        type 'a match = {pos : 'a, len : int} MatchTree.match_tree
21    
22      fun compile reader s = (case (P.scan reader s)      fun compile reader s = (case (P.scan reader s)
23             of NONE => NONE             of NONE => NONE
24              | SOME (syntax,s') => let              | SOME (syntax,s') => let

Legend:
Removed from v.2957  
changed lines
  Added in v.2958

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