1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
|
#!/usr/local/bin/perl -w
use strict;
my @names = qw(Tcl_CreateEventSource Tcl_DeleteEventSource Tcl_DeleteEvents
Tcl_DoOneEvent Tcl_QueueEvent Tcl_ServiceEvent Tcl_WaitForEvent
TCL_READABLE TCL_WRITABLE TCL_EXCEPTION
TCL_WINDOW_EVENTS TCL_FILE_EVENTS TCL_TIMER_EVENTS
TCL_IDLE_EVENTS TCL_QUEUE_TAIL TCL_QUEUE_HEAD TCL_QUEUE_MARK
Tcl_CreateTimerHandler Tcl_DeleteTimerHandler Tcl_SetMaxBlockTime
Tcl_SetTimer TclpGetTime
Tcl_AsyncCreate
Tcl_AsyncDelete
Tcl_AsyncInvoke
Tcl_AsyncMark
Tcl_AsyncReady
TclInExit
Tcl_CreateExitHandler
Tcl_DeleteExitHandler
Tcl_Exit
Tcl_Finalize
Tcl_UpdateCmd
Tcl_VwaitCmd
Tcl_CreateEventSource
Tcl_DeleteEventSource
Tcl_DeleteEvents
Tcl_DoOneEvent
Tcl_GetServiceMode
Tcl_QueueEvent
Tcl_ServiceAll
Tcl_ServiceEvent
Tcl_SetMaxBlockTime
Tcl_SetServiceMode
TclServiceIdle
Tcl_AfterObjCmd
Tcl_CancelIdleCall
Tcl_CreateTimerHandler
Tcl_DeleteTimerHandler
Tcl_DoWhenIdle
Tcl_Sleep
Tcl_CreateFileHandler
Tcl_DeleteFileHandler
Tcl_SetTimer
Tcl_WaitForEvent
TclpGetClicks
TclpGetSeconds
TclpGetTime
);
my $re = join('|',@names);
my %count;
while (<>)
{
while (/\b($re)\b/go)
{
my $name = $1;
$count{$name}++;
print "$ARGV:$.:",$_;
}
$. = 0 if eof;
}
my %done;
foreach my $name (sort @names)
{
next if $done{$name};
$done{$name} = 1;
if (exists $count{$name})
{
# warn sprintf("%4d uses of $name\n",$count{$name});
}
else
{
warn " No uses of $name\n";
}
}
|