diff options
| author | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 20:41:52 +0000 |
|---|---|---|
| committer | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 20:41:52 +0000 |
| commit | 66b683579143de15598c16695df72d1b224c2030 (patch) | |
| tree | 1dfc6d44e7517fb3e1fe838239daac263948bbf5 /z25.c | |
| parent | 3c59753b94d0425e7ddcc4b57b11dfb283d0c144 (diff) | |
| download | lout-66b683579143de15598c16695df72d1b224c2030.tar.gz | |
Lout 3.37.
git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@43 9365b830-b601-4143-9ba8-b4a8e2c3339c
Diffstat (limited to 'z25.c')
| -rw-r--r-- | z25.c | 18 |
1 files changed, 12 insertions, 6 deletions
@@ -1,7 +1,7 @@ /*@z25.c:Object Echo:aprint(), cprint(), printnum()@**************************/ /* */ -/* THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.36) */ -/* COPYRIGHT (C) 1991, 2007 Jeffrey H. Kingston */ +/* THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37) */ +/* COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston */ /* */ /* Jeffrey H. Kingston (jeff@it.usyd.edu.au) */ /* School of Information Technologies */ @@ -1061,8 +1061,7 @@ void DebugGalley(OBJECT hd, OBJECT pinpt, int indent) debug2(ANY, D, "++ %d %s ", (int) y, Image(type(y))); DebugObject(y); } - else - if( type(y) == GAP_OBJ ) + else if( type(y) == GAP_OBJ ) { debug4(ANY, D, "| %d %-7s %20s %s", (int) y, "gap_obj", Image(type(y)), EchoGap(&gap(y))); @@ -1095,8 +1094,15 @@ void DebugGalley(OBJECT hd, OBJECT pinpt, int indent) } else if( is_definite(type(y)) ) { - debug4(ANY, D, "| %d %-7s %20s %s", (int) y, "def_obj", - Image(type(y)), is_word(type(y)) ? string(y):STR_EMPTY); + debug5(ANY, D, "| %d %-7s %20s %s width %s", (int) y, "def_obj", + Image(type(y)), is_word(type(y)) ? string(y):STR_EMPTY, + EchoLength(size(y, COLM))); + if( size(y, COLM) > 25 * CM ) + { + debug0(ANY, D, "wide object: {"); + DebugObject(y); + debug0(ANY, D, "}"); + } } else if( is_indefinite(type(y)) ) { |