[interchange-cvs] interchange - docelic modified eg/pcode

[interchange-cvs at icdevgroup.org]

User:      docelic
Date:      2004-10-18 21:21:52 GMT
Added:     eg       pcode
Log:
* The new pcode script, comments included in script itself.

Revision  Changes    Path
1.1                  interchange/eg/pcode


rev 1.1, prev_rev 1.0
Index: pcode
===================================================================
#!/usr/bin/perl
#
# Mon Oct 18 22:10:29 CEST 2004
# docelic at icdevgroup.org
#
# Simple script to extract Perl code out of combined files like 
# UserTags or Filters.
#
# Example use:
# for p in *.filter; do pcode $p | perl -c; done
# 

while (<>) {
	next if /Routine\s+<<(\S+)/ and $run=$1  or  /^$run$/ and $run=0;
	print if $run;
}