date and time created 82/07/19 15:14:26 by mckusick

SCCS-vsn: usr.bin/pascal/pcexterns/pcexterns.awk 4.1

diff --git a/usr/src/usr.bin/pascal/pcexterns/pcexterns.awk b/usr/src/usr.bin/pascal/pcexterns/pcexterns.awk
new file mode 100644 (file)
index 0000000..d21556e
--- /dev/null
+++ b/usr/src/usr.bin/pascal/pcexterns/pcexterns.awk
@@ -0,0 +1,16 @@
+# Copyright (c) 1982 Regents of the University of California
+#
+#      @(#)pcexterns.awk       4.1     (Berkeley)      %G%
+#
+NR == 1        {
+       name = substr($1, 1, index($1, ":") - 1);
+       printf "        .stabs  \"%s\",0x30,0,0x1,0\n", name;
+}
+
+NF == 3 && $2 == "T" {
+       printf "        .stabs  \"%s\",0x30,0,0x7,0x%d\n", substr($3, 2), NR;
+}
+
+NF == 3 && $2 ~ /[ABD]/ {
+       printf "        .stabs  \"%s\",0x30,0,0x6,0x%d\n", substr($3, 2), NR;
+}