aboutsummaryrefslogblamecommitdiff
path: root/bin/onl.awk
blob: 30f7e594c910e3ab559c13a7464a5fb69c593e11 (plain) (tree)
1
2
3
4
5
6
7
8

                                                                              
                            
 


                                                                     
 


                                                                              
                                          


                                   
                
# Flatten input into one single-space separated line with no unprintable chars

# For each line of input ...
{
    # Replace groups of spaces and control characters with one space,
    # implicitly re-splitting the fields
    gsub(/[\a\b\f\n\r\t\v ]+/, " ")

    # Print each field, without a newline; add a leading space if it's not the
    # very first one
    for (i = 1; i <= NF; i++)
        printf (f++) ? OFS "%s" : "%s", $i
}

# Print a newline to close the line
END { print "" }