67 lines
2.1 KiB
Diff
67 lines
2.1 KiB
Diff
--- tcsh/sh.h 2005-03-25 19:46:41.000000000 +0100
|
|
+++ tcsh-6.14.00/sh.h 2006-07-03 03:45:30.000000000 +0200
|
|
@@ -801,6 +801,13 @@
|
|
* exactly one if the input is seekable and tell is available.
|
|
* In other cases, the shell buffers enough blocks to keep all loops
|
|
* in the buffer.
|
|
+ *
|
|
+ * If (WIDE_STRINGS && cantell), fbobp is always a byte offset, but
|
|
+ * (fseekp - fbobp) and (feobp - fbobp) are character offsets (usable for
|
|
+ * fbuf indexing).
|
|
+ *
|
|
+ * If (!cantell), all offsets are character offsets; if (!WIDE_STRINGS), there
|
|
+ * is no difference between byte and character offsets.
|
|
*/
|
|
EXTERN struct Bin {
|
|
off_t Bfseekp; /* Seek pointer, generally != lseek() value */
|
|
@@ -824,7 +831,7 @@
|
|
#define TCSH_F_SEEK 2 /* File seek */
|
|
#define TCSH_E_SEEK 3 /* Eval seek */
|
|
union {
|
|
- off_t _f_seek;
|
|
+ off_t _f_seek; /* A byte offset if (cantell) */
|
|
Char* _c_seek;
|
|
} fc;
|
|
#define f_seek fc._f_seek
|
|
diff -u tcsh-6.14.00/sh.lex.c tcsh-6.14.00/sh.lex.c
|
|
--- tcsh-6.14.00/sh.lex.c 2006-07-03 03:46:11.000000000 +0200
|
|
+++ tcsh-6.14.00/sh.lex.c 2006-07-05 16:31:51.000000000 +0200
|
|
@@ -1736,7 +1736,9 @@
|
|
memmove(cbuf, cbuf + i, partial - i);
|
|
partial -= i;
|
|
} while (partial != 0 && nchars != 0);
|
|
- /* Throwing away possible partial multibyte characters on error */
|
|
+ /* Throwing away possible partial multibyte characters on error if the
|
|
+ stream is not seekable */
|
|
+ lseek(fildes, -(off_t)partial, L_INCR);
|
|
return res != 0 ? res : r;
|
|
}
|
|
|
|
@@ -1753,7 +1755,13 @@
|
|
(void) lseek(SHIN, fseekp, L_SET);
|
|
}
|
|
if (fseekp == feobp) {
|
|
- fbobp = feobp;
|
|
+ off_t bytes;
|
|
+ size_t i;
|
|
+
|
|
+ bytes = fbobp;
|
|
+ for (i = 0; i < (size_t)(feobp - fbobp); i++)
|
|
+ bytes += fclens[i];
|
|
+ fbobp = fseekp = feobp = bytes;
|
|
do
|
|
c = wide_read(SHIN, fbuf[0], BUFSIZE, 1);
|
|
while (c < 0 && errno == EINTR);
|
|
@@ -1926,9 +1934,9 @@
|
|
return;
|
|
case TCSH_F_SEEK:
|
|
#ifdef WIDE_STRINGS
|
|
- if (cantell && fseekp >= fbobp && fseekp < feobp) {
|
|
+ if (cantell && fseekp >= fbobp && fseekp <= feobp) {
|
|
size_t i;
|
|
-
|
|
+
|
|
l->f_seek = fbobp;
|
|
for (i = 0; i < fseekp - fbobp; i++)
|
|
l->f_seek += fclens[i];
|