amiga-request@ab20.larc.nasa.gov (Amiga Sources/Binaries Moderator) (05/18/91)
Submitted-by: RWALLACE%vax1.tcd.ie@CUNYVM.CUNY.EDU
Posting-number: Volume 91, Issue 113
Archive-name: utilities/linecount-1.0/part01
[ includes uuencoded executable ...tad ]
#!/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: lcount.c lcount.uu
# Wrapped by tadguy@ab20 on Fri May 17 22:08:26 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'lcount.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lcount.c'\"
else
echo shar: Extracting \"'lcount.c'\" \(664 characters\)
sed "s/^X//" >'lcount.c' <<'END_OF_FILE'
Xmain (argc,argv)
Xchar **argv;
X{
X FILE *f;
X long lines,totlines = 0;
X int i,c;
X
X if (argc < 2 || !strcmp (argv[1],"?"))
X {
X printf ("LineCount v1.0 by Russell Wallace 7 July 1990\n"
X "Usage: LC <filenames>\n"
X "This program is in the public domain\n");
X exit (20);
X }
X
X for (i=1;i<argc;i++)
X {
X f = fopen (argv[i],"r");
X if (f == 0)
X printf ("can't open file %s\n",argv[i]);
X else
X {
X lines = 0;
X for (;;)
X {
X c = fgetc (f);
X if (feof (f))
X break;
X if (c == '\n')
X {
X lines++;
X totlines++;
X }
X }
X fclose (f);
X printf ("%s\t%ld\n",argv[i],lines);
X }
X }
X printf ("\n%ld\n",totlines);
X}
X
END_OF_FILE
if test 664 -ne `wc -c <'lcount.c'`; then
echo shar: \"'lcount.c'\" unpacked with wrong size!
fi
# end of 'lcount.c'
fi
if test -f 'lcount.uu' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lcount.uu'\"
else
echo shar: Extracting \"'lcount.uu'\" \(8913 characters\)
sed "s/^X//" >'lcount.uu' <<'END_OF_FILE'
Xbegin 644 lcount
XM```#\P`````````#``````````(```5X````MP````$```/I```%>$[Z!3!.D
XM5?_P0JW_]`QM``(`"&T62'H`[B!M``HO*``$3KH#`%!/2D!F%$AZ`-I.N@E\E
XM6$\_/``43KH2OE1/.WP``?_R8```H$AZ`28P+?_R2,#E@"!M``HO,`@`3KH"&
XM(E!/*T#__$JM__QF'#`M__)(P.6`(&T`"B\P"`!(>@#T3KH)*E!/8%I"K?_X$
XM+RW__$ZZ`0)83SM`__`@;?_\""@``P`,9A(,;0`*__!F"%*M__A2K?_T8-0O=
XM+?_\3KH.&%A/+RW_^#`M__)(P.6`(&T`"B\P"`!(>@"N3KH(T$_O``Q2;?_R3
XM,"W_\K!M``AM`/]8+RW_]$AZ`)9.N@BP4$].74YU/P!,:6YE0V]U;G0@=C$NP
XM,"!B>2!2=7-S96QL(%=A;&QA8V4@-R!*=6QY(#$Y.3`*57-A9V4Z($Q#(#QF&
XM:6QE;F%M97,^"E1H:7,@<')O9W)A;2!I<R!I;B!T:&4@<'5B;&EC(&1O;6%IC
XM;@H`<@!C86XG="!O<&5N(&9I;&4@)7,*`"5S"25L9`H`"B5L9`H`3E4``"\*0
XM)&T`""!2L>H`!&4,+PIA%EA/)%].74YU(%)2DA`02(#`?`#_8.Q.50``2.<("
XM,"1M``@0*@`,P#P`&&<*</],WPP03EU.=0BJ``(`#$JJ``AF""\*3KH.A%A/<
XM$"H`#$B`"```!V<P0>R`S"9($"L`#$B`P'P`A+!\`(1F##\\__\O"TZZ#3Q<L
XM3]?\````%D'L@H2WR&76/RH`$"\J``@0*@`-2(`_`$ZZ`FXX`$I`4$]N%$I$V
XM9@1P"&`"<!"!*@`,</]@`/]Z,`1(P"2J``C0J@`()4``!"!24I(0$$B`P'P`Z
XM_V``_UI.50``+PI.N@VT)$!*@&8(<``D7TY=3G4O"B\M``PO+0`(809/[P`,0
XM8.A.50``2.<(("\M`!!.N@P>0>R``B1(6$]*$F80.7P`!8*2<`!,WP003EU.J
XM=2!*(FT`#!`8L!EF!$H`9O:0(4B`9P1<BF#2/RH`!"\M``A.N@!P.`"P?/__B
XM7$]F!'``8,0@;0`0$40`#2!M`!`1?``!``P@+0`08*PP/'__8`0P+P`,4T!K_
XM%"!O``0B;P`(L0EF#%-(2AA7R/_V<`!.=6,$<`%.=7#_3G5.50``/RT`##\\3
XM`P$O+0`(80903TY=3G5.50``2.</,"1M``A.N@\F)FR"E'@`8`XP!,'\``9*2
XMLP@`9PY21+AL@H1M['H&8```Q`@M``$`#&<P2'C__R\*3KH1$BP`4$]G("\&O
XM3KH12B\*3KH0V$J`4$]F#DZZ$.(Z`+!\`,UF``",2'@#[2\*3KH0\"P`2H90%
XM3V9@""T````,9@1Z`6!L2'@#[B\*3KH0TBP`4$]F"$ZZ$*8Z`&!42'@`(4AZC
XM`)).NA%N+@!03V<*+P=.NA$86$]@'DAX``%(>@""+P9.NA#<2'C__T*G+P9.[
XMNA"R3^\`&&`F,"T`#,!\!0"P?`4`9A@O!DZZ$"9Z!%A/.46"DG#_3-\,\$Y=<
XM3G4P!,'\``8GA@@`,`3!_``&($#1RS%M``P`!`@M``,`#&<02'@``4*G+P9.X
XMNA!83^\`##`$8,)D;W,N;&EB<F%R>0```$Y5``!(YPP@."T`"$ZZ#>`P!,'\\
XM``8D0-7L@I1*1&T*N&R"A&P$2I)F$#E\``*"DG#_3-\$,$Y=3G4P*@`$P'P`3
XM`[!\``%F"CE\``6"DG#_8.!P`#`M``XO`"\M``HO$DZZ#]`J`+"\_____T_O%
XM``QF#$ZZ#X8Y0(*2</]@M"`%8+!A<$/L@HY%[(*.M<EF#C(\`!-K"'0`(L)1`
XMR?_\*4^"F"QX``0I3H*<2.>`@`@N``0!*6<02_H`"$ZN_^)@!D*G\U].<T/ZF
XM`"!.KOYH*4""H&8,+CP``X`'3J[_E&`$3KH`&E!/3G5D;W,N;&EB<F%R>0!)<
XM^0``?_Y.=4Y5```O"DAY``$``#`L@H3!_``&+P!.N@^`*4""E%!/9A1"ITAY$
XM``$``$ZZ#T103RYL@IA.=2!L@I1":``$(&R"E#%\``$`$"!L@I0Q?``!``H@<
XM;(*8("R"F)"H``10@"E`@J0@;(*D(+Q-04Y80J=.N@\T)$!*J@"L6$]G+B\M9
XM``PO+0`(+PI.N@"N.7P``8*H(&R"E`!H@```!"!L@I0`:(````I/[P`,8$)(5
XM:@!<3KH/3DAJ`%Q.N@\0*4""JB!L@JI*J``D4$]G$"!L@JHB:``D+Q%.N@X&;
XM6$\O+(*J+PI.N@)H*6R"JH*N4$].N@X&(&R"E""`3KH.-"!L@I0A0``&9Q9(?
XM>`/M2'H`*DZZ#A`@;(*4(4``#%!/+RR"KC\L@K).NODR0F=.N@P@4$\D7TY=O
XM3G4J`$Y5``!(YPPP)&T`$"!M``A*J`"L9Q@@;0`(("@`K.6`*``@1"`H`!#E%
XM@"9`8`0F;(*&$!-(@$C`T*T`#%2`.4""M$*G,"R"M$C`+P!.N@X2*4""ME!/]
XM9@A,WPPP3EU.=1`32(`Z`#\%($M2B"\(+RR"MDZZ`7XP!4C`($#1[(*V0_H!2
XM1!#99OP_+0`.+PHO+(*V3KH!.B!L@K9",%``.7P``8*R,`5(P-"L@K8F0%*+\
XM)$M/[P`4$!-(@#H`L'P`(&<8NGP`"6<2NGP`#&<,NGP`#6<&NGP`"F8$4HM@U
XMV`P3`"!M>@P3`")F+E*+($M2BQ`02(`Z`&<>($I2BA"%NGP`(F80#!,`(F8$S
XM4HM@!D(J__]@`F#68#@@2U*+$!!(@#H`9R:Z?``@9R"Z?``)9QJZ?``,9Q2ZH
XM?``-9PZZ?``*9P@@2E**$(5@SB!*4HI"$$I%9@)3BU)L@K)@`/]:0A)"IS`LG
XM@K)20$C`Y8`O`$ZZ#/`I0(*N4$]F"$)L@K)@`/[8>@`F;(*V8"0P!4C`Y8`@N
XM;(*N(8L(`"!+(`A*&&;\D<!3B#`(4D!(P-?`4D6Z;(*R;=8P!4C`Y8`@;(*N.
XM0K`(`&``_I0@`#`\?_]@!#`O``P@;P`$2AAF_%-((F\`"%-`$-E7R/_\9P)"1
XM$"`O``1.=4SO`P``!"`(,B\`#&`"$-E7R?_\9P9206`"0AA1R?_\3G5.50``:
XM2.<.,"1M``A"ITAZ`(Y.N@QV*4""NE!/9@A,WPQP3EU.=2!M``PB:``D+RD`O
XM!$ZZ#*8H`%A/9U)(>@!M($0O*``V3KH,>"9`2H!03V<T2'@#[2\+3KH+>BP`_
XM4$]G)"`&Y8`J`"!%)6@`"`"D)48`G$AX`^U(>@`X3KH+5B5``*!03R\$3KH,"
XM1%A/+RR"NDZZ"ZA"K(*Z6$]@@&EC;VXN;&EB<F%R>0!724Y$3U<`*@!.50``?
XM2&T`#"\M``A(>@1@3KH`F$_O``Q.74YU3E4``$CG""`D;0`.#&T`!``29@@@9
XM;0`(*!!@'$IM``QO#"!M``AP`#`0*`!@"B!M``@P$$C`*`!";0`22FT`#&P0#
XM1&T`#$J$;`A$A#M\``$`$C(M``Q(P2`$3KH#D$'L@#A3BA2P```R+0`,2,$@>
XM!$ZZ`X8H`&;:2FT`$F<&4XH4O``M(`I,WP003EU.=4Y5_R)(YP@P)&T`""9M[
XM``Q";?_Z*VT`$/_\($M2BQ`02(`X`&<``NZX?``E9@`"S$(M_S`[?``!__@[K
XM?``@__8[?"<0__0@2U*+$!!(@#@`L'P`+68.0FW_^"!+4HL0$$B`.`"X?``P9
XM9A`[?``P__8@2U*+$!!(@#@`N'P`*F88(&W__%2M__P[4/_R($M2BQ`02(`X^
XM`&`R0FW_\F`<,"W_\L'\``K01)!\`#`[0/_R($M2BQ`02(`X`#`$4D!![(!*D
XM"#```@``9M2X?``N9EH@2U*+$!!(@#@`L'P`*F88(&W__%2M__P[4/_T($M21
XMBQ`02(`X`&`R0FW_]&`<,"W_],'\``K01)!\`#`[0/_T($M2BQ`02(`X`#`$,
XM4D!![(!*"#```@``9M0[?``"__"X?`!L9A(@2U*+$!!(@#@`.WP`!/_P8!"XW
XM?`!H9@H@2U*+$!!(@#@`,`1(P&!Z.WP`"/_N8!8[?``*_^Y@#CM\`!#_[F`&J
XM.WS_]O_N/RW_\$AM_S`_+?_N+RW__$ZZ_>0K0/_J,"W_\$C`T:W__$_O``Q@\
XM7"!M__Q8K?_\(E`K2?_J(`E*&6;\D\!3B3M)__!@2B!M__Q4K?_\.!!![?\O5
XM*TC_ZA"$8"B0O````&-GXE.`9Y*0O`````MG`/]R68!GLE6`9P#_<%>`9P#_%
XM<F#,0>W_,)'M_^H[2/_P,"W_\+!M__1O!CMM__3_\$IM__AG:"!M_^H,$``MK
XM9PH@;?_J#!``*V8N#&T`,/_V9B93;?_R(&W_ZE*M_^H0$$B`/P!.DK!\__]4`
XM3V8*</],WPP03EU.=6`6/RW_]DZ2L'S__U1/9@1P_V#D4FW_^C`M__)3;?_R[
XML&W_\&[<0FW_[F`@(&W_ZE*M_^H0$$B`/P!.DK!\__]43V8$</]@L%)M_^X@9
XM;?_J2A!G"C`M_^ZP;?_T;<XP+?_NT6W_^DIM__AF*&`8/SP`($Z2L'S__U1/S
XM9@9P_V``_WA2;?_Z,"W_\E-M__*P;?_P;MI@%C\$3I*P?/__5$]F!G#_8`#_=
XM4E)M__I@`/T(,"W_^F``_T)(YT@`0H1*@&H$1(!21$J!:@9$@0I$``%A/DI$Q
XM9P)$@$S?`!)*@$YU2.=(`$*$2H!J!$2`4D1*@6H"1(%A&B`!8-@O`6$2(`$B\
XM'TJ`3G4O`6$&(A]*@$YU2.<P`$A!2D%F($A!-@$T`$)`2$"`PR(`2$`R`H+#N
XM,`%"04A!3-\`#$YU2$$F`2(`0D%(04A`0D!T#]"`TX&V@6($DH-20%'*__),B
XMWP`,3G5.50``2&R`XC\M``A.N@`(7$].74YU3E4``"\$."T`""\M``H_!$ZZX
XM`#"X?``*7$]F)"!M``H0*``,2(`(```'9Q0_//__+RT`"DZZ`/1<3R@?3EU.6
XM=6#X3E4``"\*)&T`"B!2L>H`!&48,"T`",!\`/\_`"\*3KH`R%Q/)%].74YU6
XM(%)2DA`M``D0@$B`P'P`_V#H3E4``"\*0>R`S"1(($K5_````!8O"&$06$]!9
XM[(*$M<AEZB1?3EU.=4Y5``!(YP@@)&T`"'@`(`IF"G#_3-\$$$Y=3G5**@`,P
XM9U`(*@`"``QG##\\__\O"F%2.`!<3Q`J``U(@#\`3KH%'(A`""H``0`,5$]GZ
XM"B\J``A.N@(N6$\(*@`%``QG$B\J`!).N@+`+RH`$DZZ`A103T*20JH`!$*J3
XM``A"*@`,,`1@D$Y5__Y(YP@@)&T`"$'Z_T8I2(*^""H`!``,9PIP_TS?!!!.4
XM74YU""H``@`,9S`@4I'J``@X"#\$+RH`"!`J``U(@#\`3KH"@+!$4$]G$`CJD
XM``0`#$*20JH`!'#_8,`,;?__``QF$`BJ``(`#$*20JH`!'``8*A*J@`(9@@OQ
XM"DZZ`)I83PQJ``$`$&8J&VT`#?__/SP``4AM__\0*@`-2(`_`$ZZ`B*P?``!3
XM4$]FH#`M``Q@`/]J)*H`"#`J`!!(P-"J``@E0``$".H``@`,(%)2DA`M``T0Z
XM@$B`P'P`_V``_SY.50``+PI![(#,)$A**@`,9QC5_````!9![(*$M<AE"'``4
XM)%].74YU8.)"DD*J``1"J@`((`I@ZDY5__PO"B1M``@_/`0`3KH`P"M`__Q40
XM3V88-7P``0`0($K1_`````XE2``()%].74YU-7P$```0".H``0`,)6W__``(3
XM$"H`#4B`/P!.N@#B2D!43V<&`"H`@``,8,Y.50``2.<`,"1L@HY@%"92("H`.
XM!%"`+P`O"DZZ!'A03R1+(`IFZ$*L@HY,WPP`3EU.=4Y5```O"D'Z_\8I2(+"Z
XM0J<@+0`(4(`O`$ZZ!"8D0$J`4$]F"'``)%].74YU)*R"CB5M``@`!"E*@HX@L
XM"E"`8.9.50``<``P+0`(+P!ALEA/3EU.=4Y5``!(YP`PE\LD;(*.8`X@;0`(V
XM48BQRF<2)DHD4B`*9NYP_TS?#`!.74YU(`MG!":28`0I4H*.("H`!%"`+P`O^
XM"DZZ`\IP`%!/8-A.50``+PHP+0`(P?P`!B1`U>R"E$IM``AM#C`M``BP;(*$F
XM;`1*DF8..7P``H*2</\D7TY=3G4P+0`(P?P`!B!L@I0O,`@`3KH"QDJ`6$]G$
XM!'`!8`)P`SE4``"\M``A.N@*02H!83V8.3KH"FCE`@I)P_TY=3G5P`&#X;
XM3E4``$CG#"`X+0`(3KH`<#`$P?P`!B1`U>R"E$I$;0JX;(*$;`1*DF80.7P`[
XM`H*2</],WP0P3EU.=3`J``3`?``#9@HY?``%@I)P_V#D<``P+0`.+P`O+0`*0
XM+Q).N@*0*@"PO/____]/[P`,9@Q.N@(:.4""DG#_8+@@!6"T3E7__$AX$`!"*
XMITZZ`O0K0/_\"```#%!/9Q)*;(*H9@@@+?_\3EU.=4ZZ``9P`&#T3E4``$AXP
XM``1(>@`<3KH!_B\`3KH"+#\\``%.N@`.3^\`#DY=3G5>0PH`3E4``$JL@KYG%
XM!B!L@KY.D#\M``A.N@`(5$].74YU3E7__"\$,"T`"$C`*T#__$JL@I1G*'@`\
XM8`H_!$ZZ`/Y43U)$N&R"A&WP,"R"A,'\``8O`"\L@I1.N@(64$]*K(+"9P8@^
XM;(+"3I!*K(**9PHO+(**3KH!DEA/2JR"QF<((&R"QB"L@LI*K(+.9PHO+(+.E
XM3KH!KEA/2JR"TF<*+RR"TDZZ`9Y83TJL@M9G"B\L@M9.N@&.6$]*K(+:9PHOX
XM+(+:3KH!?EA/+'@`!`@N``0!*6<4+PU+^@`*3J[_XBI?8`9"I_-?3G-*K(*JR
XM9C!*K(*V9R@P+(*T2,`O`"\L@K9.N@%N,"R"LE)`2,#E@"\`+RR"KDZZ`5I/A
XM[P`08`Y.N@%(+RR"JDZZ`7183R`M__PN;(*83G4H'TY=3G5.50``2.<.(#@M"
XM``@P!,'\``8D0-7L@I1*1&T*N&R"A&P$2I)F$#E\``*"DG#_3-\$<$Y=3G4(Z
XM*@`'``1F""\23KH`"EA/0I)P`&#B(B\`!"QL@J!.[O_<(B\`!"QL@J!.[O^"5
XM(B\`!"QL@J!.[O^X+&R"H$[N_\HL;(*@3N[_?"(O``0L;(*@3N[_*$SO``8`E
XM!"QL@J!.[O^L3.\`!@`$+&R"H$[N_^(L;(*@3N[_Q$SO``X`!"QL@J!.[O_62
XM3.\`#@`$+&R"H$[N_[Y.^@`"(B\`!"QL@J!.[O^F3.\`#@`$+&R"H$[N_]!(4
XMYP$$3.\@@``,+&R"G$ZN_Y1,WR"`3G5.^@`"(F\`!"QL@IQ.[OYB3.\``P`$9
XM+&R"G$[N_SHB;P`$+&R"G$[N_MHL;(*<3N[_?")O``0@+P`(+&R"G$[N_RX@B
XM;P`$+&R"G$[N_HPL;(*<(F\`!"`O``A.[OW8(F\`!"QL@IQ.[OZ&3.\``P`$O
XM+&R"G$[N_LX@;P`$+&R"G$[N_H!,[P,```0L;(*Z3N[_H"!O``0L;(*Z3N[_4
XMIB!O``0L;(*Z3N[_L@`````#[`````$````!```%I@````````/R```#Z@``X
XM`*-R``````!R*P````)W`````P%W*P```P)A````"0%A*P``"0)X````!0%X.
XM*P``!0(````````P,3(S-#4V-S@Y86)C9&5F````("`@("`@("`@,#`P,#`@$
XM("`@("`@("`@("`@("`@(""00$!`0$!`0$!`0$!`0$!`#`P,#`P,#`P,#$!`H
XM0$!`0$`)"0D)"0D!`0$!`0$!`0$!`0$!`0$!`0$!`4!`0$!`0`H*"@H*"@("*
XM`@("`@("`@("`@("`@("`@("0$!`0"```````````````````0`````!````&
XM``````````````````$!`````0`````````````````````!`@````$`````'
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XH````````````````````%``````````````#\@```^L````!```#\@``M
X``
Xend
Xsize 6340
END_OF_FILE
if test 8913 -ne `wc -c <'lcount.uu'`; then
echo shar: \"'lcount.uu'\" unpacked with wrong size!
fi
# end of 'lcount.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.