2 # print truncated DOS file names
3 # from packing.list (packing.lis)
5 # mawk -f doslist.awk packing.lis
8 # discard blanks and comments
9 /^#/ || /^[ \t]*$/ {next}
12 function dos_name(s, n, front, X)
14 #lowercase, split on extension and truncate pieces
18 front = substr(X[1],1,8)
20 if ( n == 1 ) return front
21 else return front "." substr(X[2], 1, 3)
28 for( i = 2 ; i <= n ; i++ )
29 new = new "\\" dos_name(X[i])
31 printf "%-30s%s\n", $1, new