Mercurial > hg > xemacs-beta
annotate lib-src/digest-doc.c @ 802:19dfb459d51a
[xemacs-hg @ 2002-04-03 10:47:37 by ben]
fix tty problem et al
internals/internals.texi: Add section on correctly merging a branch back into the trunk.
console-tty.c, eval.c, event-unixoid.c, file-coding.c, file-coding.h, lisp.h, print.c, sysdep.c: Fix data corruption error in print.c from print_depth becoming
negative. Borrow primitives internal_bind_int,
internal_bind_lisp_object from my stderr-proc ws, soon to be
integrated; use them to properly bind print_depth et al.
First fix for TTY problem. The basic problem is I switched things
so that the TTY I/O is filtered through a coding system, for the
support of kterm and such, that speak JIS or similar
encodings. (#### I ***swear*** I had this working way back in
19.12.) Anyway, this introduced buffering issues, in which instead
of one char being read, it tried to read 1024 chars. I tried
setting the stdin descriptor non-blocking, but it doesn't appear
to work on Cygwin. (#### Andy, do you know anything about this?)
So I fixed it elsewhere. If you get weirdness on the TTY, look in
console-tty.c and see how it gets the coding system; maybe there's
a way to change it (and if not, there should be!).
Also fix warning in sysdep.c.
| author | ben |
|---|---|
| date | Wed, 03 Apr 2002 10:47:52 +0000 |
| parents | 023b83f4e54b |
| children | 04bc9d2f42c7 |
| rev | line source |
|---|---|
| 428 | 1 /* Give this program DOCSTR.mm.nn as standard input |
| 2 and it outputs to standard output | |
| 3 a file of nroff output containing the doc strings. | |
| 4 | |
| 5 See also sorted-doc.c, which produces similar output | |
| 6 but in texinfo format and sorted by function/variable name. */ | |
| 7 | |
| 8 #ifdef emacs | |
| 438 | 9 #include <config.h> |
| 428 | 10 #endif |
| 11 #include <stdio.h> | |
| 12 | |
| 13 int | |
| 14 main (int argc, char *argv[]) | |
| 15 { | |
| 16 register int ch; | |
| 17 register int notfirst = 0; | |
| 18 | |
| 19 printf (".TL\n"); | |
| 613 | 20 printf ("Command Summary for XEmacs\n"); |
| 21 printf (".AU\nThe XEmacs Advocacy Group\n"); | |
| 428 | 22 while ((ch = getchar ()) != EOF) |
| 23 { | |
| 24 if (ch == '\037') | |
| 25 { | |
| 26 if (notfirst) | |
| 27 printf ("\n.DE"); | |
| 28 else | |
| 29 notfirst = 1; | |
| 30 | |
| 31 printf ("\n.SH\n"); | |
| 32 | |
| 33 ch = getchar (); | |
| 34 printf (ch == 'F' ? "Function " : "Variable "); | |
| 35 | |
| 36 while ((ch = getchar ()) != '\n') /* Changed this line */ | |
| 37 { | |
| 38 if (ch != EOF) | |
| 39 putchar (ch); | |
| 40 else | |
| 41 { | |
| 42 ungetc (ch, stdin); | |
| 43 break; | |
| 44 } | |
| 45 } | |
| 46 printf ("\n.DS L\n"); | |
| 47 } | |
| 48 else | |
| 49 putchar (ch); | |
| 50 } | |
| 51 return 0; | |
| 52 } |