This is unixsave.c in view mode; [Download] [Up]
Changes file for /usr/local/src/kcl/./c/unixsave.c
Created on Mon Apr 29 20:50:14 1991
Usage \n@s[Original text\n@s|Replacement Text\n@s]
See the file rascal.ics.utexas.edu:/usr2/ftp/merge.c
for a program to merge change files. Anything not between
"\n@s[" and "\n@s]" is a simply a comment.
This file was constructed using emacs and merge.el
Enhancements Copyright (c) W. Schelter All rights reserved.
by (Bill Schelter) wfs@carl.ma.utexas.edu
****Change:(orig (10 10 a))
@s[proper "License Agreement for Kyoto Common LISP" with SIGLISP.
*/
/*
unixsave.c
*/
@s|proper "License Agreement for Kyoto Common LISP" with SIGLISP.
*/
/*
unixsave.c
*/
#ifndef FIRSTWORD
@s]
****Change:(orig (11 11 a))
@s[#include "include.h"
@s|#include "include.h"
#endif
@s]
****Change:(orig (13 14 c))
@s[/* When MACHINE is S3000, use fcntl.h */
#ifdef S3000
@s|#ifdef UNIXSAVE
#include UNIXSAVE
#else
#ifdef HAVE_FCNTL
@s]
****Change:(orig (20 22 c))
@s[
#ifdef BSD
#include <a.out.h>
@s|#ifdef HAVE_AOUT
#undef BSD
#undef ATT
#define BSD
@s]
****Change:(orig (25 29 d))
@s[#ifdef VAX
#define PAGSIZ 1024
#define SEGSIZ 1024
#define TXTRELOC 0
@s,#endif
@s|
@s]
****Change:(orig (31 31 d))
@s[
#ifdef ISI
@s|
@s]
****Change:(orig (33 34 c))
@s[
@s|
#ifdef BSD
#include <a.out.h>
@s]
****Change:(orig (37 37 d))
@s[#endif
#ifdef SEQ
@s|#endif
@s]
****Change:(orig (39 51 d))
@s[
#endif
#ifdef NEWS
#define TXTRELOC 0
@s,#ifdef IBMRT
#endif
@s|
@s]
****Change:(orig (56 59 d))
@s[#define exec aouthdr
#define a_text tsize
#define a_data dsize
#define a_bss bsize
@s|
@s]
****Change:(orig (65 73 d))
@s[#define exec bhdr
#define a_text tsize
#define a_data dsize
#define a_bss bsize
@s,#define TXTRELOC (1024*1024)
@s|
@s]
****Change:(orig (99 114 c))
@s[{
#ifdef BSD
struct exec header;
@s, struct exec header;
#endif
@s|{ MEM_SAVE_LOCALS;
@s]
****Change:(orig (139 140 c))
@s[#ifdef BSD
fread(&header, sizeof(header), 1, original);
@s| READ_HEADER;
FILECPY_HEADER;
@s]
****Change:(orig (142 275 d))
@s[#ifdef VAX
data_begin
= (char *)((TXTRELOC+header.a_text+(SEGSIZ-1)) & ~(SEGSIZ-1));
#endif
@s, fwrite(&header, sizeof(header), 1, save);
filecpy(save, original, header.a_text);
#endif
@s|
@s]
****Change:(orig (287 292 c))
@s[#ifdef BSD
filecpy(save, original, header.a_syms+header.a_trsize+header.a_drsize);
fread(&stsize, sizeof(stsize), 1, original);
fwrite(&stsize, sizeof(stsize), 1, save);
@s, filecpy(save, original, stsize - sizeof(stsize));
#endif
@s| COPY_TO_SAVE;
@s]
****Change:(orig (294 306 d))
@s[#ifdef ATT
for (;;) {
n = getc(original);
if (feof(original))
@s, filecpy(save, original, header.a_syms+header.a_trsize+header.a_drsize);
#endif
@s|
@s]
****Change:(orig (318 318 c))
@s[ coerce_to_filename(vs_base[0], filename);
/*
@s| coerce_to_filename(vs_base[0], filename);
@s]
****Change:(orig (320 320 c))
@s[ _cleanup();
*/
@s| _cleanup();
/*
@s]
****Change:(orig (325 329 c))
@s[#ifdef BSD
nfile = getdtablesize();
#else
nfile = _NFILE;
@s,#endif
@s|
nfile = NUMBER_OPEN_FILES;
@s]
****Change:(orig (332 332 a))
@s[ for (p = &_iob[3]; p < &_iob[nfile]; p++)
fclose(p);
}
@s| for (p = &_iob[3]; p < &_iob[nfile]; p++)
fclose(p);
}
*/
@s]
****Change:(orig (340 340 a))
@s[ exit(0);
/* no return */
}
@s| exit(0);
/* no return */
}
#endif /* UNIXSAVE include */
@s]
****Change:(orig (346 357 d))
@s[#ifdef ISI
#endif
@s|
@s]
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.