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/compiler/Elaborator/elaborate/elabutil.sml
ViewVC logotype

Diff of /sml/trunk/compiler/Elaborator/elaborate/elabutil.sml

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

revision 4493, Sun Oct 15 02:18:10 2017 UTC revision 4494, Sun Oct 15 03:04:17 2017 UTC
# Line 1  Line 1 
1  (* Copyright 1992 by AT&T Bell Laboratories *)  (* elabutil.sml
2  (* elabutil.sml *)   *
3     * COPYRIGHT (c) 2017 The Fellowship of SML/NJ (http://www.smlnj.org)
4     * All rights reserved.
5     *)
6    
7  structure ElabUtil : ELABUTIL =  structure ElabUtil : ELABUTIL =
8  struct  struct
# Line 345  Line 348 
348  fun pat_to_string WILDpat = "_"  fun pat_to_string WILDpat = "_"
349    | pat_to_string (VARpat(VALvar{path,...})) = SP.toString path    | pat_to_string (VARpat(VALvar{path,...})) = SP.toString path
350    | pat_to_string (CONpat(DATACON{name,...},_)) = S.name name    | pat_to_string (CONpat(DATACON{name,...},_)) = S.name name
351    | pat_to_string (INTpat(i,_)) = IntInf.toString i    | pat_to_string (NUMpat num) = IntConst.toString num
352    | pat_to_string (REALpat s) = s    | pat_to_string (REALpat s) = s
353    | pat_to_string (STRINGpat s) = s    | pat_to_string (STRINGpat s) = s
354    | pat_to_string (CHARpat s) = "#"^s    | pat_to_string (CHARpat s) = "#"^s
# Line 452  Line 455 
455                 | SELECTexp (_, e) => findexp e                 | SELECTexp (_, e) => findexp e
456                 | VECTORexp (el, _) => app findexp el                 | VECTORexp (el, _) => app findexp el
457                 | PACKexp (e, _, _) => findexp e                 | PACKexp (e, _, _) => findexp e
458                 | (CONexp _ | INTexp _ | WORDexp _ | REALexp _ | STRINGexp _ |                 | (CONexp _ | NUMexp _ | REALexp _ | STRINGexp _ | CHARexp _) => ())
                   CHARexp _) => ())  
459    
460            and finddec d =            and finddec d =
461              (case d              (case d

Legend:
Removed from v.4493  
changed lines
  Added in v.4494

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