| [11] | 1 | # $Id: kPrf2WinApi-genimp.sed 29 2009-07-01 20:30:29Z bird $
|
|---|
| 2 | ##
|
|---|
| 3 | # Generate imports from normalized dumpbin output.
|
|---|
| 4 | #
|
|---|
| 5 |
|
|---|
| 6 | #
|
|---|
| [29] | 7 | # Copyright (c) 2008 Knut St. Osmundsen <bird-kStuff-spamix@anduin.net>
|
|---|
| [11] | 8 | #
|
|---|
| [29] | 9 | # Permission is hereby granted, free of charge, to any person
|
|---|
| 10 | # obtaining a copy of this software and associated documentation
|
|---|
| 11 | # files (the "Software"), to deal in the Software without
|
|---|
| 12 | # restriction, including without limitation the rights to use,
|
|---|
| 13 | # copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|---|
| 14 | # copies of the Software, and to permit persons to whom the
|
|---|
| 15 | # Software is furnished to do so, subject to the following
|
|---|
| 16 | # conditions:
|
|---|
| [11] | 17 | #
|
|---|
| [29] | 18 | # The above copyright notice and this permission notice shall be
|
|---|
| 19 | # included in all copies or substantial portions of the Software.
|
|---|
| [11] | 20 | #
|
|---|
| [29] | 21 | # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
|---|
| 22 | # EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
|
|---|
| 23 | # OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
|---|
| 24 | # NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
|
|---|
| 25 | # HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
|
|---|
| 26 | # WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
|
|---|
| 27 | # FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
|
|---|
| 28 | # OTHER DEALINGS IN THE SOFTWARE.
|
|---|
| [11] | 29 | #
|
|---|
| 30 |
|
|---|
| 31 | # Normalize the input a bit.
|
|---|
| 32 | s/[[:space:]][[:space:]]*/ /g
|
|---|
| 33 | s/^[[:space:]]//
|
|---|
| 34 | s/[[:space:]]$//
|
|---|
| 35 | /^$/b drop_line
|
|---|
| 36 |
|
|---|
| 37 | # Expects a single name - no ordinals yet.
|
|---|
| 38 | /\@/b have_at
|
|---|
| 39 |
|
|---|
| 40 | s/^\(.*\)$/ \1=kPrf2Wrap_\1/
|
|---|
| 41 | b end
|
|---|
| 42 |
|
|---|
| 43 | :have_at
|
|---|
| 44 | h
|
|---|
| 45 | s/^\([^ ]\)\(@[0-9]*\)$/ \1\2=kPrf2Wrap_\1/
|
|---|
| 46 | p
|
|---|
| 47 | g
|
|---|
| 48 | s/^\([^ ]\)\(@[0-9]*\)$/ \1=kPrf2Wrap_\1/
|
|---|
| 49 | b end
|
|---|
| 50 |
|
|---|
| 51 | :drop_line
|
|---|
| 52 | d
|
|---|
| 53 | b end
|
|---|
| 54 |
|
|---|
| 55 | :end
|
|---|
