19 Jun
2006
19 Jun
'06
12:01 p.m.
>> "SIGOURE" == SIGOURE Benoit
<sigoure.benoit(a)lrde.epita.fr> writes:
Hum, nice, and heavily factored. I love that!
Index: src/tools/pp-pctl.str
--- src/tools/pp-pctl.str (revision 76)
+++ src/tools/pp-pctl.str (working copy)
@@ -20,8 +20,8 @@
pp-pctl =
?(<read-from-stream>, out-file)
- ; pp-pctl-to-abox
- ; box2text-stream(|80, out-file)
+ ; (pp-pctl-to-abox < id + debug(!"Pretty-printing failed\n"); fail)
+ ; (box2text-stream(|80, out-file) < id + debug(!"box2text failed\n");
fail)
; <fputs> ("\n", out-file)
/**
Index: src/tools/pp-xrm.str
--- src/tools/pp-xrm.str (revision 76)
+++ src/tools/pp-xrm.str (working copy)
@@ -20,8 +20,8 @@
pp-xrm =
?(<read-from-stream>, out-file)
- ; pp-xrm-to-abox
- ; box2text-stream(|80, out-file)
+ ; (pp-xrm-to-abox < id + debug(!"Pretty-printing failed\n"); fail)
+ ; (box2text-stream(|80, out-file) < id + debug(!"box2text failed\n");
fail)
; <fputs> ("\n", out-file)
/**
Index: src/tools/pp-prism.str
--- src/tools/pp-prism.str (revision 76)
+++ src/tools/pp-prism.str (working copy)
@@ -20,8 +20,8 @@
pp-prism =
?(<read-from-stream>, out-file)
- ; pp-prism-to-abox
- ; box2text-stream(|80, out-file)
+ ; (pp-prism-to-abox < id + debug(!"Pretty-printing failed\n"); fail)
+ ; (box2text-stream(|80, out-file) < id + debug(!"box2text failed\n");
fail)
; <fputs> ("\n", out-file)
/**
Index: src/tools/pp-xpctl.str
--- src/tools/pp-xpctl.str (revision 76)
+++ src/tools/pp-xpctl.str (working copy)
@@ -20,8 +20,8 @@
pp-xpctl =
?(<read-from-stream>, out-file)
- ; pp-xpctl-to-abox
- ; box2text-stream(|80, out-file)
+ ; (pp-xpctl-to-abox < id + debug(!"Pretty-printing failed\n"); fail)
+ ; (box2text-stream(|80, out-file) < id + debug(!"box2text failed\n");
fail)
; <fputs> ("\n", out-file)