| Revision 9009,
264 bytes
checked in by ghudson, 28 years ago
(diff) |
|
This commit was generated by cvs2svn to compensate for changes in r9008,
which included commits to RCS files with non-trunk default branches.
|
| Line | |
|---|
| 1 | #!/usr/bin/perl |
|---|
| 2 | |
|---|
| 3 | open (IOCTLS,'/usr/include/sys/ioctl.h') || die "ioctl open failed"; |
|---|
| 4 | |
|---|
| 5 | while (<IOCTLS>) { |
|---|
| 6 | if (/^\s*#\s*define\s+\w+\s+_IO(R|W|WR)\('?\w+'?,\s*\w+,\s*([^)]+)/) { |
|---|
| 7 | $need{$2}++; |
|---|
| 8 | } |
|---|
| 9 | } |
|---|
| 10 | |
|---|
| 11 | foreach $key ( sort keys %need ) { |
|---|
| 12 | print $key,"\n"; |
|---|
| 13 | } |
|---|
Note: See
TracBrowser
for help on using the repository browser.
