kProfiler2/kPrf2WinApi-genimp.sed

   1 # $Id$
   2 ##
   3 # Generate imports from normalized dumpbin output.
   4 #
   5
   6 #
   7 # Copyright (c) 2008 Knut St. Osmundsen <bird-kStuff-spamix@anduin.net>
   8 #
   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:
  17 #
  18 # The above copyright notice and this permission notice shall be
  19 # included in all copies or substantial portions of the Software.
  20 #
  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.
  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