On 2006-06-11, SIGOURE Benoit <sigoure.benoit(a)lrde.epita.fr> wrote:
Index: ChangeLog
from SIGOURE Benoit <sigoure.benoit(a)lrde.epita.fr>
Use --verbose instead of --statistics.
This cancels the note of the previous commit.
* src/str/log-timed.str: Use --verbose instead of --statistics.
* src/str/xrm-front.str: Change verbosity levels.
log-timed.str | 6 +++---
xrm-front.str | 10 +++++-----
2 files changed, 8 insertions(+), 8 deletions(-)
Index: src/str/log-timed.str
--- src/str/log-timed.str (revision 63)
+++ src/str/log-timed.str (working copy)
@@ -14,7 +14,7 @@
** printed. (default level=1)
*/
log-timed(s | msg, level) =
- if <geq>(<get-config> "--statistics", level) then
+ if <geq>(<verbosity>(), level) then
^^^^^^^^^^^^^^^^^^^^^^^^^^^
^^^^^^^^^^^^^^^^^^^^^^^^^^^
where(
times => start
; print-log-msg(|msg)
@@ -42,7 +42,7 @@
** Same thing as log-timed but nothing will be printed until s finished.
*/
log-timed-reentrant(s | msg, level) =
- if <geq>(<get-config> "--statistics", level) then
+ if <geq>(<verbosity>(), level) then
^^^^^^^^^^^^^^^^^^^^^^^^^^^
^^^^^^^^^^^^^^^^^^^^^^^^^^^
where(times => start)
; s
; where(
@@ -68,6 +68,6 @@
<concat-strings>["[ "
, <log-src>
, " | info ] "
- , <align-left>(' ', msg, 40) // 40 = max strlen(msg)
+ , <align-left>(' ', msg, 36) // 36 = max strlen(msg)
]
; log-puts
--
SIGOURE Benoit aka Tsuna
_____
/EPITA\ Promo 2008.CSI Rock & tRoll