build/make/ads2gas_apple.pl

   1 #!/usr/bin/env perl
   2 ##
   3 ##  Copyright (c) 2010 The VP8 project authors. All Rights Reserved.
   4 ##
   5 ##  Use of this source code is governed by a BSD-style license and patent
   6 ##  grant that can be found in the LICENSE file in the root of the source
   7 ##  tree. All contributing project authors may be found in the AUTHORS
   8 ##  file in the root of the source tree.
   9 ##
  10
  11
  12 # ads2gas.pl
  13 # Author: Eric Fung (efung (at) acm.org)
  14 #
  15 # Convert ARM Developer Suite 1.0.1 syntax assembly source to GNU as format
  16 #
  17 # Usage: cat inputfile | perl ads2gas.pl > outputfile
  18 #
  19 print "@ This file was created from a .asm file\n";
  20 print "@  using the ads2gas_apple.pl script.\n\n";
  21 print "\t.set WIDE_REFERENCE, 0\n";
  22 print "\t.set ARCHITECTURE, 5\n";
  23 print "\t.set DO1STROUNDING, 0\n";
  24
  25 my %register_aliases;
  26 my %macro_aliases;
  27
  28 my @mapping_list = ("\$0", "\$1", "\$2", "\$3", "\$4", "\$5", "\$6", "\$7", "\$8", "\$9");
  29
  30 my @incoming_array;
  31
  32 # Perl trim function to remove whitespace from the start and end of the string
  33 sub trim($)
  34 {
  35     my $string = shift;
  36     $string =~ s/^\s+//;
  37     $string =~ s/\s+$//;
  38     return $string;
  39 }
  40
  41 while (<STDIN>)
  42 {
  43     # Comment character
  44     s/;/@/g;
  45
  46     # Hexadecimal constants prefaced by 0x
  47     s/#&/#0x/g;
  48
  49     # Convert :OR: to |
  50     s/:OR:/ | /g;
  51
  52     # Convert :AND: to &
  53     s/:AND:/ & /g;
  54
  55     # Convert :NOT: to ~
  56     s/:NOT:/ ~ /g;
  57
  58     # Convert :SHL: to <<
  59     s/:SHL:/ << /g;
  60
  61     # Convert :SHR: to >>
  62     s/:SHR:/ >> /g;
  63
  64     # Convert ELSE to .else
  65     s/ELSE/.else/g;
  66
  67     # Convert ENDIF to .endif
  68     s/ENDIF/.endif/g;
  69
  70     # Convert ELSEIF to .elseif
  71     s/ELSEIF/.elseif/g;
  72
  73     # Convert LTORG to .ltorg
  74     s/LTORG/.ltorg/g;
  75
  76     # Convert IF :DEF:to .if
  77     # gcc doesn't have the ability to do a conditional
  78     # if defined variable that is set by IF :DEF: on
  79     # armasm, so convert it to a normal .if and then
  80     # make sure to define a value elesewhere
  81     if (s/\bIF :DEF:\b/.if /g)
  82     {
  83         s/=/==/g;
  84     }
  85
  86     # Convert IF to .if
  87     if (s/\bIF\b/.if/g)
  88     {
  89         s/=/==/g;
  90     }
  91
  92     # Convert INCLUDE to .INCLUDE "file"
  93     s/INCLUDE(\s*)(.*)$/.include $1\"$2\"/;
  94
  95     # Code directive (ARM vs Thumb)
  96     s/CODE([0-9][0-9])/.code $1/;
  97
  98     # No AREA required
  99     s/^\s*AREA.*$/.text/;
 100
 101     # DCD to .word
 102     # This one is for incoming symbols
 103     s/DCD\s+\|(\w*)\|/.long $1/;
 104
 105     # DCW to .short
 106     s/DCW\s+\|(\w*)\|/.short $1/;
 107     s/DCW(.*)/.short $1/;
 108
 109     # Constants defined in scope
 110     s/DCD(.*)/.long $1/;
 111     s/DCB(.*)/.byte $1/;
 112
 113     # Build a hash of all the register - alias pairs.
 114     if (s/(.*)RN(.*)/$1 .req $2/g)
 115     {
 116         $register_aliases{trim($1)} = trim($2);
 117         next;
 118     }
 119
 120     while (($key, $value) = each(%register_aliases))
 121     {
 122         s/\b$key\b/$value/g;
 123     }
 124
 125     # Make function visible to linker, and make additional symbol with
 126     # prepended underscore
 127     s/EXPORT\s+\|([\$\w]*)\|/.globl _$1\n\t.globl $1/;
 128     s/IMPORT\s+\|([\$\w]*)\|/.globl $1/;
 129
 130     # No vertical bars required; make additional symbol with prepended
 131     # underscore
 132     s/^\|(\$?\w+)\|/_$1\n\t$1:/g;
 133
 134     # Labels need trailing colon
 135 #   s/^(\w+)/$1:/ if !/EQU/;
 136     # put the colon at the end of the line in the macro
 137     s/^([a-zA-Z_0-9\$]+)/$1:/ if !/EQU/;
 138
 139     # Strip ALIGN
 140     s/\sALIGN/@ ALIGN/g;
 141
 142     # Strip ARM
 143     s/\sARM/@ ARM/g;
 144
 145     # Strip REQUIRE8
 146     #s/\sREQUIRE8/@ REQUIRE8/g;
 147     s/\sREQUIRE8/@ /g;
 148
 149     # Strip PRESERVE8
 150     s/\sPRESERVE8/@ PRESERVE8/g;
 151
 152     # Strip PROC and ENDPROC
 153     s/PROC/@/g;
 154     s/ENDP/@/g;
 155
 156     # EQU directive
 157     s/(.*)EQU(.*)/.set $1, $2/;
 158
 159     # Begin macro definition
 160     if (/MACRO/)
 161     {
 162         # Process next line down, which will be the macro definition
 163         $_ = <STDIN>;
 164
 165         $trimmed = trim($_);
 166
 167         # remove commas that are separating list
 168         $trimmed =~ s/,//g;
 169
 170         # string to array
 171         @incoming_array = split(/ /, $trimmed);
 172
 173         print ".macro @incoming_array[0]\n";
 174
 175         # remove the first element, as that is the name of the macro
 176         shift (@incoming_array);
 177
 178         @macro_aliases{@incoming_array} = @mapping_list;
 179
 180         next;
 181     }
 182
 183     while (($key, $value) = each(%macro_aliases))
 184     {
 185         $key =~ s/\$/\\\$/;
 186         s/$key\b/$value/g;
 187     }
 188
 189     # For macros, use \ to reference formal params
 190 #   s/\$/\\/g;                  # End macro definition
 191     s/MEND/.endm/;              # No need to tell it where to stop assembling
 192     next if /^\s*END\s*$/;
 193     print;
 194 }