File: findEvent

package info (click to toggle)
perl-tk 1%3A804.033-2
  • links: PTS
  • area: main
  • in suites: buster
  • size: 34,724 kB
  • ctags: 37,174
  • sloc: ansic: 349,541; perl: 52,192; sh: 17,904; makefile: 5,732; asm: 3,565; ada: 1,681; pascal: 1,089; cpp: 1,006; yacc: 883; cs: 879
file content (79 lines) | stat: -rwxr-xr-x 1,541 bytes parent folder | download | duplicates (10)
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";
   }
 }