From 50f43a1ab6f142722d1a8f0ec5cecd1c1eeb5d93 Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Wed, 12 Feb 2014 08:50:58 +0000 Subject: web2c: ctangle, ctie, and tie: Handle input files with CRLF git-svn-id: svn://tug.org/texlive/trunk@32948 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/cwebdir/ChangeLog | 4 ++++ Build/source/texk/web2c/cwebdir/comm-w2c.ch | 6 ++++++ 2 files changed, 10 insertions(+) (limited to 'Build/source/texk/web2c/cwebdir') diff --git a/Build/source/texk/web2c/cwebdir/ChangeLog b/Build/source/texk/web2c/cwebdir/ChangeLog index a218edfebdb..c1d40c72915 100644 --- a/Build/source/texk/web2c/cwebdir/ChangeLog +++ b/Build/source/texk/web2c/cwebdir/ChangeLog @@ -1,3 +1,7 @@ +2014-02-12 Peter Breitenlohner + + * comm-w2c.ch: Handle input lines with CRLF. + 2013-07-02 Peter Breitenlohner * comm-w2c.ch: Include system headers after "cpascal.h". diff --git a/Build/source/texk/web2c/cwebdir/comm-w2c.ch b/Build/source/texk/web2c/cwebdir/comm-w2c.ch index 61475576a3c..07a945b69b2 100644 --- a/Build/source/texk/web2c/cwebdir/comm-w2c.ch +++ b/Build/source/texk/web2c/cwebdir/comm-w2c.ch @@ -93,6 +93,12 @@ FILE *fp; /* what file to read from */ int input_ln (FILE *fp) /* copies a line into |buffer| or returns 0 */ @z +@x l.181 + if ((*(k++) = c) != ' ') limit = k; +@y + if ((*(k++) = c) != ' ' && c!='\r') limit = k; +@z + Section 10. @x l.207 - max_file_name_length is way too small. -- cgit v1.2.3