summaryrefslogtreecommitdiff
path: root/Build/source/texk/unbackslsh.awk
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
committerKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
commit487ca4806cc046076293cf6cc5fbba0db282bac7 (patch)
tree847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/unbackslsh.awk
parenta3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (diff)
texk 1
git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/unbackslsh.awk')
-rwxr-xr-xBuild/source/texk/unbackslsh.awk46
1 files changed, 46 insertions, 0 deletions
diff --git a/Build/source/texk/unbackslsh.awk b/Build/source/texk/unbackslsh.awk
new file mode 100755
index 00000000000..ebbd1d0c34c
--- /dev/null
+++ b/Build/source/texk/unbackslsh.awk
@@ -0,0 +1,46 @@
+#! /usr/bin/awk -f
+# The relevant lines look like ` \'.
+/^ *\\$/{
+ if (!backslashed)
+ {
+ #print "not backslashed -- setting to empty backslash";
+ backslashed = $0;
+ }
+ next;
+ }
+/\\$/ {
+ if (backslashed)
+ {
+ #print "already backslashed";
+ print backslashed;
+ }
+
+ backslashed = $0;
+ #print "setting bs to " backslashed;
+ next;
+ }
+
+/^ *$/ {
+ if (backslashed)
+ {
+ #print "spaces only -- prev was backslashed";
+ print substr (backslashed, 1, length (backslashed) - 1);
+ backslashed = "";
+ }
+ else
+ {
+ #print "spaces only -- prev not backslashed";
+ print;
+ }
+ next;
+ }
+
+ {
+ if (backslashed)
+ {
+ #print "normal line -- prev backslashed";
+ print backslashed;
+ backslashed = "";
+ }
+ print
+ }