tools/fd2inline/cross/share/splitasm.awk

   1 #! /bin/awk -f
   2 #
   3 # splitasm.awk
   4 #
   5 # Copyright (C) 2000 Emmanuel Lesueur <lesueur@club-internet.fr>
   6 # Distributed under terms of GNU General Public License.
   7 #
   8 # This file is part of fd2inline package.
   9 #
  10 # It is used to create linker libraries with stubs for MorphOS.
  11 # (And AmigaOS. And Amithlon. /Martin Blom)
  12
  13 BEGIN {
  14     dir=dest
  15 }
  16
  17 /^[\t ]?.globl[\t ]/ {
  18         currfn=dir "/" $2 ".s"
  19         print "\t.text\n\t.balign\t4\n" >currfn
  20 #       print "\t.section\t\".text\"\n\t.align\t2\n" >currfn
  21 }
  22
  23 currfn!="" {
  24         print $0 >currfn
  25 }
  26
  27 /^[\t ].size/ {
  28         close(currfn)
  29         currfn=""
  30 }
  31
  32 /^[\t ]rts/ {
  33         close(currfn)
  34         currfn=""
  35 }
  36