diff options
| -rwxr-xr-x | contrib/extraction/test/qualify2open | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/contrib/extraction/test/qualify2open b/contrib/extraction/test/qualify2open new file mode 100755 index 0000000000..48b381d1c1 --- /dev/null +++ b/contrib/extraction/test/qualify2open @@ -0,0 +1,19 @@ +#/bin/sh + +mv $1 $1.orig + +touch $1 + +awk '{ s = $0 + do { + match(s,"[A-Z][a-zA-Z0-9_]*\\.") + if (RLENGTH>0) + printf("open %s\n",substr(s,RSTART,RLENGTH-1)) + s = substr(s,RSTART+RLENGTH) + } while (RLENGTH>0)}' $1.orig | sort | uniq >> $1 + +echo >> $1 + +awk '{ gsub("[A-Z][a-zA-Z0-9_]*\\.","") + print $0}' $1.orig >> $1 + |