1# Copyright (c) 1980 The Regents of the University of California. 2# All rights reserved. 3# 4# %sccs.include.redist.sh% 5# 6# @(#)extrnames.awk 6.2 (Berkeley) 04/17/91 7# 8 9BEGIN { print "(Doc)" } 10/^\.Lf/ { print "(" $2 " " substr(FILENAME,1,length(FILENAME)-2) ")" } 11/^\.Lx/ { print "(" $2 " " substr(FILENAME,1,length(FILENAME)-2) ")" } 12