From fc3263a7a5f2ac47e0661317a4142cfbabc63620 Mon Sep 17 00:00:00 2001
From: Kirk McKusick <mckusick@ucbvax.Berkeley.EDU>
Date: Mon, 19 Jul 1982 22:14:26 -0800
Subject: [PATCH] date and time created 82/07/19 15:14:26 by mckusick

SCCS-vsn: usr.bin/pascal/pcexterns/pcexterns.awk 4.1
---
 usr/src/usr.bin/pascal/pcexterns/pcexterns.awk | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 usr/src/usr.bin/pascal/pcexterns/pcexterns.awk

diff --git a/usr/src/usr.bin/pascal/pcexterns/pcexterns.awk b/usr/src/usr.bin/pascal/pcexterns/pcexterns.awk
new file mode 100644
index 0000000000..d21556ea3c
--- /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;
+}
-- 
2.20.1