17460Smckusick# Copyright (c) 1982 Regents of the University of California
27460Smckusick#
3*7603Smckusick#	@(#)pcexterns.awk	4.3	(Berkeley)	07/29/82
47460Smckusick#
5*7603Smckusick# This generates .stabs for all the global routines and variables
6*7603Smckusick# in a library. The format of a stab can be found in man5/stab.5.
7*7603Smckusick#
8*7603Smckusick# Generate "source file" stab for the library name.
9*7603Smckusick#
107460SmckusickNR == 1	{
117460Smckusick	name = substr($1, 1, index($1, ":") - 1);
127460Smckusick	printf "	.stabs	\"%s\",0x30,0,0x1,0\n", name;
137460Smckusick}
14*7603Smckusick#
15*7603Smckusick# Generate "library routine" stab.
16*7603Smckusick#
177460SmckusickNF == 3 && $2 == "T" {
187599Smckusick	printf "	.stabs	\"%s\",0x30,0,0xc,0x%d\n", substr($3, 2), NR;
197460Smckusick}
20*7603Smckusick#
21*7603Smckusick# Generate "library variable" stab.
22*7603Smckusick#
237460SmckusickNF == 3 && $2 ~ /[ABD]/ {
247599Smckusick	printf "	.stabs	\"%s\",0x30,0,0xb,0x%d\n", substr($3, 2), NR;
257460Smckusick}
26