
DIRECTORY Commander, Rope, VFonts;

ColumnLs: CEDAR DEFINITIONS
~ BEGIN
ColumnateMode: TYPE ~ {
ragged,					-- uses fixed width spaces; very fast but uneven
tabbed,					-- uses tabs; fast, uneven, but spacing may be less efficient
spaced,					-- uses variable width spaces; slow, even, and space efficient
fixed};					-- uses fixed pitch font; very fast and even

ColumnateNames: PROC [
cmd: Commander.Handle,
names: LIST OF Rope.ROPE,
reverseOrder: BOOL ¬ FALSE,
mode: ColumnateMode ¬ tabbed,
columnOrder: BOOL ¬ FALSE,
font: VFonts.Font ¬ NIL,
rowIndentation: Rope.ROPE ¬ NIL];
ColumnWidth: PROC [
cmd: Commander.Handle,
names: LIST OF Rope.ROPE,
mode: ColumnateMode ¬ tabbed,
font: VFonts.Font ¬ NIL]
RETURNS [columnWidth: NAT];
ColumnateGivenColumnWidth: PROC [
cmd: Commander.Handle,
names: LIST OF Rope.ROPE,
columnWidth: NAT,
reverseOrder: BOOL ¬ FALSE,
mode: ColumnateMode ¬ tabbed,
columnOrder: BOOL ¬ FALSE,
font: VFonts.Font ¬ NIL,
rowIndentation: Rope.ROPE ¬ NIL];

END.

   ú  
ColumnLs.mesa
Copyright Ó 1988, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, July 22, 1992 7:09 pm PDT
Columnation Procedures
Columnate and print the names to cmd.out, optionally reversing the order of the names.
ragged produces slightly ragged columnation, but is quicker.
If not columnOrder, then columnation is row order.
If font is NIL, it is defaulted to Tioga, point size 10.

Return the column width suitable for the list of names.

Columnate given the desired column width.
Ê  •NewlineDelimiter
–"cedarcode" style™ šœ™Jšœ
Ïeœ7™BJ™&J˜ JšÏk	œ˜"J˜ —šÐblœžœž˜Jšœž˜—headšÏl™šœžœ˜JšœÏc0˜<Jšœ¡=˜IJšœ¡>˜JJšœ¡,˜8J˜ —šÏnœžœ˜J˜Jšœžœžœžœ˜Jšœžœžœ˜J˜Jšœžœžœ˜Jšœžœ˜Jšœžœžœ˜!J™VJ™<Jšœ2™2Jšœžœ*™8J™ —š¢œžœ˜J˜Jšœžœžœžœ˜J˜Jšœžœ˜Jšžœžœ˜J™7J™ —š¢œžœ˜!J˜Jšœžœžœžœ˜Jšœžœ˜Jšœžœžœ˜J˜Jšœžœžœ˜Jšœžœ˜Jšœžœžœ˜!J™)——J˜ šžœ˜J˜ —— …—    Ú  Ö  