Artifact
bad8685b68144b2c0460f6d0bb68bae463a6168e:
0000: 23 21 2f 62 69 6e 2f 73 68 0a 23 20 54 72 61 6e #!/bin/sh.# Tran
0010: 73 6c 61 74 65 20 74 68 65 20 61 73 73 65 6d 62 slate the assemb
0020: 6c 65 72 20 73 79 6e 74 61 78 20 6f 66 20 73 70 ler syntax of sp
0030: 61 72 63 20 61 73 73 65 6d 62 6c 65 72 20 70 72 arc assembler pr
0040: 6f 67 72 61 6d 73 0a 23 20 55 73 61 67 65 3a 20 ograms.# Usage:
0050: 61 73 6d 73 70 61 72 63 20 3c 20 73 75 6e 6f 73 asmsparc < sunos
0060: 34 2d 61 73 6d 2d 66 69 6c 65 20 3e 20 70 6f 72 4-asm-file > por
0070: 74 61 62 6c 65 2d 61 73 6d 2d 66 69 6c 65 0a 23 table-asm-file.#
0080: 20 54 68 65 20 70 6f 72 74 61 62 6c 65 2d 61 73 The portable-as
0090: 6d 2d 66 69 6c 65 20 68 61 73 20 74 6f 20 62 65 m-file has to be
00a0: 0a 23 20 20 20 31 2e 20 70 72 65 70 72 6f 63 65 .# 1. preproce
00b0: 73 73 65 64 2c 0a 23 20 20 20 32 2e 20 67 72 65 ssed,.# 2. gre
00c0: 70 20 2d 76 20 27 5e 20 2a 23 6c 69 6e 65 27 20 p -v '^ *#line'
00d0: 7c 20 67 72 65 70 20 2d 76 20 27 5e 23 27 0a 23 | grep -v '^#'.#
00e0: 20 20 20 33 2e 20 73 65 64 20 2d 65 20 27 73 2c 3. sed -e 's,
00f0: 25 20 2c 25 2c 67 27 20 2d 65 20 27 73 2c 2f 2f % ,%,g' -e 's,//
0100: 2e 2a 24 2c 2c 27 20 2d 65 20 27 73 2c 5c 24 2c .*$,,' -e 's,\$,
0110: 23 2c 67 27 0a 0a 74 6d 70 73 63 72 69 70 74 31 #,g'..tmpscript1
0120: 3d 73 65 64 24 24 74 6d 70 31 0a 74 6d 70 73 63 =sed$$tmp1.tmpsc
0130: 72 69 70 74 32 3d 73 65 64 24 24 74 6d 70 32 0a ript2=sed$$tmp2.
0140: 74 6d 70 72 65 6d 6f 76 65 3d 27 72 6d 20 2d 66 tmpremove='rm -f
0150: 20 24 74 6d 70 73 63 72 69 70 74 31 20 24 74 6d $tmpscript1 $tm
0160: 70 73 63 72 69 70 74 32 27 0a 74 72 61 70 20 22 pscript2'.trap "
0170: 24 74 6d 70 72 65 6d 6f 76 65 22 20 31 20 32 20 $tmpremove" 1 2
0180: 31 35 0a 0a 63 61 74 20 3e 20 24 74 6d 70 73 63 15..cat > $tmpsc
0190: 72 69 70 74 31 20 3c 3c 20 5c 45 4f 46 0a 23 20 ript1 << \EOF.#
01a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 52 65 6d 6f ----------- Remo
01b0: 76 65 20 67 63 63 20 73 65 6c 66 2d 69 64 65 6e ve gcc self-iden
01c0: 74 69 66 69 63 61 74 69 6f 6e 0a 2f 67 63 63 32 tification./gcc2
01d0: 5f 63 6f 6d 70 69 6c 65 64 2f 64 0a 2f 67 6e 75 _compiled/d./gnu
01e0: 5f 63 6f 6d 70 69 6c 65 64 5f 63 2f 64 0a 45 4f _compiled_c/d.EO
01f0: 46 0a 0a 63 61 74 20 3e 20 24 74 6d 70 73 63 72 F..cat > $tmpscr
0200: 69 70 74 32 20 3c 3c 20 5c 45 4f 46 0a 23 20 2d ipt2 << \EOF.# -
0210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 54 75 72 6e 20 ---------- Turn
0220: 23 20 69 6e 74 6f 20 24 2c 20 74 6f 20 61 76 6f # into $, to avo
0230: 69 64 20 74 72 6f 75 62 6c 65 20 69 6e 20 70 72 id trouble in pr
0240: 65 70 72 6f 63 65 73 73 69 6e 67 0a 73 2c 23 2c eprocessing.s,#,
0250: 5c 24 2c 67 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d \$,g.# ---------
0260: 2d 2d 20 44 65 63 6c 61 72 65 20 67 6c 6f 62 61 -- Declare globa
0270: 6c 20 73 79 6d 62 6f 6c 73 20 61 73 20 66 75 6e l symbols as fun
0280: 63 74 69 6f 6e 73 20 28 77 65 20 68 61 76 65 20 ctions (we have
0290: 6e 6f 20 76 61 72 69 61 62 6c 65 73 29 0a 73 2f no variables).s/
02a0: 5c 2e 67 6c 6f 62 61 6c 20 5f 5c 28 5b 41 2d 5a \.global _\([A-Z
02b0: 61 2d 7a 30 2d 39 5f 5d 2a 5c 29 24 2f 2e 67 6c a-z0-9_]*\)$/.gl
02c0: 6f 62 61 6c 20 5f 5c 31 5c 0a 09 44 45 43 4c 41 obal _\1\..DECLA
02d0: 52 45 5f 46 55 4e 43 54 49 4f 4e 28 5c 31 29 2f RE_FUNCTION(\1)/
02e0: 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 47 .# ----------- G
02f0: 6c 6f 62 61 6c 20 73 79 6d 62 6f 6c 73 20 64 65 lobal symbols de
0300: 70 65 6e 64 73 20 6f 6e 20 41 53 4d 5f 55 4e 44 pends on ASM_UND
0310: 45 52 53 43 4f 52 45 0a 73 2f 5f 5c 28 5b 41 2d ERSCORE.s/_\([A-
0320: 5a 61 2d 7a 30 2d 39 5f 3a 5d 2a 5c 29 2f 43 28 Za-z0-9_:]*\)/C(
0330: 5c 31 29 2f 0a 45 4f 46 0a 0a 73 65 64 20 2d 66 \1)/.EOF..sed -f
0340: 20 24 74 6d 70 73 63 72 69 70 74 31 20 7c 20 5c $tmpscript1 | \
0350: 0a 73 65 64 20 2d 66 20 24 74 6d 70 73 63 72 69 .sed -f $tmpscri
0360: 70 74 32 0a 0a 65 76 61 6c 20 22 24 74 6d 70 72 pt2..eval "$tmpr
0370: 65 6d 6f 76 65 22 0a emove".