CVS: sml/src/smlnj-lib/PP/src pp-desc-fn.sml,1.3,1.4 pp-desc-sig.sml,1.3,1.4

Update of /cvsroot/smlnj/sml/src/smlnj-lib/PP/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21262/PP/src

Modified Files:
	pp-desc-fn.sml pp-desc-sig.sml 
Log Message:
  Fix some odds and ends with the PP library.


Index: pp-desc-fn.sml
===================================================================
RCS file: /cvsroot/smlnj/sml/src/smlnj-lib/PP/src/pp-desc-fn.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** pp-desc-fn.sml	6 Jul 2005 14:35:47 -0000	1.3
--- pp-desc-fn.sml	24 Jul 2005 00:41:21 -0000	1.4
***************
*** 8,13 ****
   *)
  
! functor PPDescFn (PPS : PP_STREAM) :> PP_DESC =
!   struct
  
      structure PPS = PPS
--- 8,13 ----
   *)
  
! functor PPDescFn (PPS : PP_STREAM) : PP_DESC
!   = struct
  
      structure PPS = PPS
***************
*** 33,37 ****
  
    (* pretty print a description *)
!     fun description strm = let
  	  fun pp (HBox l) = (PPS.openHBox strm; ppList l; PPS.closeBox strm)
  	    | pp (VBox(i, l)) = (PPS.openVBox strm i; ppList l; PPS.closeBox strm)
--- 33,37 ----
  
    (* pretty print a description *)
!     fun description (strm, ppd) = let
  	  fun pp (HBox l) = (PPS.openHBox strm; ppList l; PPS.closeBox strm)
  	    | pp (VBox(i, l)) = (PPS.openVBox strm i; ppList l; PPS.closeBox strm)
***************
*** 50,54 ****
  	    | ppList (item::r) = (pp item; ppList r)
  	  in
! 	    pp
  	  end
  
--- 50,54 ----
  	    | ppList (item::r) = (pp item; ppList r)
  	  in
! 	    pp ppd
  	  end
  
***************
*** 66,69 ****
--- 66,70 ----
      val cut     = Break{nsp = 0, offset = 0}
      val newline = NewLine
+     val nbSpace = NBSpace
      val control = Control
  

Index: pp-desc-sig.sml
===================================================================
RCS file: /cvsroot/smlnj/sml/src/smlnj-lib/PP/src/pp-desc-sig.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** pp-desc-sig.sml	6 Jul 2005 14:35:48 -0000	1.3
--- pp-desc-sig.sml	24 Jul 2005 00:41:21 -0000	1.4
***************
*** 28,34 ****
--- 28,37 ----
      val cut     : pp_desc
      val newline : pp_desc
+     val nbSpace : int -> pp_desc
  
      val control : (PPS.device -> unit) -> pp_desc
  
+     val description : PPS.stream * pp_desc -> unit
+ 
    end
  



-------------------------------------------------------
SF.Net email is sponsored by: Discover Easy Linux Migration Strategies
from IBM. Find simple to follow Roadmaps, straightforward articles,
informative Webcasts and more! Get everything you need to get up to
speed, fast. http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click