Build/source/texk/kpathsea/bsnl.awk


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

# bsnl.awk - eliminate backslash-newline sequences
# Public domain.  Originally written 2010, Karl Berry.

# on a line ending with a backslash, save it (minus the backslash).
/\\$/ { 
        buf = buf substr ($0, 1, length ($0) - 1);
        next;
      }

# on other lines, print the buffer if there is one, then the regular line.
      {
        if (buf) {
          printf "%s", buf;  # don't print a newline
          buf = "";
        }
        print;
      }