Update of /cvsroot/hcoop/domtool2/src
In directory sc8-pr-cvs17:/tmp/cvs-serv6227/src
Modified Files:
htmlPrint.sml
Log Message:
Make HTML pretty-printing prettier
Index: htmlPrint.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/htmlPrint.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** htmlPrint.sml 6 Sep 2006 03:22:45 -0000 1.3
--- htmlPrint.sml 26 May 2007 15:45:48 -0000 1.4
***************
*** 96,103 ****
| TList t => dBox [punct "[", p_typ' false t, punct "]"]
| TArrow (t1, t2) =>
! parenIf pn [p_typ' true t1, space 1, punct "->", space 1, p_typ' true
t2]
| TAction (p, r1, r2) =>
! parenIf pn [p_predBoxed p, space 1, p_record r1, space 1,
! punct "=>", space 1, p_record r2]
| TNested (p, t) =>
parenIf pn [p_pred' false p, space 1, punct "=>", space 1, p_typ' false
t]
--- 96,106 ----
| TList t => dBox [punct "[", p_typ' false t, punct "]"]
| TArrow (t1, t2) =>
! parenIf pn [p_typ' true t1, space 1, punct "->", space 1, p_typ' false
t2]
| TAction (p, r1, r2) =>
! (case (StringMap.numItems r1, StringMap.numItems r2) of
! (0, 0) => parenIf pn [p_predBoxed p]
! | (_, 0) => parenIf pn [p_predBoxed p, space 1, p_record r1]
! | _ => parenIf pn [p_predBoxed p, space 1, p_record r1, space 1,
! punct "=>", space 1, p_record r2])
| TNested (p, t) =>
parenIf pn [p_pred' false p, space 1, punct "=>", space 1, p_typ' false
t]
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
