679 lines
17 KiB
C
679 lines
17 KiB
C
/* Generate RCS revisions. */
|
|
|
|
/* Copyright 1982, 1988, 1989 Walter Tichy
|
|
Copyright 1990, 1991, 1992, 1993, 1994 Paul Eggert
|
|
Distributed under license by the Free Software Foundation, Inc.
|
|
|
|
This file is part of RCS.
|
|
|
|
RCS is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
any later version.
|
|
|
|
RCS is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with RCS; see the file COPYING. If not, write to
|
|
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
Report problems and direct all questions to:
|
|
|
|
rcs-bugs@cs.purdue.edu
|
|
|
|
*/
|
|
|
|
/*
|
|
* $Log: rcsgen.c,v $
|
|
* Revision 1.3 1995/02/24 02:25:06 mycroft
|
|
* RCS 5.6.7.4
|
|
*
|
|
* Revision 5.14 1994/03/17 14:05:48 eggert
|
|
* Work around SVR4 stdio performance bug.
|
|
* Flush stderr after prompt. Remove lint.
|
|
*
|
|
* Revision 5.13 1993/11/03 17:42:27 eggert
|
|
* Don't discard ignored phrases. Improve quality of diagnostics.
|
|
*
|
|
* Revision 5.12 1992/07/28 16:12:44 eggert
|
|
* Statement macro names now end in _.
|
|
* Be consistent about pathnames vs filenames.
|
|
*
|
|
* Revision 5.11 1992/01/24 18:44:19 eggert
|
|
* Move put routines here from rcssyn.c.
|
|
* Add support for bad_creat0.
|
|
*
|
|
* Revision 5.10 1991/10/07 17:32:46 eggert
|
|
* Fix log bugs, e.g. ci -t/dev/null when has_mmap.
|
|
*
|
|
* Revision 5.9 1991/09/10 22:15:46 eggert
|
|
* Fix test for redirected stdin.
|
|
*
|
|
* Revision 5.8 1991/08/19 03:13:55 eggert
|
|
* Add piece tables. Tune.
|
|
*
|
|
* Revision 5.7 1991/04/21 11:58:24 eggert
|
|
* Add MS-DOS support.
|
|
*
|
|
* Revision 5.6 1990/12/27 19:54:26 eggert
|
|
* Fix bug: rcs -t inserted \n, making RCS file grow.
|
|
*
|
|
* Revision 5.5 1990/12/04 05:18:45 eggert
|
|
* Use -I for prompts and -q for diagnostics.
|
|
*
|
|
* Revision 5.4 1990/11/01 05:03:47 eggert
|
|
* Add -I and new -t behavior. Permit arbitrary data in logs.
|
|
*
|
|
* Revision 5.3 1990/09/21 06:12:43 hammer
|
|
* made putdesc() treat stdin the same whether or not it was from a terminal
|
|
* by making it recognize that a single '.' was then end of the
|
|
* description always
|
|
*
|
|
* Revision 5.2 1990/09/04 08:02:25 eggert
|
|
* Fix `co -p1.1 -ko' bug. Standardize yes-or-no procedure.
|
|
*
|
|
* Revision 5.1 1990/08/29 07:14:01 eggert
|
|
* Clean old log messages too.
|
|
*
|
|
* Revision 5.0 1990/08/22 08:12:52 eggert
|
|
* Remove compile-time limits; use malloc instead.
|
|
* Ansify and Posixate.
|
|
*
|
|
* Revision 4.7 89/05/01 15:12:49 narten
|
|
* changed copyright header to reflect current distribution rules
|
|
*
|
|
* Revision 4.6 88/08/28 14:59:10 eggert
|
|
* Shrink stdio code size; allow cc -R; remove lint; isatty() -> ttystdin()
|
|
*
|
|
* Revision 4.5 87/12/18 11:43:25 narten
|
|
* additional lint cleanups, and a bug fix from the 4.3BSD version that
|
|
* keeps "ci" from sticking a '\377' into the description if you run it
|
|
* with a zero-length file as the description. (Guy Harris)
|
|
*
|
|
* Revision 4.4 87/10/18 10:35:10 narten
|
|
* Updating version numbers. Changes relative to 1.1 actually relative to
|
|
* 4.2
|
|
*
|
|
* Revision 1.3 87/09/24 13:59:51 narten
|
|
* Sources now pass through lint (if you ignore printf/sprintf/fprintf
|
|
* warnings)
|
|
*
|
|
* Revision 1.2 87/03/27 14:22:27 jenkins
|
|
* Port to suns
|
|
*
|
|
* Revision 4.2 83/12/02 23:01:39 wft
|
|
* merged 4.1 and 3.3.1.1 (clearerr(stdin)).
|
|
*
|
|
* Revision 4.1 83/05/10 16:03:33 wft
|
|
* Changed putamin() to abort if trying to reread redirected stdin.
|
|
* Fixed getdesc() to output a prompt on initial newline.
|
|
*
|
|
* Revision 3.3.1.1 83/10/19 04:21:51 lepreau
|
|
* Added clearerr(stdin) for re-reading description from stdin.
|
|
*
|
|
* Revision 3.3 82/11/28 21:36:49 wft
|
|
* 4.2 prerelease
|
|
*
|
|
* Revision 3.3 82/11/28 21:36:49 wft
|
|
* Replaced ferror() followed by fclose() with ffclose().
|
|
* Putdesc() now suppresses the prompts if stdin
|
|
* is not a terminal. A pointer to the current log message is now
|
|
* inserted into the corresponding delta, rather than leaving it in a
|
|
* global variable.
|
|
*
|
|
* Revision 3.2 82/10/18 21:11:26 wft
|
|
* I added checks for write errors during editing, and improved
|
|
* the prompt on putdesc().
|
|
*
|
|
* Revision 3.1 82/10/13 15:55:09 wft
|
|
* corrected type of variables assigned to by getc (char --> int)
|
|
*/
|
|
|
|
|
|
|
|
|
|
#include "rcsbase.h"
|
|
|
|
libId(genId, "$Id: rcsgen.c,v 1.3 1995/02/24 02:25:06 mycroft Exp $")
|
|
|
|
int interactiveflag; /* Should we act as if stdin is a tty? */
|
|
struct buf curlogbuf; /* buffer for current log message */
|
|
|
|
enum stringwork { enter, copy, edit, expand, edit_expand };
|
|
|
|
static void putdelta P((struct hshentry const*,FILE*));
|
|
static void scandeltatext P((struct hshentry*,enum stringwork,int));
|
|
|
|
|
|
|
|
|
|
char const *
|
|
buildrevision(deltas, target, outfile, expandflag)
|
|
struct hshentries const *deltas;
|
|
struct hshentry *target;
|
|
FILE *outfile;
|
|
int expandflag;
|
|
/* Function: Generates the revision given by target
|
|
* by retrieving all deltas given by parameter deltas and combining them.
|
|
* If outfile is set, the revision is output to it,
|
|
* otherwise written into a temporary file.
|
|
* Temporary files are allocated by maketemp().
|
|
* if expandflag is set, keyword expansion is performed.
|
|
* Return 0 if outfile is set, the name of the temporary file otherwise.
|
|
*
|
|
* Algorithm: Copy initial revision unchanged. Then edit all revisions but
|
|
* the last one into it, alternating input and output files (resultname and
|
|
* editname). The last revision is then edited in, performing simultaneous
|
|
* keyword substitution (this saves one extra pass).
|
|
* All this simplifies if only one revision needs to be generated,
|
|
* or no keyword expansion is necessary, or if output goes to stdout.
|
|
*/
|
|
{
|
|
if (deltas->first == target) {
|
|
/* only latest revision to generate */
|
|
openfcopy(outfile);
|
|
scandeltatext(target, expandflag?expand:copy, true);
|
|
if (outfile)
|
|
return 0;
|
|
else {
|
|
Ozclose(&fcopy);
|
|
return resultname;
|
|
}
|
|
} else {
|
|
/* several revisions to generate */
|
|
/* Get initial revision without keyword expansion. */
|
|
scandeltatext(deltas->first, enter, false);
|
|
while ((deltas=deltas->rest)->rest) {
|
|
/* do all deltas except last one */
|
|
scandeltatext(deltas->first, edit, false);
|
|
}
|
|
if (expandflag || outfile) {
|
|
/* first, get to beginning of file*/
|
|
finishedit((struct hshentry*)0, outfile, false);
|
|
}
|
|
scandeltatext(target, expandflag?edit_expand:edit, true);
|
|
finishedit(
|
|
expandflag ? target : (struct hshentry*)0,
|
|
outfile, true
|
|
);
|
|
if (outfile)
|
|
return 0;
|
|
Ozclose(&fcopy);
|
|
return resultname;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
scandeltatext(delta, func, needlog)
|
|
struct hshentry *delta;
|
|
enum stringwork func;
|
|
int needlog;
|
|
/* Function: Scans delta text nodes up to and including the one given
|
|
* by delta. For the one given by delta, the log message is saved into
|
|
* delta->log if needlog is set; func specifies how to handle the text.
|
|
* Similarly, if needlog, delta->igtext is set to the ignored phrases.
|
|
* Assumes the initial lexeme must be read in first.
|
|
* Does not advance nexttok after it is finished.
|
|
*/
|
|
{
|
|
struct hshentry const *nextdelta;
|
|
struct cbuf cb;
|
|
|
|
for (;;) {
|
|
if (eoflex())
|
|
fatserror("can't find delta for revision %s", delta->num);
|
|
nextlex();
|
|
if (!(nextdelta=getnum())) {
|
|
fatserror("delta number corrupted");
|
|
}
|
|
getkeystring(Klog);
|
|
if (needlog && delta==nextdelta) {
|
|
cb = savestring(&curlogbuf);
|
|
delta->log = cleanlogmsg(curlogbuf.string, cb.size);
|
|
nextlex();
|
|
delta->igtext = getphrases(Ktext);
|
|
} else {readstring();
|
|
ignorephrases(Ktext);
|
|
}
|
|
getkeystring(Ktext);
|
|
|
|
if (delta==nextdelta)
|
|
break;
|
|
readstring(); /* skip over it */
|
|
|
|
}
|
|
switch (func) {
|
|
case enter: enterstring(); break;
|
|
case copy: copystring(); break;
|
|
case expand: xpandstring(delta); break;
|
|
case edit: editstring((struct hshentry *)0); break;
|
|
case edit_expand: editstring(delta); break;
|
|
}
|
|
}
|
|
|
|
struct cbuf
|
|
cleanlogmsg(m, s)
|
|
char *m;
|
|
size_t s;
|
|
{
|
|
register char *t = m;
|
|
register char const *f = t;
|
|
struct cbuf r;
|
|
while (s) {
|
|
--s;
|
|
if ((*t++ = *f++) == '\n')
|
|
while (m < --t)
|
|
if (t[-1]!=' ' && t[-1]!='\t') {
|
|
*t++ = '\n';
|
|
break;
|
|
}
|
|
}
|
|
while (m < t && (t[-1]==' ' || t[-1]=='\t' || t[-1]=='\n'))
|
|
--t;
|
|
r.string = m;
|
|
r.size = t - m;
|
|
return r;
|
|
}
|
|
|
|
|
|
int ttystdin()
|
|
{
|
|
static int initialized;
|
|
if (!initialized) {
|
|
if (!interactiveflag)
|
|
interactiveflag = isatty(STDIN_FILENO);
|
|
initialized = true;
|
|
}
|
|
return interactiveflag;
|
|
}
|
|
|
|
int
|
|
getcstdin()
|
|
{
|
|
register FILE *in;
|
|
register int c;
|
|
|
|
in = stdin;
|
|
if (feof(in) && ttystdin())
|
|
clearerr(in);
|
|
c = getc(in);
|
|
if (c == EOF) {
|
|
testIerror(in);
|
|
if (feof(in) && ttystdin())
|
|
afputc('\n',stderr);
|
|
}
|
|
return c;
|
|
}
|
|
|
|
#if has_prototypes
|
|
int
|
|
yesorno(int default_answer, char const *question, ...)
|
|
#else
|
|
/*VARARGS2*/ int
|
|
yesorno(default_answer, question, va_alist)
|
|
int default_answer; char const *question; va_dcl
|
|
#endif
|
|
{
|
|
va_list args;
|
|
register int c, r;
|
|
if (!quietflag && ttystdin()) {
|
|
oflush();
|
|
vararg_start(args, question);
|
|
fvfprintf(stderr, question, args);
|
|
va_end(args);
|
|
eflush();
|
|
r = c = getcstdin();
|
|
while (c!='\n' && !feof(stdin))
|
|
c = getcstdin();
|
|
if (r=='y' || r=='Y')
|
|
return true;
|
|
if (r=='n' || r=='N')
|
|
return false;
|
|
}
|
|
return default_answer;
|
|
}
|
|
|
|
|
|
void
|
|
putdesc(textflag, textfile)
|
|
int textflag;
|
|
char *textfile;
|
|
/* Function: puts the descriptive text into file frewrite.
|
|
* if finptr && !textflag, the text is copied from the old description.
|
|
* Otherwise, if textfile, the text is read from that
|
|
* file, or from stdin, if !textfile.
|
|
* A textfile with a leading '-' is treated as a string, not a pathname.
|
|
* If finptr, the old descriptive text is discarded.
|
|
* Always clears foutptr.
|
|
*/
|
|
{
|
|
static struct buf desc;
|
|
static struct cbuf desclean;
|
|
|
|
register FILE *txt;
|
|
register int c;
|
|
register FILE * frew;
|
|
register char *p;
|
|
register size_t s;
|
|
char const *plim;
|
|
|
|
frew = frewrite;
|
|
if (finptr && !textflag) {
|
|
/* copy old description */
|
|
aprintf(frew, "\n\n%s%c", Kdesc, nextc);
|
|
foutptr = frewrite;
|
|
getdesc(false);
|
|
foutptr = 0;
|
|
} else {
|
|
foutptr = 0;
|
|
/* get new description */
|
|
if (finptr) {
|
|
/*skip old description*/
|
|
getdesc(false);
|
|
}
|
|
aprintf(frew,"\n\n%s\n%c",Kdesc,SDELIM);
|
|
if (!textfile)
|
|
desclean = getsstdin(
|
|
"t-", "description",
|
|
"NOTE: This is NOT the log message!\n", &desc
|
|
);
|
|
else if (!desclean.string) {
|
|
if (*textfile == '-') {
|
|
p = textfile + 1;
|
|
s = strlen(p);
|
|
} else {
|
|
if (!(txt = fopen(textfile, "r")))
|
|
efaterror(textfile);
|
|
bufalloc(&desc, 1);
|
|
p = desc.string;
|
|
plim = p + desc.size;
|
|
for (;;) {
|
|
if ((c=getc(txt)) == EOF) {
|
|
testIerror(txt);
|
|
if (feof(txt))
|
|
break;
|
|
}
|
|
if (plim <= p)
|
|
p = bufenlarge(&desc, &plim);
|
|
*p++ = c;
|
|
}
|
|
if (fclose(txt) != 0)
|
|
Ierror();
|
|
s = p - desc.string;
|
|
p = desc.string;
|
|
}
|
|
desclean = cleanlogmsg(p, s);
|
|
}
|
|
putstring(frew, false, desclean, true);
|
|
aputc_('\n', frew)
|
|
}
|
|
}
|
|
|
|
struct cbuf
|
|
getsstdin(option, name, note, buf)
|
|
char const *option, *name, *note;
|
|
struct buf *buf;
|
|
{
|
|
register int c;
|
|
register char *p;
|
|
register size_t i;
|
|
register int tty = ttystdin();
|
|
|
|
if (tty) {
|
|
aprintf(stderr,
|
|
"enter %s, terminated with single '.' or end of file:\n%s>> ",
|
|
name, note
|
|
);
|
|
eflush();
|
|
} else if (feof(stdin))
|
|
rcsfaterror("can't reread redirected stdin for %s; use -%s<%s>",
|
|
name, option, name
|
|
);
|
|
|
|
for (
|
|
i = 0, p = 0;
|
|
c = getcstdin(), !feof(stdin);
|
|
bufrealloc(buf, i+1), p = buf->string, p[i++] = c
|
|
)
|
|
if (c == '\n')
|
|
if (i && p[i-1]=='.' && (i==1 || p[i-2]=='\n')) {
|
|
/* Remove trailing '.'. */
|
|
--i;
|
|
break;
|
|
} else if (tty) {
|
|
aputs(">> ", stderr);
|
|
eflush();
|
|
}
|
|
return cleanlogmsg(p, i);
|
|
}
|
|
|
|
|
|
void
|
|
putadmin()
|
|
/* Output the admin node. */
|
|
{
|
|
register FILE *fout;
|
|
struct assoc const *curassoc;
|
|
struct lock const *curlock;
|
|
struct access const *curaccess;
|
|
|
|
if (!(fout = frewrite)) {
|
|
# if bad_creat0
|
|
ORCSclose();
|
|
fout = fopen(makedirtemp(0), FOPEN_W);
|
|
# else
|
|
int fo = fdlock;
|
|
fdlock = -1;
|
|
fout = fdopen(fo, FOPEN_W);
|
|
# endif
|
|
|
|
if (!(frewrite = fout))
|
|
efaterror(RCSname);
|
|
}
|
|
|
|
/*
|
|
* Output the first character with putc, not printf.
|
|
* Otherwise, an SVR4 stdio bug buffers output inefficiently.
|
|
*/
|
|
aputc_(*Khead, fout)
|
|
aprintf(fout, "%s\t%s;\n", Khead + 1, Head?Head->num:"");
|
|
if (Dbranch && VERSION(4)<=RCSversion)
|
|
aprintf(fout, "%s\t%s;\n", Kbranch, Dbranch);
|
|
|
|
aputs(Kaccess, fout);
|
|
curaccess = AccessList;
|
|
while (curaccess) {
|
|
aprintf(fout, "\n\t%s", curaccess->login);
|
|
curaccess = curaccess->nextaccess;
|
|
}
|
|
aprintf(fout, ";\n%s", Ksymbols);
|
|
curassoc = Symbols;
|
|
while (curassoc) {
|
|
aprintf(fout, "\n\t%s:%s", curassoc->symbol, curassoc->num);
|
|
curassoc = curassoc->nextassoc;
|
|
}
|
|
aprintf(fout, ";\n%s", Klocks);
|
|
curlock = Locks;
|
|
while (curlock) {
|
|
aprintf(fout, "\n\t%s:%s", curlock->login, curlock->delta->num);
|
|
curlock = curlock->nextlock;
|
|
}
|
|
if (StrictLocks) aprintf(fout, "; %s", Kstrict);
|
|
aprintf(fout, ";\n");
|
|
if (Comment.size) {
|
|
aprintf(fout, "%s\t", Kcomment);
|
|
putstring(fout, true, Comment, false);
|
|
aprintf(fout, ";\n");
|
|
}
|
|
if (Expand != KEYVAL_EXPAND)
|
|
aprintf(fout, "%s\t%c%s%c;\n",
|
|
Kexpand, SDELIM, expand_names[Expand], SDELIM
|
|
);
|
|
awrite(Ignored.string, Ignored.size, fout);
|
|
aputc_('\n', fout)
|
|
}
|
|
|
|
|
|
static void
|
|
putdelta(node, fout)
|
|
register struct hshentry const *node;
|
|
register FILE * fout;
|
|
/* Output the delta NODE to FOUT. */
|
|
{
|
|
struct branchhead const *nextbranch;
|
|
|
|
if (!node) return;
|
|
|
|
aprintf(fout, "\n%s\n%s\t%s;\t%s %s;\t%s %s;\nbranches",
|
|
node->num,
|
|
Kdate, node->date,
|
|
Kauthor, node->author,
|
|
Kstate, node->state?node->state:""
|
|
);
|
|
nextbranch = node->branches;
|
|
while (nextbranch) {
|
|
aprintf(fout, "\n\t%s", nextbranch->hsh->num);
|
|
nextbranch = nextbranch->nextbranch;
|
|
}
|
|
|
|
aprintf(fout, ";\n%s\t%s;\n", Knext, node->next?node->next->num:"");
|
|
awrite(node->ig.string, node->ig.size, fout);
|
|
}
|
|
|
|
|
|
void
|
|
puttree(root, fout)
|
|
struct hshentry const *root;
|
|
register FILE *fout;
|
|
/* Output the delta tree with base ROOT in preorder to FOUT. */
|
|
{
|
|
struct branchhead const *nextbranch;
|
|
|
|
if (!root) return;
|
|
|
|
if (root->selector)
|
|
putdelta(root, fout);
|
|
|
|
puttree(root->next, fout);
|
|
|
|
nextbranch = root->branches;
|
|
while (nextbranch) {
|
|
puttree(nextbranch->hsh, fout);
|
|
nextbranch = nextbranch->nextbranch;
|
|
}
|
|
}
|
|
|
|
|
|
int
|
|
putdtext(delta, srcname, fout, diffmt)
|
|
struct hshentry const *delta;
|
|
char const *srcname;
|
|
FILE *fout;
|
|
int diffmt;
|
|
/*
|
|
* Output a deltatext node with delta number DELTA->num, log message DELTA->log,
|
|
* ignored phrases DELTA->igtext and text SRCNAME to FOUT.
|
|
* Double up all SDELIMs in both the log and the text.
|
|
* Make sure the log message ends in \n.
|
|
* Return false on error.
|
|
* If DIFFMT, also check that the text is valid diff -n output.
|
|
*/
|
|
{
|
|
RILE *fin;
|
|
if (!(fin = Iopen(srcname, "r", (struct stat*)0))) {
|
|
eerror(srcname);
|
|
return false;
|
|
}
|
|
putdftext(delta, fin, fout, diffmt);
|
|
Ifclose(fin);
|
|
return true;
|
|
}
|
|
|
|
void
|
|
putstring(out, delim, s, log)
|
|
register FILE *out;
|
|
struct cbuf s;
|
|
int delim, log;
|
|
/*
|
|
* Output to OUT one SDELIM if DELIM, then the string S with SDELIMs doubled.
|
|
* If LOG is set then S is a log string; append a newline if S is nonempty.
|
|
*/
|
|
{
|
|
register char const *sp;
|
|
register size_t ss;
|
|
|
|
if (delim)
|
|
aputc_(SDELIM, out)
|
|
sp = s.string;
|
|
for (ss = s.size; ss; --ss) {
|
|
if (*sp == SDELIM)
|
|
aputc_(SDELIM, out)
|
|
aputc_(*sp++, out)
|
|
}
|
|
if (s.size && log)
|
|
aputc_('\n', out)
|
|
aputc_(SDELIM, out)
|
|
}
|
|
|
|
void
|
|
putdftext(delta, finfile, foutfile, diffmt)
|
|
struct hshentry const *delta;
|
|
RILE *finfile;
|
|
FILE *foutfile;
|
|
int diffmt;
|
|
/* like putdtext(), except the source file is already open */
|
|
{
|
|
declarecache;
|
|
register FILE *fout;
|
|
register int c;
|
|
register RILE *fin;
|
|
int ed;
|
|
struct diffcmd dc;
|
|
|
|
fout = foutfile;
|
|
aprintf(fout, DELNUMFORM, delta->num, Klog);
|
|
|
|
/* put log */
|
|
putstring(fout, true, delta->log, true);
|
|
aputc_('\n', fout)
|
|
|
|
/* put ignored phrases */
|
|
awrite(delta->igtext.string, delta->igtext.size, fout);
|
|
|
|
/* put text */
|
|
aprintf(fout, "%s\n%c", Ktext, SDELIM);
|
|
|
|
fin = finfile;
|
|
setupcache(fin);
|
|
if (!diffmt) {
|
|
/* Copy the file */
|
|
cache(fin);
|
|
for (;;) {
|
|
cachegeteof_(c, break;)
|
|
if (c==SDELIM) aputc_(SDELIM, fout) /*double up SDELIM*/
|
|
aputc_(c, fout)
|
|
}
|
|
} else {
|
|
initdiffcmd(&dc);
|
|
while (0 <= (ed = getdiffcmd(fin, false, fout, &dc)))
|
|
if (ed) {
|
|
cache(fin);
|
|
while (dc.nlines--)
|
|
do {
|
|
cachegeteof_(c, { if (!dc.nlines) goto OK_EOF; unexpected_EOF(); })
|
|
if (c == SDELIM)
|
|
aputc_(SDELIM, fout)
|
|
aputc_(c, fout)
|
|
} while (c != '\n');
|
|
uncache(fin);
|
|
}
|
|
}
|
|
OK_EOF:
|
|
aprintf(fout, "%c\n", SDELIM);
|
|
}
|