2d3a9a3b8f121acca1977a2e9bed5d404b198d68
[p5sagit/p5-mst-13.2.git] / Porting / findvars
1 #!/l/local/bin/perl -w
2
3 $pat = '';
4 # construct word list
5 while (<DATA>) {
6   chomp;
7   next unless $_;
8   $pat .= "$_|";
9 }
10 chop $pat if $pat =~ /\|$/;
11
12 # grep
13 while (<>) {
14     print "$ARGV\:$.\:$_" if s/\b($pat)\b/#$1#/og;
15 # this variant might useful if the transformation is more complicated
16 #    if (/^(.*?)\b($pat)\b(.*)$/o) {
17 #        my $head = "$1#$2#";
18 #        $_ = $3;
19 #        while (/^(.*?)\b($pat)\b(.*)$/o) {
20 #            $head .= "$1#$2#";
21 #            $_ = $3;
22 #        }
23 #       print "$ARGV\:$.\:$head$_\n";
24 #    }
25 }
26 continue {
27     close ARGV if eof;
28 }
29 __END__
30 Argv
31 Cmd
32 DBcv
33 DBgv
34 DBline
35 DBsignal
36 DBsingle
37 DBsub
38 DBtrace
39 No
40 Sv
41 Xpv
42 Yes
43 amagic_generation
44 ampergv
45 an
46 archpat_auto
47 argvgv
48 argvoutgv
49 av_fetch_sv
50 basetime
51 beginav
52 bodytarget
53 bostr
54 bufend
55 bufptr
56 cddir
57 chopset
58 collation_ix
59 collation_name
60 collation_standard
61 collxfrm_base
62 collxfrm_mult
63 colors
64 colorset
65 compcv
66 compiling
67 comppad
68 comppad_name
69 comppad_name_fill
70 comppad_name_floor
71 cop_seqmax
72 copline
73 cryptseen
74 cshlen
75 cshname
76 curcop
77 curcopdb
78 curinterp
79 curpad
80 curpm
81 curstack
82 curstackinfo
83 curstash
84 curstname
85 curthr
86 dbargs
87 debdelim
88 debname
89 debstash
90 debug
91 defgv
92 defoutgv
93 defstash
94 delaymagic
95 diehook
96 dirty
97 dlevel
98 dlmax
99 do_undump
100 doextract
101 doswitches
102 dowarn
103 dumplvl
104 e_script
105 egid
106 endav
107 envgv
108 errgv
109 error_count
110 euid
111 eval_cond
112 eval_mutex
113 eval_owner
114 eval_root
115 eval_start
116 evalseq
117 exitlist
118 exitlistlen
119 expect
120 extralen
121 fdpid
122 filemode
123 firstgv
124 forkprocess
125 formfeed
126 formtarget
127 generation
128 gensym
129 gid
130 globalstash
131 he_root
132 hexdigit
133 hintgv
134 hints
135 hv_fetch_ent_mh
136 hv_fetch_sv
137 in_clean_all
138 in_clean_objs
139 in_eval
140 in_my
141 in_my_stash
142 incgv
143 initav
144 inplace
145 last_in_gv
146 last_lop
147 last_lop_op
148 last_proto
149 last_uni
150 lastfd
151 lastgotoprobe
152 lastscream
153 lastsize
154 lastspbase
155 laststatval
156 laststype
157 leftgv
158 lex_brackets
159 lex_brackstack
160 lex_casemods
161 lex_casestack
162 lex_defer
163 lex_dojoin
164 lex_expect
165 lex_fakebrack
166 lex_formbrack
167 lex_inpat
168 lex_inwhat
169 lex_op
170 lex_repl
171 lex_starts
172 lex_state
173 lex_stuff
174 lineary
175 linestart
176 linestr
177 localizing
178 localpatches
179 main_cv
180 main_root
181 main_start
182 mainstack
183 malloc_mutex
184 markstack
185 markstack_max
186 markstack_ptr
187 max_intro_pending
188 maxo
189 maxscream
190 maxsysfd
191 mess_sv
192 min_intro_pending
193 minus_F
194 minus_a
195 minus_c
196 minus_l
197 minus_n
198 minus_p
199 modcount
200 modglobal
201 multi_close
202 multi_end
203 multi_open
204 multi_start
205 multiline
206 mystrk
207 na
208 nexttoke
209 nexttype
210 nextval
211 nice_chunk
212 nice_chunk_size
213 ninterps
214 nomemok
215 nthreads
216 nthreads_cond
217 numeric_local
218 numeric_name
219 numeric_standard
220 ofmt
221 ofs
222 ofslen
223 oldbufptr
224 oldlastpm
225 oldname
226 oldoldbufptr
227 op
228 op_mask
229 op_seqmax
230 opsave
231 origalen
232 origargc
233 origargv
234 origenviron
235 origfilename
236 ors
237 orslen
238 osname
239 pad_reset_pending
240 padix
241 padix_floor
242 patchlevel
243 patleave
244 pending_ident
245 perl_destruct_level
246 perldb
247 pidstatus
248 preambleav
249 preambled
250 preprocess
251 profiledata
252 reg_eval_set
253 reg_flags
254 reg_start_tmp
255 reg_start_tmpl
256 regbol
257 regcc
258 regcode
259 regcomp_parse
260 regcomp_rx
261 regcompp
262 regdata
263 regdummy
264 regendp
265 regeol
266 regexecp
267 regflags
268 regindent
269 reginput
270 reginterp_cnt
271 reglastparen
272 regnarrate
273 regnaughty
274 regnpar
275 regprecomp
276 regprev
277 regprogram
278 regsawback
279 regseen
280 regsize
281 regstartp
282 regtill
283 regxend
284 replgv
285 restartop
286 retstack
287 retstack_ix
288 retstack_max
289 rightgv
290 rs
291 rsfp
292 rsfp_filters
293 runops
294 savestack
295 savestack_ix
296 savestack_max
297 sawampersand
298 sawstudy
299 sawvec
300 scopestack
301 scopestack_ix
302 scopestack_max
303 screamfirst
304 screamnext
305 secondgv
306 seen_evals
307 seen_zerolen
308 sh_path
309 siggv
310 sighandlerp
311 sortcop
312 sortcxix
313 sortstash
314 specialsv_list
315 splitstr
316 stack_base
317 stack_max
318 stack_sp
319 start_env
320 statbuf
321 statcache
322 statgv
323 statname
324 statusvalue
325 statusvalue_vms
326 stdingv
327 strchop
328 strtab
329 sub_generation
330 sublex_info
331 subline
332 subname
333 sv_arenaroot
334 sv_count
335 sv_mutex
336 sv_no
337 sv_objcount
338 sv_root
339 sv_undef
340 sv_yes
341 svref_mutex
342 sys_intern
343 tainted
344 tainting
345 thisexpr
346 thr_key
347 threadnum
348 threads_mutex
349 threadsv_names
350 thrsv
351 timesbuf
352 tmps_floor
353 tmps_ix
354 tmps_max
355 tmps_stack
356 tokenbuf
357 top_env
358 toptarget
359 uid
360 unsafe
361 warnhook
362 xiv_arenaroot
363 xiv_root
364 xnv_root
365 xpv_root
366 xrv_root
367 piMem
368 piENV
369 piStdIO
370 piLIO
371 piDir
372 piSock
373 piProc