11 lines
483 B
Awk
11 lines
483 B
Awk
#!/usr/bin/awk -f
|
|
# mkaliases script
|
|
# Written by Mike Murphy mrm@Sceard.com
|
|
# $Id: mkaliases,v 1.1 1996/04/13 20:22:18 wpaul Exp $
|
|
|
|
BEGIN {l=""}
|
|
/^#/ || /^[ \t]*$/ {gsub("[ \t]+","",l);if (length(l)!=0){sub(":"," ",l);print l;l=""};next}
|
|
/:[ \t]/ {gsub("[ \t]+","",l);if (length(l)!=0){sub(":"," ",l);print l;l=""}}
|
|
{ l=l $0 }
|
|
END {gsub("[ \t]+","",l);if (length(l)!=0){sub(":"," ",l);print l;l=""}}
|