Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sdd.hp.com!uakari.primate.wisc.edu!news.larc.nasa.gov!amiga-request
From: amiga-request@ab20.larc.nasa.gov (Amiga Sources/Binaries Moderator)
Newsgroups: comp.sources.amiga
Subject: v91i110: Columnize 1.0 - filter into columns, Part01/01
Message-ID: <comp.sources.amiga:v91i110@ab20.larc.nasa.gov>
Date: 18 May 91 02:02:29 GMT
Reply-To: RWALLACE%vax1.tcd.ie@CUNYVM.CUNY.EDU
Lines: 247
Approved: tadguy@uunet.UU.NET (Tad Guy)
X-Mail-Submissions-To: amiga@uunet.uu.net
X-Post-Discussions-To: comp.sys.amiga.misc

Submitted-by: RWALLACE%vax1.tcd.ie@CUNYVM.CUNY.EDU
Posting-number: Volume 91, Issue 110
Archive-name: utilities/columnize-1.0/part01

[ includes uuencoded executable  ...tad ]

Takes standard input, puts it into columns and sends to standard output
Usage: COLUMNIZE [column_width]
Column width defaults to 16

#!/bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of archive 1 (of 1)."
# Contents:  column.c column.uu
# Wrapped by tadguy@ab20 on Fri May 17 22:02:27 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'column.c' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'column.c'\"
else
echo shar: Extracting \"'column.c'\" \(691 characters\)
sed "s/^X//" >'column.c' <<'END_OF_FILE'
Xchar buf[256];
X
Xmain (argc,argv)
Xchar **argv;
X{
X    int width=16,i,t=0;
X    char *s;
X    if (argc>1 && !strcmp (argv[1],"?"))
X    {
X	printf ("Columnize v1.0 by Russell Wallace 29 July 1989\n\
XTakes standard input, puts it into columns and sends to standard output\n\
XUsage: COLUMNIZE [column_width]\n\
XColumn width defaults to 16\n");
X	return;
X    }
X    if (argc>1)
X	width=atoi (argv[1]);
X    do
X    {
X	gets (buf);
X	if (buf[0])
X	{
X	    i=0;
X	    for (s=buf;*s;s++)
X	    {
X		putchar (*s);
X		t++;
X		i++;
X	    }
X	    for (;i<width;i++)
X	    {
X		t++;
X		putchar (' ');
X	    }
X	    if (t+width>=76)
X	    {
X		putchar ('\n');
X		t=0;
X	    }
X	}
X    }
X    while (!feof (stdin));
X    putchar ('\n');
X}
X
END_OF_FILE
if test 691 -ne `wc -c <'column.c'`; then
    echo shar: \"'column.c'\" unpacked with wrong size!
fi
# end of 'column.c'
fi
if test -f 'column.uu' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'column.uu'\"
else
echo shar: Extracting \"'column.uu'\" \(8499 characters\)
sed "s/^X//" >'column.uu' <<'END_OF_FILE'
Xbegin 644 column
XM```#\P`````````#``````````(```4[````Z@````$```/I```%.T[Z!%A.$
XM5?_V.WP`$/_^0FW_^@QM``$`"&\D2'H`X"!M``HO*``$3KH#@%!/2D!F#DAZ)
XM`,Q.N@B>6$].74YU#&T``0`(;Q(@;0`*+R@`!$ZZ`6)83SM`__Y(;()>3KH!K
XMQEA/2BR"7F=X0FW__$'L@EXK2/_V8"!(;("L(&W_]A`02(`_`$ZZ#-)<3U)M:
XM__I2;?_\4JW_]B!M__9*$&;88!92;?_Z2&R`K#\\`"!.N@RJ7$]2;?_\,"W_I
XM_+!M__YMX#`M__K0;?_^L'P`3&T22&R`K#\\``I.N@R`7$]";?_Z""P``X"B/
XM9P#_<$AL@*P_/``*3KH,9%Q/8`#_0#\`0V]L=6UN:7IE('8Q+C`@8GD@4G5SL
XM<V5L;"!786QL86-E(#(Y($IU;'D@,3DX.0I486ME<R!S=&%N9&%R9"!I;G!UB
XM="P@<'5T<R!I="!I;G1O(&-O;'5M;G,@86YD('-E;F1S('1O('-T86YD87)D(
XM(&]U='!U=`I5<V%G93H@0T],54U.25I%(%MC;VQU;6Y?=VED=&A="D-O;'5M/
XM;B!W:61T:"!D969A=6QT<R!T;R`Q-@H`3E4``$CG#"`D;0`(#!(`(&<&#!(`:
XM"68$4HI@\'H`#!(`+68&>@%2BF`(#!(`*V8"4HIX`&`6($I2BA`02(`R!,+\L
XM``K003@`F'P`,!`22(!20$'L@!0(,``"``!FV$I%9P8P!$1`8`(P!$S?!#!.#
XM74YU3E4``$CG""`D;0`(3KH`-C@`L'S__V<.N'P`"F<(($I2BA"$8.9"$KA\=
XM__]F$+7M``AF"G``3-\$$$Y=3G4@+0`(8/).50``2&R`EDZZ``A83TY=3G5.R
XM50``2.<(("1M``@O"DZZ`#(X`+!\__]83V<B,`1(P&`44Y((Z@`#``QP_TS?Z
XM!!!.74YU8-9*@&?Z68!GY#`$8.I.50``+PHD;0`((%*QZ@`$90PO"F$66$\DW
XM7TY=3G4@4E*2$!!(@,!\`/]@[$Y5``!(YP@P)&T`"!`J``S`/``89PIP_TS?:
XM#!!.74YU"*H``@`,2JH`"&8(+PI.N@R$6$\0*@`,2(`(```'9S!![("6)D@0A
XM*P`,2(#`?`"$L'P`A&8,/SS__R\+3KH+/%Q/U_P````60>R"3K?(9=8_*@`0G
XM+RH`"!`J``U(@#\`3KH`;C@`2D!03VX42D1F!'`(8`)P$($J``QP_V``_WHP)
XM!$C`)*H`"-"J``@E0``$(%)2DA`02(#`?`#_8`#_6C`\?_]@!#`O``Q30&L4*
XM(&\`!")O``BQ"68,4TA*&%?(__9P`$YU8P1P`4YU</].=4Y5``!(YPP@."T`,
XM"$ZZ#>`P!,'\``8D0-7L@UY*1&T*N&R"3FP$2I)F$#E\``*#8G#_3-\$,$Y=*
XM3G4P*@`$P'P``[!\``%F"CE\``6#8G#_8.!P`#`M``XO`"\M``HO$DZZ#\(J_
XM`+"\_____T_O``QF#$ZZ#X8Y0(-B</]@M"`%8+!A<$/L@EI%[():M<EF#C(\@
XM`%-K"'0`(L)1R?_\*4^#9"QX``0I3H-H2.>`@`@N``0!*6<02_H`"$ZN_^)@P
XM!D*G\U].<T/Z`"!.KOYH*4"#;&8,+CP``X`'3J[_E&`$3KH`&E!/3G5D;W,NJ
XM;&EB<F%R>0!)^0``?_Y.=4Y5```O"DAY``$``#`L@D[!_``&+P!.N@]D*4"#:
XM7E!/9A1"ITAY``$``$ZZ#RA03RYL@V1.=2!L@UY":``$(&R#7C%\``$`$"!L6
XM@UXQ?``!``H@;(-D("R#9)"H``10@"E`@W`@;(-P(+Q-04Y80J=.N@\8)$!*\
XMJ@"L6$]G+B\M``PO+0`(+PI.N@"N.7P``8-T(&R#7@!H@```!"!L@UX`:(``H
XM``I/[P`,8$)(:@!<3KH/,DAJ`%Q.N@[T*4"#=B!L@W9*J``D4$]G$"!L@W8B?
XM:``D+Q%.N@X&6$\O+(-V+PI.N@)H*6R#=H-Z4$].N@X&(&R#7B"`3KH.)B!LI
XM@UXA0``&9Q9(>`/M2'H`*DZZ#@(@;(->(4``#%!/+RR#>C\L@WY.NOH*0F=.Y
XMN@P@4$\D7TY=3G4J`$Y5``!(YPPP)&T`$"!M``A*J`"L9Q@@;0`(("@`K.6`O
XM*``@1"`H`!#E@"9`8`0F;()0$!-(@$C`T*T`#%2`.4"#@$*G,"R#@$C`+P!.0
XMN@WV*4"#@E!/9@A,WPPP3EU.=1`32(`Z`#\%($M2B"\(+RR#@DZZ`7XP!4C`6
XM($#1[(."0_H!1!#99OP_+0`.+PHO+(."3KH!.B!L@X)",%``.7P``8-^,`5(,
XMP-"L@X(F0%*+)$M/[P`4$!-(@#H`L'P`(&<8NGP`"6<2NGP`#&<,NGP`#6<&2
XMNGP`"F8$4HM@V`P3`"!M>@P3`")F+E*+($M2BQ`02(`Z`&<>($I2BA"%NGP`7
XM(F80#!,`(F8$4HM@!D(J__]@`F#68#@@2U*+$!!(@#H`9R:Z?``@9R"Z?``)S
XM9QJZ?``,9Q2Z?``-9PZZ?``*9P@@2E**$(5@SB!*4HI"$$I%9@)3BU)L@WY@Z
XM`/]:0A)"IS`L@WY20$C`Y8`O`$ZZ#-0I0(-Z4$]F"$)L@WY@`/[8>@`F;(."R
XM8"0P!4C`Y8`@;(-Z(8L(`"!+(`A*&&;\D<!3B#`(4D!(P-?`4D6Z;(-^;=8P`
XM!4C`Y8`@;(-Z0K`(`&``_I0@`#`\?_]@!#`O``P@;P`$2AAF_%-((F\`"%-`>
XM$-E7R/_\9P)"$"`O``1.=4SO`P``!"`(,B\`#&`"$-E7R?_\9P9206`"0AA1>
XMR?_\3G5.50``2.<.,"1M``A"ITAZ`(Y.N@Q:*4"#AE!/9@A,WPQP3EU.=2!MX
XM``PB:``D+RD`!$ZZ#(HH`%A/9U)(>@!M($0O*``V3KH,7"9`2H!03V<T2'@#Y
XM[2\+3KH+;"P`4$]G)"`&Y8`J`"!%)6@`"`"D)48`G$AX`^U(>@`X3KH+2"5``
XM`*!03R\$3KH,*%A/+RR#ADZZ"XQ"K(.&6$]@@&EC;VXN;&EB<F%R>0!724Y$4
XM3U<`*@!.50``2&T`#"\M``A(>@1@3KH`F$_O``Q.74YU3E4``$CG""`D;0`.O
XM#&T`!``29@@@;0`(*!!@'$IM``QO#"!M``AP`#`0*`!@"B!M``@P$$C`*`!"B
XM;0`22FT`#&P01&T`#$J$;`A$A#M\``$`$C(M``Q(P2`$3KH#D$'L@`)3BA2P2
XM```R+0`,2,$@!$ZZ`X8H`&;:2FT`$F<&4XH4O``M(`I,WP003EU.=4Y5_R)($
XMYP@P)&T`""9M``Q";?_Z*VT`$/_\($M2BQ`02(`X`&<``NZX?``E9@`"S$(M=
XM_S`[?``!__@[?``@__8[?"<0__0@2U*+$!!(@#@`L'P`+68.0FW_^"!+4HL0^
XM$$B`.`"X?``P9A`[?``P__8@2U*+$!!(@#@`N'P`*F88(&W__%2M__P[4/_R*
XM($M2BQ`02(`X`&`R0FW_\F`<,"W_\L'\``K01)!\`#`[0/_R($M2BQ`02(`X/
XM`#`$4D!![(`4"#```@``9M2X?``N9EH@2U*+$!!(@#@`L'P`*F88(&W__%2MB
XM__P[4/_T($M2BQ`02(`X`&`R0FW_]&`<,"W_],'\``K01)!\`#`[0/_T($M2C
XMBQ`02(`X`#`$4D!![(`4"#```@``9M0[?``"__"X?`!L9A(@2U*+$!!(@#@`.
XM.WP`!/_P8!"X?`!H9@H@2U*+$!!(@#@`,`1(P&!Z.WP`"/_N8!8[?``*_^Y@4
XM#CM\`!#_[F`&.WS_]O_N/RW_\$AM_S`_+?_N+RW__$ZZ_>0K0/_J,"W_\$C`!
XMT:W__$_O``Q@7"!M__Q8K?_\(E`K2?_J(`E*&6;\D\!3B3M)__!@2B!M__Q4L
XMK?_\.!!![?\O*TC_ZA"$8"B0O````&-GXE.`9Y*0O`````MG`/]R68!GLE6`^
XM9P#_<%>`9P#_<F#,0>W_,)'M_^H[2/_P,"W_\+!M__1O!CMM__3_\$IM__AG7
XM:"!M_^H,$``M9PH@;?_J#!``*V8N#&T`,/_V9B93;?_R(&W_ZE*M_^H0$$B`*
XM/P!.DK!\__]43V8*</],WPP03EU.=6`6/RW_]DZ2L'S__U1/9@1P_V#D4FW_?
XM^C`M__)3;?_RL&W_\&[<0FW_[F`@(&W_ZE*M_^H0$$B`/P!.DK!\__]43V8$'
XM</]@L%)M_^X@;?_J2A!G"C`M_^ZP;?_T;<XP+?_NT6W_^DIM__AF*&`8/SP`Q
XM($Z2L'S__U1/9@9P_V``_WA2;?_Z,"W_\E-M__*P;?_P;MI@%C\$3I*P?/__-
XM5$]F!G#_8`#_4E)M__I@`/T(,"W_^F``_T)(YT@`0H1*@&H$1(!21$J!:@9$1
XM@0I$``%A/DI$9P)$@$S?`!)*@$YU2.=(`$*$2H!J!$2`4D1*@6H"1(%A&B`!;
XM8-@O`6$2(`$B'TJ`3G4O`6$&(A]*@$YU2.<P`$A!2D%F($A!-@$T`$)`2$"`F
XMPR(`2$`R`H+#,`%"04A!3-\`#$YU2$$F`2(`0D%(04A`0D!T#]"`TX&V@6($)
XMDH-20%'*__),WP`,3G5.50``2&R`K#\M``A.N@`(7$].74YU3E4``"\$."T`(
XM""\M``H_!$ZZ`#"X?``*7$]F)"!M``H0*``,2(`(```'9Q0_//__+RT`"DZZP
XM`/1<3R@?3EU.=6#X3E4``"\*)&T`"B!2L>H`!&48,"T`",!\`/\_`"\*3KH`1
XMR%Q/)%].74YU(%)2DA`M``D0@$B`P'P`_V#H3E4``"\*0>R`EB1(($K5_```A
XM`!8O"&$06$]![().M<AEZB1?3EU.=4Y5``!(YP@@)&T`"'@`(`IF"G#_3-\$B
XM$$Y=3G5**@`,9U`(*@`"``QG##\\__\O"F%2.`!<3Q`J``U(@#\`3KH%'(A`O
XM""H``0`,5$]G"B\J``A.N@(N6$\(*@`%``QG$B\J`!).N@+`+RH`$DZZ`A10=
XM3T*20JH`!$*J``A"*@`,,`1@D$Y5__Y(YP@@)&T`"$'Z_T8I2(.*""H`!``,S
XM9PIP_TS?!!!.74YU""H``@`,9S`@4I'J``@X"#\$+RH`"!`J``U(@#\`3KH"5
XM@+!$4$]G$`CJ``0`#$*20JH`!'#_8,`,;?__``QF$`BJ``(`#$*20JH`!'``,
XM8*A*J@`(9@@O"DZZ`)I83PQJ``$`$&8J&VT`#?__/SP``4AM__\0*@`-2(`_;
XM`$ZZ`B*P?``!4$]FH#`M``Q@`/]J)*H`"#`J`!!(P-"J``@E0``$".H``@`,C
XM(%)2DA`M``T0@$B`P'P`_V``_SY.50``+PI![("6)$A**@`,9QC5_````!9!"
XM[().M<AE"'``)%].74YU8.)"DD*J``1"J@`((`I@ZDY5__PO"B1M``@_/`0`D
XM3KH`P"M`__Q43V88-7P``0`0($K1_`````XE2``()%].74YU-7P$```0".H`S
XM`0`,)6W__``($"H`#4B`/P!.N@#B2D!43V<&`"H`@``,8,Y.50``2.<`,"1LJ
XM@EI@%"92("H`!%"`+P`O"DZZ!%Q03R1+(`IFZ$*L@EI,WPP`3EU.=4Y5```O]
XM"D'Z_\8I2(..0J<@+0`(4(`O`$ZZ!`HD0$J`4$]F"'``)%].74YU)*R"6B5MY
XM``@`!"E*@EH@"E"`8.9.50``<``P+0`(+P!ALEA/3EU.=4Y5``!(YP`PE\LDR
XM;():8`X@;0`(48BQRF<2)DHD4B`*9NYP_TS?#`!.74YU(`MG!":28`0I4H):9
XM("H`!%"`+P`O"DZZ`ZYP`%!/8-A.50``+PHP+0`(P?P`!B1`U>R#7DIM``AM\
XM#C`M``BP;().;`1*DF8..7P``H-B</\D7TY=3G4P+0`(P?P`!B!L@UXO,`@`7
XM3KH"QDJ`6$]G!'`!8`)P`&#83E4``"\M``A.N@*02H!83V8.3KH"FCE`@V)P?
XM_TY=3G5P`&#X3E4``$CG#"`X+0`(3KH`<#`$P?P`!B1`U>R#7DI$;0JX;()..
XM;`1*DF80.7P``H-B</],WP0P3EU.=3`J``3`?``#9@HY?``%@V)P_V#D<``P9
XM+0`.+P`O+0`*+Q).N@)T*@"PO/____]/[P`,9@Q.N@(:.4"#8G#_8+@@!6"T?
XM3E7__$AX$`!"ITZZ`M@K0/_\"```#%!/9Q)*;(-T9@@@+?_\3EU.=4ZZ``9P:
XM`&#T3E4``$AX``1(>@`<3KH!\"\`3KH"$#\\``%.N@`.3^\`#DY=3G5>0PH`2
XM3E4``$JL@XIG!B!L@XI.D#\M``A.N@`(5$].74YU3E7__"\$,"T`"$C`*T#_'
XM_$JL@UYG*'@`8`H_!$ZZ`/Y43U)$N&R"3FWP,"R"3L'\``8O`"\L@UY.N@'ZT
XM4$]*K(..9P8@;(..3I!*K()49PHO+()43KH!=EA/2JR#DF<((&R#DB"L@Y9*L
XMK(.:9PHO+(.:3KH!DEA/2JR#GF<*+RR#GDZZ`8)83TJL@Z)G"B\L@Z).N@%RQ
XM6$]*K(.F9PHO+(.F3KH!8EA/+'@`!`@N``0!*6<4+PU+^@`*3J[_XBI?8`9"M
XMI_-?3G-*K(-V9C!*K(."9R@P+(.`2,`O`"\L@X).N@%2,"R#?E)`2,#E@"\`E
XM+RR#>DZZ`3Y/[P`08`Y.N@$L+RR#=DZZ`5A83R`M__PN;(-D3G4H'TY=3G5.[
XM50``2.<.(#@M``@P!,'\``8D0-7L@UY*1&T*N&R"3FP$2I)F$#E\``*#8G#_B
XM3-\$<$Y=3G4(*@`'``1F""\23KH`"EA/0I)P`&#B(B\`!"QL@VQ.[O_<(B\`\
XM!"QL@VQ.[O^"(B\`!"QL@VQ.[O^X+&R#;$[N_\HL;(-L3N[_?"(O``0L;(-L]
XM3N[_*$SO``8`!"QL@VQ.[O_B+&R#;$[N_\1,[P`.``0L;(-L3N[_UD[Z``(BC
XM+P`$+&R#;$[N_Z9,[P`.``0L;(-L3N[_T$CG`01,[R"```PL;(-H3J[_E$S?2
XM((!.=4[Z``(B;P`$+&R#:$[N_F),[P`#``0L;(-H3N[_.B)O``0L;(-H3N[^M
XMVBQL@VA.[O]\(F\`!"`O``@L;(-H3N[_+B!O``0L;(-H3N[^C"QL@V@B;P`$@
XM("\`"$[N_=@B;P`$+&R#:$[N_H9,[P`#``0L;(-H3N[^SB!O``0L;(-H3N[^=
XM@$SO`P``!"QL@X9.[O^@(&\`!"QL@X9.[O^F(&\`!"QL@X9.[O^R``````/LC
XM`````0````$```3.`````````_(```/J````EC`Q,C,T-38W.#EA8F-D968`N
XM```@("`@("`@("`P,#`P,"`@("`@("`@("`@("`@("`@()!`0$!`0$!`0$!`@
XM0$!`0$`,#`P,#`P,#`P,0$!`0$!`0`D)"0D)"0$!`0$!`0$!`0$!`0$!`0$!_
XM`0$!0$!`0$!`"@H*"@H*`@("`@("`@("`@("`@("`@("`@)`0$!`(```````'
XM```````````!``````$``````````````````````0$````!````````````%
XM``````````$"`````0``````````````````````````````````````````$
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM```````````````````````````````````````````4````````````````4
X.`_(```/K`````0```_(`9
X``
Xend
Xsize 6044
END_OF_FILE
if test 8499 -ne `wc -c <'column.uu'`; then
    echo shar: \"'column.uu'\" unpacked with wrong size!
fi
# end of 'column.uu'
fi
echo shar: End of archive 1 \(of 1\).
cp /dev/null ark1isdone
MISSING=""
for I in 1 ; do
    if test ! -f ark${I}isdone ; then
	MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have the archive.
    rm -f ark[1-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0
-- 
Mail submissions (sources or binaries) to <amiga@uunet.uu.net>.
Mail comments to the moderator at <amiga-request@uunet.uu.net>.
Post requests for sources, and general discussion to comp.sys.amiga.misc.