aboutsummaryrefslogblamecommitdiff
path: root/bin/unf.awk
blob: 7acb09c20b8e8726bad3b83b0a62f89a2fa592fd (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12

                                                                  

                  







                                                          
             








                                                                        
                     







                                                
               
# Unfold header lines in an internet message, don't touch the body

BEGIN { buf = "" }

# Function to write and empty the buffer
function wrbuf() {
    if (length(buf))
        print buf
    buf = ""
}

# Flag to stop processing once we hit the first blank line
!length($0) {
    wrbuf() 
    body = 1
}
body {
    print
    next
}

# Write any buffer contents once we hit a line not starting with a space
/^[^ \t]/ { wrbuf() }

# Append the current line to the buffer
{
    sub(/^[ \t]+/, " ")
    buf = buf $0
}

# Write the buffer out again when we hit the end
END { wrbuf() }