g099508030ea@deneb.ucdavis.edu (Jim Deline) (05/25/88)
[Filter comments from source code]
Here is a program I wrote a while back to strip comments from source
code files in either Pascal, C, or assembly. If you have a hard disk
and are not worried about space, then it's not for you. It is an
interesting example though, because it works extremely fast. It is
limited to text files < 40K, but that can easily be changed. It is
also free. If there is any interest in the source code, I will gladly
post it to comp.sources.mac.
---
(This file must be converted with BinHex 4.0)
:$80[E@ePER4'D@adCA)!39"36!#3")!!N!F4F"YY!*!%!3#3!a#k!!!2ZJ#3!lB
JCR9XE(NJD@e`E'9YC@jdC@3JEQpb)'4PBR9RCf9N,Je$EfeYC@jd4QPXG'9b!J#
3!d&38%`!N!5"!!!S!*!%39"36!#3")%!!#J!N!@&!*!)8H3!N!2,R%3f$J#3"K&
`)%eKBe4[9'9iG#"hD@aX)'*P)'4TFh4bD@*eG'9N)'CbC@8JEfBJBfKKFQGP,J#
3"9!!%!"J!-#)&&GSBA3J6@&M9'p8CAKd)'4[CA-k!*!&8!$!!'!"b)JS3fpZGQ9
bG(-JB5"0B@0AFQPdC5"QD@aP)(4[)'%JG'9iG#"Q!*!$'!#3!bJ!N!2`!*!$#!#
3!b!!!$mm!!'Tm!!!#Y)!N!-"6[S)SNj@rr*)j`%!,bi!$$mZ!!T)E[rq5'lrmNK
ZrrDTM5mZrr)r,J!)U@0-h`#!6PiJAe#26Y"19[rk51F"!&Q22c`"!%+R,ccrN!5
TI#iI,8Irr#mZrr`r2!!"2c`!!8kkrk!lI!!"rpi[,[rmU49#TdKZrrUTN8lk!,3
[,[rm2c`!!6mm!!&1Z[pi,blrr$mm!!*#CdkkrfS[,[rm2c`!!d*R6VVrA$Ym!!(
rhNlk!+S[,[rm2c`!!8*R6VVr4#mZrr`r2!!#2c`!!8kkrc3[,[rm2c`!!d*R6VV
r*MYm!!,rhNlk!(3[,[rm2c`!!8*R6VVr$LmZrr`r2!!#3QG1Z[m!,blrr$mm!!-
r2!!"6VVqm$Ym!!2rhNlk!$j1qJ!k'h`!!IrLUI41qJ!Z2LlrqJa(!!&Y!!!L$%F
!"@i!!"S%4`!"hNFq1h!'6[Y`![mXrf,rQ2r1rp)-EJ!%rrTQ!2m1,blrr+Q$60m
!J%jH6R919[rq51F"!&@22c`"!%+RUB8q(ce(rrj-h`#!6Pj1G8j@rrj)j`%!9Bm
r2!%#3UHTK6iI28IrrURd60m!J%jH6R919[rq51F"!&@22c`"!d+RUB8q(ce(rrk
Tp%cI!)"1ANje6PEqrNMR!4JSEJ!+4qlr!%*((K3@h&(2rra9MdKZr`!r,J!)5'h
ri%kk"dBq(ce(r[j-haL!6PiJAeb26Y"19[qJ51F"#%KZrr`r2!"N2c`!9DL!,AS
!b[rX,blrr%Kk!,j#Tcmm!!&)E[rX3UG)E[qL6VS)I%SZrk*R!!#3!%KZrk`r,[q
S6VVrH&@22bhri%KYrqa1ZJIL2Kmp4rqJ$+d!!*a!rqa[!!!@9Bmr,IrJ6VS'q$i
I28IrS%kkrb*CMbmYrqa1ZJCk,KmV4rrS,bhrk%kk"S*9McmYrq")EIrX+'hrk#m
86VS'hMiI28IrS#mYrqK1ZJCU9Bmr,IrJ6VS'UMiI28IrS%lk!!`r2!!"UFK1Z[k
S60m3J%jH6R8!!&4&@&419[qJ51F"#%KZrr`r2!"N2c`!9DL!,blrr%Kk!2")HJ$
U3UG)E[qL6VS(Q%SZrk*R!!#q9Bp)E[qX2blrU#mk!-B[1J#q6VS'b$iI28IrS%K
Zrk`r,[qS6VVqJP@22bhri$mm!!&#Tdkk"c!q(ce(rk![,IrN6VS&ZP@22bhri%K
Yrr3SEIrN,a41ZJBD2Kmp4rqJ,bhrj%kk"D*9McmYrq![,Ird6VS'd$iI28IrS&@
22bhri%kk"Fiq(ce(rk![,IrN6VS&BP@23UFr2!!"6VS'($iI28IrS&@23UFr2!!
#6VS'#MiI28IrS%lk!!`r2!!"UFK1Z[fJ60m3J%jH6R9849K8484*9!!!$90KGQ8
JBA-J,L!Z)#j19[ri51F('#iYrrK5KbY(rrJZ,Iri[Uhrl'B!!&i[,IrN6VS%p#i
Yrr#qVIriEJ!!1#eYrrMrq#KYrq3S9#`Yrr3QEIrS*P-U"aQc8!"J!#`Yrr45KLY
'rr5qV[riE!!!#&+(6[VrdLiYrr46KbY(rr3[,IrN6VS%UNcI'1"1ANje6PErp%M
R"aK1Z[ed@Bm[,IrX6VS%E#iI+dIrj%+YrrK#VIr`3Uhrp#mYrqK1ZJ4S+'hrk#K
8,Lhrq%*'($4`!$e'rr`-EJ"lrraQ!!$)+'hrk#K8,Lhrq&+(3NBF0(!!28ErrJa
Z!#6rrQB!!"!Z,Iri8SFV4rri6[S!PNUYrrKR!!"@,bhrj%kk"!`Z,Ir`,#hrq&1
'[SCZ!!!f,8Erp#KYrq3S9#`Yrr3QEIrS*P-U"aQc8!"J!#`Yrr45KLY'rr5qV[r
dE!!!#&+(6[VrdLmYrq41ZJ2+,Lhrq&+(+dIrq#KYrqJS9#iYrrK#4K`dF!!p4[r
q$'i!IIrqCJ$rfLiYrrK5KbY(rrJVEIrirr"1qJ!'6VVqD#iYrrLqVIrXCJ$r$Lm
YrqK1ZJ0f,bhrk%kk!eT1Z[dZ60mBi%jH6R919[rd51F('%kkr$4CMbmYrqa1ZJ-
X,KmV4rrN3Uhrq%+Yrr"#VIrd,bhrk%kk!bJSEIrS+&3Z,Iri3NBF0(!!28Err!a
Z!#rrr'B!!1iSEIrS+&3Z,Iri8SG#4K`dF!!p4[rq$'i!+[rqC`!!%#iYrrK5KbY
(rrK1qJ#m5Uhrq'F!!&B[,IrN6VS#c#iYrr!X,Iri8iDqKQi!!$BY4[rd+'hrj#K
8,#hrp#CYrqJQ8bS('E03!'!!,#hrp&+'+dErp,kZrr4X!!!)8SG1q[r5,bhrj%k
k!SSZ,Iri8SFV4rri+'hrk#K8,Lhrq%*'($4`!$e'rr`SEIrS+&3Z,Iri8SG#4K`
dF!!p4[rq$'i!+[rm9mG%"`aZ!#rrrPI'4!E-"fF!rl3Z,Iri9)FV4rri+fhrq2r
`6[S!"Nkkr3)Z,Iri[Uhrl'B!rZJ[,IrS6VS#%#mYrqK1ZJ(d6VVlb%cI'1"1ANj
e6PErp%MR"aK1Z[V1@Bm[,IrX6VS"aLiI+dIrj%+YrrK#VIr`3Uhrp$em!!hrrLm
YrqK1ZJ'm+'hrk#K8,Lhrq%*'($4`!$e'rr`-EJ!lrraQ!!#N5Uhrq'F!!&B[,Ir
N6VS"MLiYrr!X,Iri8iDqKQi!!$BY4[rd+'hrj#K8,#hrp#CYrqJQ8bS('E03!'!
!,#hrp&+'+dErp,kZrr4X!!!)8SG1q[r5,bhrj%kk!8`Z,Iri8SFV4rri+'hrk#K
8,Lhrq%*'($4`!$e'rr`q,[rm[QlrrPI(4!FX,Iri[+hrl&I'4!D-"fF!rmBVEIr
irr"1qJ!'6VVli#iYrrLqVIrXCJ$r-LmYrqK1ZJ$Z,bhrk%kk!0*1Z[UQ60mBi%j
H6R919J!!51F"#%RYrpS[$+KZ6VS!d%kk!-a1ZJ$)6VS!a+MqU4+T-+R-3UHTHd)
Yrq)r22rr3QFJ(k!bU&"-ha#!6Pj1G5am!*!%6PB!!%kkrl"1Z[M!6VVhJ%lk!"T
1Z[[B6[S!,Nkkr4"1qJ!Q6VVqENlk!"iq,IrH$%F!!@F!rpi-4`!#C`$rhJa(!!0
R!2rH$#d!!IrLCJ$r[%jH6R8LAb!IS%`ZJ%jaF!![#6(!!L"1GA!!B2BLAb!IS5)
ZL%lkrqSLAb"IS#01q[rJ)PmJAk!T6[VreL*I)&qJ+NlkrmbJ0NlkrmK19[r13Hl
rcL&Z!!i!%M&Z!!`!&N)S!"T#+!!E3UJ!(+!!)Qi!#$+S!"Jp3!!56PiJAprm!*!
$#Nl36PErcN(ZrmiaEJ!)!"LJ!6e!!!T1AL"I9)p1d&("B!*3`8j@rmj"l[r1)@i
!#!!J-@i!%!!B)Qi!$#&4!#4#D!!X3UJ!,NS"CJ5J!Q!#S!-p3!!5)Qi!$#+S!#K
1AL*Ihr`!N!-+6Y&19[r!3Hlr`$&Z!!J!&L&Z!!S!%U!628!!$NjH)PpFMdl46PE
rX%(Zrl!KEJ!5!")aEJ!3!"C#+!!DS!K+3'B@3QJ!(+!-)!K$k!!J)Zi!##+Z!!b
J$6e!!"C1AL*Ihr`!N!-16Y&19[r13HlrcM&Z!!`!'+!428!!$L*Z!!JLU!!F6Pi
LAeb26Y&19[r13HlrcM&Z!!`!'#&Z!!J!(+!528!!$NjH)PpFMdl46PErcN(Zrmi
aEJ!1!"JaEJ!-!#`KEJ!)!#kJ4$e!!""1AL*I8)p1dA3")&mr!Lm)VHTd!Nlkrr3
!N!0k!!3!N!83!$J!)!#S"Je3BA0MB@`J8fpeFQ0P)!#3"5J!1!!i!)J'#%-Y8fp
eFQ0P!*!&3!!i!&!!Z!B23A0cC@eLE(NJ8fpeFQ0P!*!'B!!3!(!!H!3)3dp19%P
1988!N!9J!*!!!(!!d!3%899*9!#3!fi!N!F+!!m!1`$T#&e6Eh*bH5`JB@iJCA*
bEh)JEf0MGA*bC@3JGfKTE'8JB@0MCA0cD@jR)'pb)'0bC@&dD@jR)'%JCQPXC5k
3!h4SC5"KF("XD@0KG'P[EL"hD@aX)'j[Gb"ME'pcC5k2!!!#q!!,!*!%!4!!Z!%
N!8F%#%0[ER4TER9P!*!(3!!3!D#)0%0[E@ePER4'D@adCA)JN!0LH5"+B@ePFb"
&,L"%C@aTEQ8X)*!$4Q9LFR9KFRNJ)$%j1$F!N!8B!"!!5!(BL)p8D'Pc)("bEfG
bB@dJDA-JCR*PCAGKFQ8JB@jN)(P[G5"YBANJC'PcG(*TBR9dC5"KEQ3JGA0P)'P
d)(GTG'K[GA3JBfpcG#iJ)%K[Gf9fCA)X)%NJBA0V)(4SBA3JG'KTFb"ZEh4TBf8
JEQpd)'*P)(*PE@pfC@3JEh)JB@adCA*PC#"TEL"KERNJGf&j,Qi!N!93!"!!B!$
!L"KAD'&d)%0[E@ePER4'D@adCA)JC'pPFcS!N!9S!(J!H!'GL#Ba1L!J8Q9YEhC
PFb"MEfeYC@jdFb"QFQpY)(0[GA*MC5"MEf4P,J#3"AJ!H!#)!H#)06)k)#"6BAC
PFb"dD'8JBfpYE@9ZG'aPFh-JFfpeFQ0P)'0[C'8JBA-JB5"dCAKd)'CTE'8ZH!#
3"BJ!H!#B!4L)'6-k)#"%Ef9c)'Pd)(CPFRNJFA9TBfYXH5&M!*!&S!#3!m!"i)L
'9A0P)%0[E@ePER4'D@adCA)JG'mJFQ9YEhCP)'0[E@ePER4c)'CbEfdJH@peFL"
*EQ0XG@4P)'CTE'9cdAP[G5"hD@aX)'*P)(0eFR"bDA0PC#"SEhFJEA9MD#"YEh*
P)(*[EfdJH@pe*faX)'KKGQ8JEfiJH@peFL!LGfpbDb)JC'PcDbi!N!A!!*!$d!(
)L%"CEh9b)'0[E@ePER4c)'&ZC#"cG@GRCA0dD@pZFb"KFQ8JGf9XBfpYC5iJ)&"
XC@&cC5"cC@jN)(4SC@dJG'mk!*!&f!$)!1J"-)J25Q&YCA-J45iJ4'9XD@jP)!#
3"HJ!b!$i!5#)$&!Z6biJ3Qpi)$Fj0`#3"IJ!b!%)!8#)%84KGQPc,#"$35iJ)$N
e0M%fEJ#3!i)!N!F3!!N!3`%*#(&6Eh*bH5`JBR9d)'&d)(4SDA-JG'PYC5"$Efe
YC@jd4QPXG'9b)'pZE(NJFh9`F'pbG(-JG'9iG#"QD@aPFb"cE@&XE'9b)(4SB@i
J0$",,L!J9'KP)'&`F'aTBf&dD@pZ)(GTE'`JEQph)'0XEh0P,J#3"#)!F!#)!2B
"GJ!!!3#3"h'V$80[E@ePER4'D@adCA)!N!--!'3!K!#`!A4GKFc-!*!$$!!J!!S
"6!(fApP%4!#3!``!BJ"m!,B"MP2$c-`!!!%!N!-3ZJ!!$lS!N!1f!!'JfJ(B!*!
$(!#f!!0$6d4&!!%!)N4*9%`!!`!k4%a24`#3!fT"6&*8!!)!GJ!"rrmd!!!F!*!
'rrmJ!*!(8m2rr`!!$Yi!N!4IfIrr!!!,iJ#3"&f&rrm!!!Y`!*!%FD[rrb!!#[)
!!K+Q!3$rr`!!$f3!!Jfm!32rr`!!$kS!N!3"!2rr)!!2QJ#3"!%#rrm!!!q+!*!
%9,!:
---