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/branches/rt-transition/PP/src/pp-debug-fn.sml
ViewVC logotype

Diff of /smlnj-lib/branches/rt-transition/PP/src/pp-debug-fn.sml

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

revision 1342, Mon Aug 11 20:46:00 2003 UTC revision 1809, Wed Jul 6 14:35:48 2005 UTC
# Line 1  Line 1 
1  (* pp-debug-fn.sml  (* pp-debug-fn.sml
2   *   *
3   * COPYRIGHT (c) 1997 Bell Labs, Lucent Technologies.   * COPYRIGHT (c) 2005 John Reppy (http://www.cs.uchicago.edu/~jhr)
4     * All rights reserved.
5   *   *
6   * A wrapper for the PPStreamFn, which dumps the current PP state prior   * A wrapper for the PPStreamFn, which dumps the current PP state prior
7   * to each operation.   * to each operation.
# Line 56  Line 57 
57      val cut     = debug' "cut" PP.cut      val cut     = debug' "cut" PP.cut
58      val newline = debug' "newline" PP.newline      val newline = debug' "newline" PP.newline
59      val nbSpace = debug "nbSpace" PP.nbSpace      val nbSpace = debug "nbSpace" PP.nbSpace
     val onNewline = debug "onNewline" PP.onNewline  
60      val control = debug "control" PP.control      val control = debug "control" PP.control
61    
     type pp_desc = PP.pp_desc  
     val description = debug "description" PP.description  
   
     structure Desc = PP.Desc  
   
62    end;    end;
63    

Legend:
Removed from v.1342  
changed lines
  Added in v.1809

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