octave-shane/gnulib-hg: lib/argp-fmtstream.c annotate

annotate lib/argp-fmtstream.c @ 17282:a4996fb12971

locale: port to Solaris 2.6 and 7 + GNU gettext * lib/locale.in.h: Just include_next <locale.h> when being invoked recursively. This prevents problems on Solaris 2.6 and 7 when combining the localename module with GNU gettext 0.18.2. Problem reported by Tom G. Christensen in <http://lists.gnu.org/archive/html/bug-gnulib/2013-01/msg00084.html>.

author	Paul Eggert <eggert@cs.ucla.edu>
date	Thu, 10 Jan 2013 13:24:13 -0800
parents	e542fd46ad6f
children	344018b6e5d7

rev	line source
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	1 /* Word-wrapping and line-truncating streams
17249 e542fd46ad6f maint: update all copyright year number ranges Eric Blake <eblake@redhat.com> parents: 16235 diff changeset	2 Copyright (C) 1997-1999, 2001-2003, 2005, 2009-2013 Free Software
12559 c2cbabec01dd update nearly all FSF copyright year lists to include 2010 Jim Meyering <meyering@redhat.com> parents: 12518 diff changeset	3 Foundation, Inc.
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	4 This file is part of the GNU C Library.
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	5 Written by Miles Bader <miles@gnu.ai.mit.edu>.
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	6
9309 bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+. Bruno Haible <bruno@clisp.org> parents: 6631 diff changeset	7 This program is free software: you can redistribute it and/or modify
4419 9b828c973b9d Get lib/argp* from glibc. Paul Eggert <eggert@cs.ucla.edu> parents: 4385 diff changeset	8 it under the terms of the GNU General Public License as published by
9309 bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+. Bruno Haible <bruno@clisp.org> parents: 6631 diff changeset	9 the Free Software Foundation; either version 3 of the License, or
bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+. Bruno Haible <bruno@clisp.org> parents: 6631 diff changeset	10 (at your option) any later version.
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	11
4419 9b828c973b9d Get lib/argp* from glibc. Paul Eggert <eggert@cs.ucla.edu> parents: 4385 diff changeset	12 This program is distributed in the hope that it will be useful,
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	13 but WITHOUT ANY WARRANTY; without even the implied warranty of
4419 9b828c973b9d Get lib/argp* from glibc. Paul Eggert <eggert@cs.ucla.edu> parents: 4385 diff changeset	14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9b828c973b9d Get lib/argp* from glibc. Paul Eggert <eggert@cs.ucla.edu> parents: 4385 diff changeset	15 GNU General Public License for more details.
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	16
9309 bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+. Bruno Haible <bruno@clisp.org> parents: 6631 diff changeset	17 You should have received a copy of the GNU General Public License
bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+. Bruno Haible <bruno@clisp.org> parents: 6631 diff changeset	18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	19
16235 18a38c9615f0 In commentary, do not use ` to quote. Paul Eggert <eggert@cs.ucla.edu> parents: 16201 diff changeset	20 /* This package emulates glibc 'line_wrap_stream' semantics for systems that
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	21 don't have that. */
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	22
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	23 #ifdef HAVE_CONFIG_H
6314 41c42e1f6734 srclist.update Karl Berry <karl@freefriends.org> parents: 6000 diff changeset	24 # include <config.h>
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	25 #endif
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	26
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	27 #include <stdlib.h>
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	28 #include <string.h>
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	29 #include <errno.h>
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	30 #include <stdarg.h>
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	31 #include <ctype.h>
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	32
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	33 #include "argp-fmtstream.h"
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	34 #include "argp-namefrob.h"
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	35
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	36 #ifndef ARGP_FMTSTREAM_USE_LINEWRAP
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	37
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	38 #ifndef isblank
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	39 #define isblank(ch) ((ch)==' ' \|\| (ch)=='\t')
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	40 #endif
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	41
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	42 #if defined _LIBC && defined USE_IN_LIBIO
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	43 # include <wchar.h>
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	44 # include <libio/libioP.h>
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	45 # define __vsnprintf(s, l, f, a) _IO_vsnprintf (s, l, f, a)
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	46 #endif
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	47
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	48 #define INIT_BUF_SIZE 200
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	49 #define PRINTF_SIZE_GUESS 150
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	50
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	51 /* Return an argp_fmtstream that outputs to STREAM, and which prefixes lines
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	52 written on it with LMARGIN spaces and limits them to RMARGIN columns
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	53 total. If WMARGIN >= 0, words that extend past RMARGIN are wrapped by
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	54 replacing the whitespace before them with a newline and WMARGIN spaces.
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	55 Otherwise, chars beyond RMARGIN are simply dropped until a newline.
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	56 Returns NULL if there was an error. */
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	57 argp_fmtstream_t
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	58 __argp_make_fmtstream (FILE *stream,
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	59 size_t lmargin, size_t rmargin, ssize_t wmargin)
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	60 {
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	61 argp_fmtstream_t fs;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	62
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	63 fs = (struct argp_fmtstream *) malloc (sizeof (struct argp_fmtstream));
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	64 if (fs != NULL)
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	65 {
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	66 fs->stream = stream;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	67
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	68 fs->lmargin = lmargin;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	69 fs->rmargin = rmargin;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	70 fs->wmargin = wmargin;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	71 fs->point_col = 0;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	72 fs->point_offs = 0;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	73
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	74 fs->buf = (char *) malloc (INIT_BUF_SIZE);
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	75 if (! fs->buf)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	76 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	77 free (fs);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	78 fs = 0;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	79 }
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	80 else
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	81 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	82 fs->p = fs->buf;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	83 fs->end = fs->buf + INIT_BUF_SIZE;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	84 }
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	85 }
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	86
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	87 return fs;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	88 }
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	89 #if 0
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	90 /* Not exported. */
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	91 #ifdef weak_alias
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	92 weak_alias (__argp_make_fmtstream, argp_make_fmtstream)
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	93 #endif
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	94 #endif
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	95
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	96 /* Flush FS to its stream, and free it (but don't close the stream). */
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	97 void
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	98 __argp_fmtstream_free (argp_fmtstream_t fs)
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	99 {
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	100 __argp_fmtstream_update (fs);
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	101 if (fs->p > fs->buf)
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	102 {
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	103 #ifdef USE_IN_LIBIO
6000 741f5ae99cfd autoupdate Karl Berry <karl@freefriends.org> parents: 5848 diff changeset	104 __fxprintf (fs->stream, "%.*s", (int) (fs->p - fs->buf), fs->buf);
741f5ae99cfd autoupdate Karl Berry <karl@freefriends.org> parents: 5848 diff changeset	105 #else
741f5ae99cfd autoupdate Karl Berry <karl@freefriends.org> parents: 5848 diff changeset	106 fwrite_unlocked (fs->buf, 1, fs->p - fs->buf, fs->stream);
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	107 #endif
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	108 }
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	109 free (fs->buf);
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	110 free (fs);
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	111 }
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	112 #if 0
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	113 /* Not exported. */
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	114 #ifdef weak_alias
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	115 weak_alias (__argp_fmtstream_free, argp_fmtstream_free)
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	116 #endif
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	117 #endif
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	118
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	119 /* Process FS's buffer so that line wrapping is done from POINT_OFFS to the
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	120 end of its buffer. This code is mostly from glibc stdio/linewrap.c. */
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	121 void
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	122 __argp_fmtstream_update (argp_fmtstream_t fs)
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	123 {
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	124 char buf, nl;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	125 size_t len;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	126
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	127 /* Scan the buffer for newlines. */
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	128 buf = fs->buf + fs->point_offs;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	129 while (buf < fs->p)
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	130 {
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	131 size_t r;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	132
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	133 if (fs->point_col == 0 && fs->lmargin != 0)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	134 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	135 /* We are starting a new line. Print spaces to the left margin. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	136 const size_t pad = fs->lmargin;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	137 if (fs->p + pad < fs->end)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	138 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	139 /* We can fit in them in the buffer by moving the
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	140 buffer text up and filling in the beginning. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	141 memmove (buf + pad, buf, fs->p - buf);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	142 fs->p += pad; /* Compensate for bigger buffer. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	143 memset (buf, ' ', pad); /* Fill in the spaces. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	144 buf += pad; /* Don't bother searching them. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	145 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	146 else
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	147 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	148 /* No buffer space for spaces. Must flush. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	149 size_t i;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	150 for (i = 0; i < pad; i++)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	151 {
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	152 #ifdef USE_IN_LIBIO
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	153 if (_IO_fwide (fs->stream, 0) > 0)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	154 putwc_unlocked (L' ', fs->stream);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	155 else
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	156 #endif
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	157 putc_unlocked (' ', fs->stream);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	158 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	159 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	160 fs->point_col = pad;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	161 }
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	162
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	163 len = fs->p - buf;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	164 nl = memchr (buf, '\n', len);
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	165
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	166 if (fs->point_col < 0)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	167 fs->point_col = 0;
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	168
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	169 if (!nl)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	170 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	171 /* The buffer ends in a partial line. */
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	172
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	173 if (fs->point_col + len < fs->rmargin)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	174 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	175 /* The remaining buffer text is a partial line and fits
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	176 within the maximum line width. Advance point for the
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	177 characters to be written and stop scanning. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	178 fs->point_col += len;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	179 break;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	180 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	181 else
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	182 /* Set the end-of-line pointer for the code below to
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	183 the end of the buffer. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	184 nl = fs->p;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	185 }
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	186 else if (fs->point_col + (nl - buf) < (ssize_t) fs->rmargin)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	187 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	188 /* The buffer contains a full line that fits within the maximum
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	189 line width. Reset point and scan the next line. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	190 fs->point_col = 0;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	191 buf = nl + 1;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	192 continue;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	193 }
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	194
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	195 /* This line is too long. */
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	196 r = fs->rmargin - 1;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	197
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	198 if (fs->wmargin < 0)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	199 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	200 /* Truncate the line by overwriting the excess with the
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	201 newline and anything after it in the buffer. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	202 if (nl < fs->p)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	203 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	204 memmove (buf + (r - fs->point_col), nl, fs->p - nl);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	205 fs->p -= buf + (r - fs->point_col) - nl;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	206 /* Reset point for the next line and start scanning it. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	207 fs->point_col = 0;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	208 buf += r + 1; /* Skip full line plus \n. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	209 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	210 else
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	211 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	212 /* The buffer ends with a partial line that is beyond the
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	213 maximum line width. Advance point for the characters
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	214 written, and discard those past the max from the buffer. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	215 fs->point_col += len;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	216 fs->p -= fs->point_col - r;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	217 break;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	218 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	219 }
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	220 else
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	221 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	222 /* Do word wrap. Go to the column just past the maximum line
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	223 width and scan back for the beginning of the word there.
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	224 Then insert a line break. */
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	225
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	226 char p, nextline;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	227 int i;
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	228
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	229 p = buf + (r + 1 - fs->point_col);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	230 while (p >= buf && !isblank ((unsigned char) *p))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	231 --p;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	232 nextline = p + 1; /* This will begin the next line. */
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	233
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	234 if (nextline > buf)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	235 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	236 /* Swallow separating blanks. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	237 if (p >= buf)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	238 do
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	239 --p;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	240 while (p >= buf && isblank ((unsigned char) *p));
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	241 nl = p + 1; /* The newline will replace the first blank. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	242 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	243 else
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	244 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	245 /* A single word that is greater than the maximum line width.
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	246 Oh well. Put it on an overlong line by itself. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	247 p = buf + (r + 1 - fs->point_col);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	248 /* Find the end of the long word. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	249 if (p < nl)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	250 do
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	251 ++p;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	252 while (p < nl && !isblank ((unsigned char) *p));
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	253 if (p == nl)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	254 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	255 /* It already ends a line. No fussing required. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	256 fs->point_col = 0;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	257 buf = nl + 1;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	258 continue;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	259 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	260 /* We will move the newline to replace the first blank. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	261 nl = p;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	262 /* Swallow separating blanks. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	263 do
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	264 ++p;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	265 while (isblank ((unsigned char) *p));
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	266 /* The next line will start here. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	267 nextline = p;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	268 }
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	269
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	270 /* Note: There are a bunch of tests below for
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	271 NEXTLINE == BUF + LEN + 1; this case is where NL happens to fall
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	272 at the end of the buffer, and NEXTLINE is in fact empty (and so
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	273 we need not be careful to maintain its contents). */
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	274
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	275 if ((nextline == buf + len + 1
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	276 ? fs->end - nl < fs->wmargin + 1
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	277 : nextline - (nl + 1) < fs->wmargin)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	278 && fs->p > nextline)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	279 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	280 /* The margin needs more blanks than we removed. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	281 if (fs->end - fs->p > fs->wmargin + 1)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	282 /* Make some space for them. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	283 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	284 size_t mv = fs->p - nextline;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	285 memmove (nl + 1 + fs->wmargin, nextline, mv);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	286 nextline = nl + 1 + fs->wmargin;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	287 len = nextline + mv - buf;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	288 *nl++ = '\n';
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	289 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	290 else
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	291 /* Output the first line so we can use the space. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	292 {
6000 741f5ae99cfd autoupdate Karl Berry <karl@freefriends.org> parents: 5848 diff changeset	293 #ifdef _LIBC
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	294 __fxprintf (fs->stream, "%.*s\n",
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	295 (int) (nl - fs->buf), fs->buf);
6000 741f5ae99cfd autoupdate Karl Berry <karl@freefriends.org> parents: 5848 diff changeset	296 #else
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	297 if (nl > fs->buf)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	298 fwrite_unlocked (fs->buf, 1, nl - fs->buf, fs->stream);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	299 putc_unlocked ('\n', fs->stream);
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	300 #endif
6000 741f5ae99cfd autoupdate Karl Berry <karl@freefriends.org> parents: 5848 diff changeset	301
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	302 len += buf - fs->buf;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	303 nl = buf = fs->buf;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	304 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	305 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	306 else
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	307 /* We can fit the newline and blanks in before
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	308 the next word. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	309 *nl++ = '\n';
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	310
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	311 if (nextline - nl >= fs->wmargin
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	312 \|\| (nextline == buf + len + 1 && fs->end - nextline >= fs->wmargin))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	313 /* Add blanks up to the wrap margin column. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	314 for (i = 0; i < fs->wmargin; ++i)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	315 *nl++ = ' ';
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	316 else
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	317 for (i = 0; i < fs->wmargin; ++i)
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	318 #ifdef USE_IN_LIBIO
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	319 if (_IO_fwide (fs->stream, 0) > 0)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	320 putwc_unlocked (L' ', fs->stream);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	321 else
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	322 #endif
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	323 putc_unlocked (' ', fs->stream);
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	324
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	325 /* Copy the tail of the original buffer into the current buffer
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	326 position. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	327 if (nl < nextline)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	328 memmove (nl, nextline, buf + len - nextline);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	329 len -= nextline - buf;
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	330
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	331 /* Continue the scan on the remaining lines in the buffer. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	332 buf = nl;
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	333
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	334 /* Restore bufp to include all the remaining text. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	335 fs->p = nl + len;
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	336
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	337 /* Reset the counter of what has been output this line. If wmargin
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	338 is 0, we want to avoid the lmargin getting added, so we set
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	339 point_col to a magic value of -1 in that case. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	340 fs->point_col = fs->wmargin ? fs->wmargin : -1;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	341 }
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	342 }
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	343
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	344 /* Remember that we've scanned as far as the end of the buffer. */
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	345 fs->point_offs = fs->p - fs->buf;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	346 }
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	347
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	348 /* Ensure that FS has space for AMOUNT more bytes in its buffer, either by
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	349 growing the buffer, or by flushing it. True is returned iff we succeed. */
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	350 int
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	351 __argp_fmtstream_ensure (struct argp_fmtstream *fs, size_t amount)
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	352 {
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	353 if ((size_t) (fs->end - fs->p) < amount)
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	354 {
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	355 ssize_t wrote;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	356
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	357 /* Flush FS's buffer. */
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	358 __argp_fmtstream_update (fs);
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	359
6000 741f5ae99cfd autoupdate Karl Berry <karl@freefriends.org> parents: 5848 diff changeset	360 #ifdef _LIBC
741f5ae99cfd autoupdate Karl Berry <karl@freefriends.org> parents: 5848 diff changeset	361 __fxprintf (fs->stream, "%.*s", (int) (fs->p - fs->buf), fs->buf);
741f5ae99cfd autoupdate Karl Berry <karl@freefriends.org> parents: 5848 diff changeset	362 wrote = fs->p - fs->buf;
741f5ae99cfd autoupdate Karl Berry <karl@freefriends.org> parents: 5848 diff changeset	363 #else
741f5ae99cfd autoupdate Karl Berry <karl@freefriends.org> parents: 5848 diff changeset	364 wrote = fwrite_unlocked (fs->buf, 1, fs->p - fs->buf, fs->stream);
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	365 #endif
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	366 if (wrote == fs->p - fs->buf)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	367 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	368 fs->p = fs->buf;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	369 fs->point_offs = 0;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	370 }
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	371 else
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	372 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	373 fs->p -= wrote;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	374 fs->point_offs -= wrote;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	375 memmove (fs->buf, fs->buf + wrote, fs->p - fs->buf);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	376 return 0;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	377 }
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	378
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	379 if ((size_t) (fs->end - fs->buf) < amount)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	380 /* Gotta grow the buffer. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	381 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	382 size_t old_size = fs->end - fs->buf;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	383 size_t new_size = old_size + amount;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	384 char *new_buf;
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	385
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	386 if (new_size < old_size \|\| ! (new_buf = realloc (fs->buf, new_size)))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	387 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	388 __set_errno (ENOMEM);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	389 return 0;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	390 }
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	391
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	392 fs->buf = new_buf;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	393 fs->end = new_buf + new_size;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	394 fs->p = fs->buf;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	395 }
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	396 }
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	397
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	398 return 1;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	399 }
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	400
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	401 ssize_t
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	402 __argp_fmtstream_printf (struct argp_fmtstream fs, const char fmt, ...)
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	403 {
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	404 int out;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	405 size_t avail;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	406 size_t size_guess = PRINTF_SIZE_GUESS; /* How much space to reserve. */
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	407
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	408 do
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	409 {
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	410 va_list args;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	411
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	412 if (! __argp_fmtstream_ensure (fs, size_guess))
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	413 return -1;
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	414
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	415 va_start (args, fmt);
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	416 avail = fs->end - fs->p;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	417 out = __vsnprintf (fs->p, avail, fmt, args);
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	418 va_end (args);
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	419 if ((size_t) out >= avail)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 11562 diff changeset	420 size_guess = out + 1;
4385 1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	421 }
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	422 while ((size_t) out >= avail);
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	423
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	424 fs->p += out;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	425
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	426 return out;
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	427 }
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	428 #if 0
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	429 /* Not exported. */
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	430 #ifdef weak_alias
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	431 weak_alias (__argp_fmtstream_printf, argp_fmtstream_printf)
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	432 #endif
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	433 #endif
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	434
1c170fb33fa6 argp facility from glibc-20030610. Bruno Haible <bruno@clisp.org> parents: diff changeset	435 #endif /* !ARGP_FMTSTREAM_USE_LINEWRAP */

Mercurial > hg > octave-shane > gnulib-hg

annotate lib/argp-fmtstream.c @ 17282:a4996fb12971