Function frequency: Difference between revisions
add REXX version 2
Walterpachl (talk | contribs) m (typo) |
Walterpachl (talk | contribs) (add REXX version 2) |
||
Line 932:
=={{header|REXX}}==
===version 1===
This version doesn't report on the top ten functions (or subroutines), only the functions that are been counted (as implemented below).
Line 990 ⟶ 991:
number of invocations for length = 60
</pre>
===version 2===
This program counts statically. It lacks, however, treatment of comments and literal strings.
<lang rexx>fid='pgm.rex'
cnt.=0
funl=''
Do While lines(fid)>0
l=linein(fid)
Do Until p=0
p=pos('(',l)
If p>0 Then Do
do i=p-1 To 1 By -1 While is_tc(substr(l,i,1))
End
fn=substr(l,i+1,p-i-1)
If fn<>'' Then
Call store fn
l=substr(l,p+1)
End
End
End
Do While funl<>''
Parse Var funl fn funl
Say right(cnt.fn,3) fn
End
Exit
x=a(3)+bbbbb(5,c(555))
special=date('S') 'DATE'() "date"()
is_tc:
abc='abcdefghijklmnopqrstuvwxyz'
Return pos(arg(1),abc||translate(abc)'1234567890_''"')>0
store:
Parse Arg fun
cnt.fun=cnt.fun+1
If cnt.fun=1 Then
funl=funl fun
Return</lang>
{{out}}
<pre> 1 lines
1 linein
2 pos
1 '
1 is_tc
3 substr
1 right
1 a
1 bbbbb
1 c
1 date
1 'DATE'
1 "date"
1 arg
1 translate</pre>
=={{header|Tcl}}==
| |||