ftp.nice.ch/pub/next/developer/languages/lisp/AKCL.1.599.s.tar.gz#/akcl-1-599/V/bin/dpp.c

This is dpp.c in view mode; [Download] [Up]

Changes file for /usr/local/src/kcl/./bin/dpp.c
Created on Tue Dec 12 06:28:02 1989
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 (13 13 a))
@s[	written to the file whose name is file.c.


@s|	written to the file whose name is file.c.

	
	;changes: remove \n from beginning of main output so debuggers
	can find the right foo.d source file name.--wfs
	;add \" to the line output for ansi C --wfs

@s]


****Change:(orig (59 59 a))
@s[*/

#include <stdio.h>


@s|*/

#include <stdio.h>



@s]


****Change:(orig (404 404 a))
@s[	fprintf(out, "\tint narg;\n");

@s|	fprintf(out, "\tint narg;\n");
	fprintf(out, "\tregister object *DPPbase=vs_base;\n");
	

@s]


****Change:(orig (410 410 c))
@s[		fprintf(out, "#define\t%s\tvs_base[%d]\n",

@s|		fprintf(out, "#define\t%s\tDPPbase[%d]\n",

@s]


****Change:(orig (413 413 c))
@s[		fprintf(out, "#define\t%s\tvs_base[%d+%d]\n",

@s|		fprintf(out, "#define\t%s\tDPPbase[%d+%d]\n",

@s]


****Change:(orig (416 416 c))
@s[		fprintf(out, "#define\t%s\tvs_base[%d+%d+%d]\n",

@s|		fprintf(out, "#define\t%s\tDPPbase[%d+%d+%d]\n",

@s]


****Change:(orig (422 422 c))
@s[		fprintf(out, "#define\t%s\tvs_base[%d+%d+2*%d+%d]\n",

@s|		fprintf(out, "#define\t%s\tDPPbase[%d+%d+2*%d+%d]\n",

@s]


****Change:(orig (571 571 c))
@s[	int c;
	char *p;

	line = 1;


@s|	int c;
	char *p;

	line = 1;
	fprintf(out, "# line %d \"%s\"\n", line, filename);

@s]


****Change:(orig (574 574 c))
@s[	fprintf(out, "\n#line %d %s\n", line, filename);

@s|	fprintf(out, "\n# line %d \"%s\"\n", line, filename);

@s]


****Change:(orig (584 584 c))
@s[		fprintf(out, "\n#line %d %s\n", line, filename);

@s|		fprintf(out, "\n# line %d \"%s\"\n", line, filename);

@s]


****Change:(orig (590 590 c))
@s[		fprintf(out, "\n#line %d %s\n", line, filename);

@s|		fprintf(out, "\n# line %d \"%s\"\n", line, filename);

@s]

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.