File: gen_typedefs

package info (click to toggle)
pg-snakeoil 1.4-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 240 kB
  • sloc: ansic: 193; sql: 26; makefile: 22; sh: 8
file content (9 lines) | stat: -rwxr-xr-x 314 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
 
#!/bin/sh
	objdump -W pg_snakeoil.so |\
	egrep -A3 DW_TAG_typedef |\
	perl -e ' while (<>) { chomp; @flds = split;next unless (1 < @flds);\
		next if $flds[0]  ne "DW_AT_name" && $flds[1] ne "DW_AT_name";\
		next if $flds[-1] =~ /^DW_FORM_str/;\
		print $flds[-1],"\n"; }'  |\
	sort | uniq > pg_snakeoil.typedefs